diff options
| author | simonmar <unknown> | 2002-05-27 15:56:45 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-27 15:56:45 +0000 |
| commit | 8d5e4783e00cc0ed91d3dee3b503ab1c693a0403 (patch) | |
| tree | 8bf027dd4768b472b9aaa08f601592fcd22c3f14 | |
| parent | 16e64e21368daa34abbce8b99da157a6a8bcdb57 (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.hs | 5 |
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 |