mulang-4.0.0: src/Data/List/Extra.hs

module Data.List.Extra (
  headOrElse,
  has) where

headOrElse :: a -> [a] -> a
headOrElse x []     = x
headOrElse _ (x:_)  = x

has :: (a -> Bool) -> (b -> [a]) -> (b -> Bool)
has f g = any f . g