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.1
+  0.5.2
 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
@@ -64,6 +64,10 @@
 foldlM' step init (UnfoldM run) =
   run step init
 
+{-# INLINE forM_ #-}
+forM_ :: Monad m => (input -> m ()) -> UnfoldM m input -> m ()
+forM_ step = foldlM' (const step) ()
+
 {-| Apply a Gonzalez fold -}
 {-# INLINE fold #-}
 fold :: Fold input output -> UnfoldM Identity input -> output