From: simonm <unknown>
Date: Fri, 27 Feb 1998 10:38:16 +0000 (+0000)
Subject: [project @ 1998-02-27 10:38:16 by simonm]
X-Git-Tag: Approx_2487_patches~902
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e239ca1b093f5d3cc0a165e96e1a23f271684590;p=ghc-hetmet.git

[project @ 1998-02-27 10:38:16 by simonm]
parse record declarations with infix constructors.
---

diff --git a/ghc/compiler/parser/hsparser.y b/ghc/compiler/parser/hsparser.y
index 5c3910a..d74d494 100644
--- a/ghc/compiler/parser/hsparser.y
+++ b/ghc/compiler/parser/hsparser.y
@@ -755,7 +755,8 @@ constr_after_context :
 	|  OPAREN qconsym CPAREN batypes	{ $$ = mkconstrpre($2,$4,hsplineno); }
 
 /* Con { op1 :: Int } */
-	|  gtycon OCURLY fields CCURLY		{ $$ = mkconstrrec($1,$3,hsplineno); }
+	| qtycon OCURLY fields CCURLY		{ $$ = mkconstrrec($1,$3,hsplineno); }
+	| OPAREN qconsym CPAREN OCURLY fields CCURLY { $$ = mkconstrrec($2,$5,hsplineno); }
 	;
 		/* 1 S/R conflict on OCURLY -> shift */