Make monadic fold lazy instead of strict

Author: andrewthad

containers/src/Data/Map/Internal.hs

@@ -262,8 +262,8 @@ module Data.Map.Internal (
     , foldrWithKey'
     , foldlWithKey'
 
-    -- ** Strict monadic folds
-    , foldlWithKeyM'
+    -- ** Monadic folds
+    , foldlWithKeyM
 
     -- * Conversion
     , elems
@@ -3365,16 +3365,16 @@ foldlWithKey' f z = go z
       in go (f z'' kx x) r
 {-# INLINE foldlWithKey' #-}
 
--- | /O(n)/. Monadic variant of 'foldlWithKey\''.
-foldlWithKeyM' :: Monad m => (a -> k -> b -> m a) -> a -> Map k b -> m a
-foldlWithKeyM' f z = go z
+-- | /O(n)/. Monadic variant of 'foldlWithKey'.
+foldlWithKeyM :: Monad m => (a -> k -> b -> m a) -> a -> Map k b -> m a
+foldlWithKeyM f z = go z
   where
-    go !z' Tip             = return z'
+    go z' Tip             = return z'
     go z' (Bin _ kx x l r) = do
       !z'' <- go z' l
       z''' <- f z'' kx x
       go z''' r
-{-# INLINE foldlWithKeyM' #-}
+{-# INLINE foldlWithKeyM #-}
 
 -- | /O(n)/. Fold the keys and values in the map using the given monoid, such that
 --