@@ -36,9 +36,9 @@ module Streamly.Internal.Data.Stream.Eliminate
3636 -- * Running a 'Parser'
3737 -- "Streamly.Internal.Data.Parser".
3838 , parse
39− , parseK
39+ --, parseK
4040 , parseD
41− , parseBreak
41+ --, parseBreak
4242 , parseBreakD
4343
4444 -- * Stream Deconstruction
@@ -81,6 +81,7 @@ import Control.Monad.IO.Class (MonadIO(..))
8181import Foreign.Storable (Storable)
8282import Streamly.Internal.Data.Parser (Parser (..), ParseError (..))
8383import Streamly.Internal.Data.Unboxed (Unbox)
84+import Streamly.Internal.Data.Stream.Type (Stream)
8485
8586import qualified Streamly.Internal.Data.Array.Type as Array
8687import qualified Streamly.Internal.Data.Fold as Fold
@@ -91,7 +92,7 @@ import qualified Streamly.Internal.Data.Stream.StreamK.Type as K
9192import qualified Streamly.Internal.Data.Stream.StreamK as K
9293
9394import Streamly.Internal.Data.Stream.Bottom
94−import Streamly.Internal.Data.Stream.Type
95+import Streamly.Internal.Data.Stream.Type hiding (Stream)
9596
9697import Prelude hiding (foldr, init, reverse)
9798
@@ -224,9 +225,9 @@ parseD p = D.parseD p . toStreamD
224225-- | Parse a stream using the supplied ParserK 'PRK.Parser'.
225226--
226227-- /Internal/
227−{-# INLINE parseK #-}
228−parseK :: Monad m => PRK.Parser a m b -> Stream m a -> m (Either ParseError b)
229−parseK = parse
228+--{-# INLINE parseK #-}
229+--parseK :: Monad m => PRK.Parser a m b -> Stream m a -> m (Either ParseError b)
230+--parseK = parse
230231
231232-- | Parse a stream using the supplied 'Parser'.
232233--
@@ -242,7 +243,7 @@ parseK = parse
242243--
243244{-# INLINE [3] parse #-}
244245parse :: Monad m => Parser a m b -> Stream m a -> m (Either ParseError b)
245−parse = parseD . PRD.fromParserK
246+parse = parseD
246247
247248{-# INLINE_NORMAL parseBreakD #-}
248249parseBreakD :: Monad m =>
@@ -255,13 +256,9 @@ parseBreakD parser strm = do
255256--
256257-- /CPS/
257258--
258−{-# INLINE parseBreak #-}
259−parseBreak :: Monad m => Parser a m b -> Stream m a -> m (Either ParseError b, Stream m a)
260−parseBreak p strm = fmap f $ K.parseBreak p (toStreamK strm)
261−
262− where
263−
264− f (b, str) = (b, fromStreamK str)
259+--{-# INLINE parseBreak #-}
260+--parseBreak :: Monad m => Parser a m b -> Stream m a -> m (Either ParseError b, Stream m a)
261+--parseBreak p strm = D.parseBreak p strm
265262
266263------------------------------------------------------------------------------
267264-- Multi-stream folds