allow parentheses around type in exception declaration

106abed1 · MARCHE Claude · ccd9f169 · 106abed1
Commit 106abed1 authored Sep 06, 2011 by MARCHE Claude
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

src/parser/parser.mly src/parser/parser.mly +2 -0

No files found.
--- a/src/parser/parser.mly
+++ b/src/parser/parser.mly
@@ -1010,6 +1010,8 @@ program_decl:
    { Dexn (add_lab $2 $3, None) }
 | EXCEPTION uident labels primitive_type
    { Dexn (add_lab $2 $3, Some $4) }
+| EXCEPTION uident labels LEFTPAR pure_type RIGHTPAR
+    { Dexn (add_lab $2 $3, Some $5) }
 | USE use_module
    { $2 }
 | NAMESPACE namespace_import namespace_name list0_program_decl END