From 22286d32eba81330795eb0460827791f0517bda6 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 12 Jul 2002 13:42:22 +0000
Subject: [PATCH] [project @ 2002-07-12 13:42:22 by simonpj] comments

---
 ghc/compiler/main/HscMain.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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;
-- 
1.7.10.4