From ade9353458bb9070cedbf4853dc2a28a91fbb238 Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Sun, 25 Apr 2010 05:36:59 +0000 Subject: fix class member boxes in summary --- src/Haddock/Backends/Xhtml/Decl.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs index b83053a5..210a69f8 100644 --- a/src/Haddock/Backends/Xhtml/Decl.hs +++ b/src/Haddock/Backends/Xhtml/Decl.hs @@ -347,18 +347,15 @@ ppShortClassDecl summary links (ClassDecl lctxt lname tvs fds sigs _ ats _) loc if null sigs && null ats then (if summary then declElem else topDeclElem links loc nm) hdr else (if summary then declElem else topDeclElem links loc nm) (hdr <+> keyword "where") - +++ vanillaTable << - ( - bodyBox << aboves + +++ vanillaTable << aboves ( - [ ppAssocType summary links doc at unicode | at <- ats + [ argBox $ ppAssocType summary links doc at unicode | at <- ats , let doc = lookupAnySubdoc (tcdName $ unL at) subdocs ] ++ - [ ppFunSig summary links loc doc n typ unicode + [ argBox $ ppFunSig summary links loc doc n typ unicode | L _ (TypeSig (L _ n) (L _ typ)) <- sigs , let doc = lookupAnySubdoc n subdocs ] ) - ) where hdr = ppClassHdr summary lctxt (unLoc lname) tvs fds unicode nm = unLoc lname -- cgit v1.2.3