1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
open! Stdune
(** Finding the root of the workspace *)
module Kind : sig
type t =
| Explicit
| Dune_workspace
| Dune_project
| Cwd
end
type t =
{ dir : string
; to_cwd : string list (** How to reach the cwd from the root *)
; reach_from_root_prefix : string
(** Prefix filenames with this to reach them from the root *)
; kind : Kind.t
}
val create
: default_is_cwd:bool
-> specified_by_user:string option
-> (t, User_message.t) result
val create_exn : default_is_cwd:bool -> specified_by_user:string option -> t
|
