From df7658914d905e65a304cb3c54c348266d68f1c7 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Fri, 10 Mar 2017 15:35:43 +0000
Subject: [PATCH] Fix a bug where the findlib search path contained duplicates

---
 src/context.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/context.ml b/src/context.ml
index 001f9b82..7042f50e 100644
--- 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