Fwd: Applicative-based definitions in Data.Foldable

With the introduction of the 'Ap' monoid in base-4.13, it seems like Applicative based definitions for common folds would be appropriate in base. For example:

allA :: (Applicative f, Foldable t) => (a -> f Bool) -> t a -> f Bool allA f = fmap getAll . getAp . foldMap (Ap . fmap All . f)

all :: Foldable t => (a -> Bool) -> t a -> Bool all f = runIdentity . allA (Identity . f)

I've personally written the Applicative version in everyday code. Thoughts? Isaac