Function chainError

packages/effect/test/STM.test.ts:81–92

(depth: number)

}

const chainError = (depth: number): Effect.Effect<never, number> => {
  const loop = (_n: number, _acc: STM.STM<never, number, never>): Effect.Effect<never, number> => {
    let n = _n
    let acc = _acc
    while (n > 0) {
      acc = pipe(acc, STM.mapError((n) => n + 1))
      n = n - 1
    }
    return STM.commit(acc)
  }
  return loop(depth, STM.fail(0))
}

const incrementTRefN = (n: number, ref: TRef.TRef<number>): Effect.Effect<number> =>
  pipe(