Rename foldBreakChunksK to foldBreak in Array module

Author: harendra-kumar

benchmark/Streamly/Benchmark/Data/Array/Stream.hs

@@ -234,7 +234,7 @@ drainWhile p = Parser.takeWhile p Fold.drain
 
 {-# INLINE fold #-}
 fold :: Stream IO (Array.Array Int) -> IO ()
-fold s = void $ Array.foldBreakChunksK Fold.drain $ StreamK.fromStream s
+fold s = void $ Array.foldBreak Fold.drain $ StreamK.fromStream s
 
 {-# INLINE parse #-}
 parse :: Int -> Stream IO (Array.Array Int) -> IO ()
@@ -244,7 +244,7 @@ parse value s =
 {-# INLINE foldBreak #-}
 foldBreak :: StreamK IO (Array.Array Int) -> IO ()
 foldBreak s = do
-    (r, s1) <- Array.foldBreakChunksK Fold.one s
+    (r, s1) <- Array.foldBreak Fold.one s
     when (isJust r) $ foldBreak s1
 
 {-# INLINE parseBreak #-}

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

@@ -73,7 +73,7 @@ module Streamly.Internal.Data.Array
     -- * Parsing Stream of Arrays
     , foldBreakChunks -- Uses Stream, bad perf on break
     , foldChunks
-    , foldBreakChunksK -- XXX rename to foldBreak
+    , foldBreak
     , parseBreakChunksK -- XXX uses Parser. parseBreak is better?
     , parserK
     , parseBreak
@@ -105,6 +105,7 @@ module Streamly.Internal.Data.Array
     , compactOnByteSuffix
     , splitOn
     , fold
+    , foldBreakChunksK
     )
 where
 
@@ -721,14 +722,14 @@ foldChunks f s = fmap fst (foldBreakChunks f s)
 --
 -- We can compare perf and remove this one or define it in terms of that.
 --
-foldBreakChunksK :: forall m a b. (MonadIO m, Unbox a) =>
+foldBreak, foldBreakChunksK :: forall m a b. (MonadIO m, Unbox a) =>
     Fold m a b -> StreamK m (Array a) -> m (b, StreamK m (Array a))
 {-
 foldBreakChunksK f s =
       fmap (first (fromRight undefined))
     $ StreamK.parseBreakChunks (ParserK.adaptC (Parser.fromFold f)) s
 -}
-foldBreakChunksK (Fold fstep initial _ final) stream = do
+foldBreak (Fold fstep initial _ final) stream = do
     res <- initial
     case res of
         Fold.Partial fs -> go fs stream
@@ -758,6 +759,8 @@ foldBreakChunksK (Fold fstep initial _ final) stream = do
                 return $! (b, StreamK.cons arr st)
             Fold.Partial fs1 -> goArray fs1 st fp next
 
+RENAME(foldBreakChunksK,foldBreak)
+
 {-
 -- This can be generalized to any type provided it can be unfolded to a stream
 -- and it can be combined using a semigroup operation.