@effect-ts/system/_src/Experimental/Stream/_internal/api/timeoutFailCause.ts

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

// ets_tracing: off

import * as CS from "../../../../Cause/index.js"
import type * as CL from "../../../../Clock/index.js"
import * as T from "../../../../Effect/index.js"
import * as M from "../../../../Managed/index.js"
import * as O from "../../../../Option/index.js"
import type * as C from "../core.js"
import * as FromPull from "./fromPull.js"
import * as ToPull from "./toPull.js"

/**
 * Fails the stream with given cause if it does not produce a value after d duration.
 */
export function timeoutFailCause_<R, E, E1, A>(
  self: C.Stream<R, E, A>,
  cause: CS.Cause<E1>,
  d: number
): C.Stream<R & CL.HasClock, E | E1, A> {
  return FromPull.fromPull(
    M.map_(ToPull.toPull(self), (pull) =>
      T.timeoutFailCause_(pull, () => CS.map_(cause, (_) => O.some<E | E1>(_)), d)
    )
  )
}

/**
 * Fails the stream with given cause if it does not produce a value after d duration.
 *
 * @ets_data_first timeoutFailCause_
 */
export function timeoutFailCause<E1>(cause: CS.Cause<E1>, d: number) {
  return <R, E, A>(self: C.Stream<R, E, A>) => timeoutFailCause_(self, cause, d)
}