@@ -707,7 +707,8 @@ zipAsyncWith f = zipAsyncWithM (\a b -> return (f a b))
708-- @since 0.6.0
708-- @since 0.6.0
709{-# INLINE mergeBy #-}
709{-# INLINE mergeBy #-}
710−mergeBy :: IsStream t => (a -> a -> Ordering) -> t m a -> t m a -> t m a
711+ (IsStream t, Monad m) => (a -> a -> Ordering) -> t m a -> t m a -> t m a
711mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
712mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
713-- | Like 'mergeBy' but with a monadic comparison function.
714-- | Like 'mergeBy' but with a monadic comparison function.