Add INLINE pragma on some deprecated functions

On getIndices, flattenArrays etc.

core/src/Streamly/Internal/Data/Array.hs

@@ -328,6 +328,7 @@ sliceIndexerFromLen from len =
     Unfold.lmap unsafeThaw (MA.sliceIndexerFromLen from len)
 
 {-# DEPRECATED genSlicesFromLen "Please use sliceIndexerFromLen instead." #-}
+{-# INLINE genSlicesFromLen #-}
 genSlicesFromLen :: forall m a. (Monad m, Unbox a)
     => Int -- ^ from index
     -> Int -- ^ length of the slice
@@ -349,6 +350,7 @@ slicerFromLen from len =
         $ Unfold.lmap unsafeThaw (MA.slicerFromLen from len)
 
 {-# DEPRECATED getSlicesFromLen "Please use slicerFromLen instead." #-}
+{-# INLINE getSlicesFromLen #-}
 getSlicesFromLen :: forall m a. (Monad m, Unbox a)
     => Int -- ^ from index
     -> Int -- ^ length of the slice
@@ -399,6 +401,7 @@ indexReader m =
 
 -- XXX DO NOT REMOVE, change the signature to use Stream instead of unfold
 {-# DEPRECATED getIndices "Please use getIndices instead." #-}
+{-# INLINE getIndices #-}
 getIndices :: (Monad m, Unbox a) => Stream m Int -> Unfold m (Array a) a
 getIndices = indexReader
 

core/src/Streamly/Internal/Data/Array/Type.hs

@@ -479,6 +479,7 @@ concat = MA.concatWith (pure . unsafeInlineIO) . D.map unsafeThaw
 -- concat = D.unfoldMany reader
 
 {-# DEPRECATED flattenArrays "Please use \"unfoldMany reader\" instead." #-}
+{-# INLINE flattenArrays #-}
 flattenArrays :: forall m a. (MonadIO m, Unbox a)
     => D.Stream m (Array a) -> D.Stream m a
 flattenArrays = concat
@@ -496,6 +497,7 @@ concatRev = MA.concatRevWith (pure . unsafeInlineIO) . D.map unsafeThaw
 -- concatRev = D.unfoldMany readerRev
 
 {-# DEPRECATED flattenArraysRev "Please use \"unfoldMany readerRev\" instead." #-}
+{-# INLINE flattenArraysRev #-}
 flattenArraysRev :: forall m a. (MonadIO m, Unbox a)
     => D.Stream m (Array a) -> D.Stream m a
 flattenArraysRev = concatRev