We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
if
1 parent 02d2403 commit 580c327Copy full SHA for 580c327
compiler/ppx/ppx_optcomp_light.ml
@@ -148,7 +148,8 @@ let keep loc (attrs : attributes) =
148
| [] -> true
149
| _ -> (
150
try
151
- let keep_one { attr_payload; attr_loc; _ } =
+ let keep_one ({ attr_payload; attr_loc; _ } as attr) =
152
+ Ppxlib.Attribute.mark_as_handled_manually attr;
153
let e =
154
match attr_payload with
155
| PStr [ { pstr_desc = Pstr_eval (e, []); _ } ] -> e
0 commit comments