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