mirror of
https://github.com/composewell/streamly.git
synced 2024-10-27 12:12:05 +03:00
Add back the Monad constraint in mergeBy
This commit is contained in:
parent
05360d2a64
commit
13f361a606
@ -707,7 +707,8 @@ zipAsyncWith f = zipAsyncWithM (\a b -> return (f a b))
|
|||||||
--
|
--
|
||||||
-- @since 0.6.0
|
-- @since 0.6.0
|
||||||
{-# INLINE mergeBy #-}
|
{-# INLINE mergeBy #-}
|
||||||
mergeBy :: IsStream t => (a -> a -> Ordering) -> t m a -> t m a -> t m a
|
mergeBy ::
|
||||||
|
(IsStream t, Monad m) => (a -> a -> Ordering) -> t m a -> t m a -> t m a
|
||||||
mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
|
mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
|
||||||
|
|
||||||
-- | Like 'mergeBy' but with a monadic comparison function.
|
-- | Like 'mergeBy' but with a monadic comparison function.
|
||||||
|
Loading…
Reference in New Issue
Block a user