@nlozgachev/pipelined 0.12.0 → 0.14.0

package/dist/chunk-QPTGO5AS.mjs

@@ -0,0 +1,150 @@
+// src/Core/Deferred.ts
+var _store = /* @__PURE__ */ new WeakMap();
+var Deferred;
+((Deferred2) => {
+  Deferred2.fromPromise = (p) => {
+    const d = { then: ((f) => p.then(f)) };
+    _store.set(d, p);
+    return d;
+  };
+  Deferred2.toPromise = (d) => _store.get(d) ?? new Promise((resolve) => d.then(resolve));
+})(Deferred || (Deferred = {}));
+
+// src/Core/Option.ts
+var _none = { kind: "None" };
+var Option;
+((Option2) => {
+  Option2.some = (value) => ({ kind: "Some", value });
+  Option2.isSome = (data) => data.kind === "Some";
+  Option2.none = () => _none;
+  Option2.isNone = (data) => data.kind === "None";
+  Option2.fromNullable = (value) => value === null || value === void 0 ? (0, Option2.none)() : (0, Option2.some)(value);
+  Option2.toNullable = (data) => (0, Option2.isSome)(data) ? data.value : null;
+  Option2.toUndefined = (data) => (0, Option2.isSome)(data) ? data.value : void 0;
+  Option2.fromUndefined = (value) => value === void 0 ? (0, Option2.none)() : (0, Option2.some)(value);
+  Option2.toResult = (onNone) => (data) => (0, Option2.isSome)(data) ? Result.ok(data.value) : Result.err(onNone());
+  Option2.fromResult = (data) => Result.isOk(data) ? (0, Option2.some)(data.value) : (0, Option2.none)();
+  Option2.map = (f) => (data) => (0, Option2.isSome)(data) ? (0, Option2.some)(f(data.value)) : data;
+  Option2.chain = (f) => (data) => (0, Option2.isSome)(data) ? f(data.value) : data;
+  Option2.fold = (onNone, onSome) => (data) => (0, Option2.isSome)(data) ? onSome(data.value) : onNone();
+  Option2.match = (cases) => (data) => (0, Option2.isSome)(data) ? cases.some(data.value) : cases.none();
+  Option2.getOrElse = (defaultValue) => (data) => (0, Option2.isSome)(data) ? data.value : defaultValue();
+  Option2.tap = (f) => (data) => {
+    if ((0, Option2.isSome)(data)) f(data.value);
+    return data;
+  };
+  Option2.filter = (predicate) => (data) => (0, Option2.isSome)(data) ? predicate(data.value) ? data : (0, Option2.none)() : data;
+  Option2.recover = (fallback) => (data) => (0, Option2.isSome)(data) ? data : fallback();
+  Option2.ap = (arg) => (data) => (0, Option2.isSome)(data) && (0, Option2.isSome)(arg) ? (0, Option2.some)(data.value(arg.value)) : (0, Option2.none)();
+})(Option || (Option = {}));
+
+// src/Core/Result.ts
+var Result;
+((Result2) => {
+  Result2.ok = (value) => ({ kind: "Ok", value });
+  Result2.err = (error) => ({ kind: "Error", error });
+  Result2.isOk = (data) => data.kind === "Ok";
+  Result2.isErr = (data) => data.kind === "Error";
+  Result2.tryCatch = (f, onError) => {
+    try {
+      return (0, Result2.ok)(f());
+    } catch (e) {
+      return (0, Result2.err)(onError(e));
+    }
+  };
+  Result2.map = (f) => (data) => (0, Result2.isOk)(data) ? (0, Result2.ok)(f(data.value)) : data;
+  Result2.mapError = (f) => (data) => (0, Result2.isErr)(data) ? (0, Result2.err)(f(data.error)) : data;
+  Result2.chain = (f) => (data) => (0, Result2.isOk)(data) ? f(data.value) : data;
+  Result2.fold = (onErr, onOk) => (data) => (0, Result2.isOk)(data) ? onOk(data.value) : onErr(data.error);
+  Result2.match = (cases) => (data) => (0, Result2.isOk)(data) ? cases.ok(data.value) : cases.err(data.error);
+  Result2.getOrElse = (defaultValue) => (data) => (0, Result2.isOk)(data) ? data.value : defaultValue();
+  Result2.tap = (f) => (data) => {
+    if ((0, Result2.isOk)(data)) f(data.value);
+    return data;
+  };
+  Result2.recover = (fallback) => (data) => (0, Result2.isOk)(data) ? data : fallback(data.error);
+  Result2.recoverUnless = (blockedErr, fallback) => (data) => (0, Result2.isErr)(data) && data.error !== blockedErr ? fallback() : data;
+  Result2.toOption = (data) => (0, Result2.isOk)(data) ? Option.some(data.value) : Option.none();
+  Result2.ap = (arg) => (data) => (0, Result2.isOk)(data) && (0, Result2.isOk)(arg) ? (0, Result2.ok)(data.value(arg.value)) : (0, Result2.isErr)(data) ? data : arg;
+})(Result || (Result = {}));
+
+// src/Core/Task.ts
+var toPromise = (task) => Deferred.toPromise(task());
+var Task;
+((Task2) => {
+  Task2.resolve = (value) => () => Deferred.fromPromise(Promise.resolve(value));
+  Task2.from = (f) => () => Deferred.fromPromise(f());
+  Task2.map = (f) => (data) => (0, Task2.from)(() => toPromise(data).then(f));
+  Task2.chain = (f) => (data) => (0, Task2.from)(() => toPromise(data).then((a) => toPromise(f(a))));
+  Task2.ap = (arg) => (data) => (0, Task2.from)(
+    () => Promise.all([
+      toPromise(data),
+      toPromise(arg)
+    ]).then(([f, a]) => f(a))
+  );
+  Task2.tap = (f) => (data) => (0, Task2.from)(
+    () => toPromise(data).then((a) => {
+      f(a);
+      return a;
+    })
+  );
+  Task2.all = (tasks) => (0, Task2.from)(
+    () => Promise.all(tasks.map((t) => toPromise(t)))
+  );
+  Task2.delay = (ms) => (data) => (0, Task2.from)(
+    () => new Promise(
+      (resolve2) => setTimeout(
+        () => toPromise(data).then(resolve2),
+        ms
+      )
+    )
+  );
+  Task2.repeat = (options) => (task) => (0, Task2.from)(() => {
+    const { times, delay: ms } = options;
+    if (times <= 0) return Promise.resolve([]);
+    const results = [];
+    const wait = () => ms !== void 0 && ms > 0 ? new Promise((r) => setTimeout(r, ms)) : Promise.resolve();
+    const run = (left) => toPromise(task).then((a) => {
+      results.push(a);
+      if (left <= 1) return results;
+      return wait().then(() => run(left - 1));
+    });
+    return run(times);
+  });
+  Task2.repeatUntil = (options) => (task) => (0, Task2.from)(() => {
+    const { when: predicate, delay: ms } = options;
+    const wait = () => ms !== void 0 && ms > 0 ? new Promise((r) => setTimeout(r, ms)) : Promise.resolve();
+    const run = () => toPromise(task).then((a) => {
+      if (predicate(a)) return a;
+      return wait().then(run);
+    });
+    return run();
+  });
+  Task2.race = (tasks) => (0, Task2.from)(() => Promise.race(tasks.map(toPromise)));
+  Task2.sequential = (tasks) => (0, Task2.from)(async () => {
+    const results = [];
+    for (const task of tasks) {
+      results.push(await toPromise(task));
+    }
+    return results;
+  });
+  Task2.timeout = (ms, onTimeout) => (task) => (0, Task2.from)(() => {
+    let timerId;
+    return Promise.race([
+      toPromise(task).then((a) => {
+        clearTimeout(timerId);
+        return Result.ok(a);
+      }),
+      new Promise((resolve2) => {
+        timerId = setTimeout(() => resolve2(Result.err(onTimeout())), ms);
+      })
+    ]);
+  });
+})(Task || (Task = {}));
+
+export {
+  Deferred,
+  Result,
+  Option,
+  Task
+};

package/dist/chunk-UV2HMF2A.mjs

@@ -0,0 +1,514 @@
+import {
+  Deferred,
+  Option,
+  Result,
+  Task
+} from "./chunk-QPTGO5AS.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/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 ? Option.some(val) : Option.none();
+    },
+    (a) => (s) => ({ ...s, [key]: a })
+  );
+  Optional2.index = (i) => (0, Optional2.make)(
+    (arr) => i >= 0 && i < arr.length ? Option.some(arr[i]) : Option.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" ? Option.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" ? Option.none() : Option.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) ? Option.some(a) : Option.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.toOption = (data) => (0, RemoteData2.isSuccess)(data) ? Option.some(data.value) : Option.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/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/TaskOption.ts
+var TaskOption;
+((TaskOption2) => {
+  TaskOption2.some = (value) => Task.resolve(Option.some(value));
+  TaskOption2.none = () => Task.resolve(Option.none());
+  TaskOption2.fromOption = (option) => Task.resolve(option);
+  TaskOption2.fromTask = (task) => Task.map(Option.some)(task);
+  TaskOption2.tryCatch = (f) => Task.from(
+    () => f().then(Option.some).catch(() => Option.none())
+  );
+  TaskOption2.map = (f) => (data) => Task.map(Option.map(f))(data);
+  TaskOption2.chain = (f) => (data) => Task.chain((option) => Option.isSome(option) ? f(option.value) : Task.resolve(Option.none()))(data);
+  TaskOption2.ap = (arg) => (data) => Task.from(
+    () => Promise.all([
+      Deferred.toPromise(data()),
+      Deferred.toPromise(arg())
+    ]).then(([of_, oa]) => Option.ap(oa)(of_))
+  );
+  TaskOption2.fold = (onNone, onSome) => (data) => Task.map(Option.fold(onNone, onSome))(data);
+  TaskOption2.match = (cases) => (data) => Task.map(Option.match(cases))(data);
+  TaskOption2.getOrElse = (defaultValue) => (data) => Task.map(Option.getOrElse(defaultValue))(data);
+  TaskOption2.tap = (f) => (data) => Task.map(Option.tap(f))(data);
+  TaskOption2.filter = (predicate) => (data) => Task.map(Option.filter(predicate))(data);
+  TaskOption2.toTaskResult = (onNone) => (data) => Task.map(Option.toResult(onNone))(data);
+})(TaskOption || (TaskOption = {}));
+
+// 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(
+    () => f().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);
+  TaskResult2.retry = (options) => (data) => Task.from(() => {
+    const { attempts, backoff, when: shouldRetry } = options;
+    const getDelay = (n) => backoff === void 0 ? 0 : typeof backoff === "function" ? backoff(n) : backoff;
+    const run = (left) => Deferred.toPromise(data()).then((result) => {
+      if (Result.isOk(result)) return result;
+      if (left <= 1) return result;
+      if (shouldRetry !== void 0 && !shouldRetry(result.error)) {
+        return result;
+      }
+      const ms = getDelay(attempts - left + 1);
+      return (ms > 0 ? new Promise((r) => setTimeout(r, ms)) : Promise.resolve()).then(() => run(left - 1));
+    });
+    return run(attempts);
+  });
+  TaskResult2.timeout = (ms, onTimeout) => (data) => Task.from(() => {
+    let timerId;
+    return Promise.race([
+      Deferred.toPromise(data()).then((result) => {
+        clearTimeout(timerId);
+        return result;
+      }),
+      new Promise((resolve) => {
+        timerId = setTimeout(() => resolve(Result.err(onTimeout())), ms);
+      })
+    ]);
+  });
+})(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((err) => blockedErrors.includes(err)) ? 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,
+  Optional,
+  Predicate,
+  Reader,
+  Refinement,
+  RemoteData,
+  State,
+  TaskOption,
+  TaskResult,
+  Validation,
+  TaskValidation,
+  These,
+  Tuple
+};