diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-08-05 20:58:02 +0000 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-08-05 20:58:02 +0000 |
| commit | 02614fd61f57b599c5e4fd5e85f00a4e1ce37bc7 (patch) | |
| tree | 76468eb85d00298e5af9f20f572ed21da0e037fe /compiler/simplCore | |
| parent | 7354f93c8158b699c7fc1e7592e5826c1b9a22d9 (diff) | |
| download | haskell-02614fd61f57b599c5e4fd5e85f00a4e1ce37bc7.tar.gz | |
Replace some `length . filter` with `count`
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/SAT.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SAT.hs b/compiler/simplCore/SAT.hs index 38ae1444f1..923d3a4209 100644 --- a/compiler/simplCore/SAT.hs +++ b/compiler/simplCore/SAT.hs @@ -373,7 +373,7 @@ saTransformMaybe binder maybe_arg_staticness rhs_binders rhs_body where should_transform staticness = n_static_args > 1 -- THIS IS THE DECISION POINT where - n_static_args = length (filter isStaticValue staticness) + n_static_args = count isStaticValue staticness saTransform :: Id -> SATInfo -> [Id] -> CoreExpr -> SatM CoreBind saTransform binder arg_staticness rhs_binders rhs_body |