diff options
author | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-06-25 16:02:02 +0000 |
---|---|---|
committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-07-03 16:08:49 +0000 |
commit | 0a0e956929e28fd6f1c43f39d7b92aeeaf0f01e2 (patch) | |
tree | e4c6d7bb1019b605d07ce8b8bf5f1228b40f58d5 /vernac | |
parent | 4371ff2357c11d913b163dde193255f538f3565f (diff) |
[vernac] indentation
Diffstat (limited to 'vernac')
-rw-r--r-- | vernac/g_vernac.mlg | 26 |
1 files changed, 13 insertions, 13 deletions
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) } |