git.iko.soy/streamly
on master help sign in
Add takeStartBy_ parser
45e34b0Harendra Kumar
core/src/Streamly/Internal/Data/Parser.hs+5−3
compare with master
unifiedsplit
@@ -113,7 +113,7 @@ module Streamly.Internal.Data.Parser
113 , takeEndByEsc
113 , takeEndByEsc
114 -- , takeEndByEsc_
114 -- , takeEndByEsc_
115 , takeStartBy
115 , takeStartBy
116− -- , takeStartBy_
116+ , takeStartBy_
117 , takeEitherSepBy
117 , takeEitherSepBy
118 , wordBy
118 , wordBy
119 -- , wordByEsc
119 -- , wordByEsc
@@ -742,11 +742,13 @@ takeEitherSepBy _cond = undefined -- D.toParserK . D.takeEitherSepBy cond
742takeStartBy :: MonadCatch m => (a -> Bool) -> Fold m a b -> Parser m a b
742takeStartBy :: MonadCatch m => (a -> Bool) -> Fold m a b -> Parser m a b
743takeStartBy cond = D.toParserK . D.takeStartBy cond
743takeStartBy cond = D.toParserK . D.takeStartBy cond
744
744
745−{-
745+-- | Like 'takeStartBy' but drops the separator.
746+--
747+-- >>> takeStartBy_ isBegin = Parser.takeFramedByGeneric Nothing (Just isBegin) Nothing
748+--
746{-# INLINE takeStartBy_ #-}
749{-# INLINE takeStartBy_ #-}
747takeStartBy_ :: MonadCatch m => (a -> Bool) -> Fold m a b -> Parser m a b
750takeStartBy_ :: MonadCatch m => (a -> Bool) -> Fold m a b -> Parser m a b
748takeStartBy_ isBegin = takeFramedByGeneric Nothing (Just isBegin) Nothing
751takeStartBy_ isBegin = takeFramedByGeneric Nothing (Just isBegin) Nothing
749−-}
750
752
751-------------------------------------------------------------------------------
753-------------------------------------------------------------------------------
752-- Quoting and Escaping
754-- Quoting and Escaping