/**
 * Retries this effect the specified number of times.
 *
 * @tsplus static effect/core/io/Effect.Aspects retryN
 * @tsplus pipeable effect/core/io/Effect retryN
 */
export function retryN(n: number) {
  return <R, E, A>(self: Effect<R, E, A>): Effect<R, E, A> => retryNLoop(self, n)
}

function retryNLoop<R, E, A>(
  self: Effect<R, E, A>,
  n: number
): Effect<R, E, A> {
  return self.catchAll((e) => n < 0 ? Effect.fail(e) : Effect.yieldNow > retryNLoop(self, n - 1))
}