Commit ff44fc57 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-04-08 11:01:00 by simonpj]

Fix unbox-strict-fields deriving bug; MERGE TO STABLE
parent 8b2b2f7b
......@@ -36,7 +36,7 @@ import Class ( className, classArity, classKey, classTyVars, classSCTheta, Clas
import Subst ( mkTyVarSubst, substTheta )
import ErrUtils ( dumpIfSet_dyn )
import MkId ( mkDictFunId )
import DataCon ( dataConRepArgTys, dataConOrigArgTys, isNullaryDataCon, isExistentialDataCon )
import DataCon ( dataConOrigArgTys, isNullaryDataCon, isExistentialDataCon )
import Maybes ( maybeToBool, catMaybes )
import Name ( Name, getSrcLoc, nameUnique )
import NameSet
......@@ -344,7 +344,7 @@ makeDerivEqns tycl_decls
constraints = extra_constraints ++
[ mkClassPred clas [arg_ty]
| data_con <- tyConDataCons tycon,
arg_ty <- dataConRepArgTys data_con, -- dataConOrigArgTys???
arg_ty <- dataConOrigArgTys data_con,
-- Use the same type variables
-- as the type constructor,
-- hence no need to instantiate
......
Supports Markdown
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