From b0856e7d7185f86245846d574cdea943621adc4f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 3 Jun 2003 09:55:26 +0000
Subject: [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.
---
src/HaddockHtml.hs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
(limited to 'src')
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
@@ -476,6 +476,9 @@ ppShortDataDecl summary is_newty
(HsDataDecl _ _ nm args [con] _ _doc) =
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 << (
--
cgit v1.2.3