From e6612ed1f69c5e0be13ea4b0141e66f967b70de7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 1 Jun 2000 08:51:46 +0000
Subject: [PATCH] [project @ 2000-06-01 08:51:46 by simonmar] allow infix
constructors to be declared with prefix notation, eg
data T a b = (:^:) a b
---
ghc/compiler/parser/Parser.y | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 51bd67a90188..9279e44f97aa 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
{-
-----------------------------------------------------------------------------
-$Id: Parser.y,v 1.31 2000/05/25 12:41:17 simonpj Exp $
+$Id: Parser.y,v 1.32 2000/06/01 08:51:46 simonmar Exp $
Haskell grammar.
@@ -607,6 +607,7 @@ scontype :: { (RdrName, [RdrNameBangType]) }
scontype1 :: { (RdrName, [RdrNameBangType]) }
: btype '!' atype {% splitForConApp $1 [Banged $3] }
| scontype1 satype { (fst $1, snd $1 ++ [$2] ) }
+ | '(' consym ')' { ($2,[]) }
satype :: { RdrNameBangType }
: atype { Unbanged $1 }
--
GitLab