val contents :
?dotfiles:bool ->?rel:bool ->Fpath.t->(Fpath.t list, [> `Msg of string ])result
val fold_contents :
?err:
(Fpath.t->('a, [ `Msg of string ])result->(unit, [ `Msg of string ])result)->?dotfiles:bool ->?elements:
[< `Any
| `Dirs| `Files| `Sat of Fpath.t->(bool, [ `Msg of string ])result Any ]->?traverse:
[< `Any
| `None| `Sat of Fpath.t->(bool, [ `Msg of string ])result Any ]->(Fpath.t->'b->'b)->'b->Fpath.t->('b, [> `Msg of string ])result
val current : unit ->(Fpath.t, [> `Msg of string ])result
val set_current : Fpath.t->(unit, [> `Msg of string ])result
val with_current :
Fpath.t->('a->'b)->'a->('b, [> `Msg of string ])result