@@ -33,16 +33,12 @@ type error =
33
33
| Expect_string_literal
34
34
| Expect_int_or_string_or_json_literal
35
35
| Unhandled_poly_type
36
- | Unregistered of string
37
36
| Invalid_underscore_type_in_external
38
37
| Invalid_bs_string_type
39
38
| Invalid_bs_int_type
40
39
| Invalid_bs_unwrap_type
41
40
| Conflict_ffi_attribute of string
42
- | Not_supported_in_bs_deriving
43
- | Canot_infer_arity_by_syntax
44
41
| Illegal_attribute
45
- | Inconsistent_arity of int * int
46
42
(* we still rqeuire users to have explicit annotation to avoid
47
43
{[ (((int -> int) -> int) -> int )]}
48
44
*)
@@ -66,12 +62,6 @@ let pp_error fmt err =
66
62
syntax wise `_ option` for safety"
67
63
| Not_supported_directive_in_bs_return -> " Not supported return directive"
68
64
| 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"
75
65
| Unsupported_predicates -> " unsupported predicates"
76
66
| Conflict_bs_bs_this_bs_meth ->
77
67
" %@this, %@bs, %@meth can not be applied at the same time"
@@ -82,7 +72,6 @@ let pp_error fmt err =
82
72
| Expect_int_or_string_or_json_literal ->
83
73
" expect int, string literal or json literal {json|text here|json} "
84
74
| Unhandled_poly_type -> " Unhandled poly type"
85
- | Unregistered str -> " Unregistered " ^ str
86
75
| Invalid_underscore_type_in_external ->
87
76
" _ is not allowed in combination with external optional type"
88
77
| Invalid_bs_string_type -> " Not a valid type for %@string"
0 commit comments