diff options
| author | Guido Zayas <guido.zayas@gmail.com> | 2014-06-06 18:34:14 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-06-06 19:22:06 +0200 |
| commit | fbdebd30b9ff3ca76243791723b85959c6860083 (patch) | |
| tree | cf906fc3aabbc589b09c974872b2bddeffe42f72 /compiler | |
| parent | e577a52363ee7ee8a07f1d863988332ae8fbf2e4 (diff) | |
| download | haskell-fbdebd30b9ff3ca76243791723b85959c6860083.tar.gz | |
supress warning of bang wildcard pattern-binding (i.e. let !_ = rhs). This fixes #9127
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/rename/RnBinds.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs index 7d3224e8cc..e65d3173d6 100644 --- a/compiler/rename/RnBinds.lhs +++ b/compiler/rename/RnBinds.lhs @@ -476,8 +476,9 @@ rnBind _ bind@(PatBind { pat_lhs = pat bndrs = collectPatBinders pat bind' = bind { pat_rhs = grhss', bind_fvs = fvs' } is_wild_pat = case pat of - L _ (WildPat {}) -> True - _ -> False + L _ (WildPat {}) -> True + L _ (BangPat (L _ (WildPat {}))) -> True -- #9127 + _ -> False -- Warn if the pattern binds no variables, except for the -- entirely-explicit idiom _ = rhs |