projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-12-30 16:29:17 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
simplCore
/
SimplCore.lhs
diff --git
a/ghc/compiler/simplCore/SimplCore.lhs
b/ghc/compiler/simplCore/SimplCore.lhs
index
8843455
..
541f38a
100644
(file)
--- a/
ghc/compiler/simplCore/SimplCore.lhs
+++ b/
ghc/compiler/simplCore/SimplCore.lhs
@@
-14,18
+14,13
@@
import CmdLineOpts ( CoreToDo(..), SimplifierSwitch(..),
)
import CoreSyn
import TcIface ( loadImportedRules )
)
import CoreSyn
import TcIface ( loadImportedRules )
-import HscTypes ( HscEnv(..), GhciMode(..),
- ModGuts(..), ModGuts, Avails,
- ModDetails(..),
- HomeModInfo(..), ExternalPackageState(..), hscEPS
- )
+import HscTypes ( HscEnv(..), ModGuts(..), ModGuts,
+ ModDetails(..), HomeModInfo(..) )
import CSE ( cseProgram )
import CSE ( cseProgram )
-import Rules ( RuleBase, emptyRuleBase, ruleBaseIds,
+import Rules ( RuleBase, ruleBaseIds,
extendRuleBaseList, pprRuleBase, getLocalRules,
ruleCheckProgram )
import Module ( moduleEnvElts )
extendRuleBaseList, pprRuleBase, getLocalRules,
ruleCheckProgram )
import Module ( moduleEnvElts )
-import Name ( Name, isExternalName )
-import NameSet ( elemNameSet )
import PprCore ( pprCoreBindings, pprCoreExpr, pprIdRules )
import OccurAnal ( occurAnalyseBinds, occurAnalyseGlobalExpr )
import CoreUtils ( coreBindsSize )
import PprCore ( pprCoreBindings, pprCoreExpr, pprIdRules )
import OccurAnal ( occurAnalyseBinds, occurAnalyseGlobalExpr )
import CoreUtils ( coreBindsSize )
@@
-36,7
+31,7
@@
import ErrUtils ( dumpIfSet, dumpIfSet_dyn, showPass )
import CoreLint ( endPass )
import FloatIn ( floatInwards )
import FloatOut ( floatOutwards )
import CoreLint ( endPass )
import FloatIn ( floatInwards )
import FloatOut ( floatOutwards )
-import Id ( idName, idIsFrom, idSpecialisation, setIdSpecialisation )
+import Id ( idIsFrom, idSpecialisation, setIdSpecialisation )
import VarSet
import LiberateCase ( liberateCase )
import SAT ( doStaticArgs )
import VarSet
import LiberateCase ( liberateCase )
import SAT ( doStaticArgs )
@@
-54,7
+49,6
@@
import IO ( hPutStr, stderr )
import Outputable
import Maybes ( orElse )
import Outputable
import Maybes ( orElse )
-import List ( partition )
\end{code}
%************************************************************************
\end{code}
%************************************************************************