X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=49f4a2fde47c332fe094ee74dc65b7d76685e768;hb=cda70f58ef004fd5b91749ab4f87f4589bebec45;hp=1f2cf069780b12d907af504c1a728fee3f56693d;hpb=e0445ffa5a89632b542e7d7bc2ad46d944716453;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 1f2cf06..49f4a2f 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -28,6 +28,7 @@ import RdrHsSyn		( RdrNameStmt )
 import Type		( Type )
 import PrelNames	( iNTERACTIVE )
 import StringBuffer	( stringToStringBuffer )
+import Name		( Name )
 #endif
 
 import HsSyn
@@ -58,7 +59,7 @@ import SimplStg		( stg2stg )
 import CodeGen		( codeGen )
 import CodeOutput	( codeOutput )
 
-import Module		( ModuleName, moduleName, emptyModuleEnv )
+import Module		( emptyModuleEnv )
 import CmdLineOpts
 import DriverPhases     ( isExtCore_file )
 import ErrUtils		( dumpIfSet_dyn, showPass, printError )
@@ -71,9 +72,8 @@ import HscTypes
 import MkExternalCore	( emitExternalCore )
 import ParserCore
 import ParserCoreUtils
-import FiniteMap	( FiniteMap, plusFM, emptyFM, addToFM )
-import OccName		( OccName )
-import Name		( Name, nameModule, nameOccName, getName )
+import FiniteMap	( emptyFM )
+import Name		( nameModule, getName )
 import NameEnv		( emptyNameEnv, mkNameEnv )
 import NameSet		( emptyNameSet )
 import Module		( Module, ModLocation(..), showModMsg )