From: simonpj <unknown>
Date: Tue, 1 Oct 2002 16:28:20 +0000 (+0000)
Subject: [project @ 2002-10-01 16:28:20 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1597
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cd42a4e589817084337739b891a6245b14f7403f;p=ghc-hetmet.git

[project @ 2002-10-01 16:28:20 by simonpj]
Wibble in loading of boot interfaces
---

diff --git a/ghc/compiler/rename/RnHiFiles.lhs b/ghc/compiler/rename/RnHiFiles.lhs
index 25706e3..dfdc525 100644
--- a/ghc/compiler/rename/RnHiFiles.lhs
+++ b/ghc/compiler/rename/RnHiFiles.lhs
@@ -225,13 +225,14 @@ loadInterface doc_str mod_name from
 				vers_rules = rule_vers,
 				vers_decls = decls_vers }
 
-	-- For an explicit user import, add to mod_map info about
-	-- the things the imported module depends on, extracted
-	-- from its usage info; and delete the module itself, which is now in the PIT
+	-- Add to mod_map info about the things the imported module 
+	-- depends on, extracted from its usage info
+	-- No point for system imports, for reasons that escape me...
 	usages   = pi_usages iface
 	mod_map1 = case from of
-			ImportByUser _ -> addModDeps mod is_loaded usages mod_map
-			other          -> mod_map
+			ImportBySystem -> mod_map
+			other 	       -> addModDeps mod is_loaded usages mod_map
+	-- Delete the module itself, which is now in the PIT
 	mod_map2 = delFromFM mod_map1 mod_name
 
 	-- mod_deps is a pruned version of usages that records only what