Fs (p.diffast-misc.0.1.1.doc.diffast-misc.Diffast

val strip_slashes : string -> string

val abspath : string -> string

val normpath : string -> string

class entry : < git_hash_flag : bool
  ; hash_algo : Xhash.algo.. > -> string -> string -> Diffast_misc.Storage.entry_t

val get_case_insensitive_path : ?prefix:string -> string -> string

class entry_cache : object ... end

val scan_dir : (string -> string -> unit) -> string -> unit

class tree : < git_hash_flag : bool
  ; hash_algo : Xhash.algo
  ; keep_filtered_temp_file_flag : bool
  ; verbose_flag : bool.. > -> string -> object ... end

val make : 
  < git_hash_flag : bool
    ; hash_algo : Xhash.algo
    ; keep_filtered_temp_file_flag : bool
    ; verbose_flag : bool.. > ->
  ?path:string ->
  unit ->
  tree

val file_of_path : 
  < git_hash_flag : bool
    ; hash_algo : Xhash.algo
    ; keep_filtered_temp_file_flag : bool
    ; root_path : string
    ; verbose_flag : bool.. > ->
  string ->
  Storage.file