Trim imports

[ghc-hetmet.git] / compiler / deSugar / DsUtils.lhs

diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 4f44eb2..e2334f3 100644 (file)
--- 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,
@@ -312,7 +311,7 @@ mkCoAlgCaseMatchResult var ty match_alts
     arg_id1    = head arg_ids1
     var_ty      = idType var
     (tc, ty_args) = splitNewTyConApp var_ty
-    newtype_rhs = unwrapNewTypeBody tycon ty_args (Var var)
+    newtype_rhs = unwrapNewTypeBody tc ty_args (Var var)
                
        -- Stuff for data types
     data_cons      = tyConDataCons tycon