@@ -33,16 +33,12 @@ type error =
3333 | Expect_string_literal
3434 | Expect_int_or_string_or_json_literal
3535 | Unhandled_poly_type
36- | Unregistered of string
3736 | Invalid_underscore_type_in_external
3837 | Invalid_bs_string_type
3938 | Invalid_bs_int_type
4039 | Invalid_bs_unwrap_type
4140 | Conflict_ffi_attribute of string
42- | Not_supported_in_bs_deriving
43- | Canot_infer_arity_by_syntax
4441 | Illegal_attribute
45- | Inconsistent_arity of int * int
4642 (* we still rqeuire users to have explicit annotation to avoid
4743 {[ (((int -> int) -> int) -> int )]}
4844 *)
@@ -66,12 +62,6 @@ let pp_error fmt err =
6662 syntax wise `_ option` for safety"
6763 | Not_supported_directive_in_bs_return -> " Not supported return directive"
6864 | Illegal_attribute -> " Illegal attributes"
69- | Canot_infer_arity_by_syntax ->
70- " Cannot infer the arity through the syntax, either [%@uncurry n] or \n \
71- write it in arrow syntax "
72- | Inconsistent_arity (arity , n ) ->
73- Printf. sprintf " Inconsistent arity %d vs %d" arity n
74- | Not_supported_in_bs_deriving -> " not supported in deriving"
7565 | Unsupported_predicates -> " unsupported predicates"
7666 | Conflict_bs_bs_this_bs_meth ->
7767 " %@this, %@bs, %@meth can not be applied at the same time"
@@ -82,7 +72,6 @@ let pp_error fmt err =
8272 | Expect_int_or_string_or_json_literal ->
8373 " expect int, string literal or json literal {json|text here|json} "
8474 | Unhandled_poly_type -> " Unhandled poly type"
85- | Unregistered str -> " Unregistered " ^ str
8675 | Invalid_underscore_type_in_external ->
8776 " _ is not allowed in combination with external optional type"
8877 | Invalid_bs_string_type -> " Not a valid type for %@string"
0 commit comments