Jsx adaptions

bsconfig.json

@@ -3,9 +3,9 @@
   "reason": { "react-jsx": 3 },
   "sources": [
     {"dir": "src", "subdirs": true},
-    { "dir": "test", "type": "dev" }
+    { "dir": "test", "subdirs": true, "type": "dev" }
   ],
-  "package-specs": [{ "module": "commonjs", "in-source": true }],
+  "package-specs": [{ "module": "es6", "in-source": true }],
   "suffix": ".bs.js",
   "bs-dev-dependencies": ["reason-test-framework"],
   "bsc-flags": ["-bs-no-version-header"]

package.json

@@ -28,6 +28,7 @@
   "homepage": "https://rescript-lang.org/docs/latest/react/",
   "devDependencies": {
     "bs-platform": "8.4.2",
+    "esm": "^3.2.25",
     "jest": "^26.0.1",
     "react": "^16.8.1",
     "react-dom": "^16.8.1",

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
+