@@ -1485,6 +1485,7 @@ mapMaybeMSerial f m = fromStreamD $ D.mapMaybeM f $ toStreamD m
14851485--
14861486-- /Pre-release/
14871487--
1488+{-# INLINE catMaybes #-}
14881489catMaybes :: (IsStream t, Monad m, Functor (t m)) => t m (Maybe a) -> t m a
14891490catMaybes = fmap fromJust . filter isJust
14901491
@@ -1496,6 +1497,7 @@ catMaybes = fmap fromJust . filter isJust
14961497--
14971498-- /Pre-release/
14981499--
1500+{-# INLINE lefts #-}
14991501lefts :: (IsStream t, Monad m, Functor (t m)) => t m (Either a b) -> t m a
15001502lefts = fmap (fromLeft undefined) . filter isLeft
15011503
@@ -1503,6 +1505,7 @@ lefts = fmap (fromLeft undefined) . filter isLeft
15031505--
15041506-- /Pre-release/
15051507--
1508+{-# INLINE rights #-}
15061509rights :: (IsStream t, Monad m, Functor (t m)) => t m (Either a b) -> t m b
15071510rights = fmap (fromRight undefined) . filter isRight
15081511