diff --git a/hw-prim.cabal b/hw-prim.cabal
--- a/hw-prim.cabal
+++ b/hw-prim.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           hw-prim
-version:        0.6.2.13
+version:        0.6.2.14
 synopsis:       Primitive functions and data types
 description:    Primitive functions and data types.
 category:       Data
diff --git a/src/HaskellWorks/Data/Vector/Storable.hs b/src/HaskellWorks/Data/Vector/Storable.hs
--- a/src/HaskellWorks/Data/Vector/Storable.hs
+++ b/src/HaskellWorks/Data/Vector/Storable.hs
@@ -1,6 +1,6 @@
 module HaskellWorks.Data.Vector.Storable where
 
-import Data.Semigroup ((<>))
+import Data.Monoid (Monoid (..), (<>))
 import Data.Word
 
 import qualified Data.Vector.Storable as DVS
@@ -10,3 +10,7 @@
 padded :: Int -> DVS.Vector Word8 -> DVS.Vector Word8
 padded n v = v <> DVS.replicate ((n - DVS.length v) `max` 0) 0
 {-# INLINE padded #-}
+
+foldMap :: (DVS.Storable a, Monoid m) => (a -> m) -> DVS.Vector a -> m
+foldMap f = DVS.foldl' (\a b -> a <> f b) mempty
+{-# INLINE foldMap #-}