From: simonpj <unknown>
Date: Tue, 19 Dec 2000 17:44:26 +0000 (+0000)
Subject: [project @ 2000-12-19 17:44:26 by simonpj]
X-Git-Tag: Approximately_9120_patches~3041
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=26326e475caaa27a908ca792a5b6f20d0f68ec7e;p=ghc-hetmet.git

[project @ 2000-12-19 17:44:26 by simonpj]
Remove extra tracing
---

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)