[project @ 2004-10-01 10:08:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / HscTypes.lhs

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index 5f1ce2d..41d38de 100644 (file)
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -68,7 +68,7 @@ import Name           ( Name, NamedThing, getName, nameOccName, nameModule, nameModuleNam
 import NameEnv
 import NameSet 
 import OccName         ( OccName, OccEnv, lookupOccEnv, mkOccEnv, emptyOccEnv, 
-                         extendOccEnv, foldOccEnv )
+                         extendOccEnv )
 import Module
 import InstEnv         ( InstEnv, DFunId )
 import Rules           ( RuleBase )
@@ -77,7 +77,7 @@ import Id             ( Id )
 import Type            ( TyThing(..) )
 
 import Class           ( Class, classSelIds, classTyCon )
-import TyCon           ( TyCon, isClassTyCon, tyConSelIds, tyConDataCons )
+import TyCon           ( TyCon, tyConSelIds, tyConDataCons )
 import DataCon         ( dataConImplicitIds )
 import Packages                ( PackageName )
 import CmdLineOpts     ( DynFlags )
@@ -120,10 +120,13 @@ data HscEnv
                -- are compiling right now.
                -- (In one-shot mode the current module is the only
                --  home-package module, so hsc_HPT is empty.  All other
-               --  modules count as "external-package" modules.)
+               --  modules count as "external-package" modules.
+               --  However, even in GHCi mode, hi-boot interfaces are
+               --  demand-loadeded into the external-package table.)
+               --
                -- hsc_HPT is not mutable because we only demand-load 
                -- external packages; the home package is eagerly 
-               -- loaded by the compilation manager.
+               -- loaded, module by module, by the compilation manager.
        
                -- The next two are side-effected by compiling
                -- to reflect sucking in interface files