Fix a bug where the findlib search path contained duplicates

2017-03-10 15:35:43 +00:00 · 2017-03-10 15:35:43 +00:00 · df7658914d
parent cd53415a30
commit df7658914d
1 changed files with 1 additions and 1 deletions
--- a/src/context.ml
+++ b/src/context.ml
@ -211,7 +211,7 @@ let create ~(kind : Kind.t) ~path ~base_env ~env_extra ~name ~merlin =
     match a @ b with
     | [] -> [Path.relative (Path.parent dir) "lib"]
     | l  ->
-       List.fold_left l ~init:l ~f:(fun acc x ->
+       List.fold_left l ~init:[] ~f:(fun acc x ->
         if List.mem x ~set:acc then
           acc
         else