Fixed default lookup path when project root can't be found

OCamlPro · Dec 20, 2013 · 34618b7 · 34618b7
1 parent ad93284
commit 34618b7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/indexOptions.ml b/src/indexOptions.ml
@@ -265,10 +265,11 @@ let common_opts : t Term.t =
   let lib_info ocamllib (_root,build) (opens,full_opens) context =
     let dirs = match build with
       | None -> ocamllib
-      | Some d -> LibIndex.Misc.unique_subdirs (d :: ocamllib)
+      | Some d -> d :: ocamllib
     in
     if dirs = [] then
       failwith "Failed to guess OCaml / opam lib dirs. Please use `-I'";
+    let dirs = LibIndex.Misc.unique_subdirs dirs in
     let info = LibIndex.load dirs in
     let info =
       List.fold_left (LibIndex.open_module ~cleanup_path:true) info opens