From 0a0e956929e28fd6f1c43f39d7b92aeeaf0f01e2 Mon Sep 17 00:00:00 2001
From: Vincent Laporte <Vincent.Laporte@gmail.com>
Date: Mon, 25 Jun 2018 16:02:02 +0000
Subject: [vernac] indentation

---
 vernac/g_vernac.mlg | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'vernac')

diff --git a/vernac/g_vernac.mlg b/vernac/g_vernac.mlg
index 92c685741..23b6898c3 100644
--- a/vernac/g_vernac.mlg
+++ b/vernac/g_vernac.mlg
@@ -83,27 +83,27 @@ GRAMMAR EXTEND Gram
     ]
   ;
   decorated_vernac:
-  [[ a = attributes ; fv = vernac -> let (f, v) = fv in (List.append a f, v)
-  | fv = vernac -> fv
-  ]]
+    [ [ a = attributes ; fv = vernac -> let (f, v) = fv in (List.append a f, v)
+      | fv = vernac -> fv ]
+    ]
   ;
   attributes:
-  [[ "#[" ; a = attribute_list ; "]" -> a
-  ]]
+    [ [ "#[" ; a = attribute_list ; "]" -> a ]
+    ]
   ;
   attribute_list:
-  [[ a = LIST0 attribute SEP "," -> a
-  ]]
+    [ [ a = LIST0 attribute SEP "," -> a ]
+    ]
   ;
   attribute:
-  [[ k = ident ; v = attribute_value -> (k, v)
-  ]]
+    [ [ k = ident ; v = attribute_value -> (k, v) ]
+    ]
   ;
   attribute_value:
-  [[ "=" ; v = string -> VernacFlagLeaf v
-   | "(" ; a = attribute_list ; ")" -> VernacFlagList a
-   | -> VernacFlagEmpty
-  ]]
+    [ [ "=" ; v = string -> VernacFlagLeaf v
+      | "(" ; a = attribute_list ; ")" -> VernacFlagList a
+      | -> VernacFlagEmpty ]
+    ]
   ;
   vernac:
     [ [ IDENT "Local"; v = vernac_poly -> { let (f, v) = v in ((Names.Id.of_string "local", VernacFlagEmpty) :: f, v) }
-- 
cgit v1.2.3