aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-07-02 18:24:06 +0000
committerDavid Waern <david.waern@gmail.com>2008-07-02 18:24:06 +0000
commit49a591787f44f0cc2cb793e4a77980a227fb2a0b (patch)
treef77e99057e45686d2a5d914d136f585ed1824c2b
parentfb983dd1caab7135b2714e4ec909db68276f8a08 (diff)
Remove redundant check for summary when rendering data types
-rw-r--r--src/Haddock/Backends/Html.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index a0e81edc..0fbf8760 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1027,7 +1027,7 @@ ppDataDecl summary links instances x loc mbDoc dataDecl
(ppShortDataDecl summary links loc mbDoc dataDecl)
| otherwise
- = (if validTable then (</>) else const) dataHeader $
+ = (if validTable then (</>) else const) header $
tda [theclass "body"] << vanillaTable << (
datadoc </>
constrBit </>
@@ -1044,9 +1044,8 @@ ppDataDecl summary links instances x loc mbDoc dataDecl
cons = tcdCons dataDecl
resTy = (con_res . unLoc . head) cons
- dataHeader =
- (if summary then declBox else topDeclBox links loc name)
- ((ppDataHeader summary dataDecl) <+> whereBit)
+ header = topDeclBox links loc name (ppDataHeader summary dataDecl
+ <+> whereBit)
whereBit
| null cons = empty