Commit fbd11e24 authored by simonpj's avatar simonpj
Browse files

[project @ 2002-10-18 13:36:17 by simonpj]

Add a trace
parent 9b4d74c7
......@@ -122,6 +122,7 @@ rnSrcDecls (HsGroup { hs_valds = MonoBind binds sigs _,
src_fvs = plusFVs [src_fvs1, src_fvs2, src_fvs3, src_fvs4,
src_fvs5, src_fvs6, src_fvs7] } ;
traceRn (text "rnSrcDecls" <+> ppr (nameSetToList src_fvs)) ;
tcg_env <- getGblEnv ;
return (tcg_env, rn_group, src_fvs)
}}}
......
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