diff options
| author | David Waern <david.waern@gmail.com> | 2012-05-16 02:27:56 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2012-05-16 02:27:56 +0200 |
| commit | 27672d7a5bbc3dbd26de17472f10e41f71b9d110 (patch) | |
| tree | 54be47591bfbb2a5acfd8990856a04437304c04f /src/Haddock/Backends/Xhtml.hs | |
| parent | b011c1a812c54e5f564fff7b15c1350ae5a78154 (diff) | |
| parent | 3eb6d272850950e4d0c41ed1169258e8c332dbed (diff) | |
Merge http://code.haskell.org/~thielema/haddock/ into ghc-7.4
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index fc94e7d6..94ca6d10 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -468,9 +468,9 @@ ppHtmlModule odir doctitle themes maybe_contents_url maybe_index_url unicode qual debug iface = do let mdl = ifaceMod iface - abbrevs = ifaceModuleAbbrevs iface + aliases = ifaceModuleAliases iface mdl_str = moduleString mdl - real_qual = makeModuleQual qual abbrevs mdl + real_qual = makeModuleQual qual aliases mdl html = headHtml mdl_str (Just $ "mini_" ++ moduleHtmlFile mdl) themes +++ bodyHtml doctitle (Just iface) |