@effect-ts/system/_src/Effect/forever.ts

Effect-TS is a zero dependency set of libraries to write highly productive, purely functional TypeScript at scale.

// ets_tracing: off

import { chain_, yieldNow } from "./core.js"
import type { Effect } from "./effect.js"
import { zipRight_ } from "./zips.js"

/**
 * Repeats this effect forever (until the first error).
 */
export function forever<R, E, A>(
  effect: Effect<R, E, A>,
  __trace?: string
): Effect<R, E, never> {
  return chain_(effect, () => zipRight_(yieldNow, forever(effect)), __trace)
}