From 71c20233ff79e696d0eeca2ce1462d3083fbcfed Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 15 Jun 2025 04:59:49 +0700
Subject: and were done, just like that

---
 bs5/client/SinglePageRSC.re | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 bs5/client/SinglePageRSC.re

(limited to 'bs5/client/SinglePageRSC.re')

diff --git a/bs5/client/SinglePageRSC.re b/bs5/client/SinglePageRSC.re
new file mode 100644
index 0000000..ee011f2
--- /dev/null
+++ b/bs5/client/SinglePageRSC.re
@@ -0,0 +1,40 @@
+module App = {
+  [@react.component]
+  let make = (~promise) => {
+    React.Experimental.use(promise);
+  };
+};
+
+external readable_stream: Webapi.ReadableStream.t =
+  "window.srr_stream.readable_stream";
+
+[@mel.module "react"]
+external startTransition: (unit => unit) => unit = "startTransition";
+
+try({
+  let promise =
+    ReactServerDOMEsbuild.createFromReadableStream(readable_stream);
+
+  let document: option(Webapi.Dom.Element.t) = [%mel.raw "window.document"];
+
+  switch (document) {
+  | Some(elem) =>
+    startTransition(() => {
+      let app = <App promise />;
+      let _ = ReactDOM.Client.hydrateRoot(elem, app);
+      ();
+    })
+  | None => Js.log("No root element found")
+  };
+}) {
+| exn =>
+  switch (Js.Exn.asJsExn(exn)) {
+  | Some(error) =>
+    Js.log2("Error type:", Js.Exn.name(error));
+    Js.log2("Stack:", Js.Exn.stack(error));
+    Js.log2("Full error:", error);
+  | None =>
+    Js.log("No JavaScript exception, got:");
+    Js.log(exn);
+  }
+};
-- 
cgit v1.2.3