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