module Annotator.Util where

anyp :: [a -> Bool] -> a -> Bool
anyp preds x = any ($ x) preds