brass-runtime 1.16.0 → 1.16.1

package/dist/chunk-36I3M4UC.mjs

@@ -0,0 +1,370 @@
+// src/core/types/asyncEffect.ts
+var Async = {
+  succeed: (value) => ({ _tag: "Succeed", value }),
+  fail: (error) => ({ _tag: "Fail", error }),
+  sync: (thunk) => ({ _tag: "Sync", thunk }),
+  async: (register) => ({ _tag: "Async", register }),
+  interruptibility: (mode, effect) => ({ _tag: "Interruptibility", mode, effect })
+};
+function asyncFold(fa, onFailure, onSuccess) {
+  return {
+    _tag: "Fold",
+    first: fa,
+    onFailure,
+    onSuccess
+  };
+}
+function asyncCatchAll(fa, handler) {
+  return asyncFold(fa, handler, asyncSucceed);
+}
+function asyncMapError(fa, f) {
+  return asyncFold(fa, (e) => asyncFail(f(e)), asyncSucceed);
+}
+var SUCCEED_UNDEFINED = { _tag: "Succeed", value: void 0 };
+var SUCCEED_TRUE = { _tag: "Succeed", value: true };
+var SUCCEED_FALSE = { _tag: "Succeed", value: false };
+var SUCCEED_NULL = { _tag: "Succeed", value: null };
+var unit = () => SUCCEED_UNDEFINED;
+var asyncSucceed = (value) => {
+  if (value === void 0) return SUCCEED_UNDEFINED;
+  if (value === true) return SUCCEED_TRUE;
+  if (value === false) return SUCCEED_FALSE;
+  if (value === null) return SUCCEED_NULL;
+  return { _tag: "Succeed", value };
+};
+var asyncFail = (error) => ({
+  _tag: "Fail",
+  error
+});
+var asyncSync = (thunk) => ({
+  _tag: "Sync",
+  thunk
+});
+var asyncTotal = (thunk) => asyncSync(() => thunk());
+var asyncEffect = (register) => ({
+  _tag: "Async",
+  register
+});
+function asyncMap(fa, f) {
+  return asyncFlatMap(fa, (a) => asyncSucceed(f(a)));
+}
+function asyncFlatMap(fa, f) {
+  return {
+    _tag: "FlatMap",
+    first: fa,
+    andThen: f
+  };
+}
+function acquireRelease(acquire, release, scope) {
+  return asyncFlatMap(acquire, (resource) => {
+    scope.addFinalizer((exit) => release(resource, exit));
+    return asyncSucceed(resource);
+  });
+}
+function asyncInterruptible(register) {
+  return asyncEffect(register);
+}
+var withAsyncPromise = (run) => (eff) => {
+  const anyEff = eff;
+  if (!anyEff.toPromise) {
+    anyEff.toPromise = (env) => run(eff, env);
+    anyEff.unsafeRunPromise = () => run(eff, {});
+  }
+  return anyEff;
+};
+var mapAsync = (fa, f) => asyncFlatMap(fa, (a) => asyncSucceed(f(a)));
+var mapTryAsync = (fa, f) => asyncFlatMap(fa, (a) => asyncSync(() => f(a)));
+
+// src/core/types/option.ts
+var none = { _tag: "None" };
+var some = (value) => ({ _tag: "Some", value });
+
+// src/core/types/effect.ts
+var Cause = {
+  fail: (error) => ({ _tag: "Fail", error }),
+  interrupt: () => ({ _tag: "Interrupt" }),
+  die: (defect) => ({ _tag: "Die", defect }),
+  then: (left, right) => ({ _tag: "Then", left, right }),
+  both: (left, right) => ({ _tag: "Both", left, right }),
+  isCause: isCauseValue,
+  failures: causeFailures,
+  defects: causeDefects,
+  firstFailure: firstCauseFailure,
+  firstDefect: firstCauseDefect,
+  containsFailure: causeContainsFailure,
+  containsDefect: causeContainsDefect,
+  containsInterrupt: causeContainsInterrupt,
+  isInterruptedOnly: causeIsInterruptedOnly,
+  isFailureOnly: causeIsFailureOnly,
+  squash: squashCause,
+  toError: causeToError,
+  pretty: prettyCause,
+  format: prettyCause
+};
+function isCause(value) {
+  return isCauseValue(value);
+}
+function prettyCause(cause, options = {}) {
+  const indent = options.indent ?? "  ";
+  const renderError = options.renderError ?? ((error) => formatCauseValue(error));
+  const renderDefect = options.renderDefect ?? formatCauseValue;
+  const lines = [];
+  const visit = (current, depth, label) => {
+    const prefix = indent.repeat(depth);
+    const head = label ? `${label}: ` : "";
+    switch (current._tag) {
+      case "Fail":
+        lines.push(`${prefix}${head}Fail(${renderError(current.error)})`);
+        return;
+      case "Die":
+        lines.push(`${prefix}${head}Die(${renderDefect(current.defect)})`);
+        return;
+      case "Interrupt":
+        lines.push(`${prefix}${head}Interrupt`);
+        return;
+      case "Then":
+        lines.push(`${prefix}${head}Then`);
+        visit(current.left, depth + 1, "left");
+        visit(current.right, depth + 1, "right");
+        return;
+      case "Both":
+        lines.push(`${prefix}${head}Both`);
+        visit(current.left, depth + 1, "left");
+        visit(current.right, depth + 1, "right");
+        return;
+    }
+  };
+  visit(cause, 0);
+  if (options.singleLine) return lines.map((line) => line.trim()).join("; ");
+  return lines.join("\n");
+}
+var formatCause = prettyCause;
+function isCauseValue(value) {
+  if (typeof value !== "object" || value === null || !("_tag" in value)) return false;
+  const tag = value._tag;
+  switch (tag) {
+    case "Fail":
+      return "error" in value;
+    case "Die":
+      return "defect" in value;
+    case "Interrupt":
+      return true;
+    case "Then":
+    case "Both":
+      return isCauseValue(value.left) && isCauseValue(value.right);
+    default:
+      return false;
+  }
+}
+function causeFailures(cause) {
+  const failures = [];
+  collectFailures(cause, failures);
+  return failures;
+}
+function collectFailures(cause, out) {
+  switch (cause._tag) {
+    case "Fail":
+      out.push(cause.error);
+      return;
+    case "Then":
+    case "Both":
+      collectFailures(cause.left, out);
+      collectFailures(cause.right, out);
+      return;
+    case "Die":
+    case "Interrupt":
+      return;
+  }
+}
+function causeDefects(cause) {
+  const defects = [];
+  collectDefects(cause, defects);
+  return defects;
+}
+function collectDefects(cause, out) {
+  switch (cause._tag) {
+    case "Die":
+      out.push(cause.defect);
+      return;
+    case "Then":
+    case "Both":
+      collectDefects(cause.left, out);
+      collectDefects(cause.right, out);
+      return;
+    case "Fail":
+    case "Interrupt":
+      return;
+  }
+}
+function firstCauseFailure(cause) {
+  switch (cause._tag) {
+    case "Fail":
+      return some(cause.error);
+    case "Then":
+    case "Both": {
+      const left = firstCauseFailure(cause.left);
+      return left._tag === "Some" ? left : firstCauseFailure(cause.right);
+    }
+    case "Die":
+    case "Interrupt":
+      return none;
+  }
+}
+function firstCauseDefect(cause) {
+  switch (cause._tag) {
+    case "Die":
+      return some(cause.defect);
+    case "Then":
+    case "Both": {
+      const left = firstCauseDefect(cause.left);
+      return left._tag === "Some" ? left : firstCauseDefect(cause.right);
+    }
+    case "Fail":
+    case "Interrupt":
+      return none;
+  }
+}
+function causeContainsFailure(cause) {
+  switch (cause._tag) {
+    case "Fail":
+      return true;
+    case "Then":
+    case "Both":
+      return causeContainsFailure(cause.left) || causeContainsFailure(cause.right);
+    case "Die":
+    case "Interrupt":
+      return false;
+  }
+}
+function causeContainsDefect(cause) {
+  switch (cause._tag) {
+    case "Die":
+      return true;
+    case "Then":
+    case "Both":
+      return causeContainsDefect(cause.left) || causeContainsDefect(cause.right);
+    case "Fail":
+    case "Interrupt":
+      return false;
+  }
+}
+function causeContainsInterrupt(cause) {
+  switch (cause._tag) {
+    case "Interrupt":
+      return true;
+    case "Then":
+    case "Both":
+      return causeContainsInterrupt(cause.left) || causeContainsInterrupt(cause.right);
+    case "Fail":
+    case "Die":
+      return false;
+  }
+}
+function causeIsInterruptedOnly(cause) {
+  return causeContainsInterrupt(cause) && !causeContainsFailure(cause) && !causeContainsDefect(cause);
+}
+function causeIsFailureOnly(cause) {
+  return causeContainsFailure(cause) && !causeContainsInterrupt(cause) && !causeContainsDefect(cause);
+}
+function squashCause(cause) {
+  const failure = firstCauseFailure(cause);
+  if (failure._tag === "Some") return failure.value;
+  const defect = firstCauseDefect(cause);
+  if (defect._tag === "Some") return defect.value instanceof Error ? defect.value : new Error(String(defect.value));
+  if (causeContainsInterrupt(cause)) return new Error("Interrupted");
+  return new Error(prettyCause(cause, { singleLine: true }));
+}
+function causeToError(cause) {
+  const squashed = squashCause(cause);
+  if (squashed instanceof Error) return squashed;
+  return new Error(formatCauseValue(squashed));
+}
+function formatCauseValue(value) {
+  if (value instanceof Error) return `${value.name}: ${value.message}`;
+  if (typeof value === "string") return JSON.stringify(value);
+  if (typeof value === "number" || typeof value === "boolean" || value === null || value === void 0) {
+    return String(value);
+  }
+  try {
+    return JSON.stringify(value);
+  } catch {
+    return String(value);
+  }
+}
+var Exit = {
+  succeed: (value) => ({
+    _tag: "Success",
+    value
+  }),
+  failCause: (cause) => ({
+    _tag: "Failure",
+    cause
+  })
+};
+var succeed = (value) => asyncSucceed(value);
+var fail = (error) => asyncFail(error);
+var sync = (thunk) => asyncSync((env) => thunk(env));
+var map = (fa, f) => asyncMap(fa, f);
+var flatMap = (fa, f) => asyncFlatMap(fa, f);
+var mapError = (fa, f) => asyncMapError(fa, f);
+var catchAll = (fa, handler) => asyncFold(fa, handler, asyncSucceed);
+var uninterruptible = (effect) => ({
+  _tag: "Interruptibility",
+  mode: "uninterruptible",
+  effect
+});
+var interruptible = (effect) => ({
+  _tag: "Interruptibility",
+  mode: "interruptible",
+  effect
+});
+function uninterruptibleMask(body) {
+  return { _tag: "InterruptibilityMask", body };
+}
+function orElseOptional(fa, that) {
+  return asyncFold(
+    fa,
+    (opt) => opt._tag === "Some" ? asyncFail(opt) : that(),
+    asyncSucceed
+  );
+}
+var end = () => fail(none);
+
+export {
+  Async,
+  asyncFold,
+  asyncCatchAll,
+  asyncMapError,
+  unit,
+  asyncSucceed,
+  asyncFail,
+  asyncSync,
+  asyncTotal,
+  asyncEffect,
+  asyncMap,
+  asyncFlatMap,
+  acquireRelease,
+  asyncInterruptible,
+  withAsyncPromise,
+  mapAsync,
+  mapTryAsync,
+  none,
+  some,
+  Cause,
+  isCause,
+  prettyCause,
+  formatCause,
+  Exit,
+  succeed,
+  fail,
+  sync,
+  map,
+  flatMap,
+  mapError,
+  catchAll,
+  uninterruptible,
+  interruptible,
+  uninterruptibleMask,
+  orElseOptional,
+  end
+};