diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-03-29 14:40:28 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-01 00:40:07 -0400 |
| commit | 751b21448c8894f603d1a3848ef5f51e7e80b3fe (patch) | |
| tree | 369f2aaf5d66ee047be0d88ae594d8466cae0007 /compiler/GHC/Iface/Load.hs | |
| parent | bddecda1a4c96da21e3f5211743ce5e4c78793a2 (diff) | |
| download | haskell-751b21448c8894f603d1a3848ef5f51e7e80b3fe.tar.gz | |
Encapsulate the EPS IORef in a newtype
Diffstat (limited to 'compiler/GHC/Iface/Load.hs')
| -rw-r--r-- | compiler/GHC/Iface/Load.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/compiler/GHC/Iface/Load.hs b/compiler/GHC/Iface/Load.hs index 10033ad2ce..8cd93e058f 100644 --- a/compiler/GHC/Iface/Load.hs +++ b/compiler/GHC/Iface/Load.hs @@ -26,7 +26,6 @@ module GHC.Iface.Load ( loadInterface, loadSysInterface, loadUserInterface, loadPluginInterface, findAndReadIface, readIface, writeIface, - initExternalPackageState, moduleFreeHolesPrecise, needWiredInHomeIface, loadWiredInHomeIface, @@ -997,33 +996,6 @@ readIface dflags name_cache wanted_mod file_path = do ********************************************************* -} -initExternalPackageState :: ExternalPackageState -initExternalPackageState - = EPS { - eps_is_boot = emptyUFM, - eps_PIT = emptyPackageIfaceTable, - eps_free_holes = emptyInstalledModuleEnv, - eps_PTE = emptyTypeEnv, - eps_inst_env = emptyInstEnv, - eps_fam_inst_env = emptyFamInstEnv, - eps_rule_base = mkRuleBase builtinRules, - -- Initialise the EPS rule pool with the built-in rules - eps_mod_fam_inst_env = emptyModuleEnv, - eps_complete_matches = [], - eps_ann_env = emptyAnnEnv, - eps_stats = EpsStats { n_ifaces_in = 0, n_decls_in = 0, n_decls_out = 0 - , n_insts_in = 0, n_insts_out = 0 - , n_rules_in = length builtinRules, n_rules_out = 0 } - } - -{- -********************************************************* -* * - Wired-in interface for GHC.Prim -* * -********************************************************* --} - -- See Note [GHC.Prim] in primops.txt.pp. ghcPrimIface :: ModIface ghcPrimIface |