|
|
|
|
@@ -16,6 +16,7 @@ extends Pipeable.Pipeable {
|
|
|
|
|
readonly latestKey: Subscribable.Subscribable<Option.Option<K>>
|
|
|
|
|
readonly fiber: Subscribable.Subscribable<Option.Option<Fiber.Fiber<A, E>>>
|
|
|
|
|
readonly result: Subscribable.Subscribable<Result.Result<A, E, P>>
|
|
|
|
|
readonly latestFinalResult: Subscribable.Subscribable<Option.Option<Result.Final<A, E, P>>>
|
|
|
|
|
|
|
|
|
|
mutate(key: K): Effect.Effect<Result.Final<A, E, P>>
|
|
|
|
|
mutateSubscribable(key: K): Effect.Effect<Subscribable.Subscribable<Result.Result<A, E, P>>>
|
|
|
|
|
@@ -37,20 +38,23 @@ extends Pipeable.Class() implements Mutation<K, A, E, R, P> {
|
|
|
|
|
readonly latestKey: SubscriptionRef.SubscriptionRef<Option.Option<K>>,
|
|
|
|
|
readonly fiber: SubscriptionRef.SubscriptionRef<Option.Option<Fiber.Fiber<A, E>>>,
|
|
|
|
|
readonly result: SubscriptionRef.SubscriptionRef<Result.Result<A, E, P>>,
|
|
|
|
|
readonly latestFinalResult: SubscriptionRef.SubscriptionRef<Option.Option<Result.Final<A, E, P>>>,
|
|
|
|
|
) {
|
|
|
|
|
super()
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
mutate(key: K): Effect.Effect<Result.Final<A, E, P>> {
|
|
|
|
|
return SubscriptionRef.set(this.latestKey, Option.some(key)).pipe(
|
|
|
|
|
Effect.andThen(Effect.provide(this.start(key), this.context)),
|
|
|
|
|
Effect.andThen(this.start(key)),
|
|
|
|
|
Effect.andThen(sub => this.watch(sub)),
|
|
|
|
|
Effect.provide(this.context),
|
|
|
|
|
)
|
|
|
|
|
}
|
|
|
|
|
mutateSubscribable(key: K): Effect.Effect<Subscribable.Subscribable<Result.Result<A, E, P>>> {
|
|
|
|
|
return Effect.andThen(
|
|
|
|
|
SubscriptionRef.set(this.latestKey, Option.some(key)),
|
|
|
|
|
Effect.provide(this.start(key), this.context)
|
|
|
|
|
return SubscriptionRef.set(this.latestKey, Option.some(key)).pipe(
|
|
|
|
|
Effect.andThen(this.start(key)),
|
|
|
|
|
Effect.tap(sub => Effect.forkScoped(this.watch(sub))),
|
|
|
|
|
Effect.provide(this.context),
|
|
|
|
|
)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -59,12 +63,8 @@ extends Pipeable.Class() implements Mutation<K, A, E, R, P> {
|
|
|
|
|
never,
|
|
|
|
|
Scope.Scope | R
|
|
|
|
|
> {
|
|
|
|
|
return this.result.pipe(
|
|
|
|
|
Effect.map(previous => Result.isFinal(previous)
|
|
|
|
|
? previous
|
|
|
|
|
: undefined
|
|
|
|
|
),
|
|
|
|
|
Effect.andThen(previous => Result.unsafeForkEffect(
|
|
|
|
|
return this.latestFinalResult.pipe(
|
|
|
|
|
Effect.andThen(initial => Result.unsafeForkEffect(
|
|
|
|
|
Effect.onExit(this.f(key), () => Effect.andThen(
|
|
|
|
|
Effect.all([Effect.fiberId, this.fiber]),
|
|
|
|
|
([currentFiberId, fiber]) => Option.match(fiber, {
|
|
|
|
|
@@ -76,8 +76,8 @@ extends Pipeable.Class() implements Mutation<K, A, E, R, P> {
|
|
|
|
|
)),
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
initial: Option.isSome(initial) ? Result.willFetch(initial.value) : Result.initial(),
|
|
|
|
|
initialProgress: this.initialProgress,
|
|
|
|
|
previous,
|
|
|
|
|
} as Result.unsafeForkEffect.Options<A, E, P>,
|
|
|
|
|
)),
|
|
|
|
|
Effect.tap(([, fiber]) => SubscriptionRef.set(this.fiber, Option.some(fiber))),
|
|
|
|
|
@@ -88,14 +88,14 @@ extends Pipeable.Class() implements Mutation<K, A, E, R, P> {
|
|
|
|
|
watch(
|
|
|
|
|
sub: Subscribable.Subscribable<Result.Result<A, E, P>>
|
|
|
|
|
): Effect.Effect<Result.Final<A, E, P>> {
|
|
|
|
|
return Effect.andThen(
|
|
|
|
|
sub.get,
|
|
|
|
|
initial => Stream.runFoldEffect(
|
|
|
|
|
Stream.filter(sub.changes, Predicate.not(Result.isInitial)),
|
|
|
|
|
return sub.get.pipe(
|
|
|
|
|
Effect.andThen(initial => Stream.runFoldEffect(
|
|
|
|
|
sub.changes,
|
|
|
|
|
initial,
|
|
|
|
|
(_, result) => Effect.as(SubscriptionRef.set(this.result, result), result),
|
|
|
|
|
),
|
|
|
|
|
) as Effect.Effect<Result.Final<A, E, P>>
|
|
|
|
|
) as Effect.Effect<Result.Final<A, E, P>>),
|
|
|
|
|
Effect.tap(result => SubscriptionRef.set(this.latestFinalResult, Option.some(result))),
|
|
|
|
|
)
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -123,5 +123,6 @@ export const make = Effect.fnUntraced(function* <const K extends Mutation.AnyKey
|
|
|
|
|
yield* SubscriptionRef.make(Option.none<K>()),
|
|
|
|
|
yield* SubscriptionRef.make(Option.none<Fiber.Fiber<A, E>>()),
|
|
|
|
|
yield* SubscriptionRef.make(Result.initial<A, E, P>()),
|
|
|
|
|
yield* SubscriptionRef.make(Option.none<Result.Final<A, E, P>>()),
|
|
|
|
|
)
|
|
|
|
|
})
|
|
|
|
|
|