X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=124d9f0803ff22ed6a40824f9f6cfce7cbe13e8e;hb=3c96346b3685f83885cea7906b0dbc536d7695f6;hp=32eefb892d5442f2b6355c401e9a9f2406ebc972;hpb=8204c80847518e3157c122fc51960f8e7d3a23e7;p=ghc-hetmet.git

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