aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-05-27 15:56:45 +0000
committersimonmar <unknown>2002-05-27 15:56:45 +0000
commit8d5e4783e00cc0ed91d3dee3b503ab1c693a0403 (patch)
tree8bf027dd4768b472b9aaa08f601592fcd22c3f14
parent16e64e21368daa34abbce8b99da157a6a8bcdb57 (diff)
[haddock @ 2002-05-27 15:56:45 by simonmar]
Do something sensible for modules which don't export anything (except instances).
-rw-r--r--src/HaddockHtml.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 85e7b2b8..ee5db5fd 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -312,9 +312,7 @@ ppHtmlModule odir title source_url inst_maps (Module mod,iface) = do
ifaceToHtml :: String -> Interface -> InstMaps -> HtmlTable
ifaceToHtml mod iface inst_maps
- | null exports = Html.emptyTable
- | otherwise =
- abovesSep s15 (contents: description: synopsis: maybe_doc_hdr: body)
+ = abovesSep s15 (contents: description: synopsis: maybe_doc_hdr: body)
where
exports = numberSectionHeadings (iface_exports iface)
@@ -349,6 +347,7 @@ ifaceToHtml mod iface inst_maps
maybe_doc_hdr
| not (no_doc_at_all) =
case exports of
+ [] -> Html.emptyTable
ExportGroup _ _ _ : _ -> Html.emptyTable
_ -> tda [ theclass "section1" ] << toHtml "Documentation"
| otherwise = Html.emptyTable