ModuleMap -> IfaceMap

2 files changed, 5 insertions, 5 deletions

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 4af90017..3014fb45 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -35,10 +35,10 @@ import Bag
 import RdrName (GlobalRdrEnv)
 
 
--- | Process the data in the GhcModule to produce an interface.
+-- | Process the data in a GhcModule to produce an interface.
 -- To do this, we need access to already processed modules in the topological
--- sort. That's what's in the module map.
-createInterface :: GhcModule -> [Flag] -> ModuleMap -> InstIfaceMap
+-- sort. That's what's in the interface map.
+createInterface :: GhcModule -> [Flag] -> IfaceMap -> InstIfaceMap
                 -> ErrMsgGhc Interface
 createInterface ghcMod flags modMap instIfaceMap = do
 
@@ -422,7 +422,7 @@ finishedDoc d doc rest = (d, docStringToList doc) : rest
 -- We create the export items even if the module is hidden, since they
 -- might be useful when creating the export items for other modules.
 mkExportItems
-  :: ModuleMap
+  :: IfaceMap
   -> Module             -- this module
   -> GlobalRdrEnv
   -> [Name]             -- exported names (orig)
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 39209b17..5c57986c 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -133,7 +133,7 @@ data ExportItem name
 type InstHead name = ([HsPred name], name, [HsType name])
 
 
-type ModuleMap     = Map Module Interface
+type IfaceMap      = Map Module Interface
 type InstIfaceMap  = Map Module InstalledInterface
 type DocMap        = Map Name (Doc DocName)