[project @ 2000-10-06 13:07:32 by sewardj]

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

diff --git a/ghc/compiler/ghci/CmCompile.lhs b/ghc/compiler/ghci/CmCompile.lhs
index e1d238b..6382911 100644 (file)
--- a/ghc/compiler/ghci/CmCompile.lhs
+++ b/ghc/compiler/ghci/CmCompile.lhs
@@ -67,8 +67,8 @@ emptyPCS = return (MkPCS emptyPIT emptyPST emptyHoldingPen)
 
 -- These two are only here to avoid recursion between CmCompile and
 -- CompManager.  They really ought to be in the latter.
-type HST = FiniteMap Module ModDetails
-type HIT = FiniteMap Module ModIFace
+type HST = FiniteMap {-really:Module-} String{- == ModName-} ModDetails
+type HIT = FiniteMap {-really:Module-} String{- == ModName-} ModIFace
 
 
 data PCS = MkPCS PIT         -- Package interface table