Commit 3c96346b authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Enumerate imports and remove dead code.

parent 8204c808
...@@ -58,9 +58,9 @@ import IfaceEnv ( initNameCache ) ...@@ -58,9 +58,9 @@ import IfaceEnv ( initNameCache )
import LoadIface ( ifaceStats, initExternalPackageState ) import LoadIface ( ifaceStats, initExternalPackageState )
import PrelInfo ( wiredInThings, basicKnownKeyNames ) import PrelInfo ( wiredInThings, basicKnownKeyNames )
import MkIface ( checkOldIface, mkIface, writeIfaceFile ) import MkIface ( checkOldIface, mkIface, writeIfaceFile )
import Desugar import Desugar ( deSugar )
import Flattening ( flatten ) import Flattening ( flatten )
import SimplCore import SimplCore ( core2core )
import TidyPgm ( tidyProgram, mkBootModDetails ) import TidyPgm ( tidyProgram, mkBootModDetails )
import CorePrep ( corePrepPgm ) import CorePrep ( corePrepPgm )
import CoreToStg ( coreToStg ) import CoreToStg ( coreToStg )
...@@ -74,7 +74,6 @@ import CodeOutput ( codeOutput ) ...@@ -74,7 +74,6 @@ import CodeOutput ( codeOutput )
import DynFlags import DynFlags
import ErrUtils import ErrUtils
import Util
import UniqSupply ( mkSplitUniqSupply ) import UniqSupply ( mkSplitUniqSupply )
import Outputable import Outputable
...@@ -87,7 +86,6 @@ import FastString ...@@ -87,7 +86,6 @@ import FastString
import Maybes ( expectJust ) import Maybes ( expectJust )
import Bag ( unitBag ) import Bag ( unitBag )
import Monad ( when ) import Monad ( when )
import Maybe ( isJust )
import IO import IO
import DATA_IOREF ( newIORef, readIORef ) import DATA_IOREF ( newIORef, readIORef )
\end{code} \end{code}
...@@ -503,7 +501,6 @@ hscCodeGenCompile hsc_env mod_summary cgguts ...@@ -503,7 +501,6 @@ hscCodeGenCompile hsc_env mod_summary cgguts
cg_dep_pkgs = dependencies } = cgguts cg_dep_pkgs = dependencies } = cgguts
dflags = hsc_dflags hsc_env dflags = hsc_dflags hsc_env
location = ms_location mod_summary location = ms_location mod_summary
modName = ms_mod mod_summary
data_tycons = filter isDataTyCon tycons data_tycons = filter isDataTyCon tycons
-- cg_tycons includes newtypes, for the benefit of External Core, -- cg_tycons includes newtypes, for the benefit of External Core,
-- but we don't generate any code for newtypes -- but we don't generate any code for newtypes
...@@ -548,7 +545,6 @@ hscCodeGenInteractive hsc_env mod_summary (iface, details, cgguts) ...@@ -548,7 +545,6 @@ hscCodeGenInteractive hsc_env mod_summary (iface, details, cgguts)
cg_dep_pkgs = dependencies } = cgguts cg_dep_pkgs = dependencies } = cgguts
dflags = hsc_dflags hsc_env dflags = hsc_dflags hsc_env
location = ms_location mod_summary location = ms_location mod_summary
modName = ms_mod mod_summary
data_tycons = filter isDataTyCon tycons data_tycons = filter isDataTyCon tycons
-- cg_tycons includes newtypes, for the benefit of External Core, -- cg_tycons includes newtypes, for the benefit of External Core,
-- but we don't generate any code for newtypes -- but we don't generate any code for newtypes
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment