brass-runtime 1.14.0 → 1.16.0

package/dist/{chunk-UWMMYKVK.mjs → chunk-OOGJ73B6.js}

@@ -1,8 +1,18 @@
+import {
+  raceWith
+} from "./chunk-G3XGCZDQ.js";
+import {
+  Scope
+} from "./chunk-FM4W4QPL.js";
+import {
+  getCurrentFiber,
+  unsafeGetCurrentRuntime,
+  unsafeRunFoldWithEnv
+} from "./chunk-7LVI2GIN.js";
 import {
   Cause,
   Exit,
-  Scope,
-  async,
+  asyncEffect,
   asyncFail,
   asyncFlatMap,
   asyncFold,
@@ -11,225 +21,14 @@ import {
   asyncSync,
   fail,
   flatMap,
-  getCurrentFiber,
   map,
   mapError,
   none,
   orElseOptional,
-  raceWith,
   some,
   succeed,
-  sync,
-  unsafeGetCurrentRuntime,
-  unsafeRunFoldWithEnv
-} from "./chunk-4N2JEK4H.mjs";
-
-// src/core/runtime/combinators.ts
-function sleep(ms) {
-  return async((_env, cb) => {
-    const delay = Math.max(0, Math.floor(ms));
-    const id = setTimeout(() => cb({ _tag: "Success", value: void 0 }), delay);
-    return () => clearTimeout(id);
-  });
-}
-function timeout(effect, ms) {
-  return async((env, cb) => {
-    let done = false;
-    let timerId;
-    let effectRunning = true;
-    timerId = setTimeout(() => {
-      if (done) return;
-      done = true;
-      effectRunning = false;
-      cb({
-        _tag: "Failure",
-        cause: { _tag: "Fail", error: { _tag: "TimeoutError", ms } }
-      });
-    }, Math.max(0, Math.floor(ms)));
-    const runtime = unsafeGetCurrentRuntime();
-    if (runtime) {
-      const fiber = runtime.fork(effect);
-      fiber.join((exit) => {
-        if (done) return;
-        done = true;
-        clearTimeout(timerId);
-        cb(exit);
-      });
-      return () => {
-        if (done) return;
-        done = true;
-        clearTimeout(timerId);
-        fiber.interrupt();
-      };
-    }
-    return () => {
-      if (done) return;
-      done = true;
-      clearTimeout(timerId);
-    };
-  });
-}
-function retry(effect, policy) {
-  const shouldRetry = policy.shouldRetry ?? (() => true);
-  const jitter = policy.jitter ?? "full";
-  const maxElapsedMs = policy.maxElapsedMs;
-  const computeDelay = (attempt) => {
-    const exp = policy.baseDelayMs * Math.pow(2, attempt);
-    const capped = Math.min(exp, policy.maxDelayMs);
-    if (jitter === "none") return capped;
-    return Math.floor(Math.random() * capped);
-  };
-  const loop = (attempt, startedAt) => asyncFold(
-    effect,
-    (error) => {
-      if (attempt >= policy.maxRetries) return asyncFail(error);
-      if (!shouldRetry(error, attempt)) return asyncFail(error);
-      if (maxElapsedMs !== void 0) {
-        const elapsed = performance.now() - startedAt;
-        if (elapsed >= maxElapsedMs) return asyncFail(error);
-      }
-      const delay = computeDelay(attempt);
-      return asyncFlatMap(sleep(delay), () => loop(attempt + 1, startedAt));
-    },
-    (value) => asyncSucceed(value)
-  );
-  return asyncFlatMap(
-    { _tag: "Sync", thunk: () => performance.now() },
-    (startedAt) => loop(0, startedAt)
-  );
-}
-function retryN(effect, n) {
-  return retry(effect, {
-    maxRetries: n,
-    baseDelayMs: 0,
-    maxDelayMs: 0,
-    jitter: "none"
-  });
-}
-function retryWithBackoff(effect, opts = {}) {
-  return retry(effect, {
-    maxRetries: opts.maxRetries ?? 3,
-    baseDelayMs: opts.baseDelayMs ?? 100,
-    maxDelayMs: opts.maxDelayMs ?? 1e4,
-    maxElapsedMs: opts.maxElapsedMs,
-    shouldRetry: opts.shouldRetry,
-    jitter: "full"
-  });
-}
-
-// src/core/runtime/circuitBreaker.ts
-function makeCircuitBreaker(config = {}) {
-  const failureThreshold = config.failureThreshold ?? 5;
-  const resetTimeoutMs = config.resetTimeoutMs ?? 3e4;
-  const successThreshold = config.successThreshold ?? 1;
-  const isFailure = config.isFailure ?? (() => true);
-  const onStateChange = config.onStateChange;
-  let currentState = "closed";
-  let consecutiveFailures = 0;
-  let consecutiveSuccesses = 0;
-  let openedAt = 0;
-  let totalRequests = 0;
-  let totalFailures = 0;
-  let totalSuccesses = 0;
-  let totalRejected = 0;
-  let lastFailureTime = null;
-  let lastSuccessTime = null;
-  const transition = (to) => {
-    if (currentState === to) return;
-    const from = currentState;
-    currentState = to;
-    onStateChange?.(from, to);
-  };
-  const onSuccess = () => {
-    totalSuccesses++;
-    lastSuccessTime = Date.now();
-    consecutiveFailures = 0;
-    if (currentState === "half-open") {
-      consecutiveSuccesses++;
-      if (consecutiveSuccesses >= successThreshold) {
-        consecutiveSuccesses = 0;
-        transition("closed");
-      }
-    }
-  };
-  const onFailure = (error) => {
-    if (!isFailure(error)) {
-      onSuccess();
-      return;
-    }
-    totalFailures++;
-    lastFailureTime = Date.now();
-    consecutiveSuccesses = 0;
-    consecutiveFailures++;
-    if (currentState === "half-open") {
-      openedAt = Date.now();
-      transition("open");
-    } else if (currentState === "closed" && consecutiveFailures >= failureThreshold) {
-      openedAt = Date.now();
-      transition("open");
-    }
-  };
-  const shouldAllow = () => {
-    switch (currentState) {
-      case "closed":
-        return true;
-      case "open": {
-        const elapsed = Date.now() - openedAt;
-        if (elapsed >= resetTimeoutMs) {
-          transition("half-open");
-          return true;
-        }
-        return false;
-      }
-      case "half-open":
-        return true;
-    }
-  };
-  const protect = (effect) => {
-    totalRequests++;
-    if (!shouldAllow()) {
-      totalRejected++;
-      return asyncFail({
-        _tag: "CircuitBreakerOpen",
-        openSince: openedAt,
-        failures: consecutiveFailures
-      });
-    }
-    return asyncFold(
-      effect,
-      (error) => {
-        onFailure(error);
-        return asyncFail(error);
-      },
-      (value) => {
-        onSuccess();
-        return asyncSucceed(value);
-      }
-    );
-  };
-  const stats = () => ({
-    state: currentState,
-    failures: consecutiveFailures,
-    successes: consecutiveSuccesses,
-    totalRequests,
-    totalFailures,
-    totalSuccesses,
-    totalRejected,
-    lastFailureTime,
-    lastSuccessTime
-  });
-  const reset = () => {
-    consecutiveFailures = 0;
-    consecutiveSuccesses = 0;
-    transition("closed");
-  };
-  return {
-    state: () => currentState,
-    protect,
-    stats,
-    reset
-  };
-}
+  sync
+} from "./chunk-PNVFW245.js";
 
 // src/core/stream/stream.ts
 var widenOpt = (opt) => opt._tag === "None" ? none : some(opt.value);
@@ -280,7 +79,7 @@ function streamToRaceWithHandler(winnerSide, leftStream, rightStream, flip, id)
       return asyncSucceed([a, next]);
     }
     if (exit.cause._tag === "Interrupt") {
-      return async((_env, cb) => {
+      return asyncEffect((_env, cb) => {
         cb(Exit.failCause(Cause.interrupt()));
       });
     }
@@ -295,7 +94,7 @@ function makeMergePull(onLeft, onRight, flip, mergePullId) {
   const id = ++mergePullId;
   const onLeftHandler = streamToRaceWithHandler("L", onLeft, onRight, flip, id);
   const onRightHandler = streamToRaceWithHandler("R", onLeft, onRight, flip, id);
-  return async((_env, cb) => {
+  return asyncEffect((_env, cb) => {
     const runtime = unsafeGetCurrentRuntime();
     const scope = new Scope(runtime);
     const handler = raceWith(
@@ -356,7 +155,7 @@ function uncons(self) {
     case "Merge":
       return makeMergePull(self.left, self.right, self.flip, 0);
     case "Scoped":
-      return async((env, cb) => {
+      return asyncEffect((env, cb) => {
         const runtime = unsafeGetCurrentRuntime();
         const scope = new Scope(runtime);
         const fiber = getCurrentFiber();
@@ -377,7 +176,7 @@ function uncons(self) {
           scope.close(exit);
         };
         const wrap = (s) => fromPull(
-          async((env2, cb2) => {
+          asyncEffect((env2, cb2) => {
             const pull = uncons(s);
             unsafeRunFoldWithEnv(
               pull,
@@ -405,7 +204,7 @@ function uncons(self) {
         });
       });
     case "Managed":
-      return async((env, cb) => {
+      return asyncEffect((env, cb) => {
         const runtime = unsafeGetCurrentRuntime();
         const scope = new Scope(runtime);
         getCurrentFiber()?.addFinalizer((exit) => {
@@ -433,16 +232,19 @@ function uncons(self) {
           const { stream: inner, release } = ex.value;
           scope.addFinalizer((exit) => release(exit));
           const wrap = (s) => fromPull(
-            async((env2, cb2) => {
-              uncons(s)(env2, (ex2) => {
-                if (ex2._tag === "Failure") {
+            asyncEffect((env2, cb2) => {
+              unsafeRunFoldWithEnv(
+                uncons(s),
+                env2,
+                (cause) => {
+                  const ex2 = Exit.failCause(cause);
                   closeWith(ex2);
                   cb2(ex2);
-                  return;
+                },
+                ([a, tail]) => {
+                  cb2(Exit.succeed([a, wrap(tail)]));
                 }
-                const [a, tail] = ex2.value;
-                cb2(Exit.succeed([a, wrap(tail)]));
-              });
+              );
             })
           );
           unsafeGetCurrentRuntime().fork(uncons(wrap(inner))).join(cb);
@@ -602,49 +404,73 @@ function drainStreamSyncFull(stream) {
     }
   }
 }
-function readerStream(reader, normalizeError) {
-  const pull = async((_, cb) => {
-    reader.read().then(({ done, value }) => {
-      if (done) {
-        cb({ _tag: "Failure", cause: { _tag: "Fail", error: none } });
+function readerStream(reader, normalizeError, signal) {
+  const pull = asyncEffect((_, cb) => {
+    let done = false;
+    const cleanup = () => signal?.removeEventListener("abort", abort);
+    const finish = (exit) => {
+      if (done) return;
+      done = true;
+      cleanup();
+      cb(exit);
+    };
+    const abort = () => {
+      try {
+        reader.cancel();
+      } catch {
+      }
+      const error = typeof DOMException === "function" ? new DOMException("aborted", "AbortError") : new Error("aborted");
+      finish({ _tag: "Failure", cause: { _tag: "Fail", error: some(normalizeError(error)) } });
+    };
+    if (signal?.aborted) {
+      abort();
+      return;
+    }
+    signal?.addEventListener("abort", abort, { once: true });
+    reader.read().then(({ done: done2, value }) => {
+      if (done2) {
+        finish({ _tag: "Failure", cause: { _tag: "Fail", error: none } });
         return;
       }
-      cb({
+      finish({
         _tag: "Success",
         value: [value, fromPull(pull)]
       });
     }).catch((e) => {
-      cb({ _tag: "Failure", cause: { _tag: "Fail", error: some(normalizeError(e)) } });
+      finish({ _tag: "Failure", cause: { _tag: "Fail", error: some(normalizeError(e)) } });
     });
+    return () => {
+      cleanup();
+      try {
+        reader.cancel();
+      } catch {
+      }
+    };
   });
   return fromPull(pull);
 }
-function streamFromReadableStream(body, normalizeError) {
+function streamFromReadableStream(body, normalizeError, options = {}) {
   if (!body) return emptyStream();
   let reader;
   return unwrapScoped(
     // acquire: produce un ZStream
     sync(() => {
       reader = body.getReader();
-      return readerStream(reader, normalizeError);
+      return readerStream(reader, normalizeError, options.signal);
     }),
     // release: se corre en fin / error / interrupción
     () => asyncSync(() => {
       try {
         reader?.cancel();
       } catch {
+      } finally {
+        options.onRelease?.();
       }
     })
   );
 }
 
 export {
-  sleep,
-  timeout,
-  retry,
-  retryN,
-  retryWithBackoff,
-  makeCircuitBreaker,
   widenOpt,
   fromPull,
   unwrapScoped,

package/dist/chunk-PNVFW245.js

@@ -0,0 +1,144 @@
+// 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 })
+};
+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 })
+};
+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);
+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,
+  Exit,
+  succeed,
+  fail,
+  sync,
+  map,
+  flatMap,
+  mapError,
+  catchAll,
+  orElseOptional,
+  end
+};