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
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
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)