diff options
| author | simonmar <unknown> | 2002-05-09 12:43:06 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-09 12:43:06 +0000 |
| commit | 1937e4289d926f2460bbf063bae608ef398f1675 (patch) | |
| tree | 8e9a098a1c2b1b1865d1897dea9d2200f1ff18e6 | |
| parent | 5fb45e925cb292c4e5052f076f6e07744406585c (diff) | |
[haddock @ 2002-05-09 12:43:06 by simonmar]
Type synonyms can accept a ctype on the RHS, to match GHC.
| -rw-r--r-- | src/HsParser.ly | 4 |
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) -> |