diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-05 15:30:54 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-05 15:30:54 +0100 |
| commit | bf79c614f434085813867e9d934bb4044fea1d41 (patch) | |
| tree | a1db363e029869170abbc7f4815d090afa1ee66e /compiler/rename | |
| parent | 46c19a89d410910bc224a4a8566e506e52b36e43 (diff) | |
| download | haskell-bf79c614f434085813867e9d934bb4044fea1d41.tar.gz | |
A little extra tracing
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnSource.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index edf69c3304..3d73e4b7bc 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -133,6 +133,7 @@ rnSrcDecls group@(HsGroup { hs_valds = val_decls, val_avails = map Avail val_binders } ; (tcg_env, tcl_env) <- extendGlobalRdrEnvRn val_avails local_fix_env ; + traceRn (ptext (sLit "Val binders") <+> (ppr val_binders)) ; setEnvs (tcg_env, tcl_env) $ do { -- Now everything is in scope, as the remaining renaming assumes. |