Fix root finding

Look for .opam files instead of .install ones...
This commit is contained in:
Jeremie Dimino 2017-03-08 12:10:54 +00:00
parent 9d97abefa6
commit 3a86b3fefa
2 changed files with 2 additions and 2 deletions

View File

@ -70,7 +70,7 @@ let find_root () =
if String_set.mem "jbuild-workspace" files then
cont counter ~candidates:((0, dir, to_cwd) :: candidates) dir ~to_cwd
else if String_set.exists files ~f:(fun fn ->
String.is_suffix fn ~suffix:".install") then
String.is_suffix fn ~suffix:".opam") then
cont counter ~candidates:((1, dir, to_cwd) :: candidates) dir ~to_cwd
else if String_set.mem ".git" files || String_set.mem ".hg" files then
cont counter ~candidates:((2, dir, to_cwd) :: candidates) dir ~to_cwd

View File

@ -985,7 +985,7 @@ Jbuilder looks for the following entries in all these directories, in
order of precedences:
1. =jbuild-workspace=
2. any file ending with =.install=
2. any file ending with =.opam=
3. =.git= or =.hg=
The first entry to match in this list will determine the root. If this