use metaquot in exception pattern

Niols · Feb 17, 2022 · c541ef6 · c541ef6
1 parent 740e5f8
commit c541ef6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lib/expander/matchExpander.ml b/src/lib/expander/matchExpander.ml
@@ -39,7 +39,7 @@ let mk_with_exception
     List.map
       (fun case ->
          match case with
-         | { pc_lhs = { ppat_desc = Ppat_exception pc_lhs; _ }; _ } ->
+         | { pc_lhs = [%pat? exception [%p? pc_lhs]]; _ } ->
            { case with pc_lhs }
          | _ -> assert false)
       exception_cases