diff --git a/Util.hs b/Util.hs
--- a/Util.hs
+++ b/Util.hs
@@ -178,7 +178,7 @@
 minimumBy f = foldr (\ a -> Just . fromMaybe a & \ b -> case f a b of LT -> a; _ -> b) Nothing
 
 foldMapA :: (Applicative p, Monoid b, Foldable f) => (a -> p b) -> f a -> p b
-foldMapA f = foldr (liftA2 mappend . f) (pure mempty)
+foldMapA f = unAp . foldMap (Ap . f)
 
 altMap :: (Alternative p, Foldable f) => (a -> p b) -> f a -> p b
 altMap f = foldr ((<|>) . f) empty
diff --git a/util.cabal b/util.cabal
--- a/util.cabal
+++ b/util.cabal
@@ -1,5 +1,5 @@
 name:                util
-version:             0.1.17.0
+version:             0.1.17.1
 synopsis:            Utilities
 -- description:         
 license:             BSD3