File tree Expand file tree Collapse file tree 7 files changed +11
-17
lines changed Expand file tree Collapse file tree 7 files changed +11
-17
lines changed Original file line number Diff line number Diff line change @@ -630,7 +630,7 @@ let descriptions =
630
630
(101 , " Unused bs attributes" );
631
631
(102 , " Polymorphic comparison introduced (maybe unsafe)" );
632
632
(103 , " Fragile FFI definitions" );
633
- (104 , " bs. deriving warning with customized message " );
633
+ (104 , " @ deriving warning with customized message " );
634
634
( 105 ,
635
635
" External name is inferred from val name is unsafe from refactoring when \
636
636
changing value name" );
Original file line number Diff line number Diff line change @@ -169,7 +169,7 @@ let process_derive_type (attrs : t) : derive_attr * t =
169
169
({bs_deriving = None }, [] )
170
170
(fun (st , acc ) (({txt; loc} , payload ) as attr ) ->
171
171
match txt with
172
- | "bs.deriving" | " deriving" -> (
172
+ | "deriving" -> (
173
173
match st.bs_deriving with
174
174
| None ->
175
175
( {
Original file line number Diff line number Diff line change @@ -78,7 +78,7 @@ let pp_error fmt err =
78
78
| Unsupported_predicates -> " unsupported predicates"
79
79
| Conflict_bs_bs_this_bs_meth ->
80
80
" %@this, %@bs, %@meth can not be applied at the same time"
81
- | Duplicated_bs_deriving -> " duplicate bs. deriving attribute"
81
+ | Duplicated_bs_deriving -> " duplicate @ deriving attribute"
82
82
| Conflict_attributes -> " conflicting attributes "
83
83
| Expect_string_literal -> " expect string literal "
84
84
| Expect_int_literal -> " expect int literal "
Original file line number Diff line number Diff line change @@ -271,7 +271,7 @@ let rec y = A y;;
271
271
end;
272
272
__LOC__ > :: begin fun _ ->
273
273
let should_err = bsc_check_eval {|
274
- type -'a t = {k : 'a } [@@ bs. deriving abstract ]
274
+ type -'a t = {k : 'a } [@@ deriving abstract ]
275
275
|} in
276
276
OUnit .assert_bool __LOC__
277
277
(Ext_string .contain_substring should_err .stderr "contravariant" )
Original file line number Diff line number Diff line change @@ -37,7 +37,7 @@ let () = {
37
37
| A
38
38
| B [@as 3]
39
39
| C
40
- [@@bs. deriving {jsConverter = newType}]
40
+ [@@deriving {jsConverter = newType}]
41
41
42
42
let id x =
43
43
eq __LOC__ (aFromJs (aToJs x )) x
@@ -54,7 +54,7 @@ let a1 = aToJs B */
54
54
| D1
55
55
| D2
56
56
| D3
57
- [@@bs. deriving {jsConverter = newType }]
57
+ [@@deriving {jsConverter = newType }]
58
58
59
59
60
60
let b0 = bToJs D0
@@ -70,7 +70,7 @@ let () = idb D0; idb D1; idb D2 ; idb D3 */
70
70
| D1
71
71
| D2
72
72
| D3
73
- [@@bs. deriving {jsConverter = {newType }}]
73
+ [@@deriving {jsConverter = {newType }}]
74
74
75
75
let c0 = cToJs D0
76
76
@@ -80,14 +80,14 @@ let () = idc D0; idc D1 ; idc D2; idc D3 */
80
80
81
81
/* type h =
82
82
| JsMapperEraseType
83
- | B [@@bs. deriving {accessors; jsConverter = newType} ] */
83
+ | B [@@deriving {accessors; jsConverter = newType} ] */
84
84
85
85
/*
86
86
type z =
87
87
| ZFromJs
88
88
| ZToJs
89
89
| ZXx (* not overridden *)
90
- [@@bs. deriving {
90
+ [@@deriving {
91
91
accessors;
92
92
jsConverter
93
93
}
Load Diff Large diffs are not rendered by default.
Original file line number Diff line number Diff line change @@ -63,7 +63,7 @@ var code = n => {
63
63
var polyCode = n => {
64
64
var content = `type t = [ \n ${ polyConstructors (
65
65
n
66
- ) } \n ] [@@bs. deriving jsConverter] `;
66
+ ) } \n ] [@@deriving jsConverter] `;
67
67
var eq = `
68
68
let eq (x : t option) (y: t option) =
69
69
match x with
You can’t perform that action at this time.
0 commit comments