module Utils.List
  ( find
  ) where

find : (a -> Bool) -> List a -> Maybe a
find predicate = List.head << List.filter predicate