fix uncurried external make for jsx v4

Author: mununki

res_syntax/cli/reactjs_jsx_v4.ml

@@ -751,6 +751,11 @@ let transformStructureItem ~config mapper item =
         config.hasReactComponent <- true;
         check_string_int_attribute_iter.structure_item
           check_string_int_attribute_iter item;
+        let pval_type =
+          match pval_type.ptyp_desc with
+          | Ptyp_constr ({txt = Ldot (Ldot (Lident "Js", "Fn"), _)}, [t]) -> t
+          | _ -> pval_type
+        in
         let coreTypeOfAttr = React_jsx_common.coreTypeOfAttrs pval_attributes in
         let typVarsOfCoreType =
           coreTypeOfAttr

res_syntax/tests/ppx/react/expected/v4.res.txt

@@ -52,7 +52,9 @@ module E = {
 }
 
 module EUncurried = {
-  type props = {}
+  type props<'x> = {
+    x: 'x,
+  }
 
-  external make: React.componentLike<props, (. ~x: string) => React.element> = "default"
+  external make: React.componentLike<props<string>, React.element> = "default"
 }