foldr1 +base

foldr1 :: (a -> a -> a) -> [a] -> a
base Prelude, base Data.List
foldr1 is a variant of foldr that has no starting value argument, and thus must be applied to non-empty lists.
foldr1 :: Foldable t => (a -> a -> a) -> t a -> a
base Data.Foldable