sig
  type error_handler =
      Ignore
    | Print
    | Raise
    | Handle_with of (string -> unit)
  type t = {
    max_depth : int option;
    follow_links : bool;
    on_open_errors : Find.Options.error_handler;
    on_stat_errors : Find.Options.error_handler;
    filter : (Find.file_info -> bool) option;
    skip_dir : (Find.file_info -> bool) option;
  }
  val default : Find.Options.t
  val ignore_errors : Find.Options.t
end