import * as AsyncData from "@typed/async-data" import { Effect, Fiber, Option, Ref, Scope, SubscriptionRef } from "effect" import * as React from "react" import { ReffuseExtension, type ReffuseHelpers } from "reffuse" export interface UseQueryProps { effect: () => Effect.Effect readonly deps: React.DependencyList } export interface UseQueryResult { readonly state: SubscriptionRef.SubscriptionRef> readonly triggerRefresh: Effect.Effect } const interruptRunningQuery = (fiberRef: Ref.Ref>>) => fiberRef.pipe( Effect.flatMap(Option.match({ onSome: Fiber.interrupt, onNone: () => Effect.void, })) ) const runQuery = ( effect: Effect.Effect, stateRef: Ref.Ref>, ) => effect.pipe( Effect.matchCauseEffect({ onSuccess: v => Ref.set(stateRef, AsyncData.success(v)), onFailure: c => Ref.set(stateRef, AsyncData.failure(c)), }) ) export const QueryExtension = ReffuseExtension.make(() => ({ useQuery( this: ReffuseHelpers.ReffuseHelpers, props: UseQueryProps, ): UseQueryResult { const context = this.useContext() const fiberRef = this.useRef(Option.none>()) const stateRef = this.useRef(AsyncData.noData()) const triggerRefresh = React.useMemo(() => interruptRunningQuery(fiberRef).pipe( Effect.andThen(Ref.update(stateRef, prev => AsyncData.isSuccess(prev) || AsyncData.isFailure(prev) ? AsyncData.refreshing(prev) : AsyncData.loading() )), Effect.andThen(runQuery(props.effect(), stateRef)), Effect.provide(context), Effect.scoped, Effect.forkDaemon, Effect.flatMap(fiber => Ref.set(fiberRef, Option.some(fiber))), ), [stateRef, context, fiberRef]) this.useEffect(() => interruptRunningQuery(fiberRef).pipe( Effect.andThen(Ref.set(stateRef, AsyncData.loading())), Effect.andThen(runQuery(props.effect(), stateRef)), Effect.scoped, Effect.forkDaemon, Effect.flatMap(fiber => Ref.set(fiberRef, Option.some(fiber))), ), [...props.deps, stateRef, fiberRef]) return React.useMemo(() => ({ state: stateRef, triggerRefresh }), [stateRef, triggerRefresh]) } }))