@effect-ts/system/_src/Experimental/Stream/Channel/api/fromInput.ts

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

// ets_tracing: off

import * as C from "../core.js"
import * as Unwrap from "./unwrap.js"
import * as ZipRight from "./zipRight.js"

export function fromInput<Err, Elem, Done>(
  input: C.AsyncInputConsumer<Err, Elem, Done>
): C.Channel<unknown, unknown, unknown, unknown, Err, Elem, Done> {
  return Unwrap.unwrap(
    input.takeWith(
      (_) => C.failCause(_),
      (_) => ZipRight.zipRight_(C.write(_), fromInput(input)),
      (_) => C.end(_)
    )
  )
}