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

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

// ets_tracing: off

import type { Runtime } from "../Fiber/core.js"
import { bracket_ } from "./bracket.js"
import { chain_ } from "./core.js"
import { forkDaemon } from "./core-scope.js"
import type { Effect } from "./effect.js"
import { fiberId } from "./fiberId.js"

/**
 * Fork the effect into a separate fiber wrapping it in a bracket and returining the
 * `use` handle. Acquisition will fork and release will interrupt the fiber
 */
export function bracketFiber_<R, E, A, R2, E2, A2>(
  effect: Effect<R, E, A>,
  use: (f: Runtime<E, A>) => Effect<R2, E2, A2>,
  __trace?: string
) {
  return bracket_(
    forkDaemon(effect),
    (f) => chain_(fiberId, f.interruptAs),
    use,
    __trace
  )
}

/**
 * Fork the effect into a separate fiber wrapping it in a bracket.
 * Acquisition will fork and release will interrupt the fiber.
 *
 * @ets_data_first bracketFiber_
 */
export function bracketFiber<R2, E2, A2, E, A>(
  use: (f: Runtime<E, A>) => Effect<R2, E2, A2>,
  __trace?: string
) {
  return <R>(effect: Effect<R, E, A>) => bracketFiber_(effect, use, __trace)
}