From 8b6b5afb7135739fd4cb321f76087956e8ecdad6 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sat, 10 Apr 2010 21:23:21 +0000
Subject: data decls are now a sequence of paragraphs, not a table

---
 src/Haddock/Backends/Xhtml/Decl.hs | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'src/Haddock/Backends/Xhtml/Decl.hs')

diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs
index ebb38907..c2a9aaf9 100644
--- a/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/src/Haddock/Backends/Xhtml/Decl.hs
@@ -433,17 +433,10 @@ ppShortDataDecl summary links loc dataDecl unicode
 
   | [] <- cons = ppDataHeader summary dataDecl unicode
 
-  | otherwise = vanillaTable << (
+  | otherwise = foldl (+++) dataHeader $
       case resTy of 
-        ResTyH98 -> dataHeader </> 
-          tda [theclass "body"] << vanillaTable << (
-            aboves (zipWith doConstr ('=':repeat '|') cons)
-          )
-        ResTyGADT _ -> dataHeader </> 
-          tda [theclass "body"] << vanillaTable << (
-            aboves (map doGADTConstr cons)
-          )
-    )
+        ResTyH98    -> zipWith doConstr ('=':repeat '|') cons
+        ResTyGADT _ -> map doGADTConstr cons
   
   where
     dataHeader = 
-- 
cgit v1.2.3