b6b103a · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Make zipWith INLINE

b6b103aHarendra Kumar8 years ago

src/Streamly/Core.hs+2

@@ -1424,6 +1424,7 @@ runWith style f m = do

1424-- Zipping

1425------------------------------------------------------------------------------

1426

1427+{-# INLINE zipWith #-}

1427zipWith :: (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c

1428zipWith :: (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c

1428zipWith f m1 m2 = go m1 m2

1429zipWith f m1 m2 = go m1 m2

1429 where

1430 where

@@ -1436,6 +1437,7 @@ zipWith f m1 m2 = go m1 m2

1436 yield1 a ra = merge a ra

1437 yield1 a ra = merge a ra

1437 (runStream mx) Nothing stp single1 yield1

1438 (runStream mx) Nothing stp single1 yield1

1438

1439

1440+{-# INLINE zipAsyncWith #-}

1439zipAsyncWith :: MonadAsync m

1441zipAsyncWith :: MonadAsync m

1440 => (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c

1442 => (a -> b -> c) -> Stream m a -> Stream m b -> Stream m c

1441zipAsyncWith f m1 m2 = Stream $ \_ stp sng yld -> do

1443zipAsyncWith f m1 m2 = Stream $ \_ stp sng yld -> do