git.iko.soy/typeable/attoparsec
on master help sign in
Add laziness.
173d2e5Bryan O'Sullivan
src/Data/ParserCombinators/Attoparsec/Internal.hs+1−1
compare with master
unifiedsplit
@@ -368,7 +368,7 @@ parseAt :: Parser a -> LB.ByteString -> Int64
368parseAt p bs n =
368parseAt p bs n =
369 case unParser p (mkState bs n) of
369 case unParser p (mkState bs n) of
370 Left (bs', msg) -> (bs', Left $ showError msg)
370 Left (bs', msg) -> (bs', Left $ showError msg)
371− Right (a, S sb lb n') -> (sb +: lb, Right (a, n'))
371+ Right (a, ~(S sb lb n')) -> (sb +: lb, Right (a, n'))
372 where
372 where
373 showError [""] = "Parser error\n"
373 showError [""] = "Parser error\n"
374 showError [msg] = "Parser error, expected:\n" ++ msg ++ "\n"
374 showError [msg] = "Parser error, expected:\n" ++ msg ++ "\n"