From b8c1c2a9fbe9656fd64339b2f6b848c23f00c0b0 Mon Sep 17 00:00:00 2001 From: Etherian Date: Wed, 14 Nov 2018 21:15:29 -0500 Subject: [PATCH] fix(std): removed explicit eq parameter from elem --- std/foldable.glu | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/std/foldable.glu b/std/foldable.glu index c15c6c1259..27c98d4fc4 100644 --- a/std/foldable.glu +++ b/std/foldable.glu @@ -49,8 +49,8 @@ let all pred : [Foldable t] -> (a -> Bool) -> t a -> Bool = let any pred : [Foldable t] -> (a -> Bool) -> t a -> Bool = foldl (\acc x -> acc || pred x) False -let elem eq x : [Foldable t] -> [Eq a] -> a -> t a -> Bool = - any (eq.(==) x) +let elem x : [Foldable t] -> [Eq a] -> a -> t a -> Bool = + any ((==) x) let count : [Foldable t] -> t a -> Int = foldl (\acc _ -> acc #Int+ 1) 0