diff options
author | unknown <simonpj@.europe.corp.microsoft.com> | 2011-04-13 09:18:39 +0100 |
---|---|---|
committer | unknown <simonpj@.europe.corp.microsoft.com> | 2011-04-13 09:18:39 +0100 |
commit | 8419203b7eb5aa4bb13f8d1263632de4d10a4048 (patch) | |
tree | 811359feb7f282d19bc63f34e66663f812e7be0a /compiler/rename/RnBinds.lhs | |
parent | 83f16ade9edf272c88c6b2ed8b8e951b905fe130 (diff) | |
parent | a52ff7619e8b7d74a9d933d922eeea49f580bca8 (diff) | |
download | haskell-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.lhs | 4 |
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: |