snap

Author: cristianoc

lib/4.06.1/unstable/js_compiler.ml

@@ -154477,6 +154477,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
@@ -154543,12 +154548,21 @@ let transformStructureItem ~config mapper item =
           React_jsx_common.raiseErrorMultipleReactComponent ~loc:pstr_loc
         else (
           config.hasReactComponent <- true;
-          let binding =
-            match binding.pvb_expr.pexp_desc with
+          let rec removeArityRecord expr =
+            match expr.pexp_desc with
             | Pexp_record
                 ([({txt = Ldot (Ldot (Lident "Js", "Fn"), _)}, e)], None) ->
-              {binding with pvb_expr = e}
-            | _ -> binding
+              e
+            | Pexp_apply (forwardRef, [(label, e)]) ->
+              {
+                expr with
+                pexp_desc =
+                  Pexp_apply (forwardRef, [(label, removeArityRecord e)]);
+              }
+            | _ -> expr
+          in
+          let binding =
+            {binding with pvb_expr = removeArityRecord binding.pvb_expr}
           in
           let coreTypeOfAttr =
             React_jsx_common.coreTypeOfAttrs binding.pvb_attributes

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -154477,6 +154477,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
@@ -154543,12 +154548,21 @@ let transformStructureItem ~config mapper item =
           React_jsx_common.raiseErrorMultipleReactComponent ~loc:pstr_loc
         else (
           config.hasReactComponent <- true;
-          let binding =
-            match binding.pvb_expr.pexp_desc with
+          let rec removeArityRecord expr =
+            match expr.pexp_desc with
             | Pexp_record
                 ([({txt = Ldot (Ldot (Lident "Js", "Fn"), _)}, e)], None) ->
-              {binding with pvb_expr = e}
-            | _ -> binding
+              e
+            | Pexp_apply (forwardRef, [(label, e)]) ->
+              {
+                expr with
+                pexp_desc =
+                  Pexp_apply (forwardRef, [(label, removeArityRecord e)]);
+              }
+            | _ -> expr
+          in
+          let binding =
+            {binding with pvb_expr = removeArityRecord binding.pvb_expr}
           in
           let coreTypeOfAttr =
             React_jsx_common.coreTypeOfAttrs binding.pvb_attributes

lib/4.06.1/whole_compiler.ml

@@ -164761,6 +164761,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
@@ -164827,12 +164832,21 @@ let transformStructureItem ~config mapper item =
           React_jsx_common.raiseErrorMultipleReactComponent ~loc:pstr_loc
         else (
           config.hasReactComponent <- true;
-          let binding =
-            match binding.pvb_expr.pexp_desc with
+          let rec removeArityRecord expr =
+            match expr.pexp_desc with
             | Pexp_record
                 ([({txt = Ldot (Ldot (Lident "Js", "Fn"), _)}, e)], None) ->
-              {binding with pvb_expr = e}
-            | _ -> binding
+              e
+            | Pexp_apply (forwardRef, [(label, e)]) ->
+              {
+                expr with
+                pexp_desc =
+                  Pexp_apply (forwardRef, [(label, removeArityRecord e)]);
+              }
+            | _ -> expr
+          in
+          let binding =
+            {binding with pvb_expr = removeArityRecord binding.pvb_expr}
           in
           let coreTypeOfAttr =
             React_jsx_common.coreTypeOfAttrs binding.pvb_attributes