diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-08-21 14:35:12 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-08-21 14:35:12 +0100 |
| commit | 2c6d11fa17ff5cab7d62e6dbea3fc9e501fce7f3 (patch) | |
| tree | d2234533707d916575fe6859171a5931573f43cf /compiler/rename/RnNames.lhs | |
| parent | a874dd85f111bf93292ee074503ad070db38a1f9 (diff) | |
| download | haskell-2c6d11fa17ff5cab7d62e6dbea3fc9e501fce7f3.tar.gz | |
Re-jig the reporting of names bound multiple times
Fixes Trac #7164
Diffstat (limited to 'compiler/rename/RnNames.lhs')
| -rw-r--r-- | compiler/rename/RnNames.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index 6901e624b3..4ce57024b5 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -414,10 +414,11 @@ extendGlobalRdrEnvRn avails new_fixities rdr_env3 = foldl extendGlobalRdrEnv rdr_env2 gres fix_env' = foldl extend_fix_env fix_env gres - (rdr_env', dups) = findLocalDupsRdrEnv rdr_env3 new_occs + dups = findLocalDupsRdrEnv rdr_env3 new_occs - gbl_env' = gbl_env { tcg_rdr_env = rdr_env', tcg_fix_env = fix_env' } + gbl_env' = gbl_env { tcg_rdr_env = rdr_env3, tcg_fix_env = fix_env' } + ; traceRn (text "extendGlobalRdrEnvRn dups" <+> (ppr dups)) ; mapM_ addDupDeclErr dups ; traceRn (text "extendGlobalRdrEnvRn" <+> (ppr new_fixities $$ ppr fix_env $$ ppr fix_env')) |