diff --git a/deferred-folds.cabal b/deferred-folds.cabal
--- a/deferred-folds.cabal
+++ b/deferred-folds.cabal
@@ -1,7 +1,7 @@
 name:
   deferred-folds
 version:
-  0.5.2
+  0.6
 category:
   Folding
 synopsis:
diff --git a/library/DeferredFolds/UnfoldM.hs b/library/DeferredFolds/UnfoldM.hs
--- a/library/DeferredFolds/UnfoldM.hs
+++ b/library/DeferredFolds/UnfoldM.hs
@@ -1,7 +1,7 @@
 module DeferredFolds.UnfoldM
 where
 
-import DeferredFolds.Prelude
+import DeferredFolds.Prelude hiding (mapM_)
 import qualified DeferredFolds.Prelude as A
 
 
@@ -64,9 +64,13 @@
 foldlM' step init (UnfoldM run) =
   run step init
 
+{-# INLINE mapM_ #-}
+mapM_ :: Monad m => (input -> m ()) -> UnfoldM m input -> m ()
+mapM_ step = foldlM' (const step) ()
+
 {-# INLINE forM_ #-}
-forM_ :: Monad m => (input -> m ()) -> UnfoldM m input -> m ()
-forM_ step = foldlM' (const step) ()
+forM_ :: Monad m => UnfoldM m input -> (input -> m ()) -> m ()
+forM_ = flip mapM_
 
 {-| Apply a Gonzalez fold -}
 {-# INLINE fold #-}