From a8a79041680a53fc5a28d6aee6751533e1f98083 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 10 May 2002 16:05:08 +0000
Subject: [haddock @ 2002-05-10 16:05:08 by simonmar] Only include a
 mini-contents if there are 2 or more sections

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

(limited to 'src')

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
 
-- 
cgit v1.2.3