Yojson 2.1.1 errors can have have incorrect locations

[johnridesabike]

Example:

let () =
  try ignore @@ Yojson.Basic.from_string {|{"badjson": error}|}
  with Yojson.Json_error s -> print_endline s

Output with 2.1.0:

Line 1, bytes 12-18:
Invalid token 'error}'

Output with 2.1.1:

Line 1, bytes 17-18:
Invalid token 'error}'

[ElectreAAS]

Same problem here (example in utop)
With 2.1.0:

# Yojson.Safe.from_string "hello";;
Exception: Yojson.Json_error "Line 1, bytes 0-5:\nInvalid token 'hello'".

With 2.1.1:

# Yojson.Safe.from_string "hello";;
Exception:
Yojson__Common.Json_error "Line 1, bytes 4-5:\nInvalid token 'hello'".

[Leonidas-from-XIV]

Thanks, that's indeed a regression. Would one of you want to submit a test for it?

The only relevant change I can think of is #168, will need to be looked into.

[ElectreAAS]

Would one of you want to submit a test for it?

On it

[Leonidas-from-XIV]

Fixed in #172.