diff options
| -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 |