Commit 45570721 authored by simonmar's avatar simonmar

[project @ 2005-10-06 10:40:40 by simonmar]

remove old comment

From: Autrijus Tang <autrijus@autrijus.org>
parent 4a6c92b6
......@@ -461,7 +461,7 @@ tycl_decl :: { LTyClDecl RdrName }
(mkTyData DataType $2 Nothing (reverse (unLoc $3)) (unLoc $4)) }
| 'data' tycl_hdr opt_kind_sig
'where' gadt_constrlist -- No deriving for GADTs
'where' gadt_constrlist
deriving
{ L (comb4 $1 $2 $4 $5)
(mkTyData DataType $2 $3 (reverse (unLoc $5)) (unLoc $6)) }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment