using cast function to optimize

Author: mununki

cli/reactjs_jsx_v4.ml

@@ -459,7 +459,17 @@ let transformLowercaseCall3 ~config mapper jsxExprLoc callExprLoc attrs
       recursivelyTransformedArgsForMake
       @
       match childrenExpr with
-      | Exact children -> [(labelled "children", children)]
+      | Exact children ->
+        [
+          ( labelled "children",
+            Exp.apply ~attrs:optionalAttr
+              (Exp.ident
+                 {
+                   txt = Ldot (Lident "ReactDOM", "someElement");
+                   loc = Location.none;
+                 })
+              [(Nolabel, children)] );
+        ]
       | ListLiteral {pexp_desc = Pexp_array list} when list = [] -> []
       | ListLiteral expression ->
         (* this is a hack to support react components that introspect into their children *)

tests/ppx/react/expected/commentAtTop.res.txt

@@ -4,7 +4,7 @@ type props<'msg> = { // test React JSX file
 
 @react.component
 let make = ({msg, _}: props<'msg>) => {
-  ReactDOM.jsx("div", {children: {msg->React.string}})
+  ReactDOM.jsx("div", {children: ?ReactDOM.someElement({msg->React.string})})
 }
 let make = {
   let \"CommentAtTop" = (props: props<_>) => make(props)

tests/ppx/react/expected/fileLevelConfig.res.txt

@@ -41,7 +41,7 @@ module V4A = {
 
   @react.component
   let make = ({msg, _}: props<'msg>) => {
-    ReactDOM.jsx("div", {children: {msg->React.string}})
+    ReactDOM.jsx("div", {children: ?ReactDOM.someElement({msg->React.string})})
   }
   let make = {
     let \"FileLevelConfig$V4A" = (props: props<_>) => make(props)

tests/ppx/react/expected/forwardRef.res.txt

@@ -167,9 +167,8 @@ module V4A = {
     ReactDOM.jsx(
       "div",
       {
-        children: React.jsx(
-          FancyInput.make,
-          {ref: input, children: {React.string("Click to focus")}},
+        children: ?ReactDOM.someElement(
+          React.jsx(FancyInput.make, {ref: input, children: {React.string("Click to focus")}}),
         ),
       },
     )

tests/ppx/react/expected/optimizeAutomaticMode.res.txt

@@ -10,7 +10,7 @@ module User = {
 
   @react.component
   let make = ({doctor, _}: props<'doctor>) => {
-    ReactDOM.jsx("h1", {id: "h1", children: {React.string(format(doctor))}})
+    ReactDOM.jsx("h1", {id: "h1", children: ?ReactDOM.someElement({React.string(format(doctor))})})
   }
   let make = {
     let \"OptimizeAutomaticMode$User" = (props: props<_>) => make(props)