From: simonpj <unknown>
Date: Wed, 5 Jan 2005 15:38:31 +0000 (+0000)
Subject: [project @ 2005-01-05 15:38:31 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1298
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3b513304f1c9d1fc50e897de343a5f64423c613b;hp=19da321b73fb79535f72bf4abac69a3592f10e6d;p=ghc-hetmet.git

[project @ 2005-01-05 15:38:31 by simonpj]
Allow trailing semicolon in GADT constructor list
---

diff --git a/ghc/compiler/parser/Parser.y.pp b/ghc/compiler/parser/Parser.y.pp
index 8305022..c8a5825 100644
--- a/ghc/compiler/parser/Parser.y.pp
+++ b/ghc/compiler/parser/Parser.y.pp
@@ -873,6 +873,7 @@ gadt_constrlist :: { Located [LConDecl RdrName] }
 
 gadt_constrs :: { Located [LConDecl RdrName] }
         : gadt_constrs ';' gadt_constr  { LL ($3 : unLoc $1) }
+        | gadt_constrs ';' 		{ $1 }
         | gadt_constr                   { L1 [$1] } 
 
 gadt_constr :: { LConDecl RdrName }