Loc.of_lexbuf
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
c906801c69
commit
a4bc260241
|
@ -61,10 +61,7 @@ let load fname =
|
||||||
| [Lparen; Atom (A "dune"); Atom s] ->
|
| [Lparen; Atom (A "dune"); Atom s] ->
|
||||||
(Sexp.Loc.of_lexbuf lexbuf, Sexp.Atom.to_string s)
|
(Sexp.Loc.of_lexbuf lexbuf, Sexp.Atom.to_string s)
|
||||||
| _ ->
|
| _ ->
|
||||||
Loc.fail
|
Loc.fail (Sexp.Loc.of_lexbuf lexbuf) "%s" bad_dune_file
|
||||||
{ start = Lexing.lexeme_start_p lexbuf
|
|
||||||
; stop = Lexing.lexeme_end_p lexbuf
|
|
||||||
} "%s" bad_dune_file
|
|
||||||
in
|
in
|
||||||
match version with
|
match version with
|
||||||
| "1" ->
|
| "1" ->
|
||||||
|
|
Loading…
Reference in New Issue