Up  

Module Find.Options


module Options: sig .. end

type error_handler =
| Ignore (*Unix like find.*)
| Print (*Unix like find.*)
| Raise (*Unix like find.*)
| Handle_with of (string -> unit) (*Unix like find.*)

type t = {
   max_depth : int option; (*Unix like find.*)
   follow_links : bool; (*Unix like find.*)
   on_open_errors : error_handler; (*Unix like find.*)
   on_stat_errors : error_handler; (*Unix like find.*)
   filter : (Find.file_info -> bool) option; (*Unix like find.*)
   skip_dir : (Find.file_info -> bool) option; (*Unix like find.*)
} 
val default : t
val ignore_errors : t