Disable fallback in dune files

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-03 00:27:39 +07:00
parent e56fba9a57
commit dee6c9aa96
1 changed files with 4 additions and 0 deletions

View File

@ -1130,6 +1130,10 @@ module Rule = struct
field "locks" (list String_with_vars.t) ~default:[] >>= fun locks ->
map_validate
(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 ->
return (fallback, mode))
~f:(function