diff options
-rw-r--r-- | src/HaddockHtml.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 06e0ce7e..7e35d2cc 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -336,7 +336,7 @@ ifaceToHtml _ iface inst_maps no_doc_at_all = not (any has_doc exports) - contents = td << ppModuleContents exports + contents = td << vanillaTable << ppModuleContents exports description | Just doc <- iface_doc iface @@ -477,6 +477,9 @@ ppShortDataDecl summary is_newty ppHsDataHeader summary is_newty nm args <+> equals <+> ppShortConstr summary con ppShortDataDecl summary is_newty + (HsDataDecl _ _ nm args [] _ _doc) = + ppHsDataHeader summary is_newty nm args +ppShortDataDecl summary is_newty (HsDataDecl _ _ nm args cons _ _doc) = vanillaTable << ( declBox (ppHsDataHeader summary is_newty nm args) </> |