diff options
Diffstat (limited to 'lib/Utils.hs')
| -rw-r--r-- | lib/Utils.hs | 2 |
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 | |||
| 33 | (&+) = liftM2 (&&) | 33 | (&+) = liftM2 (&&) |
| 34 | 34 | ||
| 35 | howMany :: (a -> Bool) -> [a] -> Int | 35 | howMany :: (a -> Bool) -> [a] -> Int |
| 36 | howMany predicate = length . filter ((== True) . predicate) | 36 | howMany predicate = length . filter predicate |