UNPKG

@effect-ts/system

Version:

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

38 lines (33 loc) 1.15 kB
// ets_tracing: off import * as CK from "../../../../Collections/Immutable/Chunk/index.mjs"; import * as T from "../../../../Effect/index.mjs"; import * as CH from "../../Channel/index.mjs"; import * as LoopOnChunks from "./loopOnChunks.mjs"; /** * Loops on chunks emitting partially */ export function loopOnPartialChunks_(self, f) { return LoopOnChunks.loopOnChunks_(self, chunk => CH.unwrap(T.suspend(() => { const outputChunk = CK.builder(); const emit = a => T.succeedWith(() => { outputChunk.append(a); }); return T.catchAll_(T.map_(f(chunk, emit), cont => CH.chain_(CH.write(outputChunk.build()), () => CH.end(cont))), failure => T.succeedWith(() => { const partialResult = outputChunk.build(); if (CK.isEmpty(partialResult)) { return CH.fail(failure); } else { return CH.zipRight_(CH.write(partialResult), CH.fail(failure)); } })); }))); } /** * Loops on chunks emitting partially * * @ets_data_first loopOnPartialChunks_ */ export function loopOnPartialChunks(f) { return self => loopOnPartialChunks_(self, f); } //# sourceMappingURL=loopOnPartialChunks.mjs.map