Skip to content

Commit 1d100c9

Browse files
committed
Remove the Monad constraint in mergeBy
1 parent 22e8ad3 commit 1d100c9

1 file changed

Lines changed: 1 addition & 4 deletions

File tree

  • src/Streamly/Internal/Data/Stream/IsStream

src/Streamly/Internal/Data/Stream/IsStream/Expand.hs

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -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
714711
mergeBy f m1 m2 = fromStream $ K.mergeBy f (toStream m1) (toStream m2)
715712

716713
-- | Like 'mergeBy' but with a monadic comparison function.

0 commit comments

Comments
 (0)