X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsCCall.lhs;h=2ee9d08fb013dfa3de4d58a205ec5168994bdd9e;hb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc;hp=8467539385eff381d5b93fbef4a2dc97a2accc75;hpb=fb0f3349561dd4493d81ca7c3a140b37fa0dc0de;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsCCall.lhs b/compiler/deSugar/DsCCall.lhs
index 8467539..2ee9d08 100644
--- a/compiler/deSugar/DsCCall.lhs
+++ b/compiler/deSugar/DsCCall.lhs
@@ -32,7 +32,7 @@ import Type		( Type, isUnLiftedType, mkFunTys, mkFunTy,
 			  tyVarsOfType, mkForAllTys, mkTyConApp, 
 			  isPrimitiveType, splitTyConApp_maybe, 
 			  splitRecNewType_maybe, splitForAllTy_maybe,
-			  isUnboxedTupleType, coreView
+			  isUnboxedTupleType
 			)
 
 import PrimOp		( PrimOp(..) )
@@ -51,7 +51,7 @@ import TysWiredIn	( unitDataConId,
 			)
 import BasicTypes       ( Boxity(..) )
 import Literal		( mkMachInt )
-import PrelNames	( Unique, hasKey, ioTyConKey, boolTyConKey, unitTyConKey,
+import PrelNames	( Unique, hasKey, boolTyConKey, unitTyConKey,
 			  int8TyConKey, int16TyConKey, int32TyConKey,
 			  word8TyConKey, word16TyConKey, word32TyConKey
 			  -- dotnet interop