From 1937e4289d926f2460bbf063bae608ef398f1675 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 May 2002 12:43:06 +0000
Subject: [haddock @ 2002-05-09 12:43:06 by simonmar] Type synonyms can accept
 a ctype on the RHS, to match GHC.

---
 src/HsParser.ly | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HsParser.ly')

diff --git a/src/HsParser.ly b/src/HsParser.ly
index cc92b4e7..b2d4eea6 100644
--- a/src/HsParser.ly
+++ b/src/HsParser.ly
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
-$Id: HsParser.ly,v 1.9 2002/05/08 14:48:41 simonmar Exp $
+$Id: HsParser.ly,v 1.10 2002/05/09 12:43:06 simonmar Exp $
 
 (c) Simon Marlow, Sven Panne 1997-2000
 
@@ -298,7 +298,7 @@ shift/reduce-conflict, so we don't handle this case here, but in bodyaux.
 >	| topdecl			{ [$1] }
 
 > topdecl :: { HsDecl }
->	: 'type' simpletype srcloc '=' type	
+>	: 'type' simpletype srcloc '=' ctype
 >			{ HsTypeDecl $3 (fst $2) (snd $2) $5 }
 >	| 'data' ctype srcloc constrs deriving
 >			{% checkDataHeader $2 `thenP` \(cs,c,t) ->
-- 
cgit v1.2.3