Fs.Directory
type t = directory
val mkdir_p : t -> unit
val of_string : string -> t
val to_string : t -> string
val fold_files_rec_result :
?ext:string ->
( 'a -> file -> ( 'a, Or_error.msg ) Or_error.result ) ->
'a ->
t ->
( 'a, [> Or_error.msg ] ) Or_error.result
fold_files_rec_result ~ext f acc d
recursively folds f
over the files with extension matching ext
(defaults to ""
) contained in d
and its sub directories. Stop as soon as f
returns Error _
.