@@ -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