@@ -201,10 +201,10 @@ stringSuspended :: (ByteString -> ByteString)
201 -> Result r
201 -> Result r
202stringSuspended f s0 s t pos more lose succ =
202stringSuspended f s0 s t pos more lose succ =
203 runParser (demandInput_ >>= go) t pos more lose succ
203 runParser (demandInput_ >>= go) t pos more lose succ
204− where go s'0 = T.Parser $ \t' pos' more' lose' succ' ->
204+ where go s'0 = T.Parser $ \t' pos' more' lose' succ' ->
205− let m = B.length s
205+ let m = B.length s
206 s' = f s'0
206 s' = f s'0
207− n = B.length s'
207+ n = B.length s'
208 in if n >= m
208 in if n >= m
209 then if B.unsafeTake m s' == s
209 then if B.unsafeTake m s' == s
210 then succ' t' (pos' + Pos (B.length s0)) more' s0
210 then succ' t' (pos' + Pos (B.length s0)) more' s0