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

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

// ets_tracing: off

import { chain_, provideAll_ } from "./core.js"
import type { Effect } from "./effect.js"

/**
 * Uses the output of `that` to provide to `self`
 *
 * @ets_data_first compose_
 */
export function compose<A, E1, B>(that: Effect<A, E1, B>, __trace?: string) {
  return <R, E>(self: Effect<R, E, A>) => compose_(self, that, __trace)
}

/**
 * Uses the output of `that` to provide to `self`
 */
export function compose_<A, E1, B, R, E>(
  self: Effect<R, E, A>,
  that: Effect<A, E1, B>,
  __trace?: string
) {
  return chain_(self, (r) => provideAll_(that, r), __trace)
}