sig
  type t = Find.t
  type file_info = string * Core.Std.Unix.stats
  module Options :
    sig
      type error_handler =
        Find.Options.error_handler =
          Ignore
        | Print
        | Raise
        | Handle_with of (string -> unit)
      type t =
        Find.Options.t = {
        min_depth : int;
        max_depth : int option;
        follow_links : bool;
        on_open_errors : error_handler;
        on_stat_errors : error_handler;
        filter : (file_info -> bool) option;
        skip_dir : (file_info -> bool) option;
        relative_paths : bool;
      }
      val default : t
      val ignore_errors : t
    end
  val create : ?options:Options.t -> string -> t
  val next : t -> file_info option
  val close : t -> unit
  val iter : t -> f:(file_info -> unit) -> unit
  val fold : t -> init:'a -> f:('a -> file_info -> 'a) -> 'a
  val to_list : t -> file_info list
  val find_all : ?options:Options.t -> string -> file_info list
end