Commit 435c21ed authored by simonm's avatar simonm
Browse files

[project @ 1999-05-07 11:31:12 by simonm]

Don't try to make a tag2con function if we're deriving Ix on a
single-constructor datatype (it isn't needed, and will probably be
type-incorrect anyway).
parent 73c48a99
......@@ -670,7 +670,8 @@ gen_taggery_Names inst_infos
do_tag2con acc_Names tycon
| isDataTyCon tycon &&
(we_are_deriving enumClassKey tycon ||
we_are_deriving ixClassKey tycon)
we_are_deriving ixClassKey tycon
&& isEnumerationTyCon tycon)
= returnTc ( (tag2con_RDR tycon, tycon, GenTag2Con)
: (maxtag_RDR tycon, tycon, GenMaxTag)
: acc_Names)
......
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