1 files changed, 1 insertions, 1 deletions

diff --git a/lib/Utils.hs b/lib/Utils.hs
index 4c9a581..4319714 100644
--- a/lib/Utils.hs
+++ b/lib/Utils.hs
@@ -33,4 +33,4 @@ bet k (l, u) = k >= l && k <= u
 (&+) = liftM2 (&&)
 
 howMany :: (a -> Bool) -> [a] -> Int
-howMany predicate = length . filter ((== True) . predicate)
+howMany predicate = length . filter predicate