X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeAsm.lhs;h=b1ef67e17ec9654596ce12e38ea4a9b5735e4bbc;hp=4d360e1ffe3cbf4f8e8904cd9c09e6ed418c6e0a;hb=703ca1542c8e0983cc9d8eebce6e9f3dd3fd71e2;hpb=7bb3d1fc79521d591cd9f824893963141a7997b6

diff --git a/compiler/ghci/ByteCodeAsm.lhs b/compiler/ghci/ByteCodeAsm.lhs
index 4d360e1..b1ef67e 100644
--- a/compiler/ghci/ByteCodeAsm.lhs
+++ b/compiler/ghci/ByteCodeAsm.lhs
@@ -30,7 +30,6 @@ import PrimOp
 import Constants
 import FastString
 import SMRep
-import FiniteMap
 import Outputable
 
 import Control.Monad	( foldM )
@@ -41,18 +40,9 @@ import Data.Array.Unboxed ( listArray )
 import Data.Array.Base	( UArray(..) )
 import Data.Array.ST	( castSTUArray )
 import Foreign
-import Data.Bits
-import Data.Int		( Int64 )
 import Data.Char	( ord )
 
 import GHC.Base		( ByteArray#, MutableByteArray#, RealWorld )
-import GHC.Ptr		( Ptr(..) )
-
-#if __GLASGOW_HASKELL__ >= 611
-import GHC.IO ( IO(..) )
-#else
-import GHC.IOBase ( IO(..) )
-#endif
 
 -- -----------------------------------------------------------------------------
 -- Unlinked BCOs