mapM' f t = foldr mappend mempty $ mapM f tthat collects results in right-to-left order (effects still left-to-right). It might be preferable for right associative monoids.
>>> foldMapM @[Int] (Just . replicate 3) [1..3] Just [1,1,1,2,2,2,3,3,3]
>>> foldMapA @[Int] (Just . replicate 3) [1..3] Just [1,1,1,2,2,2,3,3,3]