Should there be a 'choice' function in Control.Applicative?choice :: Alternative f => [f a] -> f achoice = foldr (<|>) emptyor:choice = Data.Foldable.asumThanks,Greg