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 /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | dee8ef2b918917a1469f35b24d7bd9f7caa59d62 (diff) | |
Print orphan instances header only if required
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Layout.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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" |