Should there be a 'choice' function in Control.Applicative?

choice
:: Alternative f => [f a] -> f a
choice = foldr (<|>) empty
or:
choice = Data.Foldable.asum

Thanks,
Greg