diff options
Diffstat (limited to 'src/HaddockHtml.hs')
| -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 |