@@ -59,8 +59,8 @@ module Streamly.Internal.Data.Array
59 -- * Subarrays
59 -- * Subarrays
60 , getSliceUnsafe
60 , getSliceUnsafe
61 -- , getSlice
61 -- , getSlice
62− , genSlicesFromLen
62+ , sliceIndexerFromLen
63− , getSlicesFromLen
63+ , slicerFromLen
66 -- * Streaming Operations
66 -- * Streaming Operations
@@ -75,6 +75,10 @@ module Streamly.Internal.Data.Array
75 , serialize
75 , serialize
76 , pinnedSerialize
76 , pinnedSerialize
77 , deserialize
77 , deserialize
@@ -329,27 +333,41 @@ splitOn predicate arr =
329 fmap (\(i, len) -> getSliceUnsafe i len arr)
333 fmap (\(i, len) -> getSliceUnsafe i len arr)
330 $ D.sliceOnSuffix predicate (A.toStreamD arr)
334 $ D.sliceOnSuffix predicate (A.toStreamD arr)
332−{-# INLINE genSlicesFromLen #-}
336+{-# INLINE sliceIndexerFromLen #-}
337+sliceIndexerFromLen :: forall m a. (Monad m, Unbox a)
338+ => Int -- ^ from index
339+ -> Int -- ^ length of the slice
340+ -> Unfold m (Array a) (Int, Int)
341+sliceIndexerFromLen from len =
342+ Unfold.lmap A.unsafeThaw (MA.sliceIndexerFromLen from len)
344+{-# DEPRECATED genSlicesFromLen "Please use sliceIndexerFromLen instead." #-}
333genSlicesFromLen :: forall m a. (Monad m, Unbox a)
345genSlicesFromLen :: forall m a. (Monad m, Unbox a)
334 => Int -- ^ from index
346 => Int -- ^ from index
335 -> Int -- ^ length of the slice
347 -> Int -- ^ length of the slice
336 -> Unfold m (Array a) (Int, Int)
348 -> Unfold m (Array a) (Int, Int)
337−genSlicesFromLen from len =
349+genSlicesFromLen = sliceIndexerFromLen
338− Unfold.lmap A.unsafeThaw (MA.genSlicesFromLen from len)
340-- | Generate a stream of slices of specified length from an array, starting
351-- | Generate a stream of slices of specified length from an array, starting
341-- from the supplied array index. The last slice may be shorter than the
352-- from the supplied array index. The last slice may be shorter than the
342-- requested length.
353-- requested length.
344-- /Pre-release//
355-- /Pre-release//
345−{-# INLINE getSlicesFromLen #-}
356+{-# INLINE slicerFromLen #-}
346−getSlicesFromLen :: forall m a. (Monad m, Unbox a)
357+slicerFromLen :: forall m a. (Monad m, Unbox a)
347 => Int -- ^ from index
358 => Int -- ^ from index
348 -> Int -- ^ length of the slice
359 -> Int -- ^ length of the slice
349 -> Unfold m (Array a) (Array a)
360 -> Unfold m (Array a) (Array a)
350−getSlicesFromLen from len =
361+slicerFromLen from len =
351 fmap A.unsafeFreeze
362 fmap A.unsafeFreeze
352− $ Unfold.lmap A.unsafeThaw (MA.getSlicesFromLen from len)
363+ $ Unfold.lmap A.unsafeThaw (MA.slicerFromLen from len)
365+{-# DEPRECATED getSlicesFromLen "Please use slicerFromLen instead." #-}
366+getSlicesFromLen :: forall m a. (Monad m, Unbox a)
367+ => Int -- ^ from index
368+ -> Int -- ^ length of the slice
369+ -> Unfold m (Array a) (Array a)
370+getSlicesFromLen = slicerFromLen
354-------------------------------------------------------------------------------
372-------------------------------------------------------------------------------
355-- Random reads and writes
373-- Random reads and writes