CallArity: Use not . null instead of length > 0
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 4 Jul 2016 12:36:24 +0000 (14:36 +0200)
committerBen Gamari <ben@smart-cactus.org>
Mon, 4 Jul 2016 21:35:25 +0000 (23:35 +0200)
Test Plan: Validate

Reviewers: austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2381

compiler/simplCore/CallArity.hs

index e172aef..fda28a8 100644 (file)
@@ -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