selectAction :: Element a => (Maybe a -> Bool) -> (Maybe a, Maybe a) -> Bool
selectAction f (x, y) = f x || f y
selectAction :: Element a => (Maybe a -> Bool) -> (Maybe a, Maybe a) -> Bool
selectAction f (x, y) = f x || f y
selectAction f (x, y) = f x || f y