@reventlessdev/reventless-local 3.0.0-alpha.113

package/src/adapter/LocalBus.res.mjs

@@ -0,0 +1,1011 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
+import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
+import * as Queue from "effect/Queue";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Effect from "effect/Effect";
+import * as PubSub from "effect/PubSub";
+import * as Stream from "effect/Stream";
+import * as Deferred from "effect/Deferred";
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
+
+function pickSortKeyValue(state) {
+  let obj = Stdlib_JSON.Decode.object(state);
+  if (obj === undefined) {
+    return;
+  }
+  let match = obj["updatedAt"];
+  if (typeof match === "string") {
+    return match;
+  }
+  let match$1 = obj["createdAt"];
+  if (typeof match$1 === "string") {
+    return match$1;
+  }
+}
+
+function makeStateChangeDescriptor(changeKind, id, state) {
+  let descriptor = {};
+  descriptor["changeKind"] = changeKind;
+  descriptor["id"] = id;
+  let v = Stdlib_Option.flatMap(state, pickSortKeyValue);
+  if (v !== undefined) {
+    descriptor["sortKeyValue"] = v;
+  }
+  return descriptor;
+}
+
+function eventTapEnabled() {
+  return Stdlib_Option.isSome(process.env["REVENTLESS_EVENT_TAP"]);
+}
+
+let eventTapSeq = {
+  contents: 0
+};
+
+function seedEventTapSeq(n) {
+  eventTapSeq.contents = n;
+}
+
+function emitEventTap(topic, service, payload) {
+  eventTapSeq.contents = eventTapSeq.contents + 1 | 0;
+  let line = Object.fromEntries([
+    [
+      "event",
+      "domainEvent"
+    ],
+    [
+      "seq",
+      eventTapSeq.contents
+    ],
+    [
+      "topic",
+      topic
+    ],
+    [
+      "service",
+      service
+    ],
+    [
+      "payload",
+      payload
+    ],
+    [
+      "ts",
+      new Date().toISOString()
+    ]
+  ]);
+  console.log("@@RVLESS_EVT@@ " + JSON.stringify(line));
+}
+
+function Impl(C) {
+  let capacity = C.capacity;
+  let eventHubs = {
+    contents: {}
+  };
+  let subscriberCounts = {
+    contents: {}
+  };
+  let commandHandlers = {
+    contents: {}
+  };
+  let pendingCommandQueues = {
+    contents: {}
+  };
+  let queryDbRegistry = {
+    contents: {}
+  };
+  let queryDbScanRegistry = {
+    contents: {}
+  };
+  let queryDbStreamRegistry = {
+    contents: {}
+  };
+  let eventLogReplayRegistry = {
+    contents: {}
+  };
+  let dcbEventLogReadRegistry = {
+    contents: {}
+  };
+  let makeHub = () => {
+    if (capacity !== undefined) {
+      return Effect.runSync(PubSub.bounded(capacity));
+    } else {
+      return Effect.runSync(PubSub.unbounded());
+    }
+  };
+  let subscribeToEvents = (topicName, handler) => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    subscriberCounts.contents[topicName] = n + 1 | 0;
+    let drainLoop = Effect.scoped(Effect.flatMap(PubSub.subscribe(hub), queue => Stream.runForEach(Stream.fromQueue(queue), msg => Effect.zipRight(Effect.promise(() => handler(msg.service, msg.meta, msg.json)), msg.done_))));
+    Effect.runFork(drainLoop);
+  };
+  let subscribeToEventStream = topicName => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    return Effect.map(Effect.acquireRelease(Effect.flatMap(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+      subscriberCounts.contents[topicName] = n + 1 | 0;
+    }), () => PubSub.subscribe(hub)), (queue, _exit) => Effect.zipRight(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 1);
+      subscriberCounts.contents[topicName] = n - 1 | 0;
+    }), Queue.shutdown(queue))), queue => Stream.fromQueue(queue));
+  };
+  let publishEvent = async (topicName, service, meta, json) => {
+    if (Stdlib_Option.isSome(process.env["REVENTLESS_EVENT_TAP"])) {
+      emitEventTap(topicName, service, json);
+    }
+    let hub = eventHubs.contents[topicName];
+    if (hub === undefined) {
+      return;
+    }
+    let hub$1 = Primitive_option.valFromOption(hub);
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    if (n === 0) {
+      return;
+    }
+    let allDone = Effect.runSync(Deferred.make());
+    let remaining = {
+      contents: n
+    };
+    let done_ = Effect.flatMap(Effect.sync(() => {
+      remaining.contents = remaining.contents - 1 | 0;
+    }), () => {
+      if (remaining.contents === 0) {
+        return Effect.map(Deferred.succeed(allDone, undefined), param => {});
+      } else {
+        return Effect.succeed();
+      }
+    });
+    let msg = {
+      service: service,
+      meta: meta,
+      json: json,
+      done_: done_
+    };
+    let publishAndWait = capacity !== undefined ? Effect.flatMap(PubSub.publish(hub$1, msg), param => Deferred.await(allDone)) : Effect.zipRight(Effect.sync(() => {
+        Effect.runSync(PubSub.publish(hub$1, msg));
+      }), Deferred.await(allDone));
+    await Effect.runPromise(publishAndWait);
+  };
+  let dispatchCommand = async (channelName, json) => {
+    let handler = commandHandlers.contents[channelName];
+    if (handler !== undefined) {
+      return await handler(json, undefined);
+    }
+    let q = pendingCommandQueues.contents[channelName];
+    let queue;
+    if (q !== undefined) {
+      queue = q;
+    } else {
+      let q$1 = {
+        contents: []
+      };
+      pendingCommandQueues.contents[channelName] = q$1;
+      queue = q$1;
+    }
+    queue.contents.push(json);
+  };
+  let registerCommandHandler = (channelName, handler) => {
+    commandHandlers.contents[channelName] = handler;
+    let queue = pendingCommandQueues.contents[channelName];
+    if (queue === undefined) {
+      return;
+    }
+    let pending = queue.contents;
+    queue.contents = [];
+    pending.forEach(json => {
+      handler(json, undefined);
+    });
+  };
+  let registerQueryDb = (name, ops) => {
+    queryDbRegistry.contents[name] = ops;
+  };
+  let getQueryDb = name => queryDbRegistry.contents[name];
+  let registerQueryDbScan = (name, scan) => {
+    queryDbScanRegistry.contents[name] = scan;
+  };
+  let getQueryDbScan = name => queryDbScanRegistry.contents[name];
+  let registerQueryDbStream = (name, streamFn) => {
+    queryDbStreamRegistry.contents[name] = streamFn;
+  };
+  let getQueryDbStream = name => queryDbStreamRegistry.contents[name];
+  let registerEventLogReplay = (name, replay) => {
+    eventLogReplayRegistry.contents[name] = replay;
+  };
+  let getEventLogReplay = name => eventLogReplayRegistry.contents[name];
+  let registerDcbEventLogRead = (name, read) => {
+    dcbEventLogReadRegistry.contents[name] = read;
+  };
+  let getDcbEventLogRead = name => dcbEventLogReadRegistry.contents[name];
+  let stateChangeListeners = {
+    contents: {}
+  };
+  let subscribeToStateChanges = (name, callback) => {
+    let listeners = Stdlib_Option.getOr(stateChangeListeners.contents[name], []);
+    stateChangeListeners.contents[name] = listeners.concat([callback]);
+  };
+  let publishStateChange = (name, descriptor) => {
+    Stdlib_Option.getOr(stateChangeListeners.contents[name], []).forEach(cb => cb(descriptor));
+  };
+  let eventCollectorHandlers = {
+    contents: {}
+  };
+  let eventCollectorPendingTopics = {
+    contents: {}
+  };
+  let makeFireAndForgetHandler = handler => ((param, param$1, json) => {
+    handler(json, undefined);
+    return Promise.resolve();
+  });
+  let registerEventCollectorHandler = (ecName, handler) => {
+    eventCollectorHandlers.contents[ecName] = handler;
+    let topics = eventCollectorPendingTopics.contents[ecName];
+    if (topics !== undefined) {
+      topics.forEach(topicName => subscribeToEvents(topicName, makeFireAndForgetHandler(handler)));
+      return Stdlib_Dict.$$delete(eventCollectorPendingTopics.contents, ecName);
+    }
+  };
+  let subscribeEventCollectorToTopic = (ecName, topicName) => {
+    let handler = eventCollectorHandlers.contents[ecName];
+    if (handler !== undefined) {
+      return subscribeToEvents(topicName, makeFireAndForgetHandler(handler));
+    }
+    let pending = Stdlib_Option.getOr(eventCollectorPendingTopics.contents[ecName], []);
+    pending.push(topicName);
+    eventCollectorPendingTopics.contents[ecName] = pending;
+  };
+  let reset = () => {
+    let shutdownAll = Effect.map(Effect.all(Object.values(eventHubs.contents).map(hub => PubSub.shutdown(hub)), {
+      concurrency: "unbounded"
+    }), param => {});
+    Effect.runSync(shutdownAll);
+    eventHubs.contents = {};
+    subscriberCounts.contents = {};
+    commandHandlers.contents = {};
+    pendingCommandQueues.contents = {};
+    queryDbRegistry.contents = {};
+    queryDbScanRegistry.contents = {};
+    queryDbStreamRegistry.contents = {};
+    eventLogReplayRegistry.contents = {};
+    dcbEventLogReadRegistry.contents = {};
+    stateChangeListeners.contents = {};
+    eventCollectorHandlers.contents = {};
+    eventCollectorPendingTopics.contents = {};
+  };
+  return {
+    publishEvent: publishEvent,
+    subscribeToEvents: subscribeToEvents,
+    subscribeToEventStream: subscribeToEventStream,
+    dispatchCommand: dispatchCommand,
+    registerCommandHandler: registerCommandHandler,
+    registerQueryDb: registerQueryDb,
+    getQueryDb: getQueryDb,
+    registerQueryDbScan: registerQueryDbScan,
+    getQueryDbScan: getQueryDbScan,
+    registerQueryDbStream: registerQueryDbStream,
+    getQueryDbStream: getQueryDbStream,
+    registerEventLogReplay: registerEventLogReplay,
+    getEventLogReplay: getEventLogReplay,
+    registerDcbEventLogRead: registerDcbEventLogRead,
+    getDcbEventLogRead: getDcbEventLogRead,
+    publishStateChange: publishStateChange,
+    subscribeToStateChanges: subscribeToStateChanges,
+    registerEventCollectorHandler: registerEventCollectorHandler,
+    subscribeEventCollectorToTopic: subscribeEventCollectorToTopic,
+    reset: reset
+  };
+}
+
+function Make($star) {
+  let eventHubs = {
+    contents: {}
+  };
+  let subscriberCounts = {
+    contents: {}
+  };
+  let commandHandlers = {
+    contents: {}
+  };
+  let pendingCommandQueues = {
+    contents: {}
+  };
+  let queryDbRegistry = {
+    contents: {}
+  };
+  let queryDbScanRegistry = {
+    contents: {}
+  };
+  let queryDbStreamRegistry = {
+    contents: {}
+  };
+  let eventLogReplayRegistry = {
+    contents: {}
+  };
+  let dcbEventLogReadRegistry = {
+    contents: {}
+  };
+  let makeHub = () => Effect.runSync(PubSub.unbounded());
+  let subscribeToEvents = (topicName, handler) => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    subscriberCounts.contents[topicName] = n + 1 | 0;
+    let drainLoop = Effect.scoped(Effect.flatMap(PubSub.subscribe(hub), queue => Stream.runForEach(Stream.fromQueue(queue), msg => Effect.zipRight(Effect.promise(() => handler(msg.service, msg.meta, msg.json)), msg.done_))));
+    Effect.runFork(drainLoop);
+  };
+  let subscribeToEventStream = topicName => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    return Effect.map(Effect.acquireRelease(Effect.flatMap(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+      subscriberCounts.contents[topicName] = n + 1 | 0;
+    }), () => PubSub.subscribe(hub)), (queue, _exit) => Effect.zipRight(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 1);
+      subscriberCounts.contents[topicName] = n - 1 | 0;
+    }), Queue.shutdown(queue))), queue => Stream.fromQueue(queue));
+  };
+  let publishEvent = async (topicName, service, meta, json) => {
+    if (Stdlib_Option.isSome(process.env["REVENTLESS_EVENT_TAP"])) {
+      emitEventTap(topicName, service, json);
+    }
+    let hub = eventHubs.contents[topicName];
+    if (hub === undefined) {
+      return;
+    }
+    let hub$1 = Primitive_option.valFromOption(hub);
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    if (n === 0) {
+      return;
+    }
+    let allDone = Effect.runSync(Deferred.make());
+    let remaining = {
+      contents: n
+    };
+    let done_ = Effect.flatMap(Effect.sync(() => {
+      remaining.contents = remaining.contents - 1 | 0;
+    }), () => {
+      if (remaining.contents === 0) {
+        return Effect.map(Deferred.succeed(allDone, undefined), param => {});
+      } else {
+        return Effect.succeed();
+      }
+    });
+    let msg = {
+      service: service,
+      meta: meta,
+      json: json,
+      done_: done_
+    };
+    let publishAndWait = Effect.zipRight(Effect.sync(() => {
+      Effect.runSync(PubSub.publish(hub$1, msg));
+    }), Deferred.await(allDone));
+    await Effect.runPromise(publishAndWait);
+  };
+  let dispatchCommand = async (channelName, json) => {
+    let handler = commandHandlers.contents[channelName];
+    if (handler !== undefined) {
+      return await handler(json, undefined);
+    }
+    let q = pendingCommandQueues.contents[channelName];
+    let queue;
+    if (q !== undefined) {
+      queue = q;
+    } else {
+      let q$1 = {
+        contents: []
+      };
+      pendingCommandQueues.contents[channelName] = q$1;
+      queue = q$1;
+    }
+    queue.contents.push(json);
+  };
+  let registerCommandHandler = (channelName, handler) => {
+    commandHandlers.contents[channelName] = handler;
+    let queue = pendingCommandQueues.contents[channelName];
+    if (queue === undefined) {
+      return;
+    }
+    let pending = queue.contents;
+    queue.contents = [];
+    pending.forEach(json => {
+      handler(json, undefined);
+    });
+  };
+  let registerQueryDb = (name, ops) => {
+    queryDbRegistry.contents[name] = ops;
+  };
+  let getQueryDb = name => queryDbRegistry.contents[name];
+  let registerQueryDbScan = (name, scan) => {
+    queryDbScanRegistry.contents[name] = scan;
+  };
+  let getQueryDbScan = name => queryDbScanRegistry.contents[name];
+  let registerQueryDbStream = (name, streamFn) => {
+    queryDbStreamRegistry.contents[name] = streamFn;
+  };
+  let getQueryDbStream = name => queryDbStreamRegistry.contents[name];
+  let registerEventLogReplay = (name, replay) => {
+    eventLogReplayRegistry.contents[name] = replay;
+  };
+  let getEventLogReplay = name => eventLogReplayRegistry.contents[name];
+  let registerDcbEventLogRead = (name, read) => {
+    dcbEventLogReadRegistry.contents[name] = read;
+  };
+  let getDcbEventLogRead = name => dcbEventLogReadRegistry.contents[name];
+  let stateChangeListeners = {
+    contents: {}
+  };
+  let subscribeToStateChanges = (name, callback) => {
+    let listeners = Stdlib_Option.getOr(stateChangeListeners.contents[name], []);
+    stateChangeListeners.contents[name] = listeners.concat([callback]);
+  };
+  let publishStateChange = (name, descriptor) => {
+    Stdlib_Option.getOr(stateChangeListeners.contents[name], []).forEach(cb => cb(descriptor));
+  };
+  let eventCollectorHandlers = {
+    contents: {}
+  };
+  let eventCollectorPendingTopics = {
+    contents: {}
+  };
+  let makeFireAndForgetHandler = handler => ((param, param$1, json) => {
+    handler(json, undefined);
+    return Promise.resolve();
+  });
+  let registerEventCollectorHandler = (ecName, handler) => {
+    eventCollectorHandlers.contents[ecName] = handler;
+    let topics = eventCollectorPendingTopics.contents[ecName];
+    if (topics !== undefined) {
+      topics.forEach(topicName => subscribeToEvents(topicName, makeFireAndForgetHandler(handler)));
+      return Stdlib_Dict.$$delete(eventCollectorPendingTopics.contents, ecName);
+    }
+  };
+  let subscribeEventCollectorToTopic = (ecName, topicName) => {
+    let handler = eventCollectorHandlers.contents[ecName];
+    if (handler !== undefined) {
+      return subscribeToEvents(topicName, makeFireAndForgetHandler(handler));
+    }
+    let pending = Stdlib_Option.getOr(eventCollectorPendingTopics.contents[ecName], []);
+    pending.push(topicName);
+    eventCollectorPendingTopics.contents[ecName] = pending;
+  };
+  let reset = () => {
+    let shutdownAll = Effect.map(Effect.all(Object.values(eventHubs.contents).map(hub => PubSub.shutdown(hub)), {
+      concurrency: "unbounded"
+    }), param => {});
+    Effect.runSync(shutdownAll);
+    eventHubs.contents = {};
+    subscriberCounts.contents = {};
+    commandHandlers.contents = {};
+    pendingCommandQueues.contents = {};
+    queryDbRegistry.contents = {};
+    queryDbScanRegistry.contents = {};
+    queryDbStreamRegistry.contents = {};
+    eventLogReplayRegistry.contents = {};
+    dcbEventLogReadRegistry.contents = {};
+    stateChangeListeners.contents = {};
+    eventCollectorHandlers.contents = {};
+    eventCollectorPendingTopics.contents = {};
+  };
+  return {
+    publishEvent: publishEvent,
+    subscribeToEvents: subscribeToEvents,
+    subscribeToEventStream: subscribeToEventStream,
+    dispatchCommand: dispatchCommand,
+    registerCommandHandler: registerCommandHandler,
+    registerQueryDb: registerQueryDb,
+    getQueryDb: getQueryDb,
+    registerQueryDbScan: registerQueryDbScan,
+    getQueryDbScan: getQueryDbScan,
+    registerQueryDbStream: registerQueryDbStream,
+    getQueryDbStream: getQueryDbStream,
+    registerEventLogReplay: registerEventLogReplay,
+    getEventLogReplay: getEventLogReplay,
+    registerDcbEventLogRead: registerDcbEventLogRead,
+    getDcbEventLogRead: getDcbEventLogRead,
+    publishStateChange: publishStateChange,
+    subscribeToStateChanges: subscribeToStateChanges,
+    registerEventCollectorHandler: registerEventCollectorHandler,
+    subscribeEventCollectorToTopic: subscribeEventCollectorToTopic,
+    reset: reset
+  };
+}
+
+function MakeSilent($star) {
+  let eventHubs = {
+    contents: {}
+  };
+  let subscriberCounts = {
+    contents: {}
+  };
+  let commandHandlers = {
+    contents: {}
+  };
+  let pendingCommandQueues = {
+    contents: {}
+  };
+  let queryDbRegistry = {
+    contents: {}
+  };
+  let queryDbScanRegistry = {
+    contents: {}
+  };
+  let queryDbStreamRegistry = {
+    contents: {}
+  };
+  let eventLogReplayRegistry = {
+    contents: {}
+  };
+  let dcbEventLogReadRegistry = {
+    contents: {}
+  };
+  let makeHub = () => Effect.runSync(PubSub.unbounded());
+  let subscribeToEvents = (topicName, handler) => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    subscriberCounts.contents[topicName] = n + 1 | 0;
+    let drainLoop = Effect.scoped(Effect.flatMap(PubSub.subscribe(hub), queue => Stream.runForEach(Stream.fromQueue(queue), msg => Effect.zipRight(Effect.promise(() => handler(msg.service, msg.meta, msg.json)), msg.done_))));
+    Effect.runFork(drainLoop);
+  };
+  let subscribeToEventStream = topicName => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    return Effect.map(Effect.acquireRelease(Effect.flatMap(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+      subscriberCounts.contents[topicName] = n + 1 | 0;
+    }), () => PubSub.subscribe(hub)), (queue, _exit) => Effect.zipRight(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 1);
+      subscriberCounts.contents[topicName] = n - 1 | 0;
+    }), Queue.shutdown(queue))), queue => Stream.fromQueue(queue));
+  };
+  let publishEvent = async (topicName, service, meta, json) => {
+    if (Stdlib_Option.isSome(process.env["REVENTLESS_EVENT_TAP"])) {
+      emitEventTap(topicName, service, json);
+    }
+    let hub = eventHubs.contents[topicName];
+    if (hub === undefined) {
+      return;
+    }
+    let hub$1 = Primitive_option.valFromOption(hub);
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    if (n === 0) {
+      return;
+    }
+    let allDone = Effect.runSync(Deferred.make());
+    let remaining = {
+      contents: n
+    };
+    let done_ = Effect.flatMap(Effect.sync(() => {
+      remaining.contents = remaining.contents - 1 | 0;
+    }), () => {
+      if (remaining.contents === 0) {
+        return Effect.map(Deferred.succeed(allDone, undefined), param => {});
+      } else {
+        return Effect.succeed();
+      }
+    });
+    let msg = {
+      service: service,
+      meta: meta,
+      json: json,
+      done_: done_
+    };
+    let publishAndWait = Effect.zipRight(Effect.sync(() => {
+      Effect.runSync(PubSub.publish(hub$1, msg));
+    }), Deferred.await(allDone));
+    await Effect.runPromise(publishAndWait);
+  };
+  let dispatchCommand = async (channelName, json) => {
+    let handler = commandHandlers.contents[channelName];
+    if (handler !== undefined) {
+      return await handler(json, undefined);
+    }
+    let q = pendingCommandQueues.contents[channelName];
+    let queue;
+    if (q !== undefined) {
+      queue = q;
+    } else {
+      let q$1 = {
+        contents: []
+      };
+      pendingCommandQueues.contents[channelName] = q$1;
+      queue = q$1;
+    }
+    queue.contents.push(json);
+  };
+  let registerCommandHandler = (channelName, handler) => {
+    commandHandlers.contents[channelName] = handler;
+    let queue = pendingCommandQueues.contents[channelName];
+    if (queue === undefined) {
+      return;
+    }
+    let pending = queue.contents;
+    queue.contents = [];
+    pending.forEach(json => {
+      handler(json, undefined);
+    });
+  };
+  let registerQueryDb = (name, ops) => {
+    queryDbRegistry.contents[name] = ops;
+  };
+  let getQueryDb = name => queryDbRegistry.contents[name];
+  let registerQueryDbScan = (name, scan) => {
+    queryDbScanRegistry.contents[name] = scan;
+  };
+  let getQueryDbScan = name => queryDbScanRegistry.contents[name];
+  let registerQueryDbStream = (name, streamFn) => {
+    queryDbStreamRegistry.contents[name] = streamFn;
+  };
+  let getQueryDbStream = name => queryDbStreamRegistry.contents[name];
+  let registerEventLogReplay = (name, replay) => {
+    eventLogReplayRegistry.contents[name] = replay;
+  };
+  let getEventLogReplay = name => eventLogReplayRegistry.contents[name];
+  let registerDcbEventLogRead = (name, read) => {
+    dcbEventLogReadRegistry.contents[name] = read;
+  };
+  let getDcbEventLogRead = name => dcbEventLogReadRegistry.contents[name];
+  let stateChangeListeners = {
+    contents: {}
+  };
+  let subscribeToStateChanges = (name, callback) => {
+    let listeners = Stdlib_Option.getOr(stateChangeListeners.contents[name], []);
+    stateChangeListeners.contents[name] = listeners.concat([callback]);
+  };
+  let publishStateChange = (name, descriptor) => {
+    Stdlib_Option.getOr(stateChangeListeners.contents[name], []).forEach(cb => cb(descriptor));
+  };
+  let eventCollectorHandlers = {
+    contents: {}
+  };
+  let eventCollectorPendingTopics = {
+    contents: {}
+  };
+  let makeFireAndForgetHandler = handler => ((param, param$1, json) => {
+    handler(json, undefined);
+    return Promise.resolve();
+  });
+  let registerEventCollectorHandler = (ecName, handler) => {
+    eventCollectorHandlers.contents[ecName] = handler;
+    let topics = eventCollectorPendingTopics.contents[ecName];
+    if (topics !== undefined) {
+      topics.forEach(topicName => subscribeToEvents(topicName, makeFireAndForgetHandler(handler)));
+      return Stdlib_Dict.$$delete(eventCollectorPendingTopics.contents, ecName);
+    }
+  };
+  let subscribeEventCollectorToTopic = (ecName, topicName) => {
+    let handler = eventCollectorHandlers.contents[ecName];
+    if (handler !== undefined) {
+      return subscribeToEvents(topicName, makeFireAndForgetHandler(handler));
+    }
+    let pending = Stdlib_Option.getOr(eventCollectorPendingTopics.contents[ecName], []);
+    pending.push(topicName);
+    eventCollectorPendingTopics.contents[ecName] = pending;
+  };
+  let reset = () => {
+    let shutdownAll = Effect.map(Effect.all(Object.values(eventHubs.contents).map(hub => PubSub.shutdown(hub)), {
+      concurrency: "unbounded"
+    }), param => {});
+    Effect.runSync(shutdownAll);
+    eventHubs.contents = {};
+    subscriberCounts.contents = {};
+    commandHandlers.contents = {};
+    pendingCommandQueues.contents = {};
+    queryDbRegistry.contents = {};
+    queryDbScanRegistry.contents = {};
+    queryDbStreamRegistry.contents = {};
+    eventLogReplayRegistry.contents = {};
+    dcbEventLogReadRegistry.contents = {};
+    stateChangeListeners.contents = {};
+    eventCollectorHandlers.contents = {};
+    eventCollectorPendingTopics.contents = {};
+  };
+  return {
+    publishEvent: publishEvent,
+    subscribeToEvents: subscribeToEvents,
+    subscribeToEventStream: subscribeToEventStream,
+    dispatchCommand: dispatchCommand,
+    registerCommandHandler: registerCommandHandler,
+    registerQueryDb: registerQueryDb,
+    getQueryDb: getQueryDb,
+    registerQueryDbScan: registerQueryDbScan,
+    getQueryDbScan: getQueryDbScan,
+    registerQueryDbStream: registerQueryDbStream,
+    getQueryDbStream: getQueryDbStream,
+    registerEventLogReplay: registerEventLogReplay,
+    getEventLogReplay: getEventLogReplay,
+    registerDcbEventLogRead: registerDcbEventLogRead,
+    getDcbEventLogRead: getDcbEventLogRead,
+    publishStateChange: publishStateChange,
+    subscribeToStateChanges: subscribeToStateChanges,
+    registerEventCollectorHandler: registerEventCollectorHandler,
+    subscribeEventCollectorToTopic: subscribeEventCollectorToTopic,
+    reset: reset
+  };
+}
+
+function MakeBounded(C) {
+  let capacity = C.capacity;
+  let eventHubs = {
+    contents: {}
+  };
+  let subscriberCounts = {
+    contents: {}
+  };
+  let commandHandlers = {
+    contents: {}
+  };
+  let pendingCommandQueues = {
+    contents: {}
+  };
+  let queryDbRegistry = {
+    contents: {}
+  };
+  let queryDbScanRegistry = {
+    contents: {}
+  };
+  let queryDbStreamRegistry = {
+    contents: {}
+  };
+  let eventLogReplayRegistry = {
+    contents: {}
+  };
+  let dcbEventLogReadRegistry = {
+    contents: {}
+  };
+  let makeHub = () => Effect.runSync(PubSub.bounded(capacity));
+  let subscribeToEvents = (topicName, handler) => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    subscriberCounts.contents[topicName] = n + 1 | 0;
+    let drainLoop = Effect.scoped(Effect.flatMap(PubSub.subscribe(hub), queue => Stream.runForEach(Stream.fromQueue(queue), msg => Effect.zipRight(Effect.promise(() => handler(msg.service, msg.meta, msg.json)), msg.done_))));
+    Effect.runFork(drainLoop);
+  };
+  let subscribeToEventStream = topicName => {
+    let h = eventHubs.contents[topicName];
+    let hub;
+    if (h !== undefined) {
+      hub = Primitive_option.valFromOption(h);
+    } else {
+      let h$1 = makeHub();
+      eventHubs.contents[topicName] = h$1;
+      hub = h$1;
+    }
+    return Effect.map(Effect.acquireRelease(Effect.flatMap(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+      subscriberCounts.contents[topicName] = n + 1 | 0;
+    }), () => PubSub.subscribe(hub)), (queue, _exit) => Effect.zipRight(Effect.sync(() => {
+      let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 1);
+      subscriberCounts.contents[topicName] = n - 1 | 0;
+    }), Queue.shutdown(queue))), queue => Stream.fromQueue(queue));
+  };
+  let publishEvent = async (topicName, service, meta, json) => {
+    if (Stdlib_Option.isSome(process.env["REVENTLESS_EVENT_TAP"])) {
+      emitEventTap(topicName, service, json);
+    }
+    let hub = eventHubs.contents[topicName];
+    if (hub === undefined) {
+      return;
+    }
+    let n = Stdlib_Option.getOr(subscriberCounts.contents[topicName], 0);
+    if (n === 0) {
+      return;
+    }
+    let allDone = Effect.runSync(Deferred.make());
+    let remaining = {
+      contents: n
+    };
+    let done_ = Effect.flatMap(Effect.sync(() => {
+      remaining.contents = remaining.contents - 1 | 0;
+    }), () => {
+      if (remaining.contents === 0) {
+        return Effect.map(Deferred.succeed(allDone, undefined), param => {});
+      } else {
+        return Effect.succeed();
+      }
+    });
+    let msg = {
+      service: service,
+      meta: meta,
+      json: json,
+      done_: done_
+    };
+    let publishAndWait = Effect.flatMap(PubSub.publish(Primitive_option.valFromOption(hub), msg), param => Deferred.await(allDone));
+    await Effect.runPromise(publishAndWait);
+  };
+  let dispatchCommand = async (channelName, json) => {
+    let handler = commandHandlers.contents[channelName];
+    if (handler !== undefined) {
+      return await handler(json, undefined);
+    }
+    let q = pendingCommandQueues.contents[channelName];
+    let queue;
+    if (q !== undefined) {
+      queue = q;
+    } else {
+      let q$1 = {
+        contents: []
+      };
+      pendingCommandQueues.contents[channelName] = q$1;
+      queue = q$1;
+    }
+    queue.contents.push(json);
+  };
+  let registerCommandHandler = (channelName, handler) => {
+    commandHandlers.contents[channelName] = handler;
+    let queue = pendingCommandQueues.contents[channelName];
+    if (queue === undefined) {
+      return;
+    }
+    let pending = queue.contents;
+    queue.contents = [];
+    pending.forEach(json => {
+      handler(json, undefined);
+    });
+  };
+  let registerQueryDb = (name, ops) => {
+    queryDbRegistry.contents[name] = ops;
+  };
+  let getQueryDb = name => queryDbRegistry.contents[name];
+  let registerQueryDbScan = (name, scan) => {
+    queryDbScanRegistry.contents[name] = scan;
+  };
+  let getQueryDbScan = name => queryDbScanRegistry.contents[name];
+  let registerQueryDbStream = (name, streamFn) => {
+    queryDbStreamRegistry.contents[name] = streamFn;
+  };
+  let getQueryDbStream = name => queryDbStreamRegistry.contents[name];
+  let registerEventLogReplay = (name, replay) => {
+    eventLogReplayRegistry.contents[name] = replay;
+  };
+  let getEventLogReplay = name => eventLogReplayRegistry.contents[name];
+  let registerDcbEventLogRead = (name, read) => {
+    dcbEventLogReadRegistry.contents[name] = read;
+  };
+  let getDcbEventLogRead = name => dcbEventLogReadRegistry.contents[name];
+  let stateChangeListeners = {
+    contents: {}
+  };
+  let subscribeToStateChanges = (name, callback) => {
+    let listeners = Stdlib_Option.getOr(stateChangeListeners.contents[name], []);
+    stateChangeListeners.contents[name] = listeners.concat([callback]);
+  };
+  let publishStateChange = (name, descriptor) => {
+    Stdlib_Option.getOr(stateChangeListeners.contents[name], []).forEach(cb => cb(descriptor));
+  };
+  let eventCollectorHandlers = {
+    contents: {}
+  };
+  let eventCollectorPendingTopics = {
+    contents: {}
+  };
+  let makeFireAndForgetHandler = handler => ((param, param$1, json) => {
+    handler(json, undefined);
+    return Promise.resolve();
+  });
+  let registerEventCollectorHandler = (ecName, handler) => {
+    eventCollectorHandlers.contents[ecName] = handler;
+    let topics = eventCollectorPendingTopics.contents[ecName];
+    if (topics !== undefined) {
+      topics.forEach(topicName => subscribeToEvents(topicName, makeFireAndForgetHandler(handler)));
+      return Stdlib_Dict.$$delete(eventCollectorPendingTopics.contents, ecName);
+    }
+  };
+  let subscribeEventCollectorToTopic = (ecName, topicName) => {
+    let handler = eventCollectorHandlers.contents[ecName];
+    if (handler !== undefined) {
+      return subscribeToEvents(topicName, makeFireAndForgetHandler(handler));
+    }
+    let pending = Stdlib_Option.getOr(eventCollectorPendingTopics.contents[ecName], []);
+    pending.push(topicName);
+    eventCollectorPendingTopics.contents[ecName] = pending;
+  };
+  let reset = () => {
+    let shutdownAll = Effect.map(Effect.all(Object.values(eventHubs.contents).map(hub => PubSub.shutdown(hub)), {
+      concurrency: "unbounded"
+    }), param => {});
+    Effect.runSync(shutdownAll);
+    eventHubs.contents = {};
+    subscriberCounts.contents = {};
+    commandHandlers.contents = {};
+    pendingCommandQueues.contents = {};
+    queryDbRegistry.contents = {};
+    queryDbScanRegistry.contents = {};
+    queryDbStreamRegistry.contents = {};
+    eventLogReplayRegistry.contents = {};
+    dcbEventLogReadRegistry.contents = {};
+    stateChangeListeners.contents = {};
+    eventCollectorHandlers.contents = {};
+    eventCollectorPendingTopics.contents = {};
+  };
+  return {
+    publishEvent: publishEvent,
+    subscribeToEvents: subscribeToEvents,
+    subscribeToEventStream: subscribeToEventStream,
+    dispatchCommand: dispatchCommand,
+    registerCommandHandler: registerCommandHandler,
+    registerQueryDb: registerQueryDb,
+    getQueryDb: getQueryDb,
+    registerQueryDbScan: registerQueryDbScan,
+    getQueryDbScan: getQueryDbScan,
+    registerQueryDbStream: registerQueryDbStream,
+    getQueryDbStream: getQueryDbStream,
+    registerEventLogReplay: registerEventLogReplay,
+    getEventLogReplay: getEventLogReplay,
+    registerDcbEventLogRead: registerDcbEventLogRead,
+    getDcbEventLogRead: getDcbEventLogRead,
+    publishStateChange: publishStateChange,
+    subscribeToStateChanges: subscribeToStateChanges,
+    registerEventCollectorHandler: registerEventCollectorHandler,
+    subscribeEventCollectorToTopic: subscribeEventCollectorToTopic,
+    reset: reset
+  };
+}
+
+export {
+  pickSortKeyValue,
+  makeStateChangeDescriptor,
+  eventTapEnabled,
+  eventTapSeq,
+  seedEventTapSeq,
+  emitEventTap,
+  Impl,
+  Make,
+  MakeSilent,
+  MakeBounded,
+}
+/* effect/Queue Not a pure module */