@@ -1485,6 +1485,7 @@ mapMaybeMSerial f m = fromStreamD $ D.mapMaybeM f $ toStreamD m
1486-- /Pre-release/
1486-- /Pre-release/
1488+{-# INLINE catMaybes #-}
1488catMaybes :: (IsStream t, Monad m, Functor (t m)) => t m (Maybe a) -> t m a
1489catMaybes :: (IsStream t, Monad m, Functor (t m)) => t m (Maybe a) -> t m a
1489catMaybes = fmap fromJust . filter isJust
1490catMaybes = fmap fromJust . filter isJust
@@ -1496,6 +1497,7 @@ catMaybes = fmap fromJust . filter isJust
1497-- /Pre-release/
1498-- /Pre-release/
1500+{-# INLINE lefts #-}
1499lefts :: (IsStream t, Monad m, Functor (t m)) => t m (Either a b) -> t m a
1501lefts :: (IsStream t, Monad m, Functor (t m)) => t m (Either a b) -> t m a
1500lefts = fmap (fromLeft undefined) . filter isLeft
1502lefts = fmap (fromLeft undefined) . filter isLeft
@@ -1503,6 +1505,7 @@ lefts = fmap (fromLeft undefined) . filter isLeft
1504-- /Pre-release/
1506-- /Pre-release/
1508+{-# INLINE rights #-}
1506rights :: (IsStream t, Monad m, Functor (t m)) => t m (Either a b) -> t m b
1509rights :: (IsStream t, Monad m, Functor (t m)) => t m (Either a b) -> t m b
1507rights = fmap (fromRight undefined) . filter isRight
1510rights = fmap (fromRight undefined) . filter isRight