diff options
| author | simonmar <unknown> | 2002-05-10 16:05:08 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-10 16:05:08 +0000 |
| commit | a8a79041680a53fc5a28d6aee6751533e1f98083 (patch) | |
| tree | 20963f0d6dbd81bec95bfa4698050a1736f9df42 | |
| parent | 00fc4af82a5b4e57991e7b3371d6e6448fcaba2f (diff) | |
[haddock @ 2002-05-10 16:05:08 by simonmar]
Only include a mini-contents if there are 2 or more sections
| -rw-r--r-- | src/HaddockHtml.hs | 6 |
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 |