composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-20 07:58:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix sliceSepByMax.

Browse Source
This commit is contained in:
Pranay Sashank 2020-05-18 11:55:33 +05:30
parent df6d8e0b04
commit 12ca6eeba5
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Streamly/Internal/Data/Parser/ParserD.hs
View File

@ -505,15 +505,17 @@ sliceSepByMax predicate cnt (Fold fstep finitial fextract) =
where
initial = Tuple' 0 <$> finitial
step (Tuple' i r) a = do
res <- fstep r a
let i1 = i + 1
s1 = Tuple' i1 res
if not (predicate a) && i1 < cnt
then return $ Yield 0 s1
else do
b <- fextract res
return $ Stop 0 b
step (Tuple' i r) a
| not (predicate a) = do
res <- fstep r a
let i1 = i + 1
s1 = Tuple' i1 res
if i1 < cnt
then return $ Yield 0 s1
else do
b <- fextract res
return $ Stop 0 b
| otherwise = Stop 0 <$> fextract r
extract (Tuple' _ r) = fextract r
-- | See 'Streamly.Internal.Data.Parser.wordBy'.