Module Ketrew.Explorer

module Explorer: sig .. end

type t 

val create : client:Ketrew.Client.t -> unit -> t

val explore : t ->
       (unit,
        [> `Client of Ketrew.Client.Error.t
         | `Database of Persistent_data.Error.database
         | `Failure of string
         | `IO of
             [> `Read_file_exn of string * exn | `Write_file_exn of string * exn ]
         | `System of [> `File_info of string ] * [> `Exn of exn ] ])
       Unix_io.Deferred_result.t