From d8b3e15bec60f58defad13e961f80354d250235d Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sat, 14 Jun 2025 23:30:34 +0700
Subject: aaaaaa

---
 bs5/server/pages/Index.re | 18 ++++++++++++++++++
 bs5/server/pages/dune     | 12 ++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 bs5/server/pages/Index.re
 create mode 100644 bs5/server/pages/dune

(limited to 'bs5/server/pages')

diff --git a/bs5/server/pages/Index.re b/bs5/server/pages/Index.re
new file mode 100644
index 0000000..20dfbff
--- /dev/null
+++ b/bs5/server/pages/Index.re
@@ -0,0 +1,18 @@
+module Page = {
+  [@react.async.component]
+  let make = () => {
+    // let promiseIn2 =
+    //   Lwt.bind(Lwt_unix.sleep(2.0), _ =>
+    //     Lwt.return("Solusionao in 2 seconds!")
+    //   );
+    // let promiseIn4 =
+    //   Lwt.bind(Lwt_unix.sleep(4.0), _ =>
+    //     Lwt.return("Solusionao in 4 seconds!")
+    //   );
+    Lwt.return(
+      <div> {React.string("Well hi")} </div>,
+    );
+  };
+};
+
+// let handler = request => DreamRSC.create;
diff --git a/bs5/server/pages/dune b/bs5/server/pages/dune
new file mode 100644
index 0000000..4d54676
--- /dev/null
+++ b/bs5/server/pages/dune
@@ -0,0 +1,12 @@
+(library
+ (name pages)
+ (libraries
+  dream
+  lwt.unix
+  server-reason-react.belt
+  server-reason-react.js
+  server-reason-react.react
+  server-reason-react.reactDom
+  server-reason-react.html)
+ (preprocess
+  (pps melange.ppx lwt_ppx server-reason-react.ppx melange-json-native.ppx)))
-- 
cgit v1.2.3