From: Lemmih <lemmih@gmail.com>
Date: Sat, 4 Mar 2006 13:41:50 +0000 (+0000)
Subject: Enumerate imports and remove dead code.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3c96346b3685f83885cea7906b0dbc536d7695f6

Enumerate imports and remove dead code.
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 32eefb8..124d9f0 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -58,9 +58,9 @@ import IfaceEnv		( initNameCache )
 import LoadIface	( ifaceStats, initExternalPackageState )
 import PrelInfo		( wiredInThings, basicKnownKeyNames )
 import MkIface		( checkOldIface, mkIface, writeIfaceFile )
-import Desugar
+import Desugar          ( deSugar )
 import Flattening       ( flatten )
-import SimplCore
+import SimplCore        ( core2core )
 import TidyPgm		( tidyProgram, mkBootModDetails )
 import CorePrep		( corePrepPgm )
 import CoreToStg	( coreToStg )
@@ -74,7 +74,6 @@ import CodeOutput	( codeOutput )
 
 import DynFlags
 import ErrUtils
-import Util
 import UniqSupply	( mkSplitUniqSupply )
 
 import Outputable
@@ -87,7 +86,6 @@ import FastString
 import Maybes		( expectJust )
 import Bag		( unitBag )
 import Monad		( when )
-import Maybe		( isJust )
 import IO
 import DATA_IOREF	( newIORef, readIORef )
 \end{code}
@@ -503,7 +501,6 @@ hscCodeGenCompile hsc_env mod_summary cgguts
                      cg_dep_pkgs = dependencies } = cgguts
              dflags = hsc_dflags hsc_env
              location = ms_location mod_summary
-             modName = ms_mod mod_summary
              data_tycons = filter isDataTyCon tycons
              -- cg_tycons includes newtypes, for the benefit of External Core,
              -- but we don't generate any code for newtypes
@@ -548,7 +545,6 @@ hscCodeGenInteractive hsc_env mod_summary (iface, details, cgguts)
                      cg_dep_pkgs = dependencies } = cgguts
              dflags = hsc_dflags hsc_env
              location = ms_location mod_summary
-             modName = ms_mod mod_summary
              data_tycons = filter isDataTyCon tycons
              -- cg_tycons includes newtypes, for the benefit of External Core,
              -- but we don't generate any code for newtypes