X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsUtils.lhs;h=e2334f3ad378ab3d57e43cfd6817d33cac3d8599;hp=8c5a743c2021ac178066dfbbaaf6e63da830169c;hb=1bf363052778fc39335ea3701a3229572358c51e;hpb=7fbb69b209250fbf3f311073146c83c88a53391b

diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 8c5a743..e2334f3 100644
--- a/compiler/deSugar/DsUtils.lhs
+++ b/compiler/deSugar/DsUtils.lhs
@@ -51,12 +51,11 @@ import Id		( idType, Id, mkWildId, mkTemplateLocals, mkSysLocal )
 import Var		( Var )
 import Name		( Name )
 import Literal		( Literal(..), mkStringLit, inIntRange, tARGET_MAX_INT )
-import TyCon		( isNewTyCon, tyConDataCons, tyConArity )
-import DataCon		( DataCon, dataConSourceArity, dataConTyCon, dataConTag, dataConRepArgTys )
+import TyCon		( isNewTyCon, tyConDataCons )
+import DataCon		( DataCon, dataConSourceArity, dataConTyCon, dataConTag )
 import Type		( mkFunTy, isUnLiftedType, Type, splitTyConApp, mkTyVarTy,
                           splitNewTyConApp )
-import Coercion         ( Coercion, mkUnsafeCoercion )
-import TcType		( tcEqType )
+import Coercion         ( mkUnsafeCoercion )
 import TysPrim		( intPrimTy )
 import TysWiredIn	( nilDataCon, consDataCon, 
                           tupleCon, mkTupleTy,