[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 (file)
--- 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 (file)
--- 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)