Skip to content

Commit

Permalink
fix(std): removed explicit eq parameter from elem
Browse files Browse the repository at this point in the history
  • Loading branch information
Etherian committed Nov 15, 2018
1 parent d4c1ddf commit b8c1c2a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions std/foldable.glu
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit b8c1c2a

Please sign in to comment.