@reventlessdev/reventless-local 3.0.0-alpha.117 → 3.0.0-alpha.118

package/src/adapter/QueryDb/QueryDbStorage_InMemory.res.mjs

@@ -5,11 +5,8 @@ import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stream from "effect/Stream";
 import * as Pulumi from "@pulumi/pulumi";
-import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
 import * as LocalBus$ReventlessLocal from "../LocalBus.res.mjs";
-import * as BackendState$ReventlessLocal from "../BackendState.res.mjs";
-import * as QueryDbStorage_Sqlite$ReventlessLocal from "./QueryDbStorage_Sqlite.res.mjs";
 
 function getSubKey(item, subIdField) {
   if (subIdField === undefined) {
@@ -56,21 +53,7 @@ function flattenStore(store) {
 }
 
 function Make(Bus) {
-  let sqliteBusCallbacks_publishStateChange = Bus.publishStateChange;
-  let sqliteBusCallbacks_registerQueryDb = Bus.registerQueryDb;
-  let sqliteBusCallbacks_registerQueryDbScan = Bus.registerQueryDbScan;
-  let sqliteBusCallbacks_registerQueryDbStream = Bus.registerQueryDbStream;
-  let sqliteBusCallbacks_registerQueryDbIndexLookup = Bus.registerQueryDbIndexLookup;
-  let sqliteBusCallbacks_registerQueryDbListPage = Bus.registerQueryDbListPage;
-  let sqliteBusCallbacks = {
-    publishStateChange: sqliteBusCallbacks_publishStateChange,
-    registerQueryDb: sqliteBusCallbacks_registerQueryDb,
-    registerQueryDbScan: sqliteBusCallbacks_registerQueryDbScan,
-    registerQueryDbStream: sqliteBusCallbacks_registerQueryDbStream,
-    registerQueryDbIndexLookup: sqliteBusCallbacks_registerQueryDbIndexLookup,
-    registerQueryDbListPage: sqliteBusCallbacks_registerQueryDbListPage
-  };
-  let makeMemory = (name, param, subIdField, param$1, param$2, param$3, param$4) => {
+  let make = (name, param, subIdField, param$1, param$2, param$3, param$4) => {
     let store = {
       contents: {}
     };
@@ -317,17 +300,7 @@ function Make(Bus) {
       operations: Pulumi.output(ops)
     };
   };
-  let make = (name, indexes, subIdField, ttl, api, apiRole, opts) => {
-    let db = BackendState$ReventlessLocal.getDb();
-    if (db !== undefined) {
-      return QueryDbStorage_Sqlite$ReventlessLocal.makeStorage(Primitive_option.valFromOption(db), sqliteBusCallbacks, name, indexes, subIdField);
-    } else {
-      return makeMemory(name, indexes, subIdField, ttl, api, apiRole, opts);
-    }
-  };
   return {
-    sqliteBusCallbacks: sqliteBusCallbacks,
-    makeMemory: makeMemory,
     make: make
   };
 }

package/src/adapter/Task/LocalTaskBucket.res

@@ -56,7 +56,7 @@ let makeHandler = (callback: Task.bucketCallback): Runtime.eventHandler<
 let make: Task_Adapter.bucketMaker<bucketParts> = (~name, ~opts as _) => {
   // When SQLite is the active backend, eagerly provision the task_object
   // table so put/get helpers can be used outside the bucketMaker contract.
-  switch BackendState.getDb() {
+  switch BackendState.getSqliteDb() {
   | Some(db) => TaskBucket_Sqlite.ensureSchema(db)
   | None => ()
   }

package/src/adapter/Task/LocalTaskBucket.res.mjs

@@ -30,7 +30,7 @@ function makeHandler(callback) {
 }
 
 function make(name, param) {
-  let db = BackendState$ReventlessLocal.getDb();
+  let db = BackendState$ReventlessLocal.getSqliteDb();
   if (db !== undefined) {
     TaskBucket_Sqlite$ReventlessLocal.ensureSchema(Primitive_option.valFromOption(db));
   }

package/src/components/Aggregate_Builder.res

@@ -37,7 +37,7 @@ module MakeWithHooks = (
       RuntimeEnvironment,
       CommandGeneratorResolvers_GraphQL,
       CommandTopicChannel,
-      EventLogStorage_InMemory.Make(Bus),
+      LocalEventLogStorage.Make(Bus),
       EventTopicPublisher,
       EventCollectorChannel,
       AggregateRuntimeBuilder,

package/src/components/Aggregate_Builder.res.mjs

@@ -2,8 +2,8 @@
 
 import * as Pulumi from "@pulumi/pulumi";
 import * as Aggregate_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/Aggregate/Aggregate_Builder.res.mjs";
+import * as LocalEventLogStorage$ReventlessLocal from "../adapter/EventLog/LocalEventLogStorage.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
-import * as EventLogStorage_InMemory$ReventlessLocal from "../adapter/EventLog/EventLogStorage_InMemory.res.mjs";
 import * as LocalCommandTopicChannel$ReventlessLocal from "../adapter/CommandTopic/LocalCommandTopicChannel.res.mjs";
 import * as LocalEventTopicPublisher$ReventlessLocal from "../adapter/EventTopic/LocalEventTopicPublisher.res.mjs";
 import * as LocalEventCollectorChannel$ReventlessLocal from "../adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
@@ -66,7 +66,7 @@ function MakeWithHooks(Bus) {
         make: CommandGeneratorResolvers_GraphQL$ReventlessLocal.make
       })({
         make: CommandTopicChannel.make
-      })(EventLogStorage_InMemory$ReventlessLocal.Make(Bus))(EventTopicPublisher)(EventCollectorChannel)(AggregateRuntimeBuilder)(HooksConfig);
+      })(LocalEventLogStorage$ReventlessLocal.Make(Bus))(EventTopicPublisher)(EventCollectorChannel)(AggregateRuntimeBuilder)(HooksConfig);
       return {
         Spec: include.Spec,
         AggregateRuntimeBuilder: include.AggregateRuntimeBuilder,
@@ -112,7 +112,7 @@ function Make(Bus) {
       make: CommandGeneratorResolvers_GraphQL$ReventlessLocal.make
     })({
       make: CommandTopicChannel.make
-    })(EventLogStorage_InMemory$ReventlessLocal.Make(Bus))(EventTopicPublisher)(EventCollectorChannel)(AggregateRuntimeBuilder)(HooksConfig);
+    })(LocalEventLogStorage$ReventlessLocal.Make(Bus))(EventTopicPublisher)(EventCollectorChannel)(AggregateRuntimeBuilder)(HooksConfig);
     return {
       Spec: include.Spec,
       AggregateRuntimeBuilder: include.AggregateRuntimeBuilder,

package/src/components/AutomationSlice_Builder.res

@@ -8,7 +8,7 @@ module Make = (Bus: LocalBus.T) => {
     Bus,
     EventCollectorChannel,
   )
-  module QueryDbStorage = QueryDbStorage_InMemory.Make(Bus)
+  module QueryDbStorage = LocalQueryDbStorage.Make(Bus)
   module QueryDbResolvers = QueryDbResolvers_GraphQL.Make(Bus)
 
   // InMemory api/apiRole are both unit

package/src/components/AutomationSlice_Builder.res.mjs

@@ -1,8 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 import * as AutomationSlice_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/AutomationSlice/AutomationSlice_Builder.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
 import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../adapter/QueryDb/QueryDbResolvers_GraphQL.res.mjs";
 import * as LocalEventCollectorChannel$ReventlessLocal from "../adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
 import * as LocalEventCollectorRuntime_Builder$ReventlessLocal from "../adapter/Runtime/LocalEventCollectorRuntime_Builder.res.mjs";
@@ -10,7 +10,7 @@ import * as LocalEventCollectorRuntime_Builder$ReventlessLocal from "../adapter/
 function Make(Bus) {
   let EventCollectorChannel = LocalEventCollectorChannel$ReventlessLocal.Make(Bus);
   let EventCollectorRuntimeBuilder = LocalEventCollectorRuntime_Builder$ReventlessLocal.Make(Bus)(EventCollectorChannel);
-  let QueryDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+  let QueryDbStorage = LocalQueryDbStorage$ReventlessLocal.Make(Bus);
   let QueryDbResolvers = QueryDbResolvers_GraphQL$ReventlessLocal.Make(Bus);
   let api = () => {};
   let apiRole = () => {};
@@ -54,4 +54,4 @@ function Make(Bus) {
 export {
   Make,
 }
-/* AutomationSlice_Builder-ReventlessCore Not a pure module */
+/* LocalQueryDbStorage-ReventlessLocal Not a pure module */

package/src/components/Counter_Builder.res

@@ -1,7 +1,7 @@
 // In-memory Counter builder.
 
 module Make = (Bus: LocalBus.T) => {
-  module QueryDbStorage = QueryDbStorage_InMemory.Make(Bus)
+  module QueryDbStorage = LocalQueryDbStorage.Make(Bus)
   module Api = {
     let api = () => ()
     let apiRole = () => ()

package/src/components/Counter_Builder.res.mjs

@@ -2,10 +2,10 @@
 
 import * as Counter_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/Counter/Counter_Builder.res.mjs";
 import * as LocalCounterHandler$ReventlessLocal from "../adapter/Counter/LocalCounterHandler.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
+import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 
 function Make(Bus) {
-  let QueryDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+  let QueryDbStorage = LocalQueryDbStorage$ReventlessLocal.Make(Bus);
   let api = () => {};
   let apiRole = () => {};
   let Api = {

package/src/components/DcbEventLog_Builder.res

@@ -8,7 +8,7 @@ module Make = (Bus: LocalBus.T) => {
   // REVENTLESS_LOCAL_BACKEND=sqlite, and it registers the read with the Bus so
   // `Bus.getDcbEventLogRead` can see it. The plain module did neither — the log
   // silently stayed in memory under SQLite and was invisible to bus readers.
-  module Storage = DcbEventLogStorage_InMemory.Make(Bus)
+  module Storage = LocalDcbEventLogStorage.Make(Bus)
   module Inner = ReventlessCore.DcbEventLog_Builder.Make(Storage, EventTopicPublisher)
   type component = ReventlessInfra.DcbEventLog.component
   let make: (

package/src/components/DcbEventLog_Builder.res.mjs

@@ -2,12 +2,12 @@
 
 import * as Component$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Component.res.mjs";
 import * as DcbEventLog_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/DcbEventLog/DcbEventLog_Builder.res.mjs";
+import * as LocalDcbEventLogStorage$ReventlessLocal from "../adapter/DcbEventLog/LocalDcbEventLogStorage.res.mjs";
 import * as LocalEventTopicPublisher$ReventlessLocal from "../adapter/EventTopic/LocalEventTopicPublisher.res.mjs";
-import * as DcbEventLogStorage_InMemory$ReventlessLocal from "../adapter/DcbEventLog/DcbEventLogStorage_InMemory.res.mjs";
 
 function Make(Bus) {
   let EventTopicPublisher = LocalEventTopicPublisher$ReventlessLocal.Make(Bus);
-  let Storage = DcbEventLogStorage_InMemory$ReventlessLocal.Make(Bus);
+  let Storage = LocalDcbEventLogStorage$ReventlessLocal.Make(Bus);
   let Inner = DcbEventLog_Builder$ReventlessCore.Make(Storage)(EventTopicPublisher);
   return {
     EventTopicPublisher: EventTopicPublisher,

package/src/components/InboundTranslationSlice_Builder.res

@@ -2,7 +2,7 @@
 // Wires in-memory adapters and delegates to the core ReventlessCore.InboundTranslationSlice_Builder.
 
 module Make = (Bus: LocalBus.T) => {
-  module QueryDbStorage = QueryDbStorage_InMemory.Make(Bus)
+  module QueryDbStorage = LocalQueryDbStorage.Make(Bus)
   module QueryDbResolvers = QueryDbResolvers_GraphQL.Make(Bus)
 
   // InMemory api/apiRole are both unit

package/src/components/InboundTranslationSlice_Builder.res.mjs

@@ -1,12 +1,12 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
+import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../adapter/QueryDb/QueryDbResolvers_GraphQL.res.mjs";
 import * as InboundTranslationSlice_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/InboundTranslationSlice/InboundTranslationSlice_Builder.res.mjs";
 
 function Make(Bus) {
-  let QueryDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+  let QueryDbStorage = LocalQueryDbStorage$ReventlessLocal.Make(Bus);
   let QueryDbResolvers = QueryDbResolvers_GraphQL$ReventlessLocal.Make(Bus);
   let api = () => {};
   let apiRole = () => {};

package/src/components/OutboundTranslationSlice_Builder.res

@@ -8,7 +8,7 @@ module Make = (Bus: LocalBus.T) => {
     Bus,
     EventCollectorChannel,
   )
-  module QueryDbStorage = QueryDbStorage_InMemory.Make(Bus)
+  module QueryDbStorage = LocalQueryDbStorage.Make(Bus)
   module QueryDbResolvers = QueryDbResolvers_GraphQL.Make(Bus)
 
   // InMemory api/apiRole are both unit

package/src/components/OutboundTranslationSlice_Builder.res.mjs

@@ -1,8 +1,8 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
 import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../adapter/QueryDb/QueryDbResolvers_GraphQL.res.mjs";
 import * as LocalEventCollectorChannel$ReventlessLocal from "../adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
 import * as OutboundTranslationSlice_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/OutboundTranslationSlice/OutboundTranslationSlice_Builder.res.mjs";
@@ -11,7 +11,7 @@ import * as LocalEventCollectorRuntime_Builder$ReventlessLocal from "../adapter/
 function Make(Bus) {
   let EventCollectorChannel = LocalEventCollectorChannel$ReventlessLocal.Make(Bus);
   let EventCollectorRuntimeBuilder = LocalEventCollectorRuntime_Builder$ReventlessLocal.Make(Bus)(EventCollectorChannel);
-  let QueryDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+  let QueryDbStorage = LocalQueryDbStorage$ReventlessLocal.Make(Bus);
   let QueryDbResolvers = QueryDbResolvers_GraphQL$ReventlessLocal.Make(Bus);
   let api = () => {};
   let apiRole = () => {};

package/src/components/Plugin_Builder.res

@@ -29,7 +29,7 @@ module Make = (Bus: LocalBus.T, HooksConfig: ReventlessCore.Plugin_Helpers.Hooks
     RemoteChannel,
     LocalHeartbeatRunner,
     PluginRuntimeBuilder,
-    DcbEventLogStorage_InMemory.Make(Bus),
+    LocalDcbEventLogStorage.Make(Bus),
     LocalEventTopicPublisher.Make(Bus),
     LocalCommandTopicChannel.Make(Bus),
     LocalCommandTopicChannel.Make(Bus),

package/src/components/Plugin_Builder.res.mjs

@@ -5,12 +5,12 @@ import * as LocalPluginSpec$ReventlessLocal from "../adapter/LocalPluginSpec.res
 import * as LocalQueryEngine$ReventlessLocal from "../adapter/QueryEngine/LocalQueryEngine.res.mjs";
 import * as LocalGraphQL_Adapter$ReventlessLocal from "../adapter/Api/LocalGraphQL_Adapter.res.mjs";
 import * as LocalHeartbeatRunner$ReventlessLocal from "../adapter/Heartbeat/LocalHeartbeatRunner.res.mjs";
+import * as LocalDcbEventLogStorage$ReventlessLocal from "../adapter/DcbEventLog/LocalDcbEventLogStorage.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
 import * as LocalCommandTopicChannel$ReventlessLocal from "../adapter/CommandTopic/LocalCommandTopicChannel.res.mjs";
 import * as LocalEventTopicPublisher$ReventlessLocal from "../adapter/EventTopic/LocalEventTopicPublisher.res.mjs";
 import * as LocalEventCollectorChannel$ReventlessLocal from "../adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
 import * as LocalPluginRuntime_Builder$ReventlessLocal from "../adapter/Runtime/LocalPluginRuntime_Builder.res.mjs";
-import * as DcbEventLogStorage_InMemory$ReventlessLocal from "../adapter/DcbEventLog/DcbEventLogStorage_InMemory.res.mjs";
 import * as LocalCommandTopicRemoteChannel$ReventlessLocal from "../adapter/CommandTopic/LocalCommandTopicRemoteChannel.res.mjs";
 
 function Make(Bus) {
@@ -44,7 +44,7 @@ function Make(Bus) {
       forPluginHeartbeat: PluginRuntimeBuilder.forPluginHeartbeat,
       forDcbCommandTopic: PluginRuntimeBuilder.forDcbCommandTopic,
       finish: PluginRuntimeBuilder.finish
-    })(DcbEventLogStorage_InMemory$ReventlessLocal.Make(Bus))(LocalEventTopicPublisher$ReventlessLocal.Make(Bus))({
+    })(LocalDcbEventLogStorage$ReventlessLocal.Make(Bus))(LocalEventTopicPublisher$ReventlessLocal.Make(Bus))({
       make: $$let.make
     })({
       make: $$let$1.make

package/src/components/ReadModel_Builder.res

@@ -9,7 +9,7 @@ module Make = (Bus: LocalBus.T) => {
     Bus,
     EventCollectorChannel,
   )
-  module QueryDbStorage = QueryDbStorage_InMemory.Make(Bus)
+  module QueryDbStorage = LocalQueryDbStorage.Make(Bus)
   module QueryDbResolvers = QueryDbResolvers_GraphQL.Make(Bus)
 
   module Make = (

package/src/components/ReadModel_Builder.res.mjs

@@ -2,8 +2,8 @@
 
 import * as QueryDb_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/components/QueryDb/QueryDb_Adapter.res.mjs";
 import * as ReadModel_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/ReadModel/ReadModel_Builder.res.mjs";
+import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
 import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../adapter/QueryDb/QueryDbResolvers_GraphQL.res.mjs";
 import * as LocalEventCollectorChannel$ReventlessLocal from "../adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
 import * as LocalEventCollectorRuntime_Builder$ReventlessLocal from "../adapter/Runtime/LocalEventCollectorRuntime_Builder.res.mjs";
@@ -14,7 +14,7 @@ function Make(Bus) {
     make: EventCollectorChannel.make,
     connect: EventCollectorChannel.connect
   });
-  let QueryDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+  let QueryDbStorage = LocalQueryDbStorage$ReventlessLocal.Make(Bus);
   let QueryDbResolvers = QueryDbResolvers_GraphQL$ReventlessLocal.Make(Bus);
   let Make$1 = Spec => (Mappings => ReadModel_Builder$ReventlessCore.Make(Spec)(Mappings)({
     make: LocalRuntimeEnvironment$ReventlessLocal.make,

package/src/components/StateViewSlice_Builder.res

@@ -11,7 +11,7 @@ module Make = (Bus: LocalBus.T) => {
     Bus,
     EventCollectorChannel,
   )
-  module QueryDbStorage = QueryDbStorage_InMemory.Make(Bus)
+  module QueryDbStorage = LocalQueryDbStorage.Make(Bus)
   module QueryDbResolvers = QueryDbResolvers_GraphQL.Make(Bus)
 
   // InMemory api/apiRole are both unit

package/src/components/StateViewSlice_Builder.res.mjs

@@ -1,9 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 import * as StateViewSlice_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/StateViewSlice/StateViewSlice_Builder.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
 import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../adapter/QueryDb/QueryDbResolvers_GraphQL.res.mjs";
 import * as LocalEventCollectorChannel$ReventlessLocal from "../adapter/EventCollector/LocalEventCollectorChannel.res.mjs";
 import * as LocalEventCollectorRuntime_Builder$ReventlessLocal from "../adapter/Runtime/LocalEventCollectorRuntime_Builder.res.mjs";
@@ -14,7 +14,7 @@ function Make(Bus) {
     make: EventCollectorChannel.make,
     connect: EventCollectorChannel.connect
   });
-  let QueryDbStorage = QueryDbStorage_InMemory$ReventlessLocal.Make(Bus);
+  let QueryDbStorage = LocalQueryDbStorage$ReventlessLocal.Make(Bus);
   let QueryDbResolvers = QueryDbResolvers_GraphQL$ReventlessLocal.Make(Bus);
   let api = () => {};
   let apiRole = () => {};

package/src/test/Mocks/MockDcbEventLogStorage.res

@@ -69,7 +69,7 @@ let make = (~name="mock-dcb-log", ~indexes: array<string>=[], ~opts: Pulumi.Cust
   let append = async (newEvents, ~condition=?) => {
     if failNextAppends.contents > 0 {
       failNextAppends := failNextAppends.contents - 1
-      Error("mock append failure")
+      Error(ReventlessInfra.DcbEventLog.StorageFailure("mock append failure"))
     } else {
       let conflictDetected = switch condition {
       | Some(cond: Reventless.DcbTag.appendCondition) =>
@@ -83,7 +83,7 @@ let make = (~name="mock-dcb-log", ~indexes: array<string>=[], ~opts: Pulumi.Cust
       | None => false
       }
       if conflictDetected {
-        Error("conflict: condition check failed")
+        Error(ReventlessInfra.DcbEventLog.Conflict)
       } else {
         let storedEvents = newEvents->Array.map((event: DcbEventLog_Adapter.rawStoredEvent) => {
           position := position.contents + 1

package/src/test/Mocks/MockDcbEventLogStorage.res.mjs

@@ -68,7 +68,10 @@ function make(nameOpt, indexesOpt, optsOpt) {
       failNextAppends.contents = failNextAppends.contents - 1 | 0;
       return {
         TAG: "Error",
-        _0: "mock append failure"
+        _0: {
+          TAG: "StorageFailure",
+          _0: "mock append failure"
+        }
       };
     }
     let conflictDetected = condition !== undefined ? events.contents.some(event => {
@@ -83,7 +86,7 @@ function make(nameOpt, indexesOpt, optsOpt) {
     if (conflictDetected) {
       return {
         TAG: "Error",
-        _0: "conflict: condition check failed"
+        _0: "Conflict"
       };
     }
     let storedEvents = newEvents.map(event => {

package/tests/adapter/BackendParityTest.res

@@ -1,11 +1,32 @@
-// Behavioural parity between Memory and Sqlite backends at the adapter layer.
-// Each test runs the same scenario against both BackendState settings.
+// Behavioural parity between Memory, Sqlite, and Postgres backends at the adapter
+// layer. Each test runs the same scenario against every BackendState setting.
+//
+// The Postgres arm is exercised only when PG_URL is set (so the default test run
+// stays dependency-free), and only for EventLog scenarios: under Backend.Postgres
+// the read-model (QueryDb) path routes to the in-memory arm by design (the sync
+// LocalBus registrations can't consume async pg — see LocalQueryDbStorage), so a
+// QueryDb "runUnderPostgres" would just re-test Memory. Event logs, however, are
+// genuinely Postgres-backed and must match Memory/Sqlite exactly.
 
 open JestGlobals
 
+@val external processEnv: dict<string> = "process.env"
+
 let _ = TestRunner.setup()
 let opts: Pulumi.CustomResourceOptions.t = {}
 
+let pgPool =
+  processEnv
+  ->Dict.get("PG_URL")
+  ->Option.map(url => ReventlessPostgres.PgDriver.makePool({connectionString: url}))
+
+afterAll(() =>
+  switch pgPool {
+  | Some(pool) => ignore(pool->ReventlessPostgres.PgDriver.endPool)
+  | None => ()
+  }
+)
+
 let runUnderMemory = async fn => {
   BackendState.setMemory()
   await fn()
@@ -19,11 +40,23 @@ let runUnderSqlite = async fn => {
   db->SqliteDriver.close
 }
 
+// No-op when PG_URL is unset. Resets the schema before each scenario for isolation.
+let runUnderPostgres = async fn =>
+  switch pgPool {
+  | Some(pool) =>
+    await ReventlessPostgres.PgSchema.ensureSchema(pool)
+    await ReventlessPostgres.PgSchema.truncateAll(pool)
+    BackendState.setPostgres(~pool)
+    await fn()
+    BackendState.setMemory()
+  | None => ()
+  }
+
 describe("Backend parity (Memory vs Sqlite)", () => {
   testPromise("EventLog: append + replay returns the same events under both", async () => {
     let scenario = async () => {
       module TestBus = LocalBus.Make()
-      module Storage = EventLogStorage_InMemory.Make(TestBus)
+      module Storage = LocalEventLogStorage.Make(TestBus)
       let s = Storage.make(~name="parity-events", ~opts)
       let ops = await s.operations->TestRunner.resolve
 
@@ -41,12 +74,13 @@ describe("Backend parity (Memory vs Sqlite)", () => {
 
     await runUnderMemory(scenario)
     await runUnderSqlite(scenario)
+    await runUnderPostgres(scenario)
   })
 
   testPromise("QueryDb: save + loadStream returns the same item under both", async () => {
     let scenario = async () => {
       module TestBus = LocalBus.Make()
-      module Storage = QueryDbStorage_InMemory.Make(TestBus)
+      module Storage = LocalQueryDbStorage.Make(TestBus)
       let s = Storage.make(~name="parity-qdb", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
       let ops = await s.operations->TestRunner.resolve
 
@@ -73,7 +107,7 @@ describe("Backend parity (Memory vs Sqlite)", () => {
   testPromise("QueryDb: count returns a running total and loadStream reflects it under both", async () => {
     let scenario = async () => {
       module TestBus = LocalBus.Make()
-      module Storage = QueryDbStorage_InMemory.Make(TestBus)
+      module Storage = LocalQueryDbStorage.Make(TestBus)
       let s = Storage.make(~name="parity-count", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
       let ops = await s.operations->TestRunner.resolve
 
@@ -108,7 +142,7 @@ describe("Backend parity (Memory vs Sqlite)", () => {
   testPromise("QueryDb: an expired-TTL item is filtered from loadStream under both", async () => {
     let scenario = async () => {
       module TestBus = LocalBus.Make()
-      module Storage = QueryDbStorage_InMemory.Make(TestBus)
+      module Storage = LocalQueryDbStorage.Make(TestBus)
       let s = Storage.make(~name="parity-ttl", ~indexes=[], ~api=(), ~apiRole=(), ~opts)
       let ops = await s.operations->TestRunner.resolve
 
@@ -137,14 +171,14 @@ describe("Backend parity (Memory vs Sqlite)", () => {
   testPromise("EventLog: conflict detection works under both", async () => {
     let scenario = async () => {
       module TestBus = LocalBus.Make()
-      module Storage = EventLogStorage_InMemory.Make(TestBus)
+      module Storage = LocalEventLogStorage.Make(TestBus)
       let s = Storage.make(~name="parity-conflict", ~opts)
       let ops = await s.operations->TestRunner.resolve
 
       let e = JSON.Encode.object(Dict.fromArray([("t", JSON.Encode.string("C"))]))
       let _ = await ops.append(0, "cid", [e])
 
-      // Reusing seqNr=0 must conflict under both backends.
+      // Reusing seqNr=0 must conflict under every backend.
       let result = await ops.append(0, "cid", [e])
       switch result {
       | Error(_) => expect(true)->toBe(true)
@@ -154,5 +188,6 @@ describe("Backend parity (Memory vs Sqlite)", () => {
 
     await runUnderMemory(scenario)
     await runUnderSqlite(scenario)
+    await runUnderPostgres(scenario)
   })
 })

package/tests/adapter/BackendParityTest.res.mjs

@@ -4,17 +4,31 @@ import * as Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
+import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as LocalBus$ReventlessLocal from "../../src/adapter/LocalBus.res.mjs";
 import * as TestRunner$ReventlessLocal from "../../src/test/TestRunner.res.mjs";
+import * as PgDriver$ReventlessPostgres from "@reventlessdev/reventless-postgres/src/PgDriver.res.mjs";
+import * as PgSchema$ReventlessPostgres from "@reventlessdev/reventless-postgres/src/PgSchema.res.mjs";
 import * as BackendState$ReventlessLocal from "../../src/adapter/BackendState.res.mjs";
 import * as SqliteDriver$ReventlessLocal from "../../src/adapter/SqliteDriver.res.mjs";
-import * as QueryDbStorage_InMemory$ReventlessLocal from "../../src/adapter/QueryDb/QueryDbStorage_InMemory.res.mjs";
-import * as EventLogStorage_InMemory$ReventlessLocal from "../../src/adapter/EventLog/EventLogStorage_InMemory.res.mjs";
+import * as LocalQueryDbStorage$ReventlessLocal from "../../src/adapter/QueryDb/LocalQueryDbStorage.res.mjs";
+import * as LocalEventLogStorage$ReventlessLocal from "../../src/adapter/EventLog/LocalEventLogStorage.res.mjs";
 
 TestRunner$ReventlessLocal.setup();
 
 let opts = {};
 
+let pgPool = Stdlib_Option.map(process.env["PG_URL"], url => PgDriver$ReventlessPostgres.makePool({
+  connectionString: url
+}));
+
+globalThis.afterAll(() => {
+  if (pgPool !== undefined) {
+    PgDriver$ReventlessPostgres.endPool(Primitive_option.valFromOption(pgPool));
+    return;
+  }
+});
+
 async function runUnderMemory(fn) {
   BackendState$ReventlessLocal.setMemory();
   return await fn();
@@ -28,11 +42,23 @@ async function runUnderSqlite(fn) {
   return SqliteDriver$ReventlessLocal.close(db);
 }
 
+async function runUnderPostgres(fn) {
+  if (pgPool === undefined) {
+    return;
+  }
+  let pool = Primitive_option.valFromOption(pgPool);
+  await PgSchema$ReventlessPostgres.ensureSchema(pool);
+  await PgSchema$ReventlessPostgres.truncateAll(pool);
+  BackendState$ReventlessLocal.setPostgres(pool);
+  await fn();
+  return BackendState$ReventlessLocal.setMemory();
+}
+
 globalThis.describe("Backend parity (Memory vs Sqlite)", () => {
   globalThis.test("EventLog: append + replay returns the same events under both", async () => {
     let scenario = async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
-      let Storage = EventLogStorage_InMemory$ReventlessLocal.Make(TestBus);
+      let Storage = LocalEventLogStorage$ReventlessLocal.Make(TestBus);
       let s = Storage.make("parity-events", opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       let e1 = Object.fromEntries([[
@@ -51,12 +77,13 @@ globalThis.describe("Backend parity (Memory vs Sqlite)", () => {
       globalThis.expect(replayed[1]).toEqual(e2);
     };
     await runUnderMemory(scenario);
-    return await runUnderSqlite(scenario);
+    await runUnderSqlite(scenario);
+    return await runUnderPostgres(scenario);
   });
   globalThis.test("QueryDb: save + loadStream returns the same item under both", async () => {
     let scenario = async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
-      let Storage = QueryDbStorage_InMemory$ReventlessLocal.Make(TestBus);
+      let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let s = Storage.make("parity-qdb", [], undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       await ops.save("k", "val", "Any", undefined);
@@ -70,7 +97,7 @@ globalThis.describe("Backend parity (Memory vs Sqlite)", () => {
   globalThis.test("QueryDb: count returns a running total and loadStream reflects it under both", async () => {
     let scenario = async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
-      let Storage = QueryDbStorage_InMemory$ReventlessLocal.Make(TestBus);
+      let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let s = Storage.make("parity-count", [], undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       let r1 = await ops.count("prod-1", "orderCount", 3);
@@ -94,7 +121,7 @@ globalThis.describe("Backend parity (Memory vs Sqlite)", () => {
   globalThis.test("QueryDb: an expired-TTL item is filtered from loadStream under both", async () => {
     let scenario = async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
-      let Storage = QueryDbStorage_InMemory$ReventlessLocal.Make(TestBus);
+      let Storage = LocalQueryDbStorage$ReventlessLocal.Make(TestBus);
       let s = Storage.make("parity-ttl", [], undefined, undefined, undefined, undefined, opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       let item = k => Object.fromEntries([[
@@ -113,7 +140,7 @@ globalThis.describe("Backend parity (Memory vs Sqlite)", () => {
   globalThis.test("EventLog: conflict detection works under both", async () => {
     let scenario = async () => {
       let TestBus = LocalBus$ReventlessLocal.Make({});
-      let Storage = EventLogStorage_InMemory$ReventlessLocal.Make(TestBus);
+      let Storage = LocalEventLogStorage$ReventlessLocal.Make(TestBus);
       let s = Storage.make("parity-conflict", opts);
       let ops = await TestRunner$ReventlessLocal.resolve(s.operations);
       let e = Object.fromEntries([[
@@ -129,13 +156,16 @@ globalThis.describe("Backend parity (Memory vs Sqlite)", () => {
       globalThis.expect(true).toBe(true);
     };
     await runUnderMemory(scenario);
-    return await runUnderSqlite(scenario);
+    await runUnderSqlite(scenario);
+    return await runUnderPostgres(scenario);
   });
 });
 
 export {
   opts,
+  pgPool,
   runUnderMemory,
   runUnderSqlite,
+  runUnderPostgres,
 }
 /*  Not a pure module */