git.iko.soy/streamly
on master help sign in
Fix concatMapWith benchmarks measurement issue.
cee86ffHarendra Kumar
benchmark/Streamly/Benchmark/Prelude.hs+2−2
compare with master
unifiedsplit
@@ -888,8 +888,8 @@ concatStreamsWith
888 -> IO ()
888 -> IO ()
889concatStreamsWith op outer inner n =
889concatStreamsWith op outer inner n =
890 S.drain $ S.concatMapWith op
890 S.drain $ S.concatMapWith op
891− (\i -> sourceUnfoldrMN (i + inner) i)
891+ (\i -> sourceUnfoldrMN inner i)
892− (sourceUnfoldrMN (n + outer) n)
892+ (sourceUnfoldrMN outer n)
893
893
894{-# INLINE concatMapWithSerial #-}
894{-# INLINE concatMapWithSerial #-}
895concatMapWithSerial :: Int -> Int -> Int -> IO ()
895concatMapWithSerial :: Int -> Int -> Int -> IO ()