diff options
| author | Murray Campbell <murray@sonology.net> | 2015-04-26 13:49:01 -0700 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2015-05-11 04:47:37 -0500 |
| commit | 2380f07c430c525b205ce2eae6dab23c8388d899 (patch) | |
| tree | aa9cd78aa595696cf6e8c3c6de1ced64ebed228a /haddock-api/src/Haddock/Backends/Xhtml.hs | |
| parent | 26a590c009005d77fbee9e2c79286bd93f7955f5 (diff) | |
Change ModuleTree Node to carry PackageKey and SourcePackageId to resolve #385
Signed-off-by: Austin Seipp <aseipp@pobox.com>
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index 65a7e6c4..6ef1e863 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -289,7 +289,7 @@ mkNodeList qual ss p ts = case ts of mkNode :: Qualification -> [String] -> String -> ModuleTree -> Html -mkNode qual ss p (Node s leaf pkg short ts) = +mkNode qual ss p (Node s leaf pkg srcPkg short ts) = htmlModule <+> shortDescr +++ htmlPkg +++ subtree where modAttrs = case (ts, leaf) of @@ -313,7 +313,7 @@ mkNode qual ss p (Node s leaf pkg short ts) = mdl = intercalate "." (reverse (s:ss)) shortDescr = maybe noHtml (origDocToHtml qual) short - htmlPkg = maybe noHtml (thespan ! [theclass "package"] <<) pkg + htmlPkg = maybe noHtml (thespan ! [theclass "package"] <<) srcPkg subtree = mkNodeList qual (s:ss) p ts ! collapseSection p True "" |