diff options
| author | David Waern <unknown> | 2007-08-30 16:30:37 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-08-30 16:30:37 +0000 |
| commit | e185f5ae9c9470b861916aa96933fa72cd703a4e (patch) | |
| tree | 0ccb61c3b3d48e5050c605f0480030ea29b9c7d0 /src/Haddock/Backends/DevHelp.hs | |
| parent | 05e581c7f2ecee466d800b2d01dbb34598de2e20 (diff) | |
Rename HaddockModule to Interface
Diffstat (limited to 'src/Haddock/Backends/DevHelp.hs')
| -rw-r--r-- | src/Haddock/Backends/DevHelp.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Backends/DevHelp.hs b/src/Haddock/Backends/DevHelp.hs index e92037f1..85eb6399 100644 --- a/src/Haddock/Backends/DevHelp.hs +++ b/src/Haddock/Backends/DevHelp.hs @@ -21,7 +21,7 @@ import Text.PrettyPrint ppDevHelpFile :: FilePath -> String -> Maybe String -> [Interface] -> IO () ppDevHelpFile odir doctitle maybe_package modules = do let devHelpFile = package++".devhelp" - tree = mkModuleTree True [ (hmod_mod mod, toDescription mod) | mod <- modules ] + tree = mkModuleTree True [ (ifaceMod mod, toDescription mod) | mod <- modules ] doc = text "<?xml version=\"1.0\" encoding=\"utf-8\" standalone=\"no\"?>" $$ (text "<book xmlns=\"http://www.devhelp.net/book\" title=\""<>text doctitle<> @@ -64,9 +64,9 @@ ppDevHelpFile odir doctitle maybe_package modules = do index :: [(Name, [Module])] index = Map.toAscList (foldr getModuleIndex Map.empty modules) - getModuleIndex hmod fm = - Map.unionWith (++) (Map.fromListWith (flip (++)) [(name, [mod]) | name <- hmod_exports hmod, nameModule name == mod]) fm - where mod = hmod_mod hmod + getModuleIndex iface fm = + Map.unionWith (++) (Map.fromListWith (flip (++)) [(name, [mod]) | name <- ifaceExports iface, nameModule name == mod]) fm + where mod = ifaceMod iface ppList :: [(Name, [Module])] -> Doc ppList [] = empty |