git.iko.soy/streamly
on master help sign in
Add INLINE pragma on some deprecated functions
fc61219Harendra Kumar
core/src/Streamly/Internal/Data/Array.hs+3
compare with master
unifiedsplit
@@ -328,6 +328,7 @@ sliceIndexerFromLen from len =
328 Unfold.lmap unsafeThaw (MA.sliceIndexerFromLen from len)
328 Unfold.lmap unsafeThaw (MA.sliceIndexerFromLen from len)
329
329
330{-# DEPRECATED genSlicesFromLen "Please use sliceIndexerFromLen instead." #-}
330{-# DEPRECATED genSlicesFromLen "Please use sliceIndexerFromLen instead." #-}
331+{-# INLINE genSlicesFromLen #-}
331genSlicesFromLen :: forall m a. (Monad m, Unbox a)
332genSlicesFromLen :: forall m a. (Monad m, Unbox a)
332 => Int -- ^ from index
333 => Int -- ^ from index
333 -> Int -- ^ length of the slice
334 -> Int -- ^ length of the slice
@@ -349,6 +350,7 @@ slicerFromLen from len =
349 $ Unfold.lmap unsafeThaw (MA.slicerFromLen from len)
350 $ Unfold.lmap unsafeThaw (MA.slicerFromLen from len)
350
351
351{-# DEPRECATED getSlicesFromLen "Please use slicerFromLen instead." #-}
352{-# DEPRECATED getSlicesFromLen "Please use slicerFromLen instead." #-}
353+{-# INLINE getSlicesFromLen #-}
352getSlicesFromLen :: forall m a. (Monad m, Unbox a)
354getSlicesFromLen :: forall m a. (Monad m, Unbox a)
353 => Int -- ^ from index
355 => Int -- ^ from index
354 -> Int -- ^ length of the slice
356 -> Int -- ^ length of the slice
@@ -399,6 +401,7 @@ indexReader m =
399
401
400-- XXX DO NOT REMOVE, change the signature to use Stream instead of unfold
402-- XXX DO NOT REMOVE, change the signature to use Stream instead of unfold
401{-# DEPRECATED getIndices "Please use getIndices instead." #-}
403{-# DEPRECATED getIndices "Please use getIndices instead." #-}
404+{-# INLINE getIndices #-}
402getIndices :: (Monad m, Unbox a) => Stream m Int -> Unfold m (Array a) a
405getIndices :: (Monad m, Unbox a) => Stream m Int -> Unfold m (Array a) a
403getIndices = indexReader
406getIndices = indexReader
404
407
core/src/Streamly/Internal/Data/Array/Type.hs+2
@@ -479,6 +479,7 @@ concat = MA.concatWith (pure . unsafeInlineIO) . D.map unsafeThaw
479-- concat = D.unfoldMany reader
479-- concat = D.unfoldMany reader
480
480
481{-# DEPRECATED flattenArrays "Please use \"unfoldMany reader\" instead." #-}
481{-# DEPRECATED flattenArrays "Please use \"unfoldMany reader\" instead." #-}
482+{-# INLINE flattenArrays #-}
482flattenArrays :: forall m a. (MonadIO m, Unbox a)
483flattenArrays :: forall m a. (MonadIO m, Unbox a)
483 => D.Stream m (Array a) -> D.Stream m a
484 => D.Stream m (Array a) -> D.Stream m a
484flattenArrays = concat
485flattenArrays = concat
@@ -496,6 +497,7 @@ concatRev = MA.concatRevWith (pure . unsafeInlineIO) . D.map unsafeThaw
496-- concatRev = D.unfoldMany readerRev
497-- concatRev = D.unfoldMany readerRev
497
498
498{-# DEPRECATED flattenArraysRev "Please use \"unfoldMany readerRev\" instead." #-}
499{-# DEPRECATED flattenArraysRev "Please use \"unfoldMany readerRev\" instead." #-}
500+{-# INLINE flattenArraysRev #-}
499flattenArraysRev :: forall m a. (MonadIO m, Unbox a)
501flattenArraysRev :: forall m a. (MonadIO m, Unbox a)
500 => D.Stream m (Array a) -> D.Stream m a
502 => D.Stream m (Array a) -> D.Stream m a
501flattenArraysRev = concatRev
503flattenArraysRev = concatRev