@@ -1424,6 +1424,7 @@ runWith style f m = do
14241424-- Zipping
14251425------------------------------------------------------------------------------
14261426
1427+{-# INLINE zipWith #-}
14271428zipWith :: (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c
14281429zipWith f m1 m2 = go m1 m2
14291430 where
@@ -1436,6 +1437,7 @@ zipWith f m1 m2 = go m1 m2
14361437 yield1 a ra = merge a ra
14371438 (runStream mx) Nothing stp single1 yield1
14381439
1440+{-# INLINE zipAsyncWith #-}
14391441zipAsyncWith :: MonadAsync m
14401442 => (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c
14411443zipAsyncWith f m1 m2 = Stream $ \_ stp sng yld -> do