diff options
| author | simonmar <unknown> | 2002-04-10 13:23:55 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-10 13:23:55 +0000 |
| commit | 47187edb76ddbf354b4b24429ea16c0c207a51ac (patch) | |
| tree | 9358f2478a249da2ffa1d0fe03c01ca3be476170 | |
| parent | 052de51c3391c8a55539005a806f2c46f9ae2750 (diff) | |
[haddock @ 2002-04-10 13:23:55 by simonmar]
Not sure why I made the constructor name for a record declaration into
a TyCls name, but change it back into a Var name anyhow.
| -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 3ccd4b6f..749b466a 100644 --- a/src/HsParser.ly +++ b/src/HsParser.ly @@ -1,5 +1,5 @@ q----------------------------------------------------------------------------- -$Id: HsParser.ly,v 1.1 2002/04/04 16:23:43 simonmar Exp $ +$Id: HsParser.ly,v 1.2 2002/04/10 13:23:55 simonmar Exp $ (c) Simon Marlow, Sven Panne 1997-2000 @@ -443,7 +443,7 @@ Datatype declarations > | srcloc sbtype conop sbtype maybe_doc > { HsConDecl $1 $3 [$2,$4] $5 } > | srcloc con '{' fielddecls '}' maybe_doc -> { HsRecDecl $1 (toTyClsHsName $2) $4 $6 } +> { HsRecDecl $1 $2 $4 $6 } > maybe_doc :: { Maybe String } > : DOCPREV { Just $1 } |