From db88f8a24955a64ff0fb487c49da349fd146b82f Mon Sep 17 00:00:00 2001 From: simonmar 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/HaddockHtml.hs') 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