@@ -888,8 +888,8 @@ concatStreamsWith
888888 -> IO ()
889889concatStreamsWith op outer inner n =
890890 S.drain $ S.concatMapWith op
891− (\i -> sourceUnfoldrMN (i + inner) i)
892− (sourceUnfoldrMN (n + outer) n)
891+ (\i -> sourceUnfoldrMN inner i)
892+ (sourceUnfoldrMN outer n)
893893
894894{-# INLINE concatMapWithSerial #-}
895895concatMapWithSerial :: Int -> Int -> Int -> IO ()