@nlozgachev/pipelined 0.19.0 → 0.21.0

package/dist/chunk-SSZXZTIX.mjs

@@ -0,0 +1,1398 @@
+import {
+  Deferred,
+  Maybe,
+  Result,
+  Task
+} from "./chunk-2DPG2RDB.mjs";
+
+// src/Core/Lens.ts
+var Lens;
+((Lens2) => {
+  Lens2.make = (get2, set2) => ({ get: get2, set: set2 });
+  Lens2.prop = () => (key) => (0, Lens2.make)(
+    (s) => s[key],
+    (a) => (s) => ({ ...s, [key]: a })
+  );
+  Lens2.get = (lens) => (s) => lens.get(s);
+  Lens2.set = (lens) => (a) => (s) => lens.set(a)(s);
+  Lens2.modify = (lens) => (f) => (s) => lens.set(f(lens.get(s)))(s);
+  Lens2.andThen = (inner) => (outer) => (0, Lens2.make)(
+    (s) => inner.get(outer.get(s)),
+    (b) => (s) => outer.set(inner.set(b)(outer.get(s)))(s)
+  );
+  Lens2.andThenOptional = (inner) => (outer) => ({
+    get: (s) => inner.get(outer.get(s)),
+    set: (b) => (s) => outer.set(inner.set(b)(outer.get(s)))(s)
+  });
+  Lens2.toOptional = (lens) => ({
+    get: (s) => ({ kind: "Some", value: lens.get(s) }),
+    set: lens.set
+  });
+})(Lens || (Lens = {}));
+
+// src/Core/Logged.ts
+var Logged;
+((Logged2) => {
+  Logged2.make = (value) => ({ value, log: [] });
+  Logged2.tell = (entry) => ({ value: void 0, log: [entry] });
+  Logged2.map = (f) => (data) => ({
+    value: f(data.value),
+    log: data.log
+  });
+  Logged2.chain = (f) => (data) => {
+    const next = f(data.value);
+    return { value: next.value, log: [...data.log, ...next.log] };
+  };
+  Logged2.ap = (arg) => (data) => ({
+    value: data.value(arg.value),
+    log: [...data.log, ...arg.log]
+  });
+  Logged2.tap = (f) => (data) => {
+    f(data.value);
+    return data;
+  };
+  Logged2.run = (data) => [data.value, data.log];
+})(Logged || (Logged = {}));
+
+// src/internal/Op.util.ts
+var _abortedNil = { kind: "Nil", reason: "aborted" };
+var _droppedNil = { kind: "Nil", reason: "dropped" };
+var _replacedNil = { kind: "Nil", reason: "replaced" };
+var _evictedNil = { kind: "Nil", reason: "evicted" };
+var _idle = { kind: "Idle" };
+var _pending = { kind: "Pending" };
+var ok = (value) => ({ kind: "Ok", value });
+var err = (error) => ({ kind: "Err", error });
+var cancellableWait = (ms, signal) => {
+  if (ms <= 0) return Promise.resolve();
+  return new Promise((resolve) => {
+    const id = setTimeout(resolve, ms);
+    signal.addEventListener("abort", () => {
+      clearTimeout(id);
+      resolve();
+    }, { once: true });
+  });
+};
+var runWithRetry = (op, input, signal, options, onRetrying) => {
+  const { attempts, backoff, when: shouldRetry } = options;
+  const getDelay = (n) => backoff === void 0 ? 0 : typeof backoff === "function" ? backoff(n) : backoff;
+  const attempt = async (left) => {
+    const result = await Deferred.toPromise(op._factory(input, signal));
+    if (result === null || signal.aborted) return null;
+    if (result.kind === "Ok") return result;
+    if (left <= 1) return result;
+    if (shouldRetry !== void 0 && !shouldRetry(result.error)) return result;
+    const attemptNumber = attempts - left + 1;
+    const ms = getDelay(attemptNumber);
+    onRetrying({
+      kind: "Retrying",
+      attempt: attemptNumber,
+      lastError: result.error,
+      ...ms > 0 ? { nextRetryIn: ms } : {}
+    });
+    await cancellableWait(ms, signal);
+    if (signal.aborted) return null;
+    return attempt(left - 1);
+  };
+  return attempt(attempts);
+};
+var execute = (op, input, controller, retryOptions, timeoutOptions, onRetrying) => {
+  const { signal } = controller;
+  const toOutcome = (r) => r === null ? _abortedNil : r.kind === "Ok" ? ok(r.value) : err(r.error);
+  const runPromise = retryOptions !== void 0 && onRetrying !== void 0 ? runWithRetry(op, input, signal, retryOptions, onRetrying).then(toOutcome) : Deferred.toPromise(op._factory(input, signal)).then(toOutcome);
+  if (timeoutOptions === void 0) return Deferred.fromPromise(runPromise);
+  let timerId;
+  return Deferred.fromPromise(Promise.race([
+    runPromise.then((outcome) => {
+      clearTimeout(timerId);
+      return outcome;
+    }),
+    new Promise((resolve) => {
+      timerId = setTimeout(() => {
+        controller.abort();
+        resolve(err(timeoutOptions.onTimeout()));
+      }, timeoutOptions.ms);
+    })
+  ]));
+};
+var makeRestartable = (op, minInterval, retryOptions, timeoutOptions) => {
+  let currentState = _idle;
+  let currentController;
+  let currentResolve;
+  let waitController;
+  let lastStartTime = 0;
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const run = (input) => Deferred.fromPromise(
+    new Promise((resolve) => {
+      waitController?.abort();
+      waitController = void 0;
+      currentController?.abort();
+      const prev = currentResolve;
+      currentResolve = resolve;
+      currentController = new AbortController();
+      const controller = currentController;
+      prev?.(_replacedNil);
+      const startExecution = () => {
+        if (currentController !== controller) return;
+        lastStartTime = Date.now();
+        emit(_pending);
+        const onRetrying = retryOptions ? (r) => {
+          if (currentController === controller) emit(r);
+        } : void 0;
+        execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+          if (currentController !== controller) return;
+          const r = currentResolve;
+          currentResolve = void 0;
+          currentController = void 0;
+          emit(outcome);
+          r?.(outcome);
+        });
+      };
+      const gap = minInterval !== void 0 ? Math.max(0, minInterval - (Date.now() - lastStartTime)) : 0;
+      if (gap > 0) {
+        waitController = new AbortController();
+        const wc = waitController;
+        cancellableWait(gap, wc.signal).then(() => {
+          if (waitController === wc) waitController = void 0;
+          startExecution();
+        });
+      } else {
+        startExecution();
+      }
+    })
+  );
+  const abort = () => {
+    waitController?.abort();
+    waitController = void 0;
+    currentController?.abort();
+    currentController = void 0;
+    const r = currentResolve;
+    currentResolve = void 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    r?.(_abortedNil);
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeExclusive = (op, cooldown, retryOptions, timeoutOptions) => {
+  let currentState = _idle;
+  let currentController;
+  let currentResolve;
+  let cooldownTimer;
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const run = (input) => {
+    if (currentController !== void 0 || cooldownTimer !== void 0) {
+      return Deferred.fromPromise(Promise.resolve(_droppedNil));
+    }
+    return Deferred.fromPromise(
+      new Promise((resolve) => {
+        currentResolve = resolve;
+        currentController = new AbortController();
+        const controller = currentController;
+        emit(_pending);
+        const onRetrying = retryOptions ? (r) => {
+          if (currentController === controller) emit(r);
+        } : void 0;
+        execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+          if (currentController !== controller) return;
+          const r = currentResolve;
+          currentResolve = void 0;
+          currentController = void 0;
+          emit(outcome);
+          r?.(outcome);
+          if (cooldown !== void 0 && cooldown > 0) {
+            cooldownTimer = setTimeout(() => {
+              cooldownTimer = void 0;
+            }, cooldown);
+          }
+        });
+      })
+    );
+  };
+  const abort = () => {
+    if (cooldownTimer !== void 0) {
+      clearTimeout(cooldownTimer);
+      cooldownTimer = void 0;
+    }
+    currentController?.abort();
+    currentController = void 0;
+    const r = currentResolve;
+    currentResolve = void 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    r?.(_abortedNil);
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeQueue = (op, maxSize, overflow, concurrency, dedupe, retryOptions, timeoutOptions) => {
+  const maxConcurrency = concurrency ?? 1;
+  let currentState = _idle;
+  let generation = 0;
+  let inFlight = 0;
+  const queue = [];
+  const inflightControllers = /* @__PURE__ */ new Set();
+  const inflightResolvers = [];
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const startOne = (input, resolve, myGeneration) => {
+    inFlight++;
+    const controller = new AbortController();
+    inflightControllers.add(controller);
+    inflightResolvers.push(resolve);
+    emit(_pending);
+    const onRetrying = retryOptions ? (r) => {
+      if (generation === myGeneration && inflightControllers.has(controller)) emit(r);
+    } : void 0;
+    execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+      inflightControllers.delete(controller);
+      const idx = inflightResolvers.indexOf(resolve);
+      if (idx !== -1) inflightResolvers.splice(idx, 1);
+      if (generation !== myGeneration) {
+        resolve(_abortedNil);
+        return;
+      }
+      inFlight--;
+      emit(outcome);
+      resolve(outcome);
+      if (queue.length > 0) {
+        const next = queue.shift();
+        startOne(next.input, next.resolve, generation);
+      }
+    });
+  };
+  const run = (input) => {
+    const myGeneration = generation;
+    if (dedupe !== void 0) {
+      const idx = queue.findIndex((item) => dedupe(input, item.input));
+      if (idx !== -1) {
+        const dup = queue.splice(idx, 1)[0];
+        dup.resolve(_droppedNil);
+      }
+    }
+    if (inFlight < maxConcurrency) {
+      return Deferred.fromPromise(
+        new Promise((resolve) => {
+          startOne(input, resolve, myGeneration);
+        })
+      );
+    }
+    if (maxSize === void 0 || queue.length < maxSize) {
+      return Deferred.fromPromise(
+        new Promise((resolve) => {
+          queue.push({ input, resolve });
+          emit({ kind: "Queued", position: queue.length - 1 });
+        })
+      );
+    }
+    if (overflow === "replace-last") {
+      return Deferred.fromPromise(
+        new Promise((resolve) => {
+          const tail = queue.pop();
+          tail.resolve(_evictedNil);
+          queue.push({ input, resolve });
+          emit({ kind: "Queued", position: queue.length - 1 });
+        })
+      );
+    }
+    return Deferred.fromPromise(Promise.resolve(_droppedNil));
+  };
+  const abort = () => {
+    generation++;
+    inflightControllers.forEach((c) => c.abort());
+    inflightControllers.clear();
+    const toResolve = inflightResolvers.splice(0);
+    const queuedResolvers = queue.splice(0).map((item) => item.resolve);
+    inFlight = 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    toResolve.forEach((r) => r(_abortedNil));
+    queuedResolvers.forEach((r) => r(_abortedNil));
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeBuffered = (op, size, retryOptions, timeoutOptions) => {
+  const bufferSize = size ?? 1;
+  let currentState = _idle;
+  let currentController;
+  let currentResolve;
+  const buffer = [];
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const startRun = (input, resolve) => {
+    currentResolve = resolve;
+    currentController = new AbortController();
+    const controller = currentController;
+    emit(_pending);
+    const onRetrying = retryOptions ? (r) => {
+      if (currentController === controller) emit(r);
+    } : void 0;
+    execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+      if (currentController !== controller) return;
+      const r = currentResolve;
+      currentResolve = void 0;
+      currentController = void 0;
+      emit(outcome);
+      r?.(outcome);
+      if (buffer.length > 0) {
+        const next = buffer.shift();
+        startRun(next.input, next.resolve);
+      }
+    });
+  };
+  const run = (input) => Deferred.fromPromise(
+    new Promise((resolve) => {
+      if (currentController === void 0) {
+        startRun(input, resolve);
+      } else if (buffer.length < bufferSize) {
+        buffer.push({ input, resolve });
+        emit({ kind: "Queued", position: buffer.length - 1 });
+      } else {
+        const evicted = buffer.shift();
+        evicted.resolve(_evictedNil);
+        buffer.push({ input, resolve });
+        emit({ kind: "Queued", position: buffer.length - 1 });
+      }
+    })
+  );
+  const abort = () => {
+    currentController?.abort();
+    currentController = void 0;
+    const cr = currentResolve;
+    currentResolve = void 0;
+    const bufferedResolvers = buffer.splice(0).map((item) => item.resolve);
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    cr?.(_abortedNil);
+    bufferedResolvers.forEach((r) => r(_abortedNil));
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeDebounced = (op, ms, leading, maxWait, retryOptions, timeoutOptions) => {
+  let currentState = _idle;
+  let currentController;
+  let currentResolve;
+  let leadingController;
+  let leadingResolve;
+  let pendingResolve;
+  let timerId;
+  let pendingInput;
+  let firstCallAt = 0;
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const fireLeading = (input, resolve) => {
+    leadingController = new AbortController();
+    const controller = leadingController;
+    leadingResolve = resolve;
+    emit(_pending);
+    const onRetrying = retryOptions ? (r) => {
+      if (leadingController === controller) emit(r);
+    } : void 0;
+    execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+      if (leadingController !== controller) return;
+      const r = leadingResolve;
+      leadingResolve = void 0;
+      leadingController = void 0;
+      emit(outcome);
+      r?.(outcome);
+    });
+  };
+  const fireTrailing = () => {
+    timerId = void 0;
+    firstCallAt = 0;
+    const capturedResolve = pendingResolve;
+    pendingResolve = void 0;
+    if (capturedResolve === void 0) return;
+    currentResolve = capturedResolve;
+    const toRun = pendingInput;
+    pendingInput = void 0;
+    currentController = new AbortController();
+    const controller = currentController;
+    emit(_pending);
+    const onRetrying = retryOptions ? (r) => {
+      if (currentController === controller) emit(r);
+    } : void 0;
+    execute(op, toRun, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+      if (currentController !== controller) return;
+      const r = currentResolve;
+      currentResolve = void 0;
+      currentController = void 0;
+      emit(outcome);
+      r?.(outcome);
+    });
+  };
+  const scheduleTrailing = () => {
+    if (timerId !== void 0) clearTimeout(timerId);
+    let delay = ms;
+    if (maxWait !== void 0 && firstCallAt > 0) {
+      const maxDelay = firstCallAt + maxWait - Date.now();
+      delay = Math.min(ms, Math.max(0, maxDelay));
+    }
+    timerId = setTimeout(fireTrailing, delay);
+  };
+  const inDebounceWindow = () => timerId !== void 0 || leadingController !== void 0 || currentController !== void 0;
+  const run = (input) => Deferred.fromPromise(
+    new Promise((resolve) => {
+      if (!inDebounceWindow()) {
+        firstCallAt = Date.now();
+        if (leading) {
+          fireLeading(input, resolve);
+          scheduleTrailing();
+        } else {
+          pendingInput = input;
+          pendingResolve = resolve;
+          scheduleTrailing();
+        }
+      } else {
+        const prev = pendingResolve;
+        pendingInput = input;
+        pendingResolve = resolve;
+        prev?.(_evictedNil);
+        scheduleTrailing();
+      }
+    })
+  );
+  const abort = () => {
+    if (timerId !== void 0) {
+      clearTimeout(timerId);
+      timerId = void 0;
+      pendingInput = void 0;
+      firstCallAt = 0;
+    }
+    const pr = pendingResolve;
+    pendingResolve = void 0;
+    const cr = currentResolve;
+    currentResolve = void 0;
+    currentController?.abort();
+    currentController = void 0;
+    const lr = leadingResolve;
+    leadingResolve = void 0;
+    leadingController?.abort();
+    leadingController = void 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    pr?.(_abortedNil);
+    cr?.(_abortedNil);
+    lr?.(_abortedNil);
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeThrottled = (op, ms, trailing, retryOptions, timeoutOptions) => {
+  let currentState = _idle;
+  let currentController;
+  let currentResolve;
+  let cooldownTimer;
+  let pendingInput;
+  let pendingResolve;
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const fireOp = (input, resolve) => {
+    currentResolve = resolve;
+    currentController = new AbortController();
+    const controller = currentController;
+    emit(_pending);
+    const onRetrying = retryOptions ? (r) => {
+      if (currentController === controller) emit(r);
+    } : void 0;
+    execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+      if (currentController !== controller) return;
+      const r = currentResolve;
+      currentResolve = void 0;
+      currentController = void 0;
+      emit(outcome);
+      r?.(outcome);
+    });
+  };
+  const startCooldown = () => {
+    cooldownTimer = setTimeout(() => {
+      cooldownTimer = void 0;
+      if (trailing && pendingInput !== void 0) {
+        const input = pendingInput;
+        const resolve = pendingResolve;
+        pendingInput = void 0;
+        pendingResolve = void 0;
+        fireOp(input, resolve);
+        startCooldown();
+      }
+    }, ms);
+  };
+  const run = (input) => {
+    if (cooldownTimer !== void 0) {
+      if (!trailing) {
+        return Deferred.fromPromise(Promise.resolve(_droppedNil));
+      }
+      return Deferred.fromPromise(
+        new Promise((resolve) => {
+          const prev = pendingResolve;
+          pendingInput = input;
+          pendingResolve = resolve;
+          prev?.(_evictedNil);
+        })
+      );
+    }
+    return Deferred.fromPromise(
+      new Promise((resolve) => {
+        fireOp(input, resolve);
+        startCooldown();
+      })
+    );
+  };
+  const abort = () => {
+    if (cooldownTimer !== void 0) {
+      clearTimeout(cooldownTimer);
+      cooldownTimer = void 0;
+    }
+    currentController?.abort();
+    currentController = void 0;
+    const cr = currentResolve;
+    currentResolve = void 0;
+    const pr = pendingResolve;
+    pendingResolve = void 0;
+    pendingInput = void 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    cr?.(_abortedNil);
+    pr?.(_abortedNil);
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeConcurrent = (op, n, overflow, retryOptions, timeoutOptions) => {
+  let currentState = _idle;
+  let inflight = 0;
+  let generation = 0;
+  const controllers = /* @__PURE__ */ new Set();
+  const inflightResolvers = [];
+  const overflowQueue = [];
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const startOne = (input, resolve, myGeneration) => {
+    inflight++;
+    const controller = new AbortController();
+    controllers.add(controller);
+    inflightResolvers.push(resolve);
+    emit(_pending);
+    const onRetrying = retryOptions ? (r) => {
+      if (generation === myGeneration && controllers.has(controller)) emit(r);
+    } : void 0;
+    execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+      controllers.delete(controller);
+      const idx = inflightResolvers.indexOf(resolve);
+      if (idx !== -1) inflightResolvers.splice(idx, 1);
+      if (generation !== myGeneration) {
+        resolve(_abortedNil);
+        return;
+      }
+      inflight--;
+      emit(outcome);
+      resolve(outcome);
+      if (overflowQueue.length > 0) {
+        const next = overflowQueue.shift();
+        startOne(next.input, next.resolve, generation);
+      }
+    });
+  };
+  const run = (input) => {
+    const myGeneration = generation;
+    if (inflight < n) {
+      return Deferred.fromPromise(
+        new Promise((resolve) => {
+          startOne(input, resolve, myGeneration);
+        })
+      );
+    }
+    if (overflow === "drop") {
+      return Deferred.fromPromise(Promise.resolve(_droppedNil));
+    }
+    return Deferred.fromPromise(
+      new Promise((resolve) => {
+        overflowQueue.push({ input, resolve });
+        emit({ kind: "Queued", position: overflowQueue.length - 1 });
+      })
+    );
+  };
+  const abort = () => {
+    generation++;
+    controllers.forEach((c) => c.abort());
+    controllers.clear();
+    const toResolve = inflightResolvers.splice(0);
+    const queuedResolvers = overflowQueue.splice(0).map((item) => item.resolve);
+    inflight = 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    toResolve.forEach((r) => r(_abortedNil));
+    queuedResolvers.forEach((r) => r(_abortedNil));
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeKeyed = (op, keyFn, perKey, timeoutOptions) => {
+  const stateMap = /* @__PURE__ */ new Map();
+  const slots = /* @__PURE__ */ new Map();
+  const subscribers = /* @__PURE__ */ new Set();
+  const emitSnapshot = () => {
+    const snapshot = new Map(stateMap);
+    subscribers.forEach((cb) => cb(snapshot));
+  };
+  const run = (input) => {
+    const k = keyFn(input);
+    if (slots.has(k)) {
+      if (perKey === "exclusive") {
+        return Deferred.fromPromise(Promise.resolve(_droppedNil));
+      }
+      const existing = slots.get(k);
+      existing.controller.abort();
+      const prev = existing.resolve;
+      slots.delete(k);
+      prev(_replacedNil);
+    }
+    return Deferred.fromPromise(
+      new Promise((resolve) => {
+        const controller = new AbortController();
+        slots.set(k, { controller, resolve });
+        stateMap.set(k, _pending);
+        emitSnapshot();
+        execute(op, input, controller, void 0, timeoutOptions, void 0).then((outcome) => {
+          const slot = slots.get(k);
+          if (!slot || slot.controller !== controller) {
+            resolve(_abortedNil);
+            return;
+          }
+          slots.delete(k);
+          stateMap.set(k, outcome);
+          emitSnapshot();
+          resolve(outcome);
+        });
+      })
+    );
+  };
+  const abort = (key) => {
+    if (key !== void 0) {
+      const slot = slots.get(key);
+      if (slot) {
+        slot.controller.abort();
+        const r = slot.resolve;
+        slots.delete(key);
+        stateMap.set(key, _abortedNil);
+        emitSnapshot();
+        r(_abortedNil);
+      }
+    } else {
+      const toResolve = [];
+      for (const [k, slot] of slots) {
+        slot.controller.abort();
+        toResolve.push(slot.resolve);
+        stateMap.set(k, _abortedNil);
+      }
+      slots.clear();
+      if (toResolve.length > 0) emitSnapshot();
+      toResolve.forEach((r) => r(_abortedNil));
+    }
+  };
+  return {
+    get state() {
+      return new Map(stateMap);
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (stateMap.size > 0) cb(new Map(stateMap));
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+var makeOnce = (op, retryOptions, timeoutOptions) => {
+  let currentState = _idle;
+  let currentController;
+  let currentResolve;
+  const subscribers = /* @__PURE__ */ new Set();
+  const emit = (state) => {
+    currentState = state;
+    subscribers.forEach((cb) => cb(state));
+  };
+  const run = (input) => {
+    if (currentState.kind !== "Idle") {
+      return Deferred.fromPromise(Promise.resolve(_droppedNil));
+    }
+    return Deferred.fromPromise(
+      new Promise((resolve) => {
+        currentResolve = resolve;
+        currentController = new AbortController();
+        const controller = currentController;
+        emit(_pending);
+        const onRetrying = retryOptions ? (r) => {
+          if (currentController === controller) emit(r);
+        } : void 0;
+        execute(op, input, controller, retryOptions, timeoutOptions, onRetrying).then((outcome) => {
+          if (currentController !== controller) return;
+          const r = currentResolve;
+          currentResolve = void 0;
+          currentController = void 0;
+          emit(outcome);
+          r?.(outcome);
+        });
+      })
+    );
+  };
+  const abort = () => {
+    currentController?.abort();
+    currentController = void 0;
+    const r = currentResolve;
+    currentResolve = void 0;
+    if (currentState.kind !== "Idle") emit(_abortedNil);
+    r?.(_abortedNil);
+  };
+  return {
+    get state() {
+      return currentState;
+    },
+    run,
+    abort,
+    subscribe: (cb) => {
+      subscribers.add(cb);
+      if (currentState.kind !== "Idle") cb(currentState);
+      return () => subscribers.delete(cb);
+    }
+  };
+};
+
+// src/Core/Op.ts
+var Op;
+((Op2) => {
+  Op2.nil = (reason) => ({ kind: "Nil", reason });
+  Op2.create = (factory, onError) => ({
+    _factory: (input, signal) => Deferred.fromPromise(
+      factory(input, signal).then((value) => Result.ok(value)).catch((e) => signal.aborted ? null : Result.err(onError(e)))
+    )
+  });
+  Op2.ok = (value) => ({ kind: "Ok", value });
+  Op2.err = (error) => ({ kind: "Err", error });
+  Op2.isOk = (outcome) => outcome.kind === "Ok";
+  Op2.isErr = (outcome) => outcome.kind === "Err";
+  Op2.isNil = (outcome) => outcome.kind === "Nil";
+  Op2.match = (cases) => (outcome) => {
+    if (outcome.kind === "Ok") return cases.ok(outcome.value);
+    if (outcome.kind === "Err") return cases.err(outcome.error);
+    return cases.nil();
+  };
+  Op2.fold = (onErr, onOk, onNil) => (outcome) => {
+    if (outcome.kind === "Ok") return onOk(outcome.value);
+    if (outcome.kind === "Err") return onErr(outcome.error);
+    return onNil();
+  };
+  Op2.getOrElse = (defaultValue) => (outcome) => outcome.kind === "Ok" ? outcome.value : defaultValue();
+  Op2.map = (f) => (outcome) => outcome.kind === "Ok" ? (0, Op2.ok)(f(outcome.value)) : outcome;
+  Op2.mapError = (f) => (outcome) => outcome.kind === "Err" ? (0, Op2.err)(f(outcome.error)) : outcome;
+  Op2.chain = (f) => (outcome) => outcome.kind === "Ok" ? f(outcome.value) : outcome;
+  Op2.tap = (f) => (outcome) => {
+    if (outcome.kind === "Ok") f(outcome.value);
+    return outcome;
+  };
+  Op2.recover = (f) => (outcome) => outcome.kind === "Err" ? f(outcome.error) : outcome;
+  Op2.toResult = (onNil) => (outcome) => {
+    if (outcome.kind === "Ok") return Result.ok(outcome.value);
+    if (outcome.kind === "Err") return Result.err(outcome.error);
+    return Result.err(onNil());
+  };
+  Op2.toMaybe = (outcome) => outcome.kind === "Ok" ? Maybe.some(outcome.value) : Maybe.none();
+  Op2.all = (invocations) => Deferred.fromPromise(Promise.all(invocations.map(Deferred.toPromise)));
+  Op2.race = (invocations) => Deferred.fromPromise(Promise.race(invocations.map(Deferred.toPromise)));
+  function interpret(op, options) {
+    const { strategy, retry: retryOptions, timeout: timeoutOptions } = options;
+    switch (strategy) {
+      case "once":
+        return makeOnce(op, retryOptions, timeoutOptions);
+      case "restartable":
+        return makeRestartable(op, options.minInterval, retryOptions, timeoutOptions);
+      case "exclusive":
+        return makeExclusive(op, options.cooldown, retryOptions, timeoutOptions);
+      case "queue":
+        return makeQueue(
+          op,
+          options.maxSize,
+          options.overflow,
+          options.concurrency,
+          options.dedupe,
+          retryOptions,
+          timeoutOptions
+        );
+      case "buffered":
+        return makeBuffered(op, options.size, retryOptions, timeoutOptions);
+      case "debounced":
+        return makeDebounced(op, options.ms ?? 0, options.leading ?? false, options.maxWait, retryOptions, timeoutOptions);
+      case "throttled":
+        return makeThrottled(op, options.ms ?? 0, options.trailing ?? false, retryOptions, timeoutOptions);
+      case "concurrent":
+        return makeConcurrent(
+          op,
+          options.n ?? 1,
+          options.overflow ?? "drop",
+          retryOptions,
+          timeoutOptions
+        );
+      case "keyed":
+        return makeKeyed(op, options.key ?? ((i) => i), options.perKey ?? "exclusive", timeoutOptions);
+    }
+  }
+  Op2.interpret = interpret;
+})(Op || (Op = {}));
+
+// src/Core/Optional.ts
+var Optional;
+((Optional2) => {
+  Optional2.make = (get2, set2) => ({ get: get2, set: set2 });
+  Optional2.prop = () => (key) => (0, Optional2.make)(
+    (s) => {
+      const val = s[key];
+      return val !== null && val !== void 0 ? Maybe.some(val) : Maybe.none();
+    },
+    (a) => (s) => ({ ...s, [key]: a })
+  );
+  Optional2.index = (i) => (0, Optional2.make)(
+    (arr) => i >= 0 && i < arr.length ? Maybe.some(arr[i]) : Maybe.none(),
+    (a) => (arr) => {
+      if (i < 0 || i >= arr.length) return arr;
+      const copy = [...arr];
+      copy[i] = a;
+      return copy;
+    }
+  );
+  Optional2.get = (opt) => (s) => opt.get(s);
+  Optional2.set = (opt) => (a) => (s) => opt.set(a)(s);
+  Optional2.modify = (opt) => (f) => (s) => {
+    const val = opt.get(s);
+    return val.kind === "None" ? s : opt.set(f(val.value))(s);
+  };
+  Optional2.getOrElse = (opt) => (defaultValue) => (s) => {
+    const val = opt.get(s);
+    return val.kind === "Some" ? val.value : defaultValue();
+  };
+  Optional2.fold = (opt) => (onNone, onSome) => (s) => {
+    const val = opt.get(s);
+    return val.kind === "Some" ? onSome(val.value) : onNone();
+  };
+  Optional2.match = (opt) => (cases) => (s) => {
+    const val = opt.get(s);
+    return val.kind === "Some" ? cases.some(val.value) : cases.none();
+  };
+  Optional2.andThen = (inner) => (outer) => (0, Optional2.make)(
+    (s) => {
+      const mid = outer.get(s);
+      return mid.kind === "None" ? Maybe.none() : inner.get(mid.value);
+    },
+    (b) => (s) => {
+      const mid = outer.get(s);
+      return mid.kind === "None" ? s : outer.set(inner.set(b)(mid.value))(s);
+    }
+  );
+  Optional2.andThenLens = (inner) => (outer) => (0, Optional2.make)(
+    (s) => {
+      const mid = outer.get(s);
+      return mid.kind === "None" ? Maybe.none() : Maybe.some(inner.get(mid.value));
+    },
+    (b) => (s) => {
+      const mid = outer.get(s);
+      return mid.kind === "None" ? s : outer.set(inner.set(b)(mid.value))(s);
+    }
+  );
+})(Optional || (Optional = {}));
+
+// src/Core/Predicate.ts
+var Predicate;
+((Predicate2) => {
+  Predicate2.not = (p) => (a) => !p(a);
+  Predicate2.and = (second) => (first) => (a) => first(a) && second(a);
+  Predicate2.or = (second) => (first) => (a) => first(a) || second(a);
+  Predicate2.using = (f) => (p) => (b) => p(f(b));
+  Predicate2.all = (predicates) => (a) => predicates.every((p) => p(a));
+  Predicate2.any = (predicates) => (a) => predicates.some((p) => p(a));
+  Predicate2.fromRefinement = (r) => r;
+})(Predicate || (Predicate = {}));
+
+// src/Core/Reader.ts
+var Reader;
+((Reader2) => {
+  Reader2.resolve = (value) => (_env) => value;
+  Reader2.ask = () => (env) => env;
+  Reader2.asks = (f) => (env) => f(env);
+  Reader2.map = (f) => (data) => (env) => f(data(env));
+  Reader2.chain = (f) => (data) => (env) => f(data(env))(env);
+  Reader2.ap = (arg) => (data) => (env) => data(env)(arg(env));
+  Reader2.tap = (f) => (data) => (env) => {
+    const a = data(env);
+    f(a);
+    return a;
+  };
+  Reader2.local = (f) => (data) => (env) => data(f(env));
+  Reader2.run = (env) => (data) => data(env);
+})(Reader || (Reader = {}));
+
+// src/Core/Refinement.ts
+var Refinement;
+((Refinement2) => {
+  Refinement2.make = (f) => f;
+  Refinement2.compose = (bc) => (ab) => (a) => ab(a) && bc(a);
+  Refinement2.and = (second) => (first) => (a) => first(a) && second(a);
+  Refinement2.or = (second) => (first) => (a) => first(a) || second(a);
+  Refinement2.toFilter = (r) => (a) => r(a) ? Maybe.some(a) : Maybe.none();
+  Refinement2.toResult = (r, onFail) => (a) => r(a) ? Result.ok(a) : Result.err(onFail(a));
+})(Refinement || (Refinement = {}));
+
+// src/Core/RemoteData.ts
+var _notAsked = { kind: "NotAsked" };
+var _loading = { kind: "Loading" };
+var RemoteData;
+((RemoteData2) => {
+  RemoteData2.notAsked = () => _notAsked;
+  RemoteData2.loading = () => _loading;
+  RemoteData2.failure = (error) => ({
+    kind: "Failure",
+    error
+  });
+  RemoteData2.success = (value) => ({
+    kind: "Success",
+    value
+  });
+  RemoteData2.isNotAsked = (data) => data.kind === "NotAsked";
+  RemoteData2.isLoading = (data) => data.kind === "Loading";
+  RemoteData2.isFailure = (data) => data.kind === "Failure";
+  RemoteData2.isSuccess = (data) => data.kind === "Success";
+  RemoteData2.map = (f) => (data) => (0, RemoteData2.isSuccess)(data) ? (0, RemoteData2.success)(f(data.value)) : data;
+  RemoteData2.mapError = (f) => (data) => (0, RemoteData2.isFailure)(data) ? (0, RemoteData2.failure)(f(data.error)) : data;
+  RemoteData2.chain = (f) => (data) => (0, RemoteData2.isSuccess)(data) ? f(data.value) : data;
+  RemoteData2.ap = (arg) => (data) => {
+    if ((0, RemoteData2.isSuccess)(data) && (0, RemoteData2.isSuccess)(arg)) {
+      return (0, RemoteData2.success)(data.value(arg.value));
+    }
+    if ((0, RemoteData2.isFailure)(data)) return data;
+    if ((0, RemoteData2.isFailure)(arg)) return arg;
+    if ((0, RemoteData2.isLoading)(data) || (0, RemoteData2.isLoading)(arg)) return (0, RemoteData2.loading)();
+    return (0, RemoteData2.notAsked)();
+  };
+  RemoteData2.fold = (onNotAsked, onLoading, onFailure, onSuccess) => (data) => {
+    switch (data.kind) {
+      case "NotAsked":
+        return onNotAsked();
+      case "Loading":
+        return onLoading();
+      case "Failure":
+        return onFailure(data.error);
+      case "Success":
+        return onSuccess(data.value);
+    }
+  };
+  RemoteData2.match = (cases) => (data) => {
+    switch (data.kind) {
+      case "NotAsked":
+        return cases.notAsked();
+      case "Loading":
+        return cases.loading();
+      case "Failure":
+        return cases.failure(data.error);
+      case "Success":
+        return cases.success(data.value);
+    }
+  };
+  RemoteData2.getOrElse = (defaultValue) => (data) => (0, RemoteData2.isSuccess)(data) ? data.value : defaultValue();
+  RemoteData2.tap = (f) => (data) => {
+    if ((0, RemoteData2.isSuccess)(data)) f(data.value);
+    return data;
+  };
+  RemoteData2.recover = (fallback) => (data) => (0, RemoteData2.isFailure)(data) ? fallback(data.error) : data;
+  RemoteData2.toMaybe = (data) => (0, RemoteData2.isSuccess)(data) ? Maybe.some(data.value) : Maybe.none();
+  RemoteData2.toResult = (onNotReady) => (data) => (0, RemoteData2.isSuccess)(data) ? Result.ok(data.value) : Result.err((0, RemoteData2.isFailure)(data) ? data.error : onNotReady());
+})(RemoteData || (RemoteData = {}));
+
+// src/Core/Resource.ts
+var Resource;
+((Resource2) => {
+  Resource2.make = (acquire, release) => ({ acquire, release });
+  Resource2.fromTask = (acquire, release) => ({
+    acquire: Task.map((a) => Result.ok(a))(acquire),
+    release
+  });
+  Resource2.use = (f) => (resource) => Task.from(
+    () => Deferred.toPromise(resource.acquire()).then(async (acquired) => {
+      if (Result.isErr(acquired)) return acquired;
+      const a = acquired.value;
+      const usageResult = await Deferred.toPromise(f(a)());
+      await Deferred.toPromise(resource.release(a)());
+      return usageResult;
+    })
+  );
+  Resource2.combine = (resourceA, resourceB) => ({
+    acquire: Task.from(
+      () => Deferred.toPromise(resourceA.acquire()).then(async (acquiredA) => {
+        if (Result.isErr(acquiredA)) return acquiredA;
+        const a = acquiredA.value;
+        const acquiredB = await Deferred.toPromise(resourceB.acquire());
+        if (Result.isErr(acquiredB)) {
+          await Deferred.toPromise(resourceA.release(a)());
+          return acquiredB;
+        }
+        return Result.ok([a, acquiredB.value]);
+      })
+    ),
+    release: ([a, b]) => Task.from(() => Deferred.toPromise(resourceB.release(b)()).then(() => Deferred.toPromise(resourceA.release(a)())))
+  });
+})(Resource || (Resource = {}));
+
+// src/Core/State.ts
+var State;
+((State2) => {
+  State2.resolve = (value) => (s) => [value, s];
+  State2.get = () => (s) => [s, s];
+  State2.gets = (f) => (s) => [f(s), s];
+  State2.put = (newState) => (_s) => [void 0, newState];
+  State2.modify = (f) => (s) => [void 0, f(s)];
+  State2.map = (f) => (st) => (s) => {
+    const [a, s1] = st(s);
+    return [f(a), s1];
+  };
+  State2.chain = (f) => (st) => (s) => {
+    const [a, s1] = st(s);
+    return f(a)(s1);
+  };
+  State2.ap = (arg) => (fn) => (s) => {
+    const [f, s1] = fn(s);
+    const [a, s2] = arg(s1);
+    return [f(a), s2];
+  };
+  State2.tap = (f) => (st) => (s) => {
+    const [a, s1] = st(s);
+    f(a);
+    return [a, s1];
+  };
+  State2.run = (initialState) => (st) => st(initialState);
+  State2.evaluate = (initialState) => (st) => st(initialState)[0];
+  State2.execute = (initialState) => (st) => st(initialState)[1];
+})(State || (State = {}));
+
+// src/Core/TaskMaybe.ts
+var TaskMaybe;
+((TaskMaybe2) => {
+  TaskMaybe2.some = (value) => Task.resolve(Maybe.some(value));
+  TaskMaybe2.none = () => Task.resolve(Maybe.none());
+  TaskMaybe2.fromMaybe = (option) => Task.resolve(option);
+  TaskMaybe2.fromTask = (task) => Task.map(Maybe.some)(task);
+  TaskMaybe2.tryCatch = (f) => Task.from(
+    () => f().then(Maybe.some).catch(() => Maybe.none())
+  );
+  TaskMaybe2.map = (f) => (data) => Task.map(Maybe.map(f))(data);
+  TaskMaybe2.chain = (f) => (data) => Task.chain((option) => Maybe.isSome(option) ? f(option.value) : Task.resolve(Maybe.none()))(data);
+  TaskMaybe2.ap = (arg) => (data) => Task.from(
+    () => Promise.all([
+      Deferred.toPromise(data()),
+      Deferred.toPromise(arg())
+    ]).then(([of_, oa]) => Maybe.ap(oa)(of_))
+  );
+  TaskMaybe2.fold = (onNone, onSome) => (data) => Task.map(Maybe.fold(onNone, onSome))(data);
+  TaskMaybe2.match = (cases) => (data) => Task.map(Maybe.match(cases))(data);
+  TaskMaybe2.getOrElse = (defaultValue) => (data) => Task.map(Maybe.getOrElse(defaultValue))(data);
+  TaskMaybe2.tap = (f) => (data) => Task.map(Maybe.tap(f))(data);
+  TaskMaybe2.filter = (predicate) => (data) => Task.map(Maybe.filter(predicate))(data);
+  TaskMaybe2.toTaskResult = (onNone) => (data) => Task.map(Maybe.toResult(onNone))(data);
+})(TaskMaybe || (TaskMaybe = {}));
+
+// src/Core/TaskResult.ts
+var TaskResult;
+((TaskResult2) => {
+  TaskResult2.ok = (value) => Task.resolve(Result.ok(value));
+  TaskResult2.err = (error) => Task.resolve(Result.err(error));
+  TaskResult2.tryCatch = (f, onError) => Task.from(
+    (signal) => f(signal).then(Result.ok).catch((e) => Result.err(onError(e)))
+  );
+  TaskResult2.map = (f) => (data) => Task.map(Result.map(f))(data);
+  TaskResult2.mapError = (f) => (data) => Task.map(Result.mapError(f))(data);
+  TaskResult2.chain = (f) => (data) => Task.chain((result) => Result.isOk(result) ? f(result.value) : Task.resolve(Result.err(result.error)))(
+    data
+  );
+  TaskResult2.fold = (onErr, onOk) => (data) => Task.map(Result.fold(onErr, onOk))(data);
+  TaskResult2.match = (cases) => (data) => Task.map(Result.match(cases))(data);
+  TaskResult2.recover = (fallback) => (data) => Task.chain(
+    (result) => Result.isErr(result) ? fallback(result.error) : Task.resolve(result)
+  )(data);
+  TaskResult2.getOrElse = (defaultValue) => (data) => Task.map(Result.getOrElse(defaultValue))(data);
+  TaskResult2.tap = (f) => (data) => Task.map(Result.tap(f))(data);
+})(TaskResult || (TaskResult = {}));
+
+// src/Core/Validation.ts
+var Validation;
+((Validation2) => {
+  Validation2.valid = (value) => ({
+    kind: "Valid",
+    value
+  });
+  Validation2.invalid = (error) => ({
+    kind: "Invalid",
+    errors: [error]
+  });
+  Validation2.invalidAll = (errors) => ({
+    kind: "Invalid",
+    errors
+  });
+  Validation2.isValid = (data) => data.kind === "Valid";
+  Validation2.isInvalid = (data) => data.kind === "Invalid";
+  Validation2.map = (f) => (data) => (0, Validation2.isValid)(data) ? (0, Validation2.valid)(f(data.value)) : data;
+  Validation2.ap = (arg) => (data) => {
+    if ((0, Validation2.isValid)(data) && (0, Validation2.isValid)(arg)) return (0, Validation2.valid)(data.value(arg.value));
+    const errors = [
+      ...(0, Validation2.isInvalid)(data) ? data.errors : [],
+      ...(0, Validation2.isInvalid)(arg) ? arg.errors : []
+    ];
+    return (0, Validation2.invalidAll)(errors);
+  };
+  Validation2.fold = (onInvalid, onValid) => (data) => (0, Validation2.isValid)(data) ? onValid(data.value) : onInvalid(data.errors);
+  Validation2.match = (cases) => (data) => (0, Validation2.isValid)(data) ? cases.valid(data.value) : cases.invalid(data.errors);
+  Validation2.getOrElse = (defaultValue) => (data) => (0, Validation2.isValid)(data) ? data.value : defaultValue();
+  Validation2.tap = (f) => (data) => {
+    if ((0, Validation2.isValid)(data)) f(data.value);
+    return data;
+  };
+  Validation2.recover = (fallback) => (data) => (0, Validation2.isValid)(data) ? data : fallback(data.errors);
+  Validation2.recoverUnless = (blockedErrors, fallback) => (data) => (0, Validation2.isInvalid)(data) && !data.errors.some((err2) => blockedErrors.includes(err2)) ? fallback() : data;
+  Validation2.product = (first, second) => {
+    if ((0, Validation2.isValid)(first) && (0, Validation2.isValid)(second)) return (0, Validation2.valid)([first.value, second.value]);
+    const errors = [
+      ...(0, Validation2.isInvalid)(first) ? first.errors : [],
+      ...(0, Validation2.isInvalid)(second) ? second.errors : []
+    ];
+    return (0, Validation2.invalidAll)(errors);
+  };
+  Validation2.productAll = (data) => {
+    const values = [];
+    const errors = [];
+    for (const v of data) {
+      if ((0, Validation2.isValid)(v)) values.push(v.value);
+      else errors.push(...v.errors);
+    }
+    return errors.length > 0 ? (0, Validation2.invalidAll)(errors) : (0, Validation2.valid)(values);
+  };
+})(Validation || (Validation = {}));
+
+// src/Core/TaskValidation.ts
+var TaskValidation;
+((TaskValidation2) => {
+  TaskValidation2.valid = (value) => Task.resolve(Validation.valid(value));
+  TaskValidation2.invalid = (error) => Task.resolve(Validation.invalid(error));
+  TaskValidation2.invalidAll = (errors) => Task.resolve(Validation.invalidAll(errors));
+  TaskValidation2.fromValidation = (validation) => Task.resolve(validation);
+  TaskValidation2.tryCatch = (f, onError) => Task.from(
+    () => f().then(Validation.valid).catch((e) => Validation.invalid(onError(e)))
+  );
+  TaskValidation2.map = (f) => (data) => Task.map(Validation.map(f))(data);
+  TaskValidation2.ap = (arg) => (data) => Task.from(
+    () => Promise.all([
+      Deferred.toPromise(data()),
+      Deferred.toPromise(arg())
+    ]).then(([vf, va]) => Validation.ap(va)(vf))
+  );
+  TaskValidation2.fold = (onInvalid, onValid) => (data) => Task.map(Validation.fold(onInvalid, onValid))(data);
+  TaskValidation2.match = (cases) => (data) => Task.map(Validation.match(cases))(data);
+  TaskValidation2.getOrElse = (defaultValue) => (data) => Task.map(Validation.getOrElse(defaultValue))(data);
+  TaskValidation2.tap = (f) => (data) => Task.map(Validation.tap(f))(data);
+  TaskValidation2.recover = (fallback) => (data) => Task.chain(
+    (validation) => Validation.isValid(validation) ? Task.resolve(validation) : fallback(validation.errors)
+  )(data);
+  TaskValidation2.product = (first, second) => Task.from(
+    () => Promise.all([
+      Deferred.toPromise(first()),
+      Deferred.toPromise(second())
+    ]).then(([va, vb]) => Validation.product(va, vb))
+  );
+  TaskValidation2.productAll = (data) => Task.from(
+    () => Promise.all(data.map((t) => Deferred.toPromise(t()))).then((results) => Validation.productAll(results))
+  );
+})(TaskValidation || (TaskValidation = {}));
+
+// src/Core/These.ts
+var These;
+((These2) => {
+  These2.first = (value) => ({ kind: "First", first: value });
+  These2.second = (value) => ({ kind: "Second", second: value });
+  These2.both = (first2, second2) => ({
+    kind: "Both",
+    first: first2,
+    second: second2
+  });
+  These2.isFirst = (data) => data.kind === "First";
+  These2.isSecond = (data) => data.kind === "Second";
+  These2.isBoth = (data) => data.kind === "Both";
+  These2.hasFirst = (data) => data.kind === "First" || data.kind === "Both";
+  These2.hasSecond = (data) => data.kind === "Second" || data.kind === "Both";
+  These2.mapFirst = (f) => (data) => {
+    if ((0, These2.isSecond)(data)) return data;
+    if ((0, These2.isFirst)(data)) return (0, These2.first)(f(data.first));
+    return (0, These2.both)(f(data.first), data.second);
+  };
+  These2.mapSecond = (f) => (data) => {
+    if ((0, These2.isFirst)(data)) return data;
+    if ((0, These2.isSecond)(data)) return (0, These2.second)(f(data.second));
+    return (0, These2.both)(data.first, f(data.second));
+  };
+  These2.mapBoth = (onFirst, onSecond) => (data) => {
+    if ((0, These2.isSecond)(data)) return (0, These2.second)(onSecond(data.second));
+    if ((0, These2.isFirst)(data)) return (0, These2.first)(onFirst(data.first));
+    return (0, These2.both)(onFirst(data.first), onSecond(data.second));
+  };
+  These2.chainFirst = (f) => (data) => {
+    if ((0, These2.isSecond)(data)) return data;
+    return f(data.first);
+  };
+  These2.chainSecond = (f) => (data) => {
+    if ((0, These2.isFirst)(data)) return data;
+    return f(data.second);
+  };
+  These2.fold = (onFirst, onSecond, onBoth) => (data) => {
+    if ((0, These2.isSecond)(data)) return onSecond(data.second);
+    if ((0, These2.isFirst)(data)) return onFirst(data.first);
+    return onBoth(data.first, data.second);
+  };
+  These2.match = (cases) => (data) => {
+    if ((0, These2.isSecond)(data)) return cases.second(data.second);
+    if ((0, These2.isFirst)(data)) return cases.first(data.first);
+    return cases.both(data.first, data.second);
+  };
+  These2.getFirstOrElse = (defaultValue) => (data) => (0, These2.hasFirst)(data) ? data.first : defaultValue();
+  These2.getSecondOrElse = (defaultValue) => (data) => (0, These2.hasSecond)(data) ? data.second : defaultValue();
+  These2.tap = (f) => (data) => {
+    if ((0, These2.hasFirst)(data)) f(data.first);
+    return data;
+  };
+  These2.swap = (data) => {
+    if ((0, These2.isSecond)(data)) return (0, These2.first)(data.second);
+    if ((0, These2.isFirst)(data)) return (0, These2.second)(data.first);
+    return (0, These2.both)(data.second, data.first);
+  };
+})(These || (These = {}));
+
+// src/Core/Tuple.ts
+var Tuple;
+((Tuple2) => {
+  Tuple2.make = (first2, second2) => [first2, second2];
+  Tuple2.first = (tuple) => tuple[0];
+  Tuple2.second = (tuple) => tuple[1];
+  Tuple2.mapFirst = (f) => (tuple) => [f(tuple[0]), tuple[1]];
+  Tuple2.mapSecond = (f) => (tuple) => [tuple[0], f(tuple[1])];
+  Tuple2.mapBoth = (onFirst, onSecond) => (tuple) => [
+    onFirst(tuple[0]),
+    onSecond(tuple[1])
+  ];
+  Tuple2.fold = (f) => (tuple) => f(tuple[0], tuple[1]);
+  Tuple2.swap = (tuple) => [tuple[1], tuple[0]];
+  Tuple2.toArray = (tuple) => [...tuple];
+  Tuple2.tap = (f) => (tuple) => {
+    f(tuple[0], tuple[1]);
+    return tuple;
+  };
+})(Tuple || (Tuple = {}));
+
+export {
+  Lens,
+  Logged,
+  Op,
+  Optional,
+  Predicate,
+  Reader,
+  Refinement,
+  RemoteData,
+  Resource,
+  State,
+  TaskMaybe,
+  TaskResult,
+  Validation,
+  TaskValidation,
+  These,
+  Tuple
+};