aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
authorOleg Grenrus <oleg.grenrus@iki.fi>2015-09-28 07:24:58 +0300
committerOleg Grenrus <oleg.grenrus@iki.fi>2015-09-28 07:24:58 +0300
commit7f97a59a8bf6fdfd57e9e0f8494de894ea4ee018 (patch)
tree96b0026455dd9577b706f45529a86e8d5ead83a4 /haddock-api/src/Haddock/Backends
parentdee8ef2b918917a1469f35b24d7bd9f7caa59d62 (diff)
Print orphan instances header only if required
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml.hs2
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Layout.hs3
2 files changed, 3 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs
index fce95814..de4e8a1d 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -564,7 +564,7 @@ ifaceToHtml maybe_source_url maybe_wiki_url iface unicode qual
foldr (+++) noHtml $
mapMaybe (processExport False linksInfo unicode qual) exports
- orphans = (h1 << "Orphan instances") +++
+ orphans =
ppOrphanInstances linksInfo (ifaceRnOrphanInstances iface) False unicode qual
linksInfo = (maybe_source_url, maybe_wiki_url)
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs
index b20cd172..3c132497 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs
@@ -204,8 +204,9 @@ subInstances qual nm lnks splice = maybe noHtml wrap . instTable
subOrphanInstances :: Qualification
-> LinksInfo -> Bool
-> [(SubDecl,Located DocName)] -> Html
-subOrphanInstances qual lnks splice = maybe noHtml id . instTable
+subOrphanInstances qual lnks splice = maybe noHtml wrap . instTable
where
+ wrap = ((h1 << "Orphan instances") +++)
instTable = fmap (thediv ! collapseSection id_ True [] <<) . subTableSrc qual lnks splice
id_ = makeAnchorId $ "orphans"