We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 22e8ad3 commit 1d100c9Copy full SHA for 1d100c9
1 file changed
src/Streamly/Internal/Data/Stream/IsStream/Expand.hs
@@ -1,5 +1,3 @@
1
-{-# OPTIONS_GHC -Wno-redundant-constraints #-}
2
-
3
-- |
4
-- Module : Streamly.Internal.Data.Stream.IsStream.Expand
5
-- Copyright : (c) 2017 Composewell Technologies
@@ -709,8 +707,7 @@ zipAsyncWith f = zipAsyncWithM (\a b -> return (f a b))
709
707
--
710
708
-- @since 0.6.0
711
{-# INLINE mergeBy #-}
712
-mergeBy ::
713
- (IsStream t, Monad m) => (a -> a -> Ordering) -> t m a -> t m a -> t m a
+mergeBy :: IsStream t => (a -> a -> Ordering) -> t m a -> t m a -> t m a
714
mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
715
716
-- | Like 'mergeBy' but with a monadic comparison function.
0 commit comments