Make foldM INLINEABLE

snoyberg · Aug 15, 2014 · 4b901be · 4b901be
1 parent ff5a258
commit 4b901be
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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.
 --