From db88f8a24955a64ff0fb487c49da349fd146b82f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 29 Apr 2002 15:55:46 +0000
Subject: [haddock @ 2002-04-29 15:55:46 by simonmar] remove a trace

---
 src/HaddockHtml.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 06ff5db2..5059070e 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -17,7 +17,7 @@ import FiniteMap
 import List 	( sortBy )
 import Char	( toUpper, toLower )
 import Monad	( when )
-import IOExts
+--import IOExts
 
 import Html
 import qualified Html
@@ -521,7 +521,7 @@ ppHsDataDecl doc_map summary is_newty decl@(HsDataDecl loc ctx nm args cons drv)
 	   = isNothing (lookupFM doc_map nm) && all field_has_no_doc fields
 
  	field_has_no_doc (HsFieldDecl nms _ _)
-	   = trace (show nms ++ show (map (isNothing . lookupFM doc_map) nms)) $ all isNothing (map (lookupFM doc_map) nms)
+	   = all isNothing (map (lookupFM doc_map) nms)
 
 
 ppShortConstr :: Bool -> HsConDecl -> Html
-- 
cgit v1.2.3