Skip to content

Commit 54d8015

Browse files
authored
Remove some unused syntax error cases (#7427)
1 parent fb3a6bd commit 54d8015

File tree

2 files changed

+0
-15
lines changed

2 files changed

+0
-15
lines changed

compiler/frontend/bs_syntaxerr.ml

-11
Original file line numberDiff line numberDiff line change
@@ -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"

compiler/frontend/bs_syntaxerr.mli

-4
Original file line numberDiff line numberDiff line change
@@ -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
*)

0 commit comments

Comments
 (0)