diff --git a/conduit/Data/Conduit/List.hs b/conduit/Data/Conduit/List.hs
index 52230d9bb..302a3a11d 100644
--- a/conduit/Data/Conduit/List.hs
+++ b/conduit/Data/Conduit/List.hs
@@ -169,6 +169,7 @@ foldM f =
         go a = do
             accum' <- lift $ f accum a
             accum' `seq` loop accum'
+{-# INLINEABLE foldM #-}
 
 -- | A monoidal strict left fold.
 --