Prepare jsx / jsxKeyed / ... for ppx v4 usage

Author: ryyppy

src/React.res

@@ -25,16 +25,16 @@ external cloneElement: (element, 'props) => element = "cloneElement"
 external createElementVariadic: (component<'props>, 'props, array<element>) => element =
   "createElement"
 
-@module("react") @deprecated("Please use JSX syntax directly.")
+@module("react/jsx-runtime")
 external jsxKeyed: (component<'props>, 'props, string) => element = "jsx"
 
-@module("react") @deprecated("Please use JSX syntax directly.")
+@module("react/jsx-runtime")
 external jsx: (component<'props>, 'props) => element = "jsx"
 
-@module("react") @deprecated("Please use JSX syntax directly.")
+@module("react/jsx-runtime")
 external jsxs: (component<'props>, 'props) => element = "jsxs"
 
-@module("react") @deprecated("Please use JSX syntax directly.")
+@module("react/jsx-runtime")
 external jsxsKeyed: (component<'props>, 'props, string) => element = "jsxs"
 
 type ref<'value> = {mutable current: 'value}

test/v4-ppx/BasicComponent.res

@@ -0,0 +1,30 @@
+@@warning("-27")
+
+module Test = {
+  @bs.obj external makeProps: (~children: 'children, unit) => {"children": 'children} = ""
+  let make =
+    (@warning("-16") ~children) => {
+      children
+    }
+  let make = {
+    let \"Foo$Test" = (\"Props": {"children": 'children}) => make(~children=\"Props"["children"])
+    \"Foo$Test"
+  }
+}
+
+module App = {
+  @bs.obj external makeProps: unit => {.} = ""
+
+  let make = () => {
+    (@warning("-3") React.jsx)(
+      Test.make,
+      {
+        Test.makeProps(~children={React.string("help")}, ())
+      },
+    )
+  }
+  let make = {
+    let \"Foo$App" = (\"Props": {.}) => make()
+    \"Foo$App"
+  }
+}

test/v4-ppx/KeyedComp.res

@@ -0,0 +1,48 @@
+@@warning("-27")
+
+module Test = {
+  @bs.obj external makeProps: (~children: 'children, unit) => {"children": 'children} = ""
+  let make =
+    (@warning("-16") ~children) => {
+      children
+    }
+  let make = {
+    let \"Foo$Test" = (\"Props": {"children": 'children}) => make(~children=\"Props"["children"])
+    \"Foo$Test"
+  }
+}
+
+module App = {
+  @bs.obj external makeProps: unit => {.} = ""
+
+  let make = () => {
+    @warning("-3")
+    React.jsxs(
+      React.Fragment.make,
+      React.Fragment.makeProps(
+        ~children=React.array([
+          (@warning("-3") React.jsx)(
+            Test.make,
+            Test.makeProps(~children={React.string("help")}, ()),
+          ),
+          (@warning("-3") React.jsxKeyed)(
+            Test.make,
+            Test.makeProps(~children={React.string("help")}, ()),
+            "test",
+          ),
+        ]),
+        (),
+      ),
+    )
+  }
+  let make = {
+    let \"Foo$App" = (\"Props": {.}) => make()
+    \"Foo$App"
+  }
+}
+
+let element = <App/>
+
+
+ReactDOMServer.renderToString(element)->Js.log
+