rename adapt to parserK

Author: harendra-kumar

core/src/Streamly/Data/ParserK.hs

@@ -134,13 +134,13 @@ import Streamly.Internal.Data.ParserK
 
 #include "DocTestDataParserK.hs"
 
-{-# DEPRECATED fromFold "Please use \"Array.adapt . Parser.fromFold\" instead." #-}
+{-# DEPRECATED fromFold "Please use \"Array.parserK . Parser.fromFold\" instead." #-}
 {-# INLINE fromFold #-}
 fromFold :: (MonadIO m, Unbox a) => Fold m a b -> ParserK (Array a) m b
-fromFold = Array.adapt . ParserD.fromFold
+fromFold = Array.parserK . ParserD.fromFold
 
-{-# DEPRECATED fromParser "Please use \"Array.adapt\" instead." #-}
+{-# DEPRECATED fromParser "Please use \"Array.parserK\" instead." #-}
 {-# INLINE fromParser #-}
 fromParser ::
        (MonadIO m, Unbox a) => ParserD.Parser a m b -> ParserK (Array a) m b
-fromParser = Array.adapt
+fromParser = Array.parserK

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

@@ -74,10 +74,10 @@ module Streamly.Internal.Data.Array
     , foldBreakChunks -- Uses Stream, bad perf on break
     , foldChunks
     , foldBreakChunksK -- XXX rename to foldBreak
-    , parseBreakChunksK -- XXX uses Parser, should use parseBreak instead
+    , parseBreakChunksK -- XXX uses Parser. parseBreak is better?
+    , parserK
     , parseBreak
     , parse
-    , adapt
 
     -- * Serialization
     , encodeAs
@@ -1260,7 +1260,7 @@ adaptCWith pstep initial extract cont !offset0 !usedCount !input = do
 --
 -- /Pre-release/
 --
-{-# INLINE_LATE adapt #-}
-adapt :: (Monad m, Unbox a) => ParserD.Parser a m b -> ParserK (Array a) m b
-adapt (ParserD.Parser step initial extract) =
+{-# INLINE_LATE parserK #-}
+parserK :: (Monad m, Unbox a) => ParserD.Parser a m b -> ParserK (Array a) m b
+parserK (ParserD.Parser step initial extract) =
     ParserK.MkParser $ adaptCWith step initial extract

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

@@ -46,7 +46,7 @@ module Streamly.Internal.Data.Array.Generic
     , dropAround
 
     -- * Parsing Stream of Arrays
-    , adapt
+    , parserK
     , parse
     , parseBreak
 
@@ -651,7 +651,7 @@ adaptCGWith pstep initial extract cont !offset0 !usedCount !input = do
 --
 -- /Pre-release/
 --
-{-# INLINE_LATE adapt #-}
-adapt :: Monad m => ParserD.Parser a m b -> ParserK (Array a) m b
-adapt (ParserD.Parser step initial extract) =
+{-# INLINE_LATE parserK #-}
+parserK :: Monad m => ParserD.Parser a m b -> ParserK (Array a) m b
+parserK (ParserD.Parser step initial extract) =
     ParserK.MkParser $ adaptCGWith step initial extract

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

@@ -27,13 +27,13 @@ import qualified Streamly.Internal.Data.Array.Generic as GenArray
 
 #include "inline.hs"
 
-{-# DEPRECATED adaptC "Use Streamly.Data.Array.adapt" #-}
+{-# DEPRECATED adaptC "Use Streamly.Data.Array.parserK" #-}
 {-# INLINE_LATE adaptC #-}
 adaptC :: (Monad m, Unbox a) => Parser a m b -> ParserK (Array a) m b
-adaptC = Array.adapt
+adaptC = Array.parserK
 
-{-# DEPRECATED adaptCG "Use Streamly.Data.Array.Generic.adaptCG" #-}
+{-# DEPRECATED adaptCG "Use Streamly.Data.Array.Generic.parserK" #-}
 {-# INLINE_LATE adaptCG #-}
 adaptCG ::
        Monad m => Parser a m b -> ParserK (GenArray.Array a) m b
-adaptCG = GenArray.adapt
+adaptCG = GenArray.parserK

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

@@ -27,7 +27,7 @@ module Streamly.Internal.Data.ParserK.Type
     , Input (..)
     , ParseResult (..)
     , ParserK (..)
-    , adapt
+    , adapt -- XXX rename to parserK, like in Arrays?
     , toParser -- XXX unParserK, unK, unPK
     , fromPure
     , fromEffect
@@ -476,8 +476,8 @@ adapt (ParserD.Parser step initial extract) =
 {-# INLINE parserDone #-}
 parserDone :: Applicative m =>
     ParseResult b -> Int -> Input a -> m (Step a m b)
-parserDone (Success n b) _ _ = pure $ assert(n <= 1) (Done n b)
-parserDone (Failure n e) _ _ = pure $ assert(n <= 1) (Error n e)
+parserDone (Success n b) _ _ = assert(n <= 1) `seq` pure (Done n b)
+parserDone (Failure n e) _ _ = assert(n <= 1) `seq` pure (Error n e)
 
 -- XXX Note that this works only for single element parsers and not for Array
 -- input parsers. The asserts will fail for array parsers.