Fix concatMapWith benchmarks measurement issue.

The problem got introduced inadvertently by commit
22bfa72599
This commit is contained in:
Harendra Kumar 2020-01-25 22:58:13 +05:30
parent 806364f302
commit cee86ffa42

View File

@ -888,8 +888,8 @@ concatStreamsWith
-> IO ()
concatStreamsWith op outer inner n =
S.drain $ S.concatMapWith op
(\i -> sourceUnfoldrMN (i + inner) i)
(sourceUnfoldrMN (n + outer) n)
(\i -> sourceUnfoldrMN inner i)
(sourceUnfoldrMN outer n)
{-# INLINE concatMapWithSerial #-}
concatMapWithSerial :: Int -> Int -> Int -> IO ()