[haddock @ 2002-05-27 15:56:45 by simonmar]

Do something sensible for modules which don't export anything (except
instances).

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