Bug fix: Serial.wSerialMin
commit7c612fcd84876b1acf51ec03d48bd77f8b565410
authorAdithya Kumar <adithya@composewell.com>
dateTue 16 Feb 2021, 22:53 (6 years ago)
parent2c70b45
src/Streamly/Internal/Data/Stream/Serial.hs+1−1
@@ -424,7 +424,7 @@ wSerialMin :: IsStream t => t m a -> t m a -> t m a
424424wSerialMin m1 m2 = mkStream $ \st yld sng stp -> do
425425 let stop = stp
426426 single a = sng a
427− yieldk a r = yld a (wSerial m2 r)
427+ yieldk a r = yld a (wSerialMin m2 r)
428428 foldStream st yieldk single stop m1
429429
430430instance Semigroup (WSerialT m a) where