diff --git a/library/PrimitiveExtras/Fold.hs b/library/PrimitiveExtras/Fold.hs
--- a/library/PrimitiveExtras/Fold.hs
+++ b/library/PrimitiveExtras/Fold.hs
@@ -12,22 +12,22 @@
 import qualified PrimitiveExtras.UnliftedArray as UA
 
 
-unsafeDupableIO :: (state -> input -> IO state) -> IO state -> (state -> IO output) -> Fold input output
-unsafeDupableIO stepInIO initInIO extractInIO =
+unsafeIO :: (state -> input -> IO state) -> IO state -> (state -> IO output) -> Fold input output
+unsafeIO stepInIO initInIO extractInIO =
   Fold
     (\ !state input -> unsafeDupablePerformIO (stepInIO state input))
     (unsafeDupablePerformIO initInIO)
-    (\ state -> let !output = unsafeDupablePerformIO (extractInIO state) in output)
+    (\ state -> let !output = unsafePerformIO (extractInIO state) in output)
 
 foldMInUnsafeDupableIO :: FoldM IO input output -> Fold input output
-foldMInUnsafeDupableIO (FoldM step init extract) = unsafeDupableIO step init extract
+foldMInUnsafeDupableIO (FoldM step init extract) = unsafeIO step init extract
 
 {-|
 Given a size of the array,
 construct a fold, which produces an array of index counts.
 -}
 indexCounts :: (Integral count, Prim count) => Int {-^ Array size -} -> Fold Int (PrimArray count)
-indexCounts size = unsafeDupableIO step init extract where
+indexCounts size = unsafeIO step init extract where
   init = unsafeThawPrimArray (replicatePrimArray size 0)
   step mutable i = do
     count <- readPrimArray mutable i
@@ -41,7 +41,7 @@
 -}
 unliftedArray :: PrimUnlifted element => Int {-^ Size of the array -} -> Fold (Int, element) (UnliftedArray element)
 unliftedArray size =
-  unsafeDupableIO step init extract
+  unsafeIO step init extract
   where
     step mutable (index, element) =
       writeUnliftedArray mutable index element $> mutable
@@ -59,7 +59,7 @@
 -}
 primMultiArray :: forall size element. (Integral size, Prim size, Prim element) => PrimArray size -> Fold (Int, element) (PrimMultiArray element)
 primMultiArray sizeArray =
-  unsafeDupableIO step init extract
+  unsafeIO step init extract
   where
     outerLength = sizeofPrimArray sizeArray
     init =
diff --git a/primitive-extras.cabal b/primitive-extras.cabal
--- a/primitive-extras.cabal
+++ b/primitive-extras.cabal
@@ -1,7 +1,7 @@
 name:
   primitive-extras
 version:
-  0.1.7
+  0.1.7.1
 category:
   Primitive
 synopsis: