sig
  type t
  type file_info = string * Core.Std.Unix.stats
  module Options :
    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
  val create : ?options:Find.Options.t -> string -> Find.t
  val next : Find.t -> Find.file_info option
  val close : Find.t -> unit
  val iter : Find.t -> f:(Find.file_info -> unit) -> unit
  val fold : Find.t -> init:'a -> f:('a -> Find.file_info -> 'a) -> 'a
  val to_list : Find.t -> Find.file_info list
  val find_all : ?options:Find.Options.t -> string -> Find.file_info list
  val ounit_tests : unit -> OUnit.test
end