apply React.array for children of fragment

Author: mununki

jscomp/syntax/src/reactjs_jsx_v4.ml

@@ -1361,6 +1361,12 @@ let expr ~config mapper expression =
         (* FIXME: missing loc *)
         Exp.record [(Location.mknoloc (Lident "children"), children)] None
       in
+      let applyReactArray expr =
+        Exp.apply
+          (Exp.ident
+             {txt = Ldot (Lident "React", "array"); loc = Location.none})
+          [(Nolabel, expr)]
+      in
       let args =
         [
           (nolabel, fragment);
@@ -1370,8 +1376,8 @@ let expr ~config mapper expression =
               match children with
               | [] -> emptyRecord ~loc:Location.none
               | [child] -> recordOfChildren child
-              | _ -> recordOfChildren childrenExpr)
-            | _ -> recordOfChildren childrenExpr );
+              | _ -> recordOfChildren @@ applyReactArray childrenExpr)
+            | _ -> recordOfChildren @@ applyReactArray childrenExpr );
         ]
       in
       let countOfChildren = function

jscomp/syntax/tests/ppx/react/expected/fragment.res.txt

@@ -8,10 +8,10 @@ let _ = React.createElement(
 let _ = React.createElement(
   React.fragment,
   {
-    children: [
+    children: React.array([
       ReactDOM.createDOMElementVariadic("div", []),
       ReactDOM.createDOMElementVariadic("div", []),
-    ],
+    ]),
   },
 )
 let _ = React.createElement(React.fragment, {children: React.createElement(React.fragment, {})})
@@ -35,7 +35,7 @@ let _ = React.jsx(React.jsxFragment, {})
 let _ = React.jsx(React.jsxFragment, {children: ReactDOM.jsx("div", {})})
 let _ = React.jsxs(
   React.jsxFragment,
-  {children: [ReactDOM.jsx("div", {}), ReactDOM.jsx("div", {})]},
+  {children: React.array([ReactDOM.jsx("div", {}), ReactDOM.jsx("div", {})])},
 )
 let _ = React.jsx(React.jsxFragment, {children: React.jsx(React.jsxFragment, {})})
 let _ = React.jsx(Z.make, {})

jscomp/syntax/tests/ppx/react/expected/noPropsWithKey.res.txt

@@ -25,10 +25,10 @@ module V4C = {
     React.createElement(
       React.fragment,
       {
-        children: [
+        children: React.array([
           JsxPPXReactSupport.createElementWithKey(~key="k", V4CA.make, {}),
           JsxPPXReactSupport.createElementWithKey(~key="k", V4CB.make, {}),
-        ],
+        ]),
       },
     )
   let make = {
@@ -65,10 +65,10 @@ module V4C = {
     React.jsxs(
       React.jsxFragment,
       {
-        children: [
+        children: React.array([
           React.jsxKeyed(V4CA.make, {}, ~key="k", ()),
           React.jsxKeyed(V4CB.make, {}, ~key="k", ()),
-        ],
+        ]),
       },
     )
   let make = {

jscomp/syntax/tests/ppx/react/expected/removedKeyProp.res.txt

@@ -27,7 +27,7 @@ let make = (_: props) =>
   React.createElement(
     React.fragment,
     {
-      children: [
+      children: React.array([
         JsxPPXReactSupport.createElementWithKey(~key="k", Foo.make, {x: "x", y: "y"}),
         React.createElement(Foo.make, {x: "x", y: "y"}),
         JsxPPXReactSupport.createElementWithKey(
@@ -43,7 +43,7 @@ let make = (_: props) =>
             children: React.createElement(Foo.make, {x: "x", y: "y"}),
           },
         ),
-      ],
+      ]),
     },
   )
 let make = {