add arity=1

Author: mununki

compiler/syntax/src/jsx_v4.ml

@@ -1252,6 +1252,11 @@ let map_binding ~config ~empty_loc ~pstr_loc ~file_name ~rec_flag binding =
                 [(Nolabel, Exp.ident {txt = Lident "props"; loc})]))
       in
 
+      let wrapper_expr =
+        Ast_uncurried.uncurried_fun ~loc:wrapper_expr.pexp_loc ~arity:1
+          wrapper_expr
+      in
+
       let internal_expression =
         Exp.let_ Nonrecursive
           [Vb.mk (Pat.var {txt = full_module_name; loc}) wrapper_expr]