projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
swap <[]> and <{}> syntax
[ghc-hetmet.git]
/
compiler
/
typecheck
/
TcGenDeriv.lhs
diff --git
a/compiler/typecheck/TcGenDeriv.lhs
b/compiler/typecheck/TcGenDeriv.lhs
index
dba87d2
..
ad640ef
100644
(file)
--- a/
compiler/typecheck/TcGenDeriv.lhs
+++ b/
compiler/typecheck/TcGenDeriv.lhs
@@
-42,7
+42,7
@@
import Name
import HscTypes
import PrelInfo
import MkCore ( eRROR_ID )
import HscTypes
import PrelInfo
import MkCore ( eRROR_ID )
-import PrelNames
+import PrelNames hiding (error_RDR)
import PrimOp
import SrcLoc
import TyCon
import PrimOp
import SrcLoc
import TyCon
@@
-50,7
+50,6
@@
import TcType
import TysPrim
import TysWiredIn
import Type
import TysPrim
import TysWiredIn
import Type
-import Var( TyVar )
import TypeRep
import VarSet
import State
import TypeRep
import VarSet
import State
@@
-1837,7
+1836,7
@@
assoc_ty_id cls_str _ tbl ty
text "for primitive type" <+> ppr ty)
| otherwise = head res
where
text "for primitive type" <+> ppr ty)
| otherwise = head res
where
- res = [id | (ty',id) <- tbl, ty `tcEqType` ty']
+ res = [id | (ty',id) <- tbl, ty `eqType` ty']
-----------------------------------------------------------------------
-----------------------------------------------------------------------