From 69312f5133734237edaea6ca29e2de9bf3203050 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 15 Jun 2025 01:44:45 +0700
Subject: checkpoint here...

---
 bs5/universal/native/shared/RR.re | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 bs5/universal/native/shared/RR.re

(limited to 'bs5/universal/native/shared/RR.re')

diff --git a/bs5/universal/native/shared/RR.re b/bs5/universal/native/shared/RR.re
new file mode 100644
index 0000000..46399a2
--- /dev/null
+++ b/bs5/universal/native/shared/RR.re
@@ -0,0 +1,21 @@
+[@platform native]
+include {
+          let useStateValue = initialState => {
+            let setValueStatic = _newState => ();
+            (initialState, setValueStatic);
+          };
+        };
+
+[@platform js]
+include {
+          [@mel.module "react"]
+          external useState:
+            (unit => 'state) => ('state, (. ('state => 'state)) => unit) =
+            "useState";
+
+          let useStateValue = initialState => {
+            let (state, setState) = useState(_ => initialState);
+            let setValueStatic = newState => setState(. _ => newState);
+            (state, setValueStatic);
+          };
+        };
-- 
cgit v1.2.3