Disable fallback in dune files
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
e56fba9a57
commit
dee6c9aa96
|
@ -1130,6 +1130,10 @@ module Rule = struct
|
||||||
field "locks" (list String_with_vars.t) ~default:[] >>= fun locks ->
|
field "locks" (list String_with_vars.t) ~default:[] >>= fun locks ->
|
||||||
map_validate
|
map_validate
|
||||||
(field_b "fallback" >>= fun fallback ->
|
(field_b "fallback" >>= fun fallback ->
|
||||||
|
(if fallback then
|
||||||
|
Syntax.renamed_in Stanza.syntax (1, 0) ~to_:"(mode fallback)"
|
||||||
|
else
|
||||||
|
return ()) >>= fun () ->
|
||||||
field_o "mode" Mode.t >>= fun mode ->
|
field_o "mode" Mode.t >>= fun mode ->
|
||||||
return (fallback, mode))
|
return (fallback, mode))
|
||||||
~f:(function
|
~f:(function
|
||||||
|
|
Loading…
Reference in New Issue