X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fghci%2FRtClosureInspect.hs;h=790749b1fac7688a923b11120dd99034b3548160;hb=ca8ac1f28138565790289bfd76e742f9c28e3e3b;hp=ae974239051a16a935c4090a9d1469219e3aed2e;hpb=fff08925b331fe64aba5fed31b7fbd8fa9f25f7a;p=ghc-hetmet.git

diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs
index ae97423..790749b 100644
--- a/compiler/ghci/RtClosureInspect.hs
+++ b/compiler/ghci/RtClosureInspect.hs
@@ -50,22 +50,18 @@ import HscTypes         ( HscEnv )
 
 import DataCon          
 import Type             
-import TcRnMonad
+import TcRnMonad        ( TcM, initTcPrintErrors, ioToTcRn, recoverM, writeMutVar )
 import TcType
 import TcMType
 import TcUnify
 import TcGadt
-import DriverPhases
 import TyCon		
 import Var
 import Name 
+import VarEnv
+import OccName
+import VarSet
 import Unique
-import UniqSupply
-import Var              ( setVarUnique, mkTyVar, tyVarKind, setTyVarKind )
-import VarEnv           ( mkVarEnv )
-import OccName          ( emptyTidyOccEnv )
-import VarSet           ( VarSet, mkVarSet, varSetElems, unionVarSets )
-import Unique           ( getUnique, incrUnique )
 import {-#SOURCE#-} TcRnDriver ( tcRnRecoverDataCon )
 
 import TysPrim		
@@ -73,7 +69,6 @@ import PrelNames
 import TysWiredIn
 
 import Constants        ( wORD_SIZE )
-import FastString       ( mkFastString )
 import Outputable
 import Maybes
 import Panic
@@ -85,12 +80,11 @@ import GHC.Exts
 import GHC.Int          ( Int32(..),  Int64(..) )
 import GHC.Word         ( Word32(..), Word64(..) )
 
-import Control.Monad    ( liftM, liftM2, msum )
+import Control.Monad
 import Data.Maybe
 import Data.Array.Base
 import Data.List        ( partition )
 import Foreign.Storable
-import Foreign          ( unsafePerformIO )
 
 ---------------------------------------------
 -- * A representation of semi evaluated Terms