From ef8c45f7b3568d66d748a3249c486022bdb1a2a2 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 21 May 2003 15:07:21 +0000
Subject: [haddock @ 2003-05-21 15:07:21 by simonmar] Only omit the module
 contents when there are no section headings at all.

---
 src/HaddockHtml.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index d5454a9c..06e0ce7e 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -370,8 +370,8 @@ ifaceToHtml _ iface inst_maps
 
 ppModuleContents :: [ExportItem] -> HtmlTable
 ppModuleContents exports
-  | length sections < 2 = Html.emptyTable
-  | otherwise           = tda [theclass "section4"] << bold << toHtml "Contents"
+  | length sections == 0 = Html.emptyTable
+  | otherwise            = tda [theclass "section4"] << bold << toHtml "Contents"
   		           </> td << dlist << concatHtml sections
  where
   (sections, _leftovers{-should be []-}) = process 0 exports
-- 
cgit v1.2.3