@effect-ts/system/_src/Managed/methods/ensuringFirst.ts

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

// ets_tracing: off

import type { Effect } from "../../Effect/index.js"
import { onExitFirst, onExitFirst_ } from "../core.js"
import type { Managed } from "../managed.js"

/**
 * Ensures that `f` is executed when this `Managed` is finalized, before
 * the existing finalizer.
 *
 * For use cases that need access to the Managed's result, see `onExitFirst`.
 *
 * @ets_data_first ensuringFirst_
 */
export function ensuringFirst<R1>(
  f: Effect<R1, never, unknown>,
  __trace?: string
): <R, E, A>(self: Managed<R, E, A>) => Managed<R & R1, E, A> {
  return onExitFirst(() => f, __trace)
}

/**
 * Ensures that `f` is executed when this `Managed` is finalized, before
 * the existing finalizer.
 *
 * For use cases that need access to the Managed's result, see `onExitFirst_`.
 */
export function ensuringFirst_<R, E, A, R1>(
  self: Managed<R, E, A>,
  f: Effect<R1, never, unknown>,
  __trace?: string
): Managed<R & R1, E, A> {
  return onExitFirst_(self, () => f, __trace)
}