diff options
| author | David Waern <david.waern@gmail.com> | 2012-04-02 01:05:47 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2012-04-02 01:05:47 +0200 |
| commit | 4b82bad435e629c3cd65782c8ffb9bae8a7e16b4 (patch) | |
| tree | 0cd22cdf721497454c10de78b37b2830d3901aea /src/Haddock/Backends/Xhtml.hs | |
| parent | 162364b177c3982c67c842d310aead45434a3760 (diff) | |
| parent | 979ada5bc63cba38bf570f943a3666298879bdc9 (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 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 686bd36b..fc94e7d6 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -468,8 +468,9 @@ ppHtmlModule odir doctitle themes maybe_contents_url maybe_index_url unicode qual debug iface = do let mdl = ifaceMod iface + abbrevs = ifaceModuleAbbrevs iface mdl_str = moduleString mdl - real_qual = makeModuleQual qual mdl + real_qual = makeModuleQual qual abbrevs mdl html = headHtml mdl_str (Just $ "mini_" ++ moduleHtmlFile mdl) themes +++ bodyHtml doctitle (Just iface) |