diff options
| author | Tobias Brandt <tob.brandt@gmail.com> | 2010-08-27 15:50:28 +0000 |
|---|---|---|
| committer | Tobias Brandt <tob.brandt@gmail.com> | 2010-08-27 15:50:28 +0000 |
| commit | 8871af09420160e7ca770c0ab72d8b7f6be70380 (patch) | |
| tree | 7bccaf1172dc0b266ececa8b827eaa3e26bca3bd /src/Haddock/Backends/Xhtml.hs | |
| parent | 2b87648737ad5b07e30d9bb03f7c4e3953566c24 (diff) | |
adding support for local and relative name qualification
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 452fdfa0..433ea212 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -458,13 +458,17 @@ ppHtmlModule odir doctitle themes let mdl = ifaceMod iface mdl_str = moduleString mdl + real_quali = case quali of + LocalQuali Nothing -> LocalQuali (Just mdl) + RelativeQuali Nothing -> RelativeQuali (Just mdl) + _ -> quali html = headHtml mdl_str (Just $ "mini_" ++ moduleHtmlFile mdl) themes +++ bodyHtml doctitle (Just iface) maybe_source_url maybe_wiki_url maybe_contents_url maybe_index_url << [ divModuleHeader << (moduleInfo iface +++ (sectionName << mdl_str)), - ifaceToHtml maybe_source_url maybe_wiki_url iface unicode quali + ifaceToHtml maybe_source_url maybe_wiki_url iface unicode real_quali ] createDirectoryIfMissing True odir |