git.iko.soy/streamly
on master help sign in
Add INLINE pragma on some deprecated functions

On getIndices, flattenArrays etc.

commitfc6121945005a06ce1447776edbc2aaede95fd68 authorHarendra Kumar <harendra@composewell.com> dateTue 9 Jan 2024, 08:42 (3 years ago) parent8e8159f
2 files changed+5
compare with master
unifiedsplit
core/src/Streamly/Internal/Data/Array.hs+3 core/src/Streamly/Internal/Data/Array/Type.hs+2
core/src/Streamly/Internal/Data/Array.hs+3
@@ -328,6 +328,7 @@ sliceIndexerFromLen from len =
328328 Unfold.lmap unsafeThaw (MA.sliceIndexerFromLen from len)
329329
330330{-# DEPRECATED genSlicesFromLen "Please use sliceIndexerFromLen instead." #-}
331+{-# INLINE genSlicesFromLen #-}
331332genSlicesFromLen :: forall m a. (Monad m, Unbox a)
332333 => Int -- ^ from index
333334 -> Int -- ^ length of the slice
@@ -349,6 +350,7 @@ slicerFromLen from len =
349350 $ Unfold.lmap unsafeThaw (MA.slicerFromLen from len)
350351
351352{-# DEPRECATED getSlicesFromLen "Please use slicerFromLen instead." #-}
353+{-# INLINE getSlicesFromLen #-}
352354getSlicesFromLen :: forall m a. (Monad m, Unbox a)
353355 => Int -- ^ from index
354356 -> Int -- ^ length of the slice
@@ -399,6 +401,7 @@ indexReader m =
399401
400402-- XXX DO NOT REMOVE, change the signature to use Stream instead of unfold
401403{-# DEPRECATED getIndices "Please use getIndices instead." #-}
404+{-# INLINE getIndices #-}
402405getIndices :: (Monad m, Unbox a) => Stream m Int -> Unfold m (Array a) a
403406getIndices = indexReader
404407
core/src/Streamly/Internal/Data/Array/Type.hs+2
@@ -479,6 +479,7 @@ concat = MA.concatWith (pure . unsafeInlineIO) . D.map unsafeThaw
479479-- concat = D.unfoldMany reader
480480
481481{-# DEPRECATED flattenArrays "Please use \"unfoldMany reader\" instead." #-}
482+{-# INLINE flattenArrays #-}
482483flattenArrays :: forall m a. (MonadIO m, Unbox a)
483484 => D.Stream m (Array a) -> D.Stream m a
484485flattenArrays = concat
@@ -496,6 +497,7 @@ concatRev = MA.concatRevWith (pure . unsafeInlineIO) . D.map unsafeThaw
496497-- concatRev = D.unfoldMany readerRev
497498
498499{-# DEPRECATED flattenArraysRev "Please use \"unfoldMany readerRev\" instead." #-}
500+{-# INLINE flattenArraysRev #-}
499501flattenArraysRev :: forall m a. (MonadIO m, Unbox a)
500502 => D.Stream m (Array a) -> D.Stream m a
501503flattenArraysRev = concatRev