diff --git a/hw-excess.cabal b/hw-excess.cabal
--- a/hw-excess.cabal
+++ b/hw-excess.cabal
@@ -1,5 +1,5 @@
 name:                   hw-excess
-version:                0.1.0.0
+version:                0.1.0.1
 synopsis:               Excess
 description:            Please see README.md
 homepage:               http://github.com/haskell-works/hw-excess#readme
diff --git a/src/HaskellWorks/Data/Excess/MinMaxExcess0.hs b/src/HaskellWorks/Data/Excess/MinMaxExcess0.hs
--- a/src/HaskellWorks/Data/Excess/MinMaxExcess0.hs
+++ b/src/HaskellWorks/Data/Excess/MinMaxExcess0.hs
@@ -86,28 +86,28 @@
   {-# INLINE minMaxExcess0 #-}
 
 instance MinMaxExcess0 (DVS.Vector Word8) where
-  minMaxExcess0 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess0 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word8 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess0 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
   {-# INLINE minMaxExcess0 #-}
 
 instance MinMaxExcess0 (DVS.Vector Word16) where
-  minMaxExcess0 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess0 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word16 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess0 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
   {-# INLINE minMaxExcess0 #-}
 
 instance MinMaxExcess0 (DVS.Vector Word32) where
-  minMaxExcess0 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess0 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word32 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess0 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
   {-# INLINE minMaxExcess0 #-}
 
 instance MinMaxExcess0 (DVS.Vector Word64) where
-  minMaxExcess0 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess0 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word64 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess0 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
diff --git a/src/HaskellWorks/Data/Excess/MinMaxExcess1.hs b/src/HaskellWorks/Data/Excess/MinMaxExcess1.hs
--- a/src/HaskellWorks/Data/Excess/MinMaxExcess1.hs
+++ b/src/HaskellWorks/Data/Excess/MinMaxExcess1.hs
@@ -86,28 +86,28 @@
   {-# INLINE minMaxExcess1 #-}
 
 instance MinMaxExcess1 (DVS.Vector Word8) where
-  minMaxExcess1 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess1 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word8 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess1 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
   {-# INLINE minMaxExcess1 #-}
 
 instance MinMaxExcess1 (DVS.Vector Word16) where
-  minMaxExcess1 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess1 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word16 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess1 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
   {-# INLINE minMaxExcess1 #-}
 
 instance MinMaxExcess1 (DVS.Vector Word32) where
-  minMaxExcess1 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess1 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word32 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess1 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))
   {-# INLINE minMaxExcess1 #-}
 
 instance MinMaxExcess1 (DVS.Vector Word64) where
-  minMaxExcess1 = DVS.foldl gen (0, 0, 0)
+  minMaxExcess1 = DVS.foldl' gen (0, 0, 0)
     where gen :: (MinExcess, Excess, MaxExcess) -> Word64 -> (MinExcess, Excess, MaxExcess)
           gen (minE, e, maxE) w = let (wMinE, wE, wMaxE) = minMaxExcess1 w  in
                                   (minE `min` (wMinE + e), e + wE, maxE `max` (wMaxE + e))