sig   val etc_dir : Fpath.t   val user_dir : unit -> (Fpath.t, [> Rresult.R.msg ]) Rresult.result   type t   val v :     no_user_dir:bool ->     no_dot_dirs:bool ->     dirs:Fpath.t list ->     flesh:Fpath.t list -> cli:(string * Carcass.Pat.t) list -> Carcass.Env.t end