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

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