Skip to content

Commit

Permalink
Actually get rid of strictness on left monadic fold accumulator
Browse files Browse the repository at this point in the history
  • Loading branch information
andrewthad committed Aug 25, 2021
1 parent b72553e commit 3406f8b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion containers/src/Data/Map/Internal.hs
Original file line number Diff line number Diff line change
Expand Up @@ -3371,7 +3371,7 @@ foldlWithKeyM f z = go z
where
go z' Tip = return z'
go z' (Bin _ kx x l r) = do
!z'' <- go z' l
z'' <- go z' l
z''' <- f z'' kx x
go z''' r
{-# INLINE foldlWithKeyM #-}
Expand Down

0 comments on commit 3406f8b

Please sign in to comment.