From: simonpj <unknown>
Date: Fri, 12 Jul 2002 13:42:22 +0000 (+0000)
Subject: [project @ 2002-07-12 13:42:22 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1859
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=22286d32eba81330795eb0460827791f0517bda6;p=ghc-hetmet.git

[project @ 2002-07-12 13:42:22 by simonpj]
comments
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index b174e5e..747a14a 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -795,7 +795,8 @@ hscModuleContents
 
 hscModuleContents dflags hst hit pcs0 mod exports_only = do {
 
-  -- slurp the interface if necessary
+  -- Slurp the interface if necessary (a home module will certainly
+  -- alraedy be loaded, but a package module might not be)
   (pcs1, print_unqual, maybe_rn_stuff) 
 	<- slurpIface dflags hit hst pcs0 mod;
 
@@ -813,7 +814,8 @@ hscModuleContents dflags hst hit pcs0 mod exports_only = do {
 
   let { all_names 
 	   | exports_only = names
-	   | otherwise =
+	   | otherwise =	-- Invariant; we only have (not exports_only) 
+				-- for a home module so it must already be in the HIT
 	     let { iface = fromJust (lookupModuleEnv hit mod);
 		   env   = fromJust (mi_globals iface);
 	           range = rdrEnvElts env;