diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 8 | ||||
| -rw-r--r-- | src/Haddock/Types.hs | 2 |
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) |