diff options
| author | simonmar <unknown> | 2003-05-21 15:07:21 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-05-21 15:07:21 +0000 |
| commit | ef8c45f7b3568d66d748a3249c486022bdb1a2a2 (patch) | |
| tree | f7733ebdedb4cd66c28e0deaa54490f2ff772728 | |
| parent | 4f5802c80d43a7e60b66ca56651312d00a1deb13 (diff) | |
[haddock @ 2003-05-21 15:07:21 by simonmar]
Only omit the module contents when there are no section headings at all.
| -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 |