diff options
author | David Waern <david.waern@gmail.com> | 2008-07-02 18:24:06 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2008-07-02 18:24:06 +0000 |
commit | 49a591787f44f0cc2cb793e4a77980a227fb2a0b (patch) | |
tree | f77e99057e45686d2a5d914d136f585ed1824c2b | |
parent | fb983dd1caab7135b2714e4ec909db68276f8a08 (diff) |
Remove redundant check for summary when rendering data types
-rw-r--r-- | src/Haddock/Backends/Html.hs | 7 |
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 |