path: root/testsuite/tests/match-exception-warnings/pr7083.ml

(* TEST
 expect;
*)

let f x =
  match x with
  | `A -> ()
  | exception Not_found -> ()
;;

[%%expect{|
val f : [< `A ] -> unit = <fun>
|}]