From 3b513304f1c9d1fc50e897de343a5f64423c613b Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 5 Jan 2005 15:38:31 +0000
Subject: [PATCH] [project @ 2005-01-05 15:38:31 by simonpj] Allow trailing
 semicolon in GADT constructor list

---
 ghc/compiler/parser/Parser.y.pp |    1 +
 1 file changed, 1 insertion(+)

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 }
-- 
1.7.10.4