Add INLINE annotation on "onArray"
commite25db62db718d494e557319c3adf9e6e542bd625
authorHarendra Kumar <harendra.kumar@gmail.com>
dateMon 7 Oct 2019, 15:51 (7 years ago)
parent1e3259c
benchmark/ArrayOps.hs+1
@@ -276,6 +276,7 @@ sequence :: (S.IsStream t, S.MonadAsync m)
276276 => (t m Int -> S.SerialT m Int) -> t m (m Int) -> m ()
277277 -}
278278
279+{-# INLINE onArray #-}
279280onArray
280281 :: MonadIO m => (S.SerialT m Int -> S.SerialT m Int)
281282 -> Stream Int