From: simonmar <unknown>
Date: Fri, 21 Dec 2001 10:24:24 +0000 (+0000)
Subject: [project @ 2001-12-21 10:24:24 by simonmar]
X-Git-Tag: Approximately_9120_patches~353
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c880919aca8c0df8186a17b22ca4b2c9875883b7;p=ghc-hetmet.git

[project @ 2001-12-21 10:24:24 by simonmar]
Allow record declaratoins with zero fields.
---

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 746987f..447f261 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.80 2001/12/20 11:19:08 simonpj Exp $
+$Id: Parser.y,v 1.81 2001/12/21 10:24:24 simonmar Exp $
 
 Haskell grammar.
 
@@ -635,6 +635,7 @@ context :: { RdrNameContext }
 constr_stuff :: { (RdrName, RdrNameConDetails) }
 	: btype				{% mkVanillaCon $1 []		    }
 	| btype '!' atype satypes	{% mkVanillaCon $1 (BangType MarkedUserStrict $3 : $4) }
+	| gtycon '{' '}' 		{% mkRecCon $1 [] }
 	| gtycon '{' fielddecls '}' 	{% mkRecCon $1 $3 }
 	| sbtype conop sbtype		{ ($2, InfixCon $1 $3) }