Fill the loc field of rules

2018-03-12 12:02:55 +00:00 · 2018-03-12 12:02:55 +00:00 · f74817e00d
parent feba0827b8
commit f74817e00d
1 changed files with 3 additions and 2 deletions
--- 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