From 99d7a26f28ebffee7ef7bd767c59dfed254c4113 Mon Sep 17 00:00:00 2001 From: Jeremie Dimino Date: Fri, 10 Mar 2017 16:32:08 +0000 Subject: [PATCH] Fix previous commit --- src/lib_db.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib_db.ml b/src/lib_db.ml index f647dbcc..6f876dd0 100644 --- a/src/lib_db.ml +++ b/src/lib_db.ml @@ -102,7 +102,7 @@ let create findlib ~dirs_with_dot_opam_files internal_libraries = in (* Initializes the scopes, including [Path.root] so that when there are no .opam files in parent directories, the scope is the whole workspace. *) - Path.Set.iter (Path.add Path.root dirs_with_dot_opam_files) ~f:(fun dir -> + Path.Set.iter (Path.Set.add Path.root dirs_with_dot_opam_files) ~f:(fun dir -> Hashtbl.add t.by_internal_name ~key:dir ~data:(ref String_map.empty)); List.iter internal_libraries ~f:(fun ((dir, lib) as internal) ->