Loc.of_lexbuf

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-07-01 16:56:19 +07:00 · 2018-07-01 16:56:19 +07:00 · a4bc260241
parent c906801c69
commit a4bc260241
1 changed files with 1 additions and 4 deletions
--- a/src/installed_dune_file.ml
+++ b/src/installed_dune_file.ml
@ -61,10 +61,7 @@ let load fname =
      | [Lparen; Atom (A "dune"); Atom s] ->
        (Sexp.Loc.of_lexbuf lexbuf, Sexp.Atom.to_string s)
      | _ ->
-        Loc.fail
-          { start = Lexing.lexeme_start_p lexbuf
-          ; stop = Lexing.lexeme_end_p lexbuf
-          } "%s" bad_dune_file
+        Loc.fail (Sexp.Loc.of_lexbuf lexbuf) "%s" bad_dune_file
    in
    match version with
    | "1" ->