Commit 26326e47 authored by simonpj's avatar simonpj
Browse files

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

Remove extra tracing
parent 14e92de4
......@@ -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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment