From 69312f5133734237edaea6ca29e2de9bf3203050 Mon Sep 17 00:00:00 2001 From: polwex Date: Sun, 15 Jun 2025 01:44:45 +0700 Subject: checkpoint here... --- .../native/shared/ServerActionFromPropsClient.re | 30 ++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 bs5/universal/native/shared/ServerActionFromPropsClient.re (limited to 'bs5/universal/native/shared/ServerActionFromPropsClient.re') diff --git a/bs5/universal/native/shared/ServerActionFromPropsClient.re b/bs5/universal/native/shared/ServerActionFromPropsClient.re new file mode 100644 index 0000000..a374870 --- /dev/null +++ b/bs5/universal/native/shared/ServerActionFromPropsClient.re @@ -0,0 +1,30 @@ +[@react.client.component] +let make = + ( + ~actionOnClick: + Runtime.server_function( + (~name: string, ~age: int) => Js.Promise.t(string), + ), + ) => { + let (isLoading, setIsLoading) = RR.useStateValue(false); + let (message, setMessage) = RR.useStateValue(""); +
+ +
+
{isLoading ? "Loading..." : message}
+
; +}; -- cgit v1.2.3