Query work

packages/example/src/routes/query.tsx

@@ -1,6 +1,6 @@
 import { R } from "@/reffuse"
 import { HttpClient } from "@effect/platform"
-import { Container, Text } from "@radix-ui/themes"
+import { Button, Container, Flex, Text } from "@radix-ui/themes"
 import { createFileRoute } from "@tanstack/react-router"
 import * as AsyncData from "@typed/async-data"
 import { Effect, Schema } from "effect"
@@ -14,27 +14,34 @@ export const Route = createFileRoute("/query")({
 const Result = Schema.Tuple(Schema.String)
 
 function RouteComponent() {
-    const { state } = R.useQuery({
+    const runSync = R.useRunSync()
+
+    const { state, refresh } = R.useQuery({
         effect: () => HttpClient.get("https://www.uuidtools.com/api/generate/v4").pipe(
             HttpClient.withTracerPropagation(false),
             Effect.flatMap(res => res.json),
             Effect.flatMap(Schema.decodeUnknown(Result)),
+            Effect.delay("500 millis"),
         ),
         deps: [],
     })
 
     return (
         <Container>
-            <Text>
-                {AsyncData.match(state, {
-                    NoData: () => "No data yet",
-                    Loading: () => "Loading...",
-                    Success: (value, { isRefreshing, isOptimistic }) =>
-                        `Value: ${value} ${isRefreshing ? "(refreshing)" : ""} ${isOptimistic ? "(optimistic)" : ""}`,
-                    Failure: (cause, { isRefreshing }) =>
-                        `Error: ${cause} ${isRefreshing ? "(refreshing)" : ""}`,
-                })}
-            </Text>
+            <Flex direction="column" align="center" gap="2">
+                <Text>
+                    {AsyncData.match(state, {
+                        NoData: () => "No data yet",
+                        Loading: () => "Loading...",
+                        Success: (value, { isRefreshing, isOptimistic }) =>
+                            `Value: ${value} ${isRefreshing ? "(refreshing)" : ""} ${isOptimistic ? "(optimistic)" : ""}`,
+                        Failure: (cause, { isRefreshing }) =>
+                            `Error: ${cause} ${isRefreshing ? "(refreshing)" : ""}`,
+                    })}
+                </Text>
+
+                <Button onClick={() => runSync(refresh)}>Refresh</Button>
+            </Flex>
         </Container>
     )
 }