From f74817e00dc05d138a968e7ec9f789e50e432651 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Mon, 12 Mar 2018 12:02:55 +0000
Subject: [PATCH] Fill the loc field of rules

---
 src/jbuild.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/jbuild.ml b/src/jbuild.ml
index 0afb0bb2..43bdbb8b 100644
--- a/src/jbuild.ml
+++ b/src/jbuild.ml
@@ -978,6 +978,7 @@ module Rule = struct
     }
 
   let v1 sexp =
+    let loc = Sexp.Ast.loc sexp in
     match sexp with
     | List (_, (Atom _ :: _)) ->
       { targets  = Infer
@@ -985,7 +986,7 @@ module Rule = struct
       ; action   = Action.Unexpanded.t sexp
       ; mode     = Standard
       ; locks    = []
-      ; loc      = Loc.none
+      ; loc      = loc
       }
     | _ ->
       record
@@ -1012,7 +1013,7 @@ module Rule = struct
                 ; action
                 ; mode
                 ; locks
-                ; loc = Loc.none
+                ; loc
                 })
         sexp