fixup

composewell · Feb 3, 2021 · 1b08f70 · 1b08f70
1 parent 0cf0563
commit 1b08f70
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Streamly/Internal/Data/Stream/IsStream/Transform.hs b/src/Streamly/Internal/Data/Stream/IsStream/Transform.hs
@@ -730,7 +730,7 @@ scanl1' step m = fromStreamD $ D.scanl1' step $ toStreamD m
 --
 -- /Internal/
 {-# INLINE with #-}
-with :: (IsStream t, Monad m) =>
+with :: Functor (t m) =>
        (t m a -> t m (s, a))
     -> (((s, a) -> c) -> t m (s, a) -> t m (s, a))
     -> (((s, a) -> c) -> t m a -> t m a)
@@ -776,7 +776,7 @@ filterM p m = fromStreamD $ D.filterM p $ toStreamD m
 -- /Internal/
 --
 {-# INLINE uniqBy #-}
-uniqBy :: (IsStream t, Monad m) =>
+uniqBy :: (IsStream t, Monad m, Functor (t m)) =>
     (a -> a -> Bool) -> t m a -> t m a
 uniqBy eq =
     catMaybes . rollingMap (\x y -> if x `eq` y then Nothing else Just y)