From e0b2097136f30331bae67cb01e66bba749d272c1 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 8 Nov 2002 15:16:50 +0000 Subject: [PATCH] [project @ 2002-11-08 15:16:50 by simonpj] Wibbles --- ghc/compiler/rename/RnHiFiles.lhs | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/ghc/compiler/rename/RnHiFiles.lhs b/ghc/compiler/rename/RnHiFiles.lhs index a6a9279..824cfb6 100644 --- a/ghc/compiler/rename/RnHiFiles.lhs +++ b/ghc/compiler/rename/RnHiFiles.lhs @@ -224,15 +224,9 @@ loadInterface doc_str mod_name from vers_rules = rule_vers, vers_decls = decls_vers } - this_mod_name = moduleName this_mod - is_loaded m = m == this_mod_name - || maybeToBool (lookupIfaceByModName hpt pit m) - -- We treat the currently-being-compiled module as 'loaded' because - -- even though it isn't yet in the HIT or PIT; otherwise it gets - -- put into iImpModInfo, and then spat out into its own interface - -- file as a dependency - -- Now add info about this module to the PIT + -- Even home modules loaded by this route (which only + -- happens in OneShot mode) are put in the PIT has_orphans = pi_orphan iface new_pit = extendModuleEnv pit mod mod_iface mod_iface = ModIface { mi_module = mod, mi_package = pi_pkg iface, -- 1.7.10.4