From 49a591787f44f0cc2cb793e4a77980a227fb2a0b Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 2 Jul 2008 18:24:06 +0000
Subject: Remove redundant check for summary when rendering data types

---
 src/Haddock/Backends/Html.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Haddock')

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 
-- 
cgit v1.2.3