[haddock @ 2002-05-10 16:05:08 by simonmar]

Only include a mini-contents if there are 2 or more sections

1 files changed, 3 insertions, 3 deletions

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 9ff9c433..5a16b669 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -355,9 +355,9 @@ ifaceToHtml mod iface
 
 ppModuleContents :: [ExportItem] -> HtmlTable
 ppModuleContents exports
-  | null sections = Html.emptyTable
-  | otherwise     = tda [theclass "section4"] << bold << toHtml "Contents"
-  		     </> td << dlist << concatHtml sections
+  | length sections < 2 = Html.emptyTable
+  | otherwise           = tda [theclass "section4"] << bold << toHtml "Contents"
+  		           </> td << dlist << concatHtml sections
  where
   (sections, _leftovers{-should be []-}) = process 0 exports