[project @ 2000-10-26 14:34:57 by sewardj]

[ghc-hetmet.git] / ghc / compiler / ghci / CompManager.lhs

diff --git a/ghc/compiler/ghci/CompManager.lhs b/ghc/compiler/ghci/CompManager.lhs
index 90ef10c..dc03339 100644 (file)
--- a/ghc/compiler/ghci/CompManager.lhs
+++ b/ghc/compiler/ghci/CompManager.lhs
@@ -26,7 +26,7 @@ import Finder                 ( Finder, newFinder,
 import CmSummarise     ( summarise, ModSummary(..), 
                          mi_name, ms_get_imports,
                          name_of_summary, deps_of_summary )
-import CmCompile       ( PCS, emptyPCS, HST, HIT, CompResult(..), cmCompile )
+--import CmCompile     ( PCS, emptyPCS, HST, HIT, CompResult(..), cmCompile )
 import CmLink          ( PLS, emptyPLS, Linkable(..), 
                          link, LinkResult(..), 
                          filterModuleLinkables, modname_of_linkable,
@@ -58,7 +58,7 @@ type ModHandle = String   -- ToDo: do better?
 data PersistentCMState
    = PersistentCMState {
         hst :: HomeSymbolTable,    -- home symbol table
-        hit :: HomeInterfaceTable, -- home interface table
+        hit :: HomeIfaceTable, -- home interface table
         ui  :: UnlinkedImages,     -- the unlinked images
         mg  :: ModuleGraph         -- the module graph
      }
@@ -69,7 +69,7 @@ emptyPCMS = PersistentCMState
                  hst = emptyHST, hit = emptyHIT,
                  ui  = emptyUI,  mg  = emptyMG }
 
-emptyHIT :: HomeInterfaceTable
+emptyHIT :: HomeIfaceTable
 emptyHIT = emptyFM
 emptyHST :: HomeSymbolTable
 emptyHST = emptyFM
@@ -137,6 +137,8 @@ cmLoadModule cmstate1 modname
         -- then generate version 2's by removing from HIT,HST,UI any
         -- modules in the old MG which are not in the new one.
 
+        -- TODO: call newFinder to reestablish home module cache?!
+
         putStr "cmLoadModule: downsweep begins\n"
         mg2unsorted <- downsweep modname finderr
         putStrLn (showSDoc (vcat (map ppr mg2unsorted)))