@@ -424,7 +424,7 @@ wSerialMin :: IsStream t => t m a -> t m a -> t m a
424wSerialMin m1 m2 = mkStream $ \st yld sng stp -> do
424wSerialMin m1 m2 = mkStream $ \st yld sng stp -> do
425 let stop = stp
425 let stop = stp
426 single a = sng a
426 single a = sng a
427− yieldk a r = yld a (wSerial m2 r)
427+ yieldk a r = yld a (wSerialMin m2 r)
428 foldStream st yieldk single stop m1
428 foldStream st yieldk single stop m1
430instance Semigroup (WSerialT m a) where
430instance Semigroup (WSerialT m a) where