Skip to content

Commit 3943e8a

Browse files
committed
Add since annotation for mapAccumL'
1 parent dc4a024 commit 3943e8a

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/Data/List/Infinite.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -624,6 +624,8 @@ mapAccumLFB f = \x r -> oneShot (\s -> let (s', y) = f s x in y :< r s')
624624
#-}
625625

626626
-- | Same as 'mapAccumL', but strict in accumulator.
627+
--
628+
-- @since 0.1.3
627629
mapAccumL' :: (acc -> x -> (acc, y)) -> acc -> Infinite x -> Infinite y
628630
mapAccumL' f = flip (foldr (\x acc !s -> let (s', y) = f s x in y :< acc s'))
629631

0 commit comments

Comments
 (0)