diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-09-27 20:50:15 +0300 |
|---|---|---|
| committer | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-09-27 20:52:10 +0300 |
| commit | 02e633a6f9b7ccb53a92a838c1b717ef9f3737fc (patch) | |
| tree | 46c46675c7a434e7fa38f80cbc96038f1fcf2122 /haddock-api/src/Haddock/Backends/Xhtml.hs | |
| parent | ac10a4ccbe416e8612c6ca49b9f19c3a6f4cf25f (diff) | |
Generate docs for orphan instances
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index e5e4db3f..fce95814 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -525,7 +525,7 @@ ifaceToHtml maybe_source_url maybe_wiki_url iface unicode qual = ppModuleContents qual exports +++ description +++ synopsis +++ - divInterface (maybe_doc_hdr +++ bdy) + divInterface (maybe_doc_hdr +++ bdy +++ orphans) where exports = numberSectionHeadings (ifaceRnExportItems iface) @@ -564,6 +564,9 @@ ifaceToHtml maybe_source_url maybe_wiki_url iface unicode qual foldr (+++) noHtml $ mapMaybe (processExport False linksInfo unicode qual) exports + orphans = (h1 << "Orphan instances") +++ + ppOrphanInstances linksInfo (ifaceRnOrphanInstances iface) False unicode qual + linksInfo = (maybe_source_url, maybe_wiki_url) |