File tree Expand file tree Collapse file tree 2 files changed +8
-4
lines changed Expand file tree Collapse file tree 2 files changed +8
-4
lines changed Original file line number Diff line number Diff line change @@ -61,7 +61,7 @@ let fn_method = "fn_method"
61
61
let fn_mk = " fn_mk"
62
62
(* let js_fn_runmethod = "js_fn_runmethod"*)
63
63
64
- let bs_deriving = " bs.deriving "
64
+
65
65
let bs_deriving_dot = " bs.deriving."
66
66
67
67
Original file line number Diff line number Diff line change @@ -136,9 +136,13 @@ let external_needs_to_be_encoded (attrs : t)=
136
136
137
137
let is_inline : attr -> bool =
138
138
(fun
139
- ({txt;} ,_ ) ->
140
- txt = " bs.inline" || txt = " inline"
141
- )
139
+ (({txt;} ,_ ) as attr ) ->
140
+ let b = txt = " bs.inline" || txt = " inline" in
141
+ (if b then
142
+ Bs_ast_invariant. mark_used_bs_attribute attr);
143
+ b
144
+ ) (* still needs to be marked, since we are going to drop it right now *)
145
+
142
146
let has_inline_in_stru (attrs : t ) : bool =
143
147
Ext_list. exists attrs is_inline
144
148
You can’t perform that action at this time.
0 commit comments