From 8d5e4783e00cc0ed91d3dee3b503ab1c693a0403 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 27 May 2002 15:56:45 +0000 Subject: [haddock @ 2002-05-27 15:56:45 by simonmar] Do something sensible for modules which don't export anything (except instances). --- src/HaddockHtml.hs | 5 ++--- 1 file 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 -- cgit v1.2.3