@@ -368,7 +368,7 @@ parseAt :: Parser a -> LB.ByteString -> Int64
368368parseAt p bs n =
369369 case unParser p (mkState bs n) of
370370 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'))
372372 where
373373 showError [""] = "Parser error\n"
374374 showError [msg] = "Parser error, expected:\n" ++ msg ++ "\n"