@@ -187,7 +187,7 @@ satisfy :: (Word8 -> Bool) -> Parser Word8
187187satisfy p =
188188 Parser $ \s@(S sb lb n) ->
189189 case SB.uncons sb of
190− Just (c, sb') | p c -> Right (c, S sb' lb (n + 1))
190+ Just (c, sb') | p c -> Right (c, mkState (sb' +: lb) (n + 1))
191191 | otherwise -> Left (sb +: lb, [])
192192 Nothing -> unParser (nextChunk >> satisfy p) s
193193{-# INLINE satisfy #-}