[project @ 2000-10-24 08:40:09 by simonpj]

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

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 12df319..a5dbf53 100644 (file)
--- 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