Fix parsing of ocamllex in jbuild files
The long form would be rejected Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
bb2bf59ff1
commit
da3def9dc7
|
@ -1485,18 +1485,19 @@ module Rule = struct
|
||||||
}
|
}
|
||||||
|
|
||||||
let ocamllex_jbuild =
|
let ocamllex_jbuild =
|
||||||
enter
|
peek_exn >>= function
|
||||||
(if_list
|
| List (_, Atom (_, _) :: _) ->
|
||||||
~then_:(
|
enter (
|
||||||
record
|
repeat string >>| fun modules ->
|
||||||
(let%map modules = field "modules" (list string)
|
{ modules
|
||||||
and mode = Mode.field in
|
; mode = Standard
|
||||||
{ modules; mode }))
|
}
|
||||||
~else_:(
|
)
|
||||||
repeat string >>| fun modules ->
|
| _ ->
|
||||||
{ modules
|
record
|
||||||
; mode = Standard
|
(let%map modules = field "modules" (list string)
|
||||||
}))
|
and mode = Mode.field in
|
||||||
|
{ modules; mode })
|
||||||
|
|
||||||
let ocamllex_dune =
|
let ocamllex_dune =
|
||||||
if_eos
|
if_eos
|
||||||
|
|
|
@ -1,6 +1,2 @@
|
||||||
$ dune exec ./foo.exe
|
$ dune exec ./foo.exe
|
||||||
File "jbuild", line 2, characters 3-10:
|
foo
|
||||||
((modules (foo))))
|
|
||||||
^^^^^^^
|
|
||||||
Error: S-expression of the form (<name> <values>...) expected
|
|
||||||
[1]
|
|
||||||
|
|
Loading…
Reference in New Issue