@@ -1,5 +1,3 @@
1−{-# OPTIONS_GHC -Wno-redundant-constraints #-}
2−
31-- |
42-- Module : Streamly.Internal.Data.Stream.IsStream.Expand
53-- Copyright : (c) 2017 Composewell Technologies
@@ -709,8 +707,7 @@ zipAsyncWith f = zipAsyncWithM (\a b -> return (f a b))
709707--
710708-- @since 0.6.0
711709{-# INLINE mergeBy #-}
712−mergeBy ::
713− (IsStream t, Monad m) => (a -> a -> Ordering) -> t m a -> t m a -> t m a
710+mergeBy :: IsStream t => (a -> a -> Ordering) -> t m a -> t m a -> t m a
714711mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
715712
716713-- | Like 'mergeBy' but with a monadic comparison function.