Meaningless formatting tweaks
commited4aa1b67912235a540ef300bf768f07bd7f38cd
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 27 Mar 2015, 17:37 (12 years ago)
parent4b7b596
Data/Attoparsec/ByteString/Internal.hs+3−3
@@ -201,10 +201,10 @@ stringSuspended :: (ByteString -> ByteString)
201201 -> Result r
202202stringSuspended f s0 s t pos more lose succ =
203203 runParser (demandInput_ >>= go) t pos more lose succ
204− where go s'0 = T.Parser $ \t' pos' more' lose' succ' ->
205− let m = B.length s
204+ where go s'0 = T.Parser $ \t' pos' more' lose' succ' ->
205+ let m = B.length s
206206 s' = f s'0
207− n = B.length s'
207+ n = B.length s'
208208 in if n >= m
209209 then if B.unsafeTake m s' == s
210210 then succ' t' (pos' + Pos (B.length s0)) more' s0