From 40c87f79ff5e34efb4bffa306f328a5ad28a232e Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sun, 25 Apr 2010 04:56:37 +0000
Subject: made record fields be an unordList, not a table

---
 src/Haddock/Backends/Xhtml/Decl.hs | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'src/Haddock/Backends/Xhtml')

diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs
index d7b463df..34d509f8 100644
--- a/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/src/Haddock/Backends/Xhtml/Decl.hs
@@ -428,8 +428,8 @@ ppShortDataDecl summary _links _loc dataDecl unicode
 
   | [] <- cons = declElem dataHeader
 
-  | [lcon] <- cons, ResTyH98 <- resTy = declElem $
-      dataHeader <+> equals <+> ppShortConstr summary (unLoc lcon) unicode
+  | [lcon] <- cons, ResTyH98 <- resTy = declElem (dataHeader <+> equals)
+      <+> ppShortConstr summary (unLoc lcon) unicode
 
   | ResTyH98 <- resTy = declElem dataHeader
       +++ unordList (zipWith doConstr ('=':repeat '|') cons)
@@ -439,8 +439,8 @@ ppShortDataDecl summary _links _loc dataDecl unicode
       
   where
     dataHeader = ppDataHeader summary dataDecl unicode
-    doConstr c con = declElem (toHtml [c] <+> ppShortConstr summary (unLoc con) unicode)
-    doGADTConstr con = declElem (ppShortConstr summary (unLoc con) unicode)
+    doConstr c con = toHtml [c] <+> ppShortConstr summary (unLoc con) unicode
+    doGADTConstr con = ppShortConstr summary (unLoc con) unicode
 
     cons      = tcdCons dataDecl
     resTy     = (con_res . unLoc . head) cons 
@@ -525,8 +525,7 @@ ppShortConstr summary con unicode = case con_res con of
     InfixCon arg1 arg2 -> doGADTCon [arg1, arg2] resTy 
     
   where
-    doRecordFields fields = braces (vanillaTable <<
-                        aboves (map (ppShortField summary unicode) fields))
+    doRecordFields fields = braces $ unordList (map (ppShortField summary unicode) fields)
     doGADTCon args resTy = ppBinder summary occ <+> dcolon unicode <+> hsep [
                              ppForAll forall ltvs lcontext unicode,
                              ppLType unicode (foldr mkFunTy resTy args) ]
@@ -613,12 +612,10 @@ ppSideBySideField subdocs unicode (ConDeclField (L _ name) ltype _) =
     mbDoc = join $ fmap fst $ lookup name subdocs
 
 
-ppShortField :: Bool -> Bool -> ConDeclField DocName -> HtmlTable
+ppShortField :: Bool -> Bool -> ConDeclField DocName -> Html
 ppShortField summary unicode (ConDeclField (L _ name) ltype _)
-  = tda [theclass "recfield"] << (
-      ppBinder summary (docNameOcc name)
-      <+> dcolon unicode <+> ppLType unicode ltype
-    )
+  = ppBinder summary (docNameOcc name)
+    <+> dcolon unicode <+> ppLType unicode ltype
 
 
 -- | Print the LHS of a data\/newtype declaration.
-- 
cgit v1.2.3