aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-05-10 16:05:08 +0000
committersimonmar <unknown>2002-05-10 16:05:08 +0000
commita8a79041680a53fc5a28d6aee6751533e1f98083 (patch)
tree20963f0d6dbd81bec95bfa4698050a1736f9df42 /src
parent00fc4af82a5b4e57991e7b3371d6e6448fcaba2f (diff)
[haddock @ 2002-05-10 16:05:08 by simonmar]
Only include a mini-contents if there are 2 or more sections
Diffstat (limited to 'src')
-rw-r--r--src/HaddockHtml.hs6
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