From 262b2cc1bde212510a4271eb7ffb8f6d281c7289 Mon Sep 17 00:00:00 2001
From: Guillaume Petiot <guillaume@tarides.com>
Date: Mon, 6 Nov 2023 14:04:58 +0800
Subject: [PATCH] Fix: Ast_mapper.map_function_param should call arg_label

---
 vendor/parser-extended/ast_mapper.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vendor/parser-extended/ast_mapper.ml b/vendor/parser-extended/ast_mapper.ml
index 5d12a04110..1d8f9f30b3 100644
--- 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 ->