OS.Dir
val exists : fpath -> bool result
val must_exist : fpath -> fpath result
val contents : ?dotfiles:bool -> ?rel:bool -> fpath -> fpath list result
val current : unit -> fpath result
val set_current : fpath -> unit result
val with_current : fpath -> ('a -> 'b) -> 'a -> 'b result