Add asyncComponent to jsx

Author: nojaf

compiler/syntax/src/jsx_common.ml

@@ -54,9 +54,6 @@ let async_component ~async expr =
     let open Ast_helper in
     Exp.apply
       (Exp.ident
-         {
-           loc = Location.none;
-           txt = Ldot (Lident "JsxPPXReactSupport", "asyncComponent");
-         })
+         {loc = Location.none; txt = Ldot (Lident "Jsx", "asyncComponent")})
       [(Nolabel, expr)]
   else expr

runtime/Jsx.res

@@ -38,3 +38,5 @@ type component<'props> = componentLike<'props, element>
 
 /* this function exists to prepare for making `component` abstract */
 external component: componentLike<'props, element> => component<'props> = "%identity"
+
+external asyncComponent: promise<element> => element = "%identity"

tests/syntax_tests/data/ppx/react/expected/asyncAwait.res.txt

@@ -9,7 +9,7 @@ module C0 = {
     ReactDOM.jsx("div", {children: ?ReactDOM.someElement({React.int(a)})})
   }
   let make = {
-    let \"AsyncAwait$C0" = (props: props<_>) => JsxPPXReactSupport.asyncComponent(make(props))
+    let \"AsyncAwait$C0" = (props: props<_>) => Jsx.asyncComponent(make(props))
 
     \"AsyncAwait$C0"
   }
@@ -26,7 +26,7 @@ module C1 = {
     }
   }
   let make = {
-    let \"AsyncAwait$C1" = (props: props<_>) => JsxPPXReactSupport.asyncComponent(make(props))
+    let \"AsyncAwait$C1" = (props: props<_>) => Jsx.asyncComponent(make(props))
 
     \"AsyncAwait$C1"
   }

tests/syntax_tests/data/ppx/react/expected/sharedPropsWithProps.res.txt

@@ -45,8 +45,7 @@ module V4A5 = {
     ReactDOM.jsx("div", {children: ?ReactDOM.someElement({React.int(a)})})
   }
   let make = {
-    let \"SharedPropsWithProps$V4A5" = (props: props<_>) =>
-      JsxPPXReactSupport.asyncComponent(make(props))
+    let \"SharedPropsWithProps$V4A5" = (props: props<_>) => Jsx.asyncComponent(make(props))
     \"SharedPropsWithProps$V4A5"
   }
 }
@@ -60,8 +59,7 @@ module V4A6 = {
     }
   }
   let make = {
-    let \"SharedPropsWithProps$V4A6" = (props: props<_>) =>
-      JsxPPXReactSupport.asyncComponent(make(props))
+    let \"SharedPropsWithProps$V4A6" = (props: props<_>) => Jsx.asyncComponent(make(props))
     \"SharedPropsWithProps$V4A6"
   }
 }

tests/tests/src/async_jsx.mjs

@@ -0,0 +1,41 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as JsxRuntime from "react/jsx-runtime";
+
+function getNow() {
+  return new Promise((res, param) => {
+    setTimeout(() => res(new Date()), 1000);
+  });
+}
+
+async function make(param) {
+  let now = await getNow();
+  return <div>
+    <p>
+      {now.toLocaleString()}
+    </p>
+  </div>;
+}
+
+let Async_jsx$Foo = make;
+
+let Foo = {
+  make: Async_jsx$Foo
+};
+
+function Async_jsx$Bar(props) {
+  return <div>
+    <Async_jsx$Foo />
+  </div>;
+}
+
+let Bar = {
+  make: Async_jsx$Bar
+};
+
+export {
+  getNow,
+  Foo,
+  Bar,
+}
+/* react/jsx-runtime Not a pure module */

tests/tests/src/async_jsx.res

@@ -0,0 +1,30 @@
+@@config({
+  flags: ["-bs-jsx", "4", "-bs-jsx-preserve"],
+})
+
+let getNow = () => {
+  Promise.make((res, _) => {
+    setTimeout(() => {
+      res(Date.make())
+    }, 1000)->ignore
+  })
+}
+
+module Foo = {
+  @react.component
+  let make = async () => {
+    let now = await getNow()
+    <div>
+      <p> {React.string(now->Date.toLocaleString)} </p>
+    </div>
+  }
+}
+
+module Bar = {
+  @react.component
+  let make = () => {
+    <div>
+      <Foo />
+    </div>
+  }
+}