diff options
author | David Waern <david.waern@gmail.com> | 2010-05-13 18:57:26 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-05-13 18:57:26 +0000 |
commit | 3d6fd7cc34c38701949b54689032cc7f38430c61 (patch) | |
tree | dd762cb17fd9b4795236f4f8da93f176386ac0b7 /src/Haddock | |
parent | 2c13a31106e7cc47b717c2970640ac7cb6b444fc (diff) |
ModuleMap -> IfaceMap
Diffstat (limited to 'src/Haddock')
-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) |