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.11
+version:        0.6.2.12
 synopsis:       Primitive functions and data types
 description:    Primitive functions and data types.
 category:       Data
@@ -79,6 +79,7 @@
       HaskellWorks.Data.Vector.AsVector8ns
       HaskellWorks.Data.Vector.AsVector8s
       HaskellWorks.Data.Vector.BoxedVectorLike
+      HaskellWorks.Data.Vector.Storable
       HaskellWorks.Data.Vector.StorableVectorLike
   other-modules:
       Paths_hw_prim
diff --git a/src/HaskellWorks/Data/Vector/Storable.hs b/src/HaskellWorks/Data/Vector/Storable.hs
new file mode 100644
--- /dev/null
+++ b/src/HaskellWorks/Data/Vector/Storable.hs
@@ -0,0 +1,12 @@
+module HaskellWorks.Data.Vector.Storable where
+
+import Data.Semigroup ((<>))
+import Data.Word
+
+import qualified Data.Vector.Storable as DVS
+
+{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
+
+padded :: Int -> DVS.Vector Word8 -> DVS.Vector Word8
+padded n v = v <> DVS.replicate ((n - DVS.length v) `max` 0) 0
+{-# INLINE padded #-}