diff options
| author | simonmar <unknown> | 2003-06-03 09:55:26 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-06-03 09:55:26 +0000 |
| commit | b0856e7d7185f86245846d574cdea943621adc4f (patch) | |
| tree | 67e0c68a556d876ec5f2ec8add38d797c554aee1 | |
| parent | 30567af3802d3c8d84acef783735524d32bd3d62 (diff) | |
[haddock @ 2003-06-03 09:55:26 by simonmar]
Two small fixes to make the output valid HTML 4.01 (transitional).
Thanks to Malcolm Wallace for pointing out the problems.
| -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) </> |