brass-runtime 1.14.0 → 1.16.0

package/dist/chunk-CY33PGEX.mjs

@@ -0,0 +1,1110 @@
+import {
+  makeRuntimeEventRecord
+} from "./chunk-VFIUZG7J.mjs";
+import {
+  Runtime,
+  getCurrentFiber
+} from "./chunk-G6IQOE4P.mjs";
+import {
+  asyncEffect,
+  asyncFail,
+  asyncFlatMap,
+  asyncFold,
+  asyncMap,
+  asyncSucceed,
+  asyncSync,
+  unit
+} from "./chunk-NOYZIMUJ.mjs";
+
+// src/core/types/cancel.ts
+function makeCancelToken() {
+  let cancelled = false;
+  const listeners = /* @__PURE__ */ new Set();
+  const cancel = () => {
+    if (cancelled) return;
+    cancelled = true;
+    listeners.forEach((f) => f());
+    listeners.clear();
+  };
+  return {
+    isCancelled: () => cancelled,
+    onCancel: (f) => {
+      if (cancelled) {
+        try {
+          f();
+        } catch {
+        }
+        return () => {
+        };
+      }
+      listeners.add(f);
+      return () => {
+        listeners.delete(f);
+      };
+    },
+    cancel
+  };
+}
+function linkAbortController(token, ac) {
+  return token.onCancel(() => ac.abort());
+}
+
+// src/core/runtime/linkedQueue.ts
+var LinkedQueue = class {
+  head = null;
+  tail = null;
+  len = 0;
+  get length() {
+    return this.len;
+  }
+  isEmpty() {
+    return this.len === 0;
+  }
+  push(value) {
+    const node = { value, next: null, prev: this.tail, removed: false };
+    if (this.tail) this.tail.next = node;
+    else this.head = node;
+    this.tail = node;
+    this.len++;
+    return node;
+  }
+  shift() {
+    const h = this.head;
+    if (!h) return void 0;
+    this.unlink(h);
+    return h.value;
+  }
+  remove(node) {
+    if (node.removed) return;
+    this.unlink(node);
+  }
+  unlink(node) {
+    node.removed = true;
+    const { prev, next } = node;
+    if (prev) prev.next = next;
+    else this.head = next;
+    if (next) next.prev = prev;
+    else this.tail = prev;
+    node.next = null;
+    node.prev = null;
+    this.len--;
+  }
+};
+
+// src/core/runtime/semaphore.ts
+function makeSemaphore(n) {
+  const capacity = Math.max(1, Math.floor(n));
+  let available = capacity;
+  let totalAcquired = 0;
+  let totalReleased = 0;
+  const waiters = new LinkedQueue();
+  const acquire = () => {
+    return asyncEffect((_env, cb) => {
+      if (available > 0) {
+        available--;
+        totalAcquired++;
+        cb({ _tag: "Success", value: void 0 });
+        return;
+      }
+      const node = waiters.push(cb);
+      return () => {
+        waiters.remove(node);
+      };
+    });
+  };
+  const release = () => {
+    totalReleased++;
+    if (waiters.length > 0) {
+      const waiter = waiters.shift();
+      totalAcquired++;
+      waiter({ _tag: "Success", value: void 0 });
+      return;
+    }
+    available++;
+  };
+  const acquirePermit = () => asyncFlatMap(
+    acquire(),
+    () => asyncEffect((_env, cb) => {
+      let released = false;
+      const releaseOnce = () => {
+        if (released) return;
+        released = true;
+        release();
+      };
+      const fiber = getCurrentFiber();
+      fiber?.addFinalizer(() => {
+        releaseOnce();
+      });
+      cb({ _tag: "Success", value: releaseOnce });
+    })
+  );
+  const withPermit = (effect) => asyncFlatMap(
+    acquirePermit(),
+    (releaseOnce) => asyncFold(
+      effect,
+      (error) => {
+        releaseOnce();
+        return asyncFail(error);
+      },
+      (value) => {
+        releaseOnce();
+        return asyncSucceed(value);
+      }
+    )
+  );
+  return {
+    capacity,
+    available: () => available,
+    waiting: () => waiters.length,
+    withPermit,
+    acquire,
+    release
+  };
+}
+
+// src/core/runtime/ref.ts
+function makeRef(initial) {
+  let value = initial;
+  return {
+    get: () => asyncSync(() => value),
+    set: (v) => asyncSync(() => {
+      value = v;
+    }),
+    update: (f) => asyncSync(() => {
+      value = f(value);
+      return value;
+    }),
+    modify: (f) => asyncSync(() => {
+      const [result, next] = f(value);
+      value = next;
+      return result;
+    }),
+    unsafeGet: () => value
+  };
+}
+function derivedRef(parent, get, set) {
+  return {
+    get: () => asyncSync(() => get(parent.unsafeGet())),
+    set: (b) => asyncFlatMap(parent.get(), (current) => parent.set(set(current, b))),
+    update: (f) => asyncFlatMap(parent.get(), (parentVal) => {
+      const newB = f(get(parentVal));
+      return asyncMap(parent.set(set(parentVal, newB)), () => newB);
+    }),
+    modify: (f) => asyncFlatMap(parent.get(), (parentVal) => {
+      const [result, newB] = f(get(parentVal));
+      return asyncMap(parent.set(set(parentVal, newB)), () => result);
+    }),
+    unsafeGet: () => get(parent.unsafeGet())
+  };
+}
+
+// src/core/runtime/shutdown.ts
+async function gracefulShutdown(runtime, config = {}) {
+  const timeoutMs = config.timeoutMs ?? 3e4;
+  const startedAt = Date.now();
+  config.onStart?.();
+  let timedOut = false;
+  const shutdownPromise = (async () => {
+    try {
+      await runtime.shutdown();
+    } catch {
+    }
+  })();
+  const timeoutPromise = new Promise((resolve) => {
+    setTimeout(() => {
+      timedOut = true;
+      resolve();
+    }, timeoutMs);
+  });
+  await Promise.race([shutdownPromise, timeoutPromise]);
+  const completedAt = Date.now();
+  const stats = {
+    startedAt,
+    completedAt,
+    elapsedMs: completedAt - startedAt,
+    timedOut
+  };
+  if (timedOut) {
+    config.onTimeout?.(stats);
+  } else {
+    config.onComplete?.(stats);
+  }
+  return stats;
+}
+function registerShutdownHooks(runtime, config = {}) {
+  let shuttingDown = false;
+  const handler = (signal) => {
+    if (shuttingDown) {
+      process.exit(1);
+    }
+    shuttingDown = true;
+    console.log(`
+[brass-runtime] Received ${signal}, shutting down gracefully...`);
+    gracefulShutdown(runtime, {
+      ...config,
+      onComplete: (stats) => {
+        config.onComplete?.(stats);
+        if (!config.onComplete) {
+          console.log(`[brass-runtime] Shutdown complete (${stats.elapsedMs}ms)`);
+          process.exit(0);
+        }
+      },
+      onTimeout: (stats) => {
+        config.onTimeout?.(stats);
+        if (!config.onTimeout) {
+          console.log(`[brass-runtime] Shutdown timed out after ${stats.elapsedMs}ms, forcing exit`);
+          process.exit(1);
+        }
+      }
+    });
+  };
+  process.on("SIGTERM", () => handler("SIGTERM"));
+  process.on("SIGINT", () => handler("SIGINT"));
+  return () => {
+    process.removeAllListeners("SIGTERM");
+    process.removeAllListeners("SIGINT");
+  };
+}
+
+// src/core/runtime/testing.ts
+function makeTestRuntime(env, options) {
+  const runtime = Runtime.make(env ?? {});
+  const run = (effect) => runtime.toPromise(effect);
+  const runExit = (effect) => new Promise((resolve) => {
+    runtime.unsafeRunAsync(effect, resolve);
+  });
+  return { runtime, run, runExit };
+}
+async function assertSucceeds(effect, expected, runtime) {
+  const rt = runtime ?? Runtime.make({});
+  const exit = await new Promise((resolve) => {
+    rt.unsafeRunAsync(effect, resolve);
+  });
+  if (exit._tag !== "Success") {
+    throw new Error(`Expected success with ${JSON.stringify(expected)}, got failure: ${JSON.stringify(exit.cause)}`);
+  }
+  if (JSON.stringify(exit.value) !== JSON.stringify(expected)) {
+    throw new Error(`Expected ${JSON.stringify(expected)}, got ${JSON.stringify(exit.value)}`);
+  }
+}
+async function assertFails(effect, expectedError, runtime) {
+  const rt = runtime ?? Runtime.make({});
+  const exit = await new Promise((resolve) => {
+    rt.unsafeRunAsync(effect, resolve);
+  });
+  if (exit._tag !== "Failure") {
+    throw new Error(`Expected failure with ${JSON.stringify(expectedError)}, got success: ${JSON.stringify(exit.value)}`);
+  }
+  const error = exit.cause.error;
+  if (JSON.stringify(error) !== JSON.stringify(expectedError)) {
+    throw new Error(`Expected error ${JSON.stringify(expectedError)}, got ${JSON.stringify(error)}`);
+  }
+}
+async function assertFailsWith(effect, predicate, runtime) {
+  const rt = runtime ?? Runtime.make({});
+  const exit = await new Promise((resolve) => {
+    rt.unsafeRunAsync(effect, resolve);
+  });
+  if (exit._tag !== "Failure") {
+    throw new Error(`Expected failure, got success: ${JSON.stringify(exit.value)}`);
+  }
+  const error = exit.cause.error;
+  if (!predicate(error)) {
+    throw new Error(`Error did not match predicate: ${JSON.stringify(error)}`);
+  }
+}
+async function assertCompletesWithin(effect, maxMs, runtime) {
+  const rt = runtime ?? Runtime.make({});
+  const start = performance.now();
+  const result = await rt.toPromise(effect);
+  const elapsed = performance.now() - start;
+  if (elapsed > maxMs) {
+    throw new Error(`Effect took ${elapsed.toFixed(1)}ms, expected < ${maxMs}ms`);
+  }
+  return result;
+}
+function flakyEffect(failCount, successValue, errorValue) {
+  let calls = 0;
+  return asyncEffect((_env, cb) => {
+    calls++;
+    if (calls <= failCount) {
+      cb({ _tag: "Failure", cause: { _tag: "Fail", error: errorValue } });
+    } else {
+      cb({ _tag: "Success", value: successValue });
+    }
+  });
+}
+function delayedEffect(ms, value) {
+  return asyncEffect((_env, cb) => {
+    const id = setTimeout(() => cb({ _tag: "Success", value }), ms);
+    return () => clearTimeout(id);
+  });
+}
+function neverEffect() {
+  return asyncEffect(() => {
+    return () => {
+    };
+  });
+}
+
+// src/core/runtime/layer.ts
+function layer(acquire, release) {
+  return {
+    _tag: "Layer",
+    build: (_deps) => asyncFlatMap(acquire(), (service) => asyncSucceed({
+      service,
+      release: release ? () => release(service) : () => unit()
+    }))
+  };
+}
+function layerFrom() {
+  return (acquire, release) => ({
+    _tag: "Layer",
+    build: (deps) => asyncFlatMap(acquire(deps), (service) => asyncSucceed({
+      service,
+      release: release ? () => release(service) : () => unit()
+    }))
+  });
+}
+function layerSucceed(value) {
+  return {
+    _tag: "Layer",
+    build: () => asyncSucceed({ service: value, release: () => unit() })
+  };
+}
+function layerFail(error) {
+  return {
+    _tag: "Layer",
+    build: () => asyncFail(error)
+  };
+}
+function compose(from, to) {
+  return {
+    _tag: "Layer",
+    build: (deps) => asyncFlatMap(
+      from.build(deps),
+      ({ service: mid, release: releaseMid }) => asyncFold(
+        to.build(mid),
+        (error) => asyncFlatMap(releaseMid(), () => asyncFail(error)),
+        ({ service: out, release: releaseOut }) => asyncSucceed({
+          service: out,
+          release: () => asyncFlatMap(releaseOut(), () => releaseMid())
+        })
+      )
+    )
+  };
+}
+function merge(left, right) {
+  return {
+    _tag: "Layer",
+    build: (deps) => asyncFlatMap(
+      left.build(deps),
+      ({ service: a, release: releaseA }) => asyncFold(
+        right.build(deps),
+        (error) => asyncFlatMap(releaseA(), () => asyncFail(error)),
+        ({ service: b, release: releaseB }) => asyncSucceed({
+          service: { ...a, ...b },
+          release: () => asyncFlatMap(releaseB(), () => releaseA())
+        })
+      )
+    )
+  };
+}
+function mapLayer(l, f) {
+  return {
+    _tag: "Layer",
+    build: (deps) => asyncFlatMap(
+      l.build(deps),
+      ({ service, release }) => asyncSucceed({ service: f(service), release })
+    )
+  };
+}
+function provideLayer(l, use, deps) {
+  return asyncFlatMap(
+    l.build(deps ?? {}),
+    ({ service, release }) => asyncFold(
+      use(service),
+      (error) => asyncFlatMap(release(), () => asyncFail(error)),
+      (value) => asyncFlatMap(release(), () => asyncSucceed(value))
+    )
+  );
+}
+
+// src/core/runtime/workerPool.ts
+function makeWorkerPool(config = {}) {
+  const size = config.size ?? 4;
+  const maxQueue = config.maxQueue ?? 1e3;
+  const taskTimeoutMs = config.taskTimeoutMs ?? 3e4;
+  let closed = false;
+  let busy = 0;
+  let completed = 0;
+  let failed = 0;
+  let timedOut = 0;
+  const queue = [];
+  const processNext = () => {
+    if (queue.length === 0 || busy >= size) return;
+    const task = queue.shift();
+    busy++;
+    setImmediate(() => {
+      if (task.timeoutId) clearTimeout(task.timeoutId);
+      try {
+        const result = task.fn();
+        busy--;
+        completed++;
+        task.resolve(result);
+        processNext();
+      } catch (e) {
+        busy--;
+        failed++;
+        task.reject({ _tag: "WorkerTaskError", message: String(e) });
+        processNext();
+      }
+    });
+  };
+  const execute = (fn) => {
+    if (closed) return asyncFail({ _tag: "WorkerPoolClosed" });
+    if (queue.length >= maxQueue) {
+      return asyncFail({ _tag: "WorkerPoolFull", queued: queue.length });
+    }
+    return asyncEffect((_env, cb) => {
+      const task = {
+        fn,
+        resolve: (value) => cb({ _tag: "Success", value }),
+        reject: (error) => cb({ _tag: "Failure", cause: { _tag: "Fail", error } })
+      };
+      task.timeoutId = setTimeout(() => {
+        const idx = queue.indexOf(task);
+        if (idx >= 0) {
+          queue.splice(idx, 1);
+          timedOut++;
+          task.reject({ _tag: "WorkerTaskTimeout", ms: taskTimeoutMs });
+        }
+      }, taskTimeoutMs);
+      queue.push(task);
+      processNext();
+      return () => {
+        const idx = queue.indexOf(task);
+        if (idx >= 0) {
+          queue.splice(idx, 1);
+          if (task.timeoutId) clearTimeout(task.timeoutId);
+        }
+      };
+    });
+  };
+  const run = (taskSource, args = []) => {
+    return execute(() => {
+      const fn = new Function(...args.map((_, i) => `arg${i}`), taskSource);
+      return fn(...args);
+    });
+  };
+  return {
+    execute,
+    run,
+    stats: () => ({
+      size,
+      busy,
+      idle: size - busy,
+      queued: queue.length,
+      completed,
+      failed,
+      timedOut
+    }),
+    shutdown: async () => {
+      closed = true;
+      while (queue.length > 0) {
+        const task = queue.shift();
+        if (task.timeoutId) clearTimeout(task.timeoutId);
+        task.reject({ _tag: "WorkerPoolClosed" });
+      }
+    }
+  };
+}
+
+// src/core/runtime/tracing.ts
+var idCounter = 0;
+function generateId() {
+  return (++idCounter).toString(16).padStart(16, "0");
+}
+function makeTracer(config) {
+  const completedSpans = [];
+  const sampleRate = config.sampleRate ?? 1;
+  const shouldSample = () => {
+    if (sampleRate >= 1) return true;
+    if (sampleRate <= 0) return false;
+    return Math.random() < sampleRate;
+  };
+  const span = (name, effect, attributes) => {
+    if (!shouldSample()) return effect;
+    const spanObj = {
+      name,
+      context: {
+        traceId: generateId(),
+        spanId: generateId()
+      },
+      startTime: performance.now(),
+      status: "unset",
+      attributes: { "service.name": config.serviceName, ...attributes },
+      events: []
+    };
+    return asyncFold(
+      effect,
+      (error) => {
+        spanObj.endTime = performance.now();
+        spanObj.status = "error";
+        spanObj.events.push({
+          name: "error",
+          time: performance.now(),
+          attributes: { "error.message": String(error) }
+        });
+        completedSpans.push(spanObj);
+        config.onSpanEnd?.(spanObj);
+        return asyncFail(error);
+      },
+      (value) => {
+        spanObj.endTime = performance.now();
+        spanObj.status = "ok";
+        completedSpans.push(spanObj);
+        config.onSpanEnd?.(spanObj);
+        return asyncSucceed(value);
+      }
+    );
+  };
+  return {
+    span,
+    spans: () => completedSpans,
+    clear: () => {
+      completedSpans.length = 0;
+    }
+  };
+}
+
+// src/core/runtime/loggerSink.ts
+function consoleJsonLogger() {
+  return {
+    emit(ev, ctx) {
+      if (ev.type !== "log") return;
+      const wallTs = Date.now();
+      const out = {
+        level: ev.level,
+        msg: ev.message,
+        wallTs,
+        fiberId: ctx.fiberId,
+        scopeId: ctx.scopeId,
+        traceId: ctx.traceId,
+        spanId: ctx.spanId,
+        parentSpanId: ctx.parentSpanId,
+        ...ev.fields ?? {}
+      };
+      if (ev.level === "error") console.error(JSON.stringify(out));
+      else console.log(JSON.stringify(out));
+    }
+  };
+}
+
+// src/core/runtime/registry.ts
+var RuntimeRegistry = class {
+  fibers = /* @__PURE__ */ new Map();
+  scopes = /* @__PURE__ */ new Map();
+  seq = 1;
+  recent = [];
+  recentCap = 2e3;
+  emit(ev, ctx) {
+    const rec = makeRuntimeEventRecord(ev, ctx, this.seq++);
+    this.recent.push(rec);
+    if (this.recent.length > this.recentCap) this.recent.shift();
+    switch (rec.type) {
+      case "fiber.start": {
+        const id = rec.fiberId;
+        this.fibers.set(id, {
+          fiberId: id,
+          parentFiberId: rec.parentFiberId,
+          name: rec.name,
+          runState: "Running",
+          status: "Running",
+          createdAt: rec.wallTs,
+          lastActiveAt: rec.wallTs,
+          scopeId: rec.scopeId,
+          traceId: rec.traceId,
+          spanId: rec.spanId
+        });
+        break;
+      }
+      case "fiber.suspend": {
+        const f = this.fibers.get(rec.fiberId);
+        if (f) {
+          f.runState = "Suspended";
+          f.lastActiveAt = rec.wallTs;
+          f.awaiting = { reason: rec.reason ?? "unknown" };
+        }
+        break;
+      }
+      case "fiber.resume": {
+        const f = this.fibers.get(rec.fiberId);
+        if (f) {
+          f.runState = "Running";
+          f.lastActiveAt = rec.wallTs;
+          f.awaiting = void 0;
+        }
+        break;
+      }
+      case "fiber.end": {
+        const f = this.fibers.get(rec.fiberId);
+        if (f) {
+          f.runState = "Done";
+          f.lastActiveAt = rec.wallTs;
+          f.status = rec.status === "interrupted" ? "Interrupted" : "Done";
+          f.lastEnd = { status: rec.status, error: rec.error };
+        }
+        break;
+      }
+      case "scope.open": {
+        const sid = rec.scopeId;
+        this.scopes.set(sid, {
+          scopeId: sid,
+          parentScopeId: rec.parentScopeId,
+          ownerFiberId: rec.fiberId,
+          openAt: rec.wallTs,
+          finalizers: []
+        });
+        break;
+      }
+      case "scope.close": {
+        const s = this.scopes.get(rec.scopeId);
+        if (s) s.closedAt = rec.wallTs;
+        break;
+      }
+    }
+  }
+  getRecentEvents() {
+    return this.recent.slice();
+  }
+};
+
+// src/core/runtime/dump.ts
+function dumpAllFibers(reg) {
+  const fibers = Array.from(reg.fibers.values());
+  fibers.sort((a, b) => a.runState === b.runState ? b.lastActiveAt - a.lastActiveAt : a.runState.localeCompare(b.runState));
+  const lines = [];
+  lines.push(`=== Fiber Dump (${(/* @__PURE__ */ new Date()).toISOString()}) ===`);
+  for (const f of fibers) {
+    lines.push(
+      `fiber#${f.fiberId} ${f.name ?? ""} run=${f.runState} status=${f.status} scope=${f.scopeId ?? "-"} trace=${f.traceId ?? "-"} span=${f.spanId ?? "-"} last=${new Date(f.lastActiveAt).toISOString()}`
+    );
+    if (f.awaiting) lines.push(`  awaiting: ${f.awaiting.reason}${f.awaiting.detail ? ` (${f.awaiting.detail})` : ""}`);
+    if (f.lastEnd?.error) lines.push(`  end.error: ${f.lastEnd.error}`);
+  }
+  lines.push(`=== Recent Events ===`);
+  for (const ev of reg.getRecentEvents().slice(-80)) {
+    lines.push(
+      `${ev.seq} ${new Date(ev.wallTs).toISOString()} ${ev.type} fiber=${ev.fiberId ?? "-"} scope=${ev.scopeId ?? "-"} trace=${ev.traceId ?? "-"}`
+    );
+  }
+  return lines.join("\n");
+}
+
+// src/core/runtime/tracer.ts
+var defaultTracer = {
+  newTraceId: () => crypto.randomUUID(),
+  newSpanId: () => crypto.randomUUID()
+};
+
+// src/core/types/typedError.ts
+function catchTag(effect, tag, handler) {
+  return asyncFold(
+    effect,
+    (error) => {
+      if (typeof error === "object" && error !== null && "_tag" in error && error._tag === tag) {
+        return handler(error);
+      }
+      return asyncFail(error);
+    },
+    (value) => asyncSucceed(value)
+  );
+}
+function catchTags(effect, handlers) {
+  return asyncFold(
+    effect,
+    (error) => {
+      if (typeof error === "object" && error !== null && "_tag" in error) {
+        const handler = handlers[error._tag];
+        if (handler) return handler(error);
+      }
+      return asyncFail(error);
+    },
+    (value) => asyncSucceed(value)
+  );
+}
+function mapError(effect, f) {
+  return asyncFold(effect, (error) => asyncFail(f(error)), asyncSucceed);
+}
+function tagError(effect, tag, enrich) {
+  return asyncFold(
+    effect,
+    (error) => {
+      const fields = enrich ? enrich(error) : {};
+      return asyncFail({ _tag: tag, ...fields });
+    },
+    asyncSucceed
+  );
+}
+function orElse(effect, fallback) {
+  return asyncFold(effect, fallback, asyncSucceed);
+}
+
+// src/core/runtime/supervisor.ts
+var nextSupervisorId = 1;
+var nextChildId = 1;
+var Supervisor = class {
+  constructor(runtime, config = {}) {
+    this.runtime = runtime;
+    this.strategy = config.strategy ?? "one-for-one";
+    this.restart = resolveRestartPolicy(config.restart ?? "on-failure");
+    this.escalation = config.escalation ?? "shutdown";
+    this.clock = config.clock ?? Date.now;
+    this.onEvent = config.onEvent;
+  }
+  runtime;
+  id = nextSupervisorId++;
+  records = /* @__PURE__ */ new Map();
+  strategy;
+  restart;
+  escalation;
+  clock;
+  onEvent;
+  closed = false;
+  start(spec) {
+    if (this.closed) throw new Error("Supervisor is shut down");
+    const record = {
+      id: nextChildId++,
+      name: spec.name,
+      spec,
+      restart: resolveRestartPolicy(spec.restart ?? this.restart),
+      status: "running",
+      restartCount: 0,
+      restartTimes: [],
+      generation: 0,
+      plannedRestart: false,
+      joiners: []
+    };
+    this.records.set(record.id, record);
+    this.launch(record);
+    return this.handle(record);
+  }
+  startAll(specs) {
+    return specs.map((spec) => this.start(spec));
+  }
+  shutdown() {
+    return asyncEffect((_env, cb) => {
+      this.closed = true;
+      this.emit({ type: "shutdown", supervisorId: this.id });
+      const records = [...this.records.values()];
+      let remaining = records.filter((record) => record.current !== void 0).length;
+      for (const record of records) {
+        if (record.timer) {
+          clearTimeout(record.timer);
+          record.timer = void 0;
+        }
+        record.plannedRestart = false;
+        if (record.current) {
+          record.status = "interrupted";
+          record.current.interrupt();
+        } else if (!record.terminalExit) {
+          this.finish(record, interruptExit());
+        }
+      }
+      if (remaining === 0) {
+        cb({ _tag: "Success", value: void 0 });
+        return;
+      }
+      for (const record of records) {
+        record.current?.join(() => {
+          remaining--;
+          if (remaining === 0) cb({ _tag: "Success", value: void 0 });
+        });
+      }
+    });
+  }
+  handle(record) {
+    return {
+      id: record.id,
+      name: record.name,
+      current: () => record.current,
+      status: () => record.status,
+      restartCount: () => record.restartCount,
+      interrupt: () => {
+        record.plannedRestart = false;
+        if (record.timer) {
+          clearTimeout(record.timer);
+          record.timer = void 0;
+        }
+        if (record.current) {
+          record.current.interrupt();
+        } else if (!record.terminalExit) {
+          this.finish(record, interruptExit());
+        }
+      },
+      join: (cb) => {
+        if (record.terminalExit) cb(record.terminalExit);
+        else record.joiners.push(cb);
+      }
+    };
+  }
+  launch(record) {
+    if (this.closed) return;
+    record.generation++;
+    record.status = "running";
+    record.plannedRestart = false;
+    record.terminalExit = void 0;
+    const generation = record.generation;
+    const effect = typeof record.spec.effect === "function" ? record.spec.effect() : record.spec.effect;
+    const fiber = this.runtime.fork(effect);
+    record.current = fiber;
+    this.emit({
+      type: "child-start",
+      supervisorId: this.id,
+      childId: record.id,
+      name: record.name,
+      status: "running",
+      restartCount: record.restartCount
+    });
+    fiber.join((exit) => this.onChildExit(record, generation, exit));
+  }
+  onChildExit(record, generation, exit) {
+    if (generation !== record.generation) return;
+    record.current = void 0;
+    if (this.closed) {
+      this.finish(record, exit);
+      return;
+    }
+    if (record.plannedRestart) {
+      this.scheduleRestart(record, exit, "all-for-one");
+      return;
+    }
+    this.emit({
+      type: "child-end",
+      supervisorId: this.id,
+      childId: record.id,
+      name: record.name,
+      status: statusFromExit(exit),
+      restartCount: record.restartCount,
+      exit
+    });
+    if (!shouldRestart(record.restart.mode, exit)) {
+      this.finish(record, exit);
+      return;
+    }
+    if (this.strategy === "all-for-one") {
+      this.restartAll(record, exit);
+      return;
+    }
+    this.scheduleRestart(record, exit, "one-for-one");
+  }
+  restartAll(failed, exit) {
+    for (const record of this.records.values()) {
+      if (record.id === failed.id) continue;
+      if (!record.current) continue;
+      record.plannedRestart = true;
+      record.status = "restarting";
+      record.current.interrupt();
+    }
+    this.scheduleRestart(failed, exit, "all-for-one");
+  }
+  scheduleRestart(record, exit, reason) {
+    const context = this.restartContext(record, exit);
+    const delay = this.nextDelay(record, context);
+    if (delay === void 0) {
+      this.escalate(record, exit, "restart policy exhausted");
+      return;
+    }
+    record.status = "restarting";
+    record.restartCount++;
+    this.emit({
+      type: "child-restart",
+      supervisorId: this.id,
+      childId: record.id,
+      name: record.name,
+      status: "restarting",
+      restartCount: record.restartCount,
+      delayMs: delay,
+      exit,
+      reason
+    });
+    record.timer = setTimeout(() => {
+      record.timer = void 0;
+      this.launch(record);
+    }, delay);
+  }
+  nextDelay(record, context) {
+    const now = this.clock();
+    const windowStart = record.restart.withinMs === void 0 ? Number.NEGATIVE_INFINITY : now - record.restart.withinMs;
+    record.restartTimes = record.restartTimes.filter((ts) => ts >= windowStart);
+    if (record.restart.maxRestarts !== void 0 && record.restartTimes.length >= record.restart.maxRestarts) {
+      return void 0;
+    }
+    record.restartTimes.push(now);
+    if (record.restart.schedule) {
+      const state = record.scheduleState ?? record.restart.schedule.initial();
+      const [decision, nextState] = record.restart.schedule.step(state, context);
+      record.scheduleState = nextState;
+      return decision.continue ? Math.max(0, Math.floor(decision.delayMs)) : void 0;
+    }
+    const raw = typeof record.restart.delayMs === "function" ? record.restart.delayMs(context) : record.restart.delayMs ?? 0;
+    return Number.isFinite(raw) ? Math.max(0, Math.floor(raw)) : 0;
+  }
+  escalate(record, exit, reason) {
+    this.emit({
+      type: "child-escalate",
+      supervisorId: this.id,
+      childId: record.id,
+      name: record.name,
+      status: statusFromExit(exit),
+      restartCount: record.restartCount,
+      exit,
+      reason
+    });
+    if (this.escalation === "shutdown") {
+      for (const child of this.records.values()) {
+        if (child.id !== record.id) child.current?.interrupt();
+      }
+    }
+    this.finish(record, exit);
+  }
+  finish(record, exit) {
+    record.status = statusFromExit(exit);
+    record.terminalExit = exit;
+    const joiners = record.joiners.splice(0);
+    for (const joiner of joiners) joiner(exit);
+  }
+  restartContext(record, exit) {
+    return {
+      supervisorId: this.id,
+      childId: record.id,
+      name: record.name,
+      restartCount: record.restartCount,
+      exit
+    };
+  }
+  emit(event) {
+    this.onEvent?.(event);
+    this.runtime.emit(toRuntimeEvent(event));
+  }
+};
+function makeSupervisor(runtime, config = {}) {
+  return new Supervisor(runtime, config);
+}
+function supervise(runtime, spec, config = {}) {
+  return new Supervisor(runtime, config).start(spec);
+}
+function joinSupervised(fiber) {
+  return asyncEffect((_env, cb) => fiber.join(cb));
+}
+function resolveRestartPolicy(policy) {
+  if (typeof policy === "string") return { mode: policy };
+  return {
+    mode: policy.mode ?? "on-failure",
+    maxRestarts: policy.maxRestarts,
+    withinMs: policy.withinMs,
+    delayMs: policy.delayMs,
+    schedule: policy.schedule
+  };
+}
+function shouldRestart(mode, exit) {
+  if (exit._tag === "Failure" && exit.cause._tag === "Interrupt") return false;
+  if (mode === "never") return false;
+  if (mode === "always") return true;
+  return exit._tag === "Failure";
+}
+function statusFromExit(exit) {
+  if (exit._tag === "Success") return "succeeded";
+  return exit.cause._tag === "Interrupt" ? "interrupted" : "failed";
+}
+function toRuntimeEvent(event) {
+  switch (event.type) {
+    case "child-start":
+      return {
+        type: "supervisor.child.start",
+        supervisorId: event.supervisorId,
+        childId: event.childId,
+        name: event.name,
+        restartCount: event.restartCount ?? 0
+      };
+    case "child-end":
+      return {
+        type: "supervisor.child.end",
+        supervisorId: event.supervisorId,
+        childId: event.childId,
+        name: event.name,
+        status: event.status === "succeeded" ? "success" : event.status === "interrupted" ? "interrupted" : "failure",
+        error: event.exit?._tag === "Failure" ? event.exit.cause : void 0
+      };
+    case "child-restart":
+      return {
+        type: "supervisor.child.restart",
+        supervisorId: event.supervisorId,
+        childId: event.childId,
+        name: event.name,
+        restartCount: event.restartCount ?? 0,
+        delayMs: event.delayMs ?? 0,
+        reason: event.reason
+      };
+    case "child-escalate":
+      return {
+        type: "supervisor.child.escalate",
+        supervisorId: event.supervisorId,
+        childId: event.childId,
+        name: event.name,
+        reason: event.reason,
+        error: event.exit?._tag === "Failure" ? event.exit.cause : void 0
+      };
+    case "shutdown":
+      return {
+        type: "supervisor.shutdown",
+        supervisorId: event.supervisorId
+      };
+  }
+}
+function interruptExit() {
+  return { _tag: "Failure", cause: { _tag: "Interrupt" } };
+}
+
+export {
+  makeCancelToken,
+  linkAbortController,
+  LinkedQueue,
+  makeSemaphore,
+  makeRef,
+  derivedRef,
+  gracefulShutdown,
+  registerShutdownHooks,
+  makeTestRuntime,
+  assertSucceeds,
+  assertFails,
+  assertFailsWith,
+  assertCompletesWithin,
+  flakyEffect,
+  delayedEffect,
+  neverEffect,
+  layer,
+  layerFrom,
+  layerSucceed,
+  layerFail,
+  compose,
+  merge,
+  mapLayer,
+  provideLayer,
+  makeWorkerPool,
+  makeTracer,
+  consoleJsonLogger,
+  RuntimeRegistry,
+  dumpAllFibers,
+  defaultTracer,
+  catchTag,
+  catchTags,
+  mapError,
+  tagError,
+  orElse,
+  Supervisor,
+  makeSupervisor,
+  supervise,
+  joinSupervised
+};