X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FInteractiveUI.hs;h=a1ec76433b4285af3989ab3f78668bd28e8156d3;hb=550421384b8364cdaf3135f7859c9f7d7ee1fff1;hp=49a5b1cbace2a27f80b114899a5317b856e79062;hpb=60ea58ab5cbf8428997d5aa8ec9163a50fe5aed3;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 49a5b1c..a1ec764 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.161 2003/10/09 11:58:53 simonpj Exp $
+-- $Id: InteractiveUI.hs,v 1.162 2003/12/10 14:15:21 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -18,20 +18,12 @@ module InteractiveUI (
 import CompManager
 import HscTypes		( TyThing(..), HomeModInfo(hm_linkable), HomePackageTable,
 			  isObjectLinkable, GhciMode(..) )
-import HsSyn		( TyClDecl(..), ConDecl(..), Sig(..) )
 import IfaceSyn		( IfaceDecl( ifName ) )
 import DriverFlags
 import DriverState
 import DriverUtil	( remove_spaces )
 import Linker		( showLinkerState, linkPackages )
 import Util
-import IdInfo		( GlobalIdDetails(..) )
-import Id		( isImplicitId, idName, globalIdDetails )
-import Class		( className )
-import TyCon		( tyConName, tyConClass_maybe, isPrimTyCon, DataConDetails(..) )
-import DataCon		( dataConName )
-import FieldLabel	( fieldLabelTyCon )
-import SrcLoc		( isGoodSrcLoc )
 import Module		( showModMsg, lookupModuleEnv )
 import Name		( Name, isHomePackageName, nameSrcLoc, nameOccName,
 			  NamedThing(..) )