From 629b4d0044c1e3fc015d522acb83289897d594f4 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Fri, 10 Mar 2017 10:57:09 +0000
Subject: [PATCH] Use Path.absolute for OCAML_TOPLEVEL_PATH

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

diff --git a/src/context.ml b/src/context.ml
index fd311ec1..0ba91798 100644
--- a/src/context.ml
+++ b/src/context.ml
@@ -206,7 +206,7 @@ let create ~(kind : Kind.t) ~path ~env ~name ~merlin =
     ; for_host = None
     ; build_dir
     ; path
-    ; toplevel_path = Option.map (get_env env "OCAML_TOPLEVEL_PATH") ~f:Path.of_string
+    ; toplevel_path = Option.map (get_env env "OCAML_TOPLEVEL_PATH") ~f:Path.absolute
 
     ; ocaml_bin  = dir
     ; ocaml      = Path.relative dir "ocaml"