Unused open warning with exception pattern

[aantron]

module M = struct exception E end
let _ =
  match () with
  | () -> ()
  | M.(exception (E | Exit)) -> ()

generates instrumentation that includes the case | M.(Exit), which then triggers

File "test.ml", line 5, characters 2-26:
5 | | M.(exception (E | Exit)) -> (
      ^^^^^^^^^^^^^^^^^^^^^^^^
Error (warning 33): unused open M.

The solution is probably to suppress warning 33 in the suppression list here:

bisect_ppx/src/ppx/instrument.ml

Lines 507 to 509 in 9bdc5da

	{attr_name = Location.mkloc "ocaml.warning" loc;
	attr_payload = PStr [[%stri "-4-8-9-11-26-27-28"]];
	attr_loc = loc}