Function f

packages/effect/test/STM.test.ts:272–278

(ref: TRef.TRef<number>)

  it.effect("eventually - succeeds", () =>
    Effect.gen(function*() {
      const f = (ref: TRef.TRef<number>) =>
        STM.gen(function*() {
          const n = yield* TRef.get(ref)
          return yield* n < 10 ?
            pipe(ref, TRef.update((n) => n + 1), STM.zipRight(STM.fail("Ouch"))) :
            STM.succeed(n)
        })
      const transaction = pipe(
        TRef.make(0),
        STM.flatMap((ref) => STM.eventually(f(ref)))