git.iko.soy/streamly
on master help sign in
Rename getIndicesD to getIndicesWith
commit89a019d252f3cfe4a60bfc11675f2cbce3971fd2 authorHarendra Kumar <harendra@composewell.com> dateSat 30 Dec 2023, 09:50 (3 years ago) parent1ec583c
2 files changed+11−11
compare with master
unifiedsplit
core/src/Streamly/Internal/Data/Array.hs+1−1 core/src/Streamly/Internal/Data/MutArray/Type.hs+10−10
core/src/Streamly/Internal/Data/Array.hs+1−1
@@ -408,7 +408,7 @@ getIndex i arr =
408408{-# INLINE getIndices #-}
409409getIndices :: (Monad m, Unbox a) => Stream m Int -> Unfold m (Array a) a
410410getIndices m =
411− let unf = MA.getIndicesD (return . unsafeInlineIO) m
411+ let unf = MA.getIndicesWith (return . unsafeInlineIO) m
412412 in Unfold.lmap A.unsafeThaw unf
413413
414414-- | Unfolds @(from, then, to, array)@ generating a finite stream whose first
core/src/Streamly/Internal/Data/MutArray/Type.hs+10−10
@@ -142,7 +142,7 @@ module Streamly.Internal.Data.MutArray.Type
142142 , getIndex
143143 , getIndexUnsafe
144144 , getIndices
145− , getIndicesD
145+ , getIndicesWith
146146 -- , getFromThenTo
147147 , getIndexRev
148148
@@ -1051,15 +1051,10 @@ getIndexRev i MutArray{..} = do
10511051data GetIndicesState contents start end st =
10521052 GetIndicesState contents start end st
10531053
1054−-- | Given an unfold that generates array indices, read the elements on those
1055−-- indices from the supplied MutArray. An error is thrown if an index is out of
1056−-- bounds.
1057−--
1058−-- /Pre-release/
1059−{-# INLINE getIndicesD #-}
1060−getIndicesD :: (Monad m, Unbox a) =>
1054+{-# INLINE getIndicesWith #-}
1055+getIndicesWith :: (Monad m, Unbox a) =>
10611056 (forall b. IO b -> m b) -> D.Stream m Int -> Unfold m (MutArray a) a
1062−getIndicesD liftio (D.Stream stepi sti) = Unfold step inject
1057+getIndicesWith liftio (D.Stream stepi sti) = Unfold step inject
10631058
10641059 where
10651060
@@ -1078,9 +1073,14 @@ getIndicesD liftio (D.Stream stepi sti) = Unfold step inject
10781073 D.Skip s -> return $ D.Skip (GetIndicesState contents start end s)
10791074 D.Stop -> return D.Stop
10801075
1076+-- | Given an unfold that generates array indices, read the elements on those
1077+-- indices from the supplied MutArray. An error is thrown if an index is out of
1078+-- bounds.
1079+--
1080+-- /Pre-release/
10811081{-# INLINE getIndices #-}
10821082getIndices :: (MonadIO m, Unbox a) => Stream m Int -> Unfold m (MutArray a) a
1083−getIndices = getIndicesD liftIO
1083+getIndices = getIndicesWith liftIO
10841084
10851085-------------------------------------------------------------------------------
10861086-- Subarrays