aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/Create.hs8
-rw-r--r--src/Haddock/Types.hs2
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)