From e239ca1b093f5d3cc0a165e96e1a23f271684590 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 27 Feb 1998 10:38:16 +0000
Subject: [PATCH] [project @ 1998-02-27 10:38:16 by simonm] parse record
declarations with infix constructors.
---
ghc/compiler/parser/hsparser.y | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/parser/hsparser.y b/ghc/compiler/parser/hsparser.y
index 5c3910a14b51..d74d494a660d 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 */
--
GitLab