Fix: Ast_mapper.map_function_param should call arg_label (#2473)

ocaml-ppx · Nov 6, 2023 · 4e2a618 · 4e2a618
1 parent 1aaffd9
commit 4e2a618
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/vendor/parser-extended/ast_mapper.ml b/vendor/parser-extended/ast_mapper.ml
@@ -473,7 +473,7 @@ module E = struct
       match desc with
       | Pparam_val (lab, def, p) ->
           Pparam_val
-            (lab,
+            (sub.arg_label sub lab,
              map_opt (sub.expr sub) def,
              sub.pat sub p)
       | Pparam_newtype ty ->