[Do not generate an empty table if there are no exports, this fixes a <table></table> tag being generated, which is not valid HTML 4.01
Neil Mitchell**20060929155203] {
hunk ./src/Haddock/Backends/Html.hs 552
-  = abovesSep s15 (contents: description: synopsis: maybe_doc_hdr: bdy)
+  = abovesSep s15 (contents ++ description: synopsis: maybe_doc_hdr: bdy)
merger 0.0 (
hunk ./src/Haddock/Backends/Html.hs 565
- 	contents = td << vanillaTable << ppModuleContents exports
+    contents = td << vanillaTable << ppModuleContents exports
merger 0.0 (
hunk ./src/Haddock/Backends/Html.hs 565
-	contents = td << vanillaTable << ppModuleContents exports
+ 	contents = td << vanillaTable << ppModuleContents exports
hunk ./src/Haddock/Backends/Html.hs 565
-	contents = td << vanillaTable << ppModuleContents exports
+	contents = case ppModuleContents exports of
+                   Nothing -> []
+                   Just x -> [td << vanillaTable << x]
)
)
merger 0.0 (
hunk ./src/Haddock/Backends/Html.hs 596
-ppModuleContents :: [ExportItem2 DocName] -> HtmlTable
+ppModuleContents :: [ExportItem DocName] -> HtmlTable
merger 0.0 (
hunk ./src/Haddock/Backends/Html.hs 596
-ppModuleContents :: [ExportItem] -> HtmlTable
+ppModuleContents :: [ExportItem2 DocName] -> HtmlTable
hunk ./src/Haddock/Backends/Html.hs 596
-ppModuleContents :: [ExportItem] -> HtmlTable
+ppModuleContents :: [ExportItem] -> Maybe HtmlTable
)
)
hunk ./src/Haddock/Backends/Html.hs 598
-  | length sections == 0 = Html.emptyTable
-  | otherwise            = tda [theclass "section4"] << bold << toHtml "Contents"
-  		           </> td << dlist << concatHtml sections
+  | length sections == 0 = Nothing
+  | otherwise            = Just (tda [theclass "section4"] << bold << toHtml "Contents"
+  		                 </> td << dlist << concatHtml sections)
}