From: simonmar <unknown>
Date: Thu, 1 Jun 2000 08:51:46 +0000 (+0000)
Subject: [project @ 2000-06-01 08:51:46 by simonmar]
X-Git-Tag: Approximately_9120_patches~4333
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e6612ed1f69c5e0be13ea4b0141e66f967b70de7;p=ghc-hetmet.git

[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
---

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 51bd67a..9279e44 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 }