From 1937e4289d926f2460bbf063bae608ef398f1675 Mon Sep 17 00:00:00 2001 From: simonmar 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') 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