diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-04-25 05:36:59 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-04-25 05:36:59 +0000 |
| commit | ade9353458bb9070cedbf4853dc2a28a91fbb238 (patch) | |
| tree | 331924e9a367e72b6d8e2fd9a62d2fd988c45ece | |
| parent | c428aace2d2332b57acd05bc3d1b5631300eda9e (diff) | |
fix class member boxes in summary
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Decl.hs | 9 |
1 files changed, 3 insertions, 6 deletions
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 |