diff options
| author | Murray Campbell <murray@sonology.net> | 2015-04-26 13:49:01 -0700 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2015-05-11 06:35:06 -0500 |
| commit | bf31846b9f7280b5e75f09e91ca18c4ced37af08 (patch) | |
| tree | 98804e03bb764a28ad319b544abe06fad5f9d1f6 /haddock-api/src/Haddock/Backends/Xhtml.hs | |
| parent | 319bf20d44589545e6850db3e676e30216dd3cc2 (diff) | |
Change ModuleTree Node to carry PackageKey and SourcePackageId to resolve #385
Signed-off-by: Austin Seipp <aseipp@pobox.com>
(cherry picked from commit 2380f07c430c525b205ce2eae6dab23c8388d899)
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 948ef641..90cb9fa4 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -288,7 +288,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 @@ -312,7 +312,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 "" |