X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsForeign.lhs;h=a5dbf5316651fae152df68ca2d39dc88fad01638;hb=99073d876ea762016683fb0b22b9d343ff864eb4;hp=12df3191b2a5e12117d627db845a92c5f8655a26;hpb=323fee1e8cbabe604496a1b92c6de0e98ca037e4;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 12df319..a5dbf53 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -32,18 +32,13 @@ import Name		( mkGlobalName, nameModule, nameOccName, getOccString,
 import Type		( unUsgTy, repType,
 			  splitTyConApp_maybe, splitFunTys, splitForAllTys,
 			  Type, mkFunTys, mkForAllTys, mkTyConApp,
-			  mkTyVarTy, mkFunTy, splitAppTy, applyTy, funResultTy
-			)
-import PrimOp		( PrimOp(..), CCall(..), 
-			  CCallTarget(..), dynamicTarget )
-import TysWiredIn	( unitTy, addrTy, stablePtrTyCon,
-			  addrDataCon
+			  mkFunTy, splitAppTy, applyTy, funResultTy
 			)
+import PrimOp		( CCall(..), CCallTarget(..), dynamicTarget )
+import TysWiredIn	( unitTy, addrTy, stablePtrTyCon )
 import TysPrim		( addrPrimTy )
-import PrelNames	( Uniquable(..), hasKey,
-			  ioTyConKey, deRefStablePtrName, returnIOIdKey, 
-			  bindIOName,
-			  returnIOName, makeStablePtrName
+import PrelNames	( hasKey, ioTyConKey, deRefStablePtrName, 
+			  bindIOName, returnIOName, makeStablePtrName
 			)
 import Outputable