summaryrefslogtreecommitdiff
path: root/compiler/rename/RnBinds.lhs
diff options
context:
space:
mode:
authorunknown <simonpj@.europe.corp.microsoft.com>2011-04-13 09:18:39 +0100
committerunknown <simonpj@.europe.corp.microsoft.com>2011-04-13 09:18:39 +0100
commit8419203b7eb5aa4bb13f8d1263632de4d10a4048 (patch)
tree811359feb7f282d19bc63f34e66663f812e7be0a /compiler/rename/RnBinds.lhs
parent83f16ade9edf272c88c6b2ed8b8e951b905fe130 (diff)
parenta52ff7619e8b7d74a9d933d922eeea49f580bca8 (diff)
downloadhaskell-8419203b7eb5aa4bb13f8d1263632de4d10a4048.tar.gz
Merge branch 'master' of c:/code/HEAD-git/. into ghc-generics
Diffstat (limited to 'compiler/rename/RnBinds.lhs')
-rw-r--r--compiler/rename/RnBinds.lhs4
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index 03dfa08851..ee30f46607 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -357,7 +357,9 @@ rnLocalValBindsAndThen binds@(ValBindsIn _ sigs) thing_inside
-- let x = x in 3
-- should report 'x' unused
; let real_uses = findUses dus result_fvs
- ; warnUnusedLocalBinds bound_names real_uses
+ -- Insert fake uses for variables introduced implicitly by wildcards (#4404)
+ implicit_uses = hsValBindsImplicits binds'
+ ; warnUnusedLocalBinds bound_names (real_uses `unionNameSets` implicit_uses)
; let
-- The variables "used" in the val binds are: