From 7fcfb091b89d24e32faf95487208caca47fd0ab8 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Fri, 16 Mar 2007 13:38:22 +0000 Subject: [PATCH] Comment out debug traces --- compiler/iface/IfaceEnv.lhs | 4 ++-- compiler/iface/LoadIface.lhs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/iface/IfaceEnv.lhs b/compiler/iface/IfaceEnv.lhs index 3c3a34d..8074fe0 100644 --- a/compiler/iface/IfaceEnv.lhs +++ b/compiler/iface/IfaceEnv.lhs @@ -56,7 +56,7 @@ newGlobalBinder :: Module -> OccName -> SrcLoc -> TcRnIf a b Name newGlobalBinder mod occ loc = do { mod `seq` occ `seq` return () -- See notes with lookupOrig_help - ; traceIf (text "newGlobalBinder" <+> ppr mod <+> ppr occ <+> ppr loc) +-- ; traceIf (text "newGlobalBinder" <+> ppr mod <+> ppr occ <+> ppr loc) ; name_supply <- getNameCache ; let (name_supply', name) = allocateGlobalBinder name_supply mod occ @@ -146,7 +146,7 @@ lookupOrig mod occ -- which does some stuff that modifies the name cache -- This did happen, with tycon_mod in TcIface.tcIfaceAlt (DataAlt..) mod `seq` occ `seq` return () - ; traceIf (text "lookup_orig" <+> ppr mod <+> ppr occ) +-- ; traceIf (text "lookup_orig" <+> ppr mod <+> ppr occ) ; name_cache <- getNameCache ; case lookupOrigNameCache (nsNames name_cache) mod occ of { diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index 5d75259..cfb8f12 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -310,7 +310,7 @@ loadDecl ignore_prags mod (_version, decl) = do { -- Populate the name cache with final versions of all -- the names associated with the decl main_name <- mk_new_bndr mod (ifName decl) - ; traceIf (text "Loading decl for " <> ppr main_name) +-- ; traceIf (text "Loading decl for " <> ppr main_name) ; implicit_names <- mapM (mk_new_bndr mod) (ifaceDeclSubBndrs decl) -- Typecheck the thing, lazily -- 1.7.10.4