diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-09-28 07:24:58 +0300 |
|---|---|---|
| committer | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-09-28 07:24:58 +0300 |
| commit | 7f97a59a8bf6fdfd57e9e0f8494de894ea4ee018 (patch) | |
| tree | 96b0026455dd9577b706f45529a86e8d5ead83a4 | |
| parent | dee8ef2b918917a1469f35b24d7bd9f7caa59d62 (diff) | |
Print orphan instances header only if required
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml.hs | 2 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Layout.hs | 3 |
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" |