@@ -424,7 +424,7 @@ noErrorUnsafeSplitWith func (Parser stepL initialL extractL)
424424 -- Assume that the first parser can never fail, therefore we do not
425425 -- need to keep the input for backtracking.
426426 Partial n s -> return $ Partial n (SeqParseL s)
427− Continue n s -> return $ Partial n (SeqParseL s)
427+ Continue n s -> return $ Continue n (SeqParseL s)
428428 Done n b -> do
429429 res <- initialR
430430 return
@@ -438,7 +438,7 @@ noErrorUnsafeSplitWith func (Parser stepL initialL extractL)
438438 r <- stepR st a
439439 return $ case r of
440440 Partial n s -> Partial n (SeqParseR f s)
441− Continue n s -> Partial n (SeqParseR f s)
441+ Continue n s -> Continue n (SeqParseR f s)
442442 Done n b -> Done n (f b)
443443 Error err -> Error err
444444