@@ -421,9 +421,11 @@ wSerialFst m1 m2 = mkStream $ \st yld sng stp -> do
421-- @since 0.7.0
421-- @since 0.7.0
422{-# INLINE wSerialMin #-}
422{-# INLINE wSerialMin #-}
423wSerialMin :: IsStream t => t m a -> t m a -> t m a
423wSerialMin :: IsStream t => t m a -> t m a -> t m a
424−wSerialMin m1 m2 = mkStream $ \st yld sng stp -> do
424+wSerialMin m1 m2 = mkStream $ \st yld _ stp -> do
425 let stop = stp
425 let stop = stp
426+ -- "single a" is defined as "yld a (wSerialMin m2 K.nil)" instead of
427+ -- "sng a" to keep the behaviour consistent with the yield continuation.
426− single a = sng a
428+ single a = yld a (wSerialMin m2 K.nil)
427 yieldk a r = yld a (wSerialMin m2 r)
429 yieldk a r = yld a (wSerialMin m2 r)
428 foldStream st yieldk single stop m1
430 foldStream st yieldk single stop m1