diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-07-04 14:36:24 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-07-04 23:35:25 +0200 |
| commit | 331febf084bb696061f550bbd76875104e427f3a (patch) | |
| tree | 96763382eec58085748ea98ac0d390000d8d2624 /compiler/simplCore/CallArity.hs | |
| parent | 3b2deca1d8213278b11feb57651262464d4daeeb (diff) | |
| download | haskell-331febf084bb696061f550bbd76875104e427f3a.tar.gz | |
CallArity: Use not . null instead of length > 0
Test Plan: Validate
Reviewers: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2381
Diffstat (limited to 'compiler/simplCore/CallArity.hs')
| -rw-r--r-- | compiler/simplCore/CallArity.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/CallArity.hs b/compiler/simplCore/CallArity.hs index e172aefcd7..fda28a8f65 100644 --- a/compiler/simplCore/CallArity.hs +++ b/compiler/simplCore/CallArity.hs @@ -510,7 +510,7 @@ callArityAnal arity int (Let bind e) -- Which bindings should we look at? -- See Note [Which variables are interesting] isInteresting :: Var -> Bool -isInteresting v = 0 < length (typeArity (idType v)) +isInteresting v = not $ null (typeArity (idType v)) interestingBinds :: CoreBind -> [Var] interestingBinds = filter isInteresting . bindersOf |