mirror of
https://github.com/composewell/streamly.git
synced 2024-11-10 12:47:22 +03:00
Fix concatMapWith benchmarks measurement issue.
The problem got introduced inadvertently by commit
22bfa72599
This commit is contained in:
parent
806364f302
commit
cee86ffa42
@ -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 ()
|
||||
|
Loading…
Reference in New Issue
Block a user