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