Source file `raise.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
let unsupported_payload ~loc =
  Location.raise_errorf ~loc "ppx_yojson: unsupported payload"

let unsupported_record_field ~loc =
  Location.raise_errorf ~loc "ppx_yojson: unsupported record field"

let too_many_fields_in_record_pattern ~loc =
  Location.raise_errorf ~loc
    "ppx_yojson: record patterns with more than 4 fields aren't supported. \
     Consider using ppx_deriving_yojson to handle more complex json objects."

let bad_expr_antiquotation_payload ~loc =
  Location.raise_errorf ~loc
    "ppx_yojson: bad antiquotation payload, should be a single expression"

let bad_pat_antiquotation_payload ~loc =
  Location.raise_errorf ~loc
    "ppx_yojson: bad antiquotation payload, should be a pattern"