diff options
| author | Lemmih <lemmih@gmail.com> | 2006-03-04 13:41:50 +0000 |
|---|---|---|
| committer | Lemmih <lemmih@gmail.com> | 2006-03-04 13:41:50 +0000 |
| commit | 3c96346b3685f83885cea7906b0dbc536d7695f6 (patch) | |
| tree | 5f897dfb0e1a6616fcf5a4ece507a2a5df235ff4 | |
| parent | 8204c80847518e3157c122fc51960f8e7d3a23e7 (diff) | |
| download | haskell-3c96346b3685f83885cea7906b0dbc536d7695f6.tar.gz | |
Enumerate imports and remove dead code.
| -rw-r--r-- | ghc/compiler/main/HscMain.lhs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 32eefb892d..124d9f0803 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 |