From dee6c9aa96e21267010176d46226cf73a67c0967 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Tue, 3 Jul 2018 00:27:39 +0700
Subject: [PATCH] Disable fallback in dune files

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/jbuild.ml | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/jbuild.ml b/src/jbuild.ml
index 7b460de3..e6e6c150 100644
--- a/src/jbuild.ml
+++ b/src/jbuild.ml
@@ -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