Thilawyn/effect-view
1
0
Fork 0
Code Issues 1 Pull Requests 10 Actions Packages Projects Releases Wiki Activity

Add Subscribable.flatMapSubscriptionRef
Lint / lint (push) Successful in 12s
Details

Browse Source
This commit is contained in:
Julien Valverdé
2025-10-19 07:46:36 +02:00
parent 1af839f036
commit 336ea67ea2
2 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
packages/effect-fc/src/Subscribable.ts
+9 -1
View File
@@ -1,4 +1,4 @@
import { type Effect, Effectable, Readable, type Stream, Subscribable } from "effect"
import { Effect, Effectable, Readable, Stream, Subscribable, type SubscriptionRef } from "effect"
class SubscribableImpl<A, E, R>
@@ -22,3 +22,11 @@ export const make = <A, E, R>(values: {
readonly get: Effect.Effect<A, E, R>
readonly changes: Stream.Stream<A, E, R>
}): Subscribable.Subscribable<A, E, R> => new SubscribableImpl(values.get, values.changes)
export const flatMapSubscriptionRef = <A, B, E, R>(
ref: SubscriptionRef.SubscriptionRef<A>,
flatMap: (value: NoInfer<A>) => Effect.Effect<B, E, R>,
): Subscribable.Subscribable<B, E, R> => make({
get: Effect.flatMap(ref, flatMap),
get changes() { return Stream.flatMap(ref.changes, flatMap) },
})