aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-05-09 12:43:06 +0000
committersimonmar <unknown>2002-05-09 12:43:06 +0000
commit1937e4289d926f2460bbf063bae608ef398f1675 (patch)
tree8e9a098a1c2b1b1865d1897dea9d2200f1ff18e6 /src
parent5fb45e925cb292c4e5052f076f6e07744406585c (diff)
[haddock @ 2002-05-09 12:43:06 by simonmar]
Type synonyms can accept a ctype on the RHS, to match GHC.
Diffstat (limited to 'src')
-rw-r--r--src/HsParser.ly4
1 files changed, 2 insertions, 2 deletions
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) ->