From 26326e475caaa27a908ca792a5b6f20d0f68ec7e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 19 Dec 2000 17:44:26 +0000
Subject: [PATCH] [project @ 2000-12-19 17:44:26 by simonpj] Remove extra
 tracing

---
 ghc/compiler/rename/RnIfaces.lhs |    4 +---
 ghc/compiler/rename/RnSource.lhs |    2 --
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 21a2168..54ec9e6 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -595,7 +595,6 @@ data ImportDeclResult
 importDecl name
   = 	-- STEP 1: Check if we've slurped it in while compiling this module
     getIfacesRn				`thenRn` \ ifaces ->
-    traceRn (text "Wanting:" <+> ppr name)	`thenRn_`
     if name `elemNameSet` iSlurp ifaces then	
 	returnRn AlreadySlurped	
     else
@@ -626,8 +625,7 @@ importDecl name
     in
     case lookupNameEnv decls_map name of
       Just (avail,_,decl)
-	-> traceRn (text "Record slurp" <+> ppr avail)	`thenRn_`
-    	   setIfacesRn (recordSlurp ifaces avail)	`thenRn_`
+	-> setIfacesRn (recordSlurp ifaces avail)	`thenRn_`
 	   returnRn (HereItIs decl)
 
       Nothing 
diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 21e307b..58dd2a5 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -109,8 +109,6 @@ rnSourceDecl (ValD binds) = rnTopBinds binds	`thenRn` \ (new_binds, fvs) ->
 rnSourceDecl (TyClD tycl_decl)
   = rnTyClDecl tycl_decl		`thenRn` \ new_decl ->
     rnClassBinds tycl_decl new_decl	`thenRn` \ (new_decl', fvs) ->
-    traceRn (text "rnClassDecl:" <+> (ppr (nameSetToList (tyClDeclFVs new_decl')) $$
-				      ppr (nameSetToList fvs))) 	`thenRn_`
     returnRn (TyClD new_decl', fvs `plusFV` tyClDeclFVs new_decl')
 
 rnSourceDecl (InstD inst)
-- 
1.7.10.4