From 66bb89a919ade36fb5e824d4f64f89397c02e5d2 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Wed, 22 Aug 2018 16:57:15 +0300
Subject: [PATCH] s/loc/dloc/g

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/context.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/context.ml b/src/context.ml
index 33c654f6..29d261d2 100644
--- a/src/context.ml
+++ b/src/context.ml
@@ -270,7 +270,7 @@ let create ~(kind : Kind.t) ~path ~env ~env_nodes ~name ~merlin ~targets
              %s"
           (Path.to_string ocamlc) msg
       | Error (Makefile_config file, msg) ->
-        Loc.fail (Loc.in_file (Path.to_string file)) "%s" msg
+        Dloc.fail (Loc.in_file (Path.to_string file)) "%s" msg
     in
     Fiber.fork_and_join
       findlib_path