diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-09-30 08:43:58 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-09-30 08:43:58 +0000 |
| commit | 81b5698d13d6c4b99ad85dfc2c0fdfafd7a469dd (patch) | |
| tree | c4cfb1a9d27333762c0d40e6d4c5bea2514eb4e7 | |
| parent | 24c13c1369c2ed21123c0c6eba7a7d7ab0313b86 (diff) | |
| download | haskell-81b5698d13d6c4b99ad85dfc2c0fdfafd7a469dd.tar.gz | |
Replace a checking `is_elem` with a plain `elem`
This one complains sometimes, but there's no good way to improve it.
| -rw-r--r-- | compiler/codeGen/CgClosure.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs index 000f977342..905f9629b1 100644 --- a/compiler/codeGen/CgClosure.lhs +++ b/compiler/codeGen/CgClosure.lhs @@ -155,8 +155,7 @@ cgRhsClosure bndr cc bndr_info fvs upd_flag args body = do -- Node points to it... let name = idName bndr - is_elem = isIn "cgRhsClosure" - bndr_is_a_fv = bndr `is_elem` fvs + bndr_is_a_fv = bndr `elem` fvs reduced_fvs | bndr_is_a_fv = fvs `minusList` [bndr] | otherwise = fvs |