@reventlessdev/reventless-local 3.0.0-alpha.318 → 3.0.0-alpha.319

package/CHANGELOG.md

@@ -3,6 +3,14 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 3.0.0-alpha.319 (2026-11-01)
+
+### Features
+
+* **core:** a component's log line carries the ids of the message it is about ([9c26267](https://github.com/ReventlessDev/reventless-core/commit/9c26267ca6d03ff66b8406caa32243e205e29b5a))
+* **local:** the registry entry names the platform API, and a command's outcome names its cause ([51717c4](https://github.com/ReventlessDev/reventless-core/commit/51717c441820c19dc59e595559b037b808ca716a))
+
+
 # 3.0.0-alpha.318 (2026-11-01)
 
 ### Features

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-local",
-  "version": "3.0.0-alpha.318",
+  "version": "3.0.0-alpha.319",
   "description": "Local platform for Reventless (in-memory or SQLite backend, for development and testing without AWS)",
   "license": "Apache-2.0",
   "bin": {
@@ -34,19 +34,19 @@
     "graphql-yoga": "^5.21.0",
     "sury": "11.0.0",
     "ws": "^8.18.0",
-    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.30",
     "@reventlessdev/rescript-effect": "1.0.0-alpha.1",
+    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.30",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.13",
-    "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.24",
     "@reventlessdev/rescript-node": "2.0.0-alpha.25",
+    "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.24",
+    "@reventlessdev/reventless-core": "3.0.0-alpha.327",
+    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.175",
     "@reventlessdev/rescript-pulumi-pulumi": "3.0.0-alpha.0",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.326",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.275",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.276",
     "@reventlessdev/reventless-infra": "3.0.0-alpha.221",
-    "@reventlessdev/reventless-seed": "1.0.0-alpha.40",
-    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.174",
+    "@reventlessdev/reventless-postgres": "3.0.0-alpha.191",
     "@reventlessdev/reventless-spec": "3.0.0-alpha.192",
-    "@reventlessdev/reventless-postgres": "3.0.0-alpha.190"
+    "@reventlessdev/reventless-seed": "1.0.0-alpha.40"
   },
   "devDependencies": {
     "rescript": "12.3.1",

package/src/LocalPlatformRegistry.res

@@ -30,6 +30,9 @@ type entry = {
   // Where the log feed is served, when it is: the platform's recent and live log
   // records. Optional for the same reason as `tapPort`.
   logPort?: int,
+  // Where the platform API is served: its own port when the platform serves two
+  // APIs, else the same endpoint as `endpoint`. Optional for the same reason.
+  platformEndpoint?: string,
 }
 
 // Threaded rather than read at each use, so tests need not move the process.
@@ -115,6 +118,7 @@ let write = (
   ~loginEndpoint: string,
   ~store: store,
   ~tapPort: option<int>=?,
+  ~platformEndpoint: option<string>=?,
   ~pid: int=NodeProcess.pid,
   ~cwd: string=NodeProcess.cwd(),
 ): string => {
@@ -128,6 +132,7 @@ let write = (
     store,
     startedAt: Date.make()->Date.toISOString,
     ?tapPort,
+    ?platformEndpoint,
   }
   try {
     NodeFs.mkdirSync(runningDir(~cwd, ()), {recursive: true})
@@ -187,8 +192,9 @@ let register = (
   ~loginEndpoint: string,
   ~store: store,
   ~tapPort: option<int>=?,
+  ~platformEndpoint: option<string>=?,
 ): unit => {
-  let path = write(~port, ~endpoint, ~loginEndpoint, ~store, ~tapPort?)
+  let path = write(~port, ~endpoint, ~loginEndpoint, ~store, ~tapPort?, ~platformEndpoint?)
   NodeProcess.onExit(_ => removeQuietly(path))
   NodeProcess.onSignal(SIGINT, () => {
     removeQuietly(path)

package/src/LocalPlatformRegistry.res.mjs

@@ -23,7 +23,8 @@ let entrySchema = Sury.$schema(s => ({
   store: s.m(storeSchema),
   startedAt: s.m(Sury.string),
   tapPort: s.m(Sury.$option(Sury.int32)),
-  logPort: s.m(Sury.$option(Sury.int32))
+  logPort: s.m(Sury.$option(Sury.int32)),
+  platformEndpoint: s.m(Sury.$option(Sury.string))
 }));
 
 function runningDir(cwdOpt, param) {
@@ -110,7 +111,7 @@ function list(cwdOpt, param) {
   }).toSorted((a, b) => Primitive_int.compare(a.port, b.port));
 }
 
-function write(port, endpoint, loginEndpoint, store, tapPort, pidOpt, cwdOpt) {
+function write(port, endpoint, loginEndpoint, store, tapPort, platformEndpoint, pidOpt, cwdOpt) {
   let pid = pidOpt !== undefined ? pidOpt : process.pid;
   let cwd = cwdOpt !== undefined ? cwdOpt : process.cwd();
   let path = entryPath(port, cwd);
@@ -124,7 +125,8 @@ function write(port, endpoint, loginEndpoint, store, tapPort, pidOpt, cwdOpt) {
     loginEndpoint: loginEndpoint,
     store: store,
     startedAt: entry_startedAt,
-    tapPort: tapPort
+    tapPort: tapPort,
+    platformEndpoint: platformEndpoint
   };
   try {
     Nodefs.mkdirSync(runningDir(cwd, undefined), {
@@ -169,8 +171,8 @@ function publishLogPort(port, logPort, cwdOpt) {
   }
 }
 
-function register(port, endpoint, loginEndpoint, store, tapPort) {
-  let path = write(port, endpoint, loginEndpoint, store, tapPort, undefined, undefined);
+function register(port, endpoint, loginEndpoint, store, tapPort, platformEndpoint) {
+  let path = write(port, endpoint, loginEndpoint, store, tapPort, platformEndpoint, undefined, undefined);
   process.on("exit", param => removeQuietly(path));
   process.on("SIGINT", () => {
     removeQuietly(path);

package/src/Platform.res

@@ -1422,6 +1422,9 @@ module MakeWithConfig = (
       ~endpoint=`http://localhost:${domainPort->Int.toString}/graphql`,
       ~loginEndpoint=`http://localhost:${domainPort->Int.toString}/__inmemory/login`,
       ~store={kind, ?path},
+      ~platformEndpoint=Config.splitApi
+        ? `http://localhost:${platformPort->Int.toString}/graphql`
+        : `http://localhost:${domainPort->Int.toString}/graphql`,
     )
     // After the register, and it fills the tap port in once the socket is bound:
     // the port is ephemeral by default, so it is not known until `listen` calls

package/src/Platform.res.mjs

@@ -1176,7 +1176,7 @@ function MakeWithConfig(Config) {
     LocalPlatformRegistry$ReventlessLocal.register(domainPort, `http://localhost:` + domainPort.toString() + `/graphql`, `http://localhost:` + domainPort.toString() + `/__inmemory/login`, {
       kind: match[0],
       path: match[1]
-    }, undefined);
+    }, undefined, Config.splitApi ? `http://localhost:` + platformPort.toString() + `/graphql` : `http://localhost:` + domainPort.toString() + `/graphql`);
     LocalEventTap$ReventlessLocal.start(undefined, tapPort => LocalPlatformRegistry$ReventlessLocal.publishTapPort(domainPort, tapPort, undefined), undefined);
     LocalLogFeed$ReventlessLocal.start(undefined, logPort => LocalPlatformRegistry$ReventlessLocal.publishLogPort(domainPort, logPort, undefined), undefined);
     Plugin_Helpers$ReventlessCore.firePlatformDeployedHook({
@@ -2973,7 +2973,7 @@ function Make($star) {
     LocalPlatformRegistry$ReventlessLocal.register(domainPort, `http://localhost:` + domainPort.toString() + `/graphql`, `http://localhost:` + domainPort.toString() + `/__inmemory/login`, {
       kind: match[0],
       path: match[1]
-    }, undefined);
+    }, undefined, `http://localhost:` + platformPort.toString() + `/graphql`);
     LocalEventTap$ReventlessLocal.start(undefined, tapPort => LocalPlatformRegistry$ReventlessLocal.publishTapPort(domainPort, tapPort, undefined), undefined);
     LocalLogFeed$ReventlessLocal.start(undefined, logPort => LocalPlatformRegistry$ReventlessLocal.publishLogPort(domainPort, logPort, undefined), undefined);
     Plugin_Helpers$ReventlessCore.firePlatformDeployedHook({

package/src/adapter/LocalTapLines.res

@@ -34,6 +34,7 @@ let outcomeLine = (r: Outcome.commandOutcomeReport): string => {
     ->Array.concat(optional("plugin", plugin))
     ->Array.concat([("msgId", str(r.reference))])
     ->Array.concat(optional("correlationId", r.correlationId))
+    ->Array.concat(optional("causationId", r.causationId))
   let body = switch r.outcome {
   | OutcomeAccepted({entityId, eventCount}) =>
     [("outcome", str("accepted"))]
@@ -69,6 +70,7 @@ let rejectionRecord = (r: Outcome.commandOutcomeReport): option<Logger.record> =
     }
     let annotations = Dict.fromArray([("msgId", r.reference)])
     r.correlationId->Option.forEach(id => annotations->Dict.set("correlationId", id))
+    r.causationId->Option.forEach(id => annotations->Dict.set("causationId", id))
     Some({
       time: now(),
       level,

package/src/adapter/LocalTapLines.res.mjs

@@ -50,7 +50,7 @@ function outcomeLine(r) {
   ].concat(optional("plugin", plugin)).concat([[
       "msgId",
       r.reference
-    ]]).concat(optional("correlationId", r.correlationId));
+    ]]).concat(optional("correlationId", r.correlationId)).concat(optional("causationId", r.causationId));
   let match = r.outcome;
   let body;
   body = match.TAG === "OutcomeAccepted" ? [[
@@ -118,6 +118,9 @@ function rejectionRecord(r) {
   Stdlib_Option.forEach(r.correlationId, id => {
     annotations["correlationId"] = id;
   });
+  Stdlib_Option.forEach(r.causationId, id => {
+    annotations["causationId"] = id;
+  });
   return {
     time: new Date().toISOString(),
     level: level,

package/src/adapter/ProjectionCheckpoint.res.mjs

@@ -273,7 +273,7 @@ async function runCatchup(db, upperBound, dcbUpperBound, handlers) {
       if (checkpoint < bound) {
         let rows = missedRows(db, axis, checkpoint, bound);
         if (rows.length !== 0) {
-          Effect.runSync(EffectLogger$ReventlessCore.logInfo(comp, undefined, `catch-up: delivering ` + rows.length.toString() + ` missed ` + axisLabel(axis) + ` event(s) (positions ` + checkpoint.toString() + `..` + bound.toString() + `] to ` + name));
+          Effect.runSync(EffectLogger$ReventlessCore.logInfo(comp, undefined, undefined, `catch-up: delivering ` + rows.length.toString() + ` missed ` + axisLabel(axis) + ` event(s) (positions ` + checkpoint.toString() + `..` + bound.toString() + `] to ` + name));
         }
         for (let j = 0, j_finish = rows.length; j < j_finish; ++j) {
           let match$2 = rows[j];
@@ -283,10 +283,10 @@ async function runCatchup(db, upperBound, dcbUpperBound, handlers) {
             try {
               await handler(envelope, undefined);
             } catch (exn) {
-              Effect.runSync(EffectLogger$ReventlessCore.logWarn(comp, undefined, `catch-up: ` + name + ` failed on stored ` + axisLabel(axis) + ` event at position ` + pos.toString() + ` — skipped`));
+              Effect.runSync(EffectLogger$ReventlessCore.logWarn(comp, undefined, undefined, `catch-up: ` + name + ` failed on stored ` + axisLabel(axis) + ` event at position ` + pos.toString() + ` — skipped`));
             }
           } else {
-            Effect.runSync(EffectLogger$ReventlessCore.logWarn(comp, undefined, `catch-up: unreadable stored ` + axisLabel(axis) + ` event at position ` + pos.toString() + ` — skipped`));
+            Effect.runSync(EffectLogger$ReventlessCore.logWarn(comp, undefined, undefined, `catch-up: unreadable stored ` + axisLabel(axis) + ` event at position ` + pos.toString() + ` — skipped`));
           }
         }
       }

package/src/components/AutomationSlice_Builder.res.mjs

@@ -59,7 +59,7 @@ function Make(Bus) {
         return await ops.tick(key, at);
       });
       Stdlib_Promise.$$catch(TestRunner$ReventlessLocal.resolve(Component$ReventlessCore.operations(component)).then(ops => ops.reconcileSchedules()), exn => {
-        Effect.runSync(EffectLogger$ReventlessCore.logError(`AutomationSlice(` + Spec.name + `)`, undefined, `the schedules could not be reconciled: ` + Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown")));
+        Effect.runSync(EffectLogger$ReventlessCore.logError(`AutomationSlice(` + Spec.name + `)`, undefined, undefined, `the schedules could not be reconciled: ` + Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown")));
         return Promise.resolve();
       });
       return component;

package/src/components/LocalAutomationSchedules.res.mjs

@@ -18,7 +18,7 @@ function timerName(slice, key) {
 }
 
 function tickFailed(slice, key, message) {
-  Effect.runSync(EffectLogger$ReventlessCore.logError("LocalAutomationSchedules", undefined, `tick ` + key + ` of ` + slice + ` failed: ` + message));
+  Effect.runSync(EffectLogger$ReventlessCore.logError("LocalAutomationSchedules", undefined, undefined, `tick ` + key + ` of ` + slice + ` failed: ` + message));
 }
 
 function register(slice, tick) {

package/src/components/LocalAutomationSweep.res.mjs

@@ -40,7 +40,7 @@ async function sweepOnce() {
       } catch (raw_exn) {
         let exn = Primitive_exceptions.internalToException(raw_exn);
         let message = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown");
-        return Effect.runSync(EffectLogger$ReventlessCore.logError("LocalAutomationSweep", undefined, `sweep of ` + param[0] + ` failed: ` + message));
+        return Effect.runSync(EffectLogger$ReventlessCore.logError("LocalAutomationSweep", undefined, undefined, `sweep of ` + param[0] + ` failed: ` + message));
       }
     });
     running.contents = false;

package/tests/LocalPlatformRegistryTest.res

@@ -199,4 +199,21 @@ describe("LocalPlatformRegistry.tapPort", () => {
 
     expect(LocalPlatformRegistry.list(~cwd, ())->Array.map(e => e.tapPort))->toEqual([Some(4100)])
   })
+
+  testSync("names where the platform API is served, and keeps it when a port is published", () => {
+    let cwd = tempRoot()
+    let _ = LocalPlatformRegistry.write(
+      ~port=4000,
+      ~endpoint="http://localhost:4000/graphql",
+      ~loginEndpoint="http://localhost:4000/__inmemory/login",
+      ~store=memoryStore,
+      ~platformEndpoint="http://localhost:4001/graphql",
+      ~cwd,
+    )
+    LocalPlatformRegistry.publishTapPort(~port=4000, ~tapPort=4100, ~cwd)
+
+    expect(
+      LocalPlatformRegistry.list(~cwd, ())->Array.map(e => (e.platformEndpoint, e.tapPort)),
+    )->toEqual([(Some("http://localhost:4001/graphql"), Some(4100))])
+  })
 })

package/tests/LocalPlatformRegistryTest.res.mjs

@@ -24,7 +24,7 @@ let memoryStore = {
 
 function writeAt(cwd, port, store, pidOpt) {
   let pid = pidOpt !== undefined ? pidOpt : process.pid;
-  return LocalPlatformRegistry$ReventlessLocal.write(port, `http://localhost:` + port.toString() + `/graphql`, `http://localhost:` + port.toString() + `/__inmemory/login`, store, undefined, pid, cwd);
+  return LocalPlatformRegistry$ReventlessLocal.write(port, `http://localhost:` + port.toString() + `/graphql`, `http://localhost:` + port.toString() + `/__inmemory/login`, store, undefined, undefined, pid, cwd);
 }
 
 globalThis.describe("LocalPlatformRegistry", () => {
@@ -173,9 +173,21 @@ globalThis.describe("LocalPlatformRegistry.tapPort", () => {
   globalThis.test("ignores a platform that never published an entry", () => LocalPlatformRegistry$ReventlessLocal.publishTapPort(4000, 1, tempRoot()));
   globalThis.test("round-trips the port a platform serving a tap publishes", () => {
     let cwd = tempRoot();
-    LocalPlatformRegistry$ReventlessLocal.write(4000, "http://localhost:4000/graphql", "http://localhost:4000/__inmemory/login", memoryStore, 4100, undefined, cwd);
+    LocalPlatformRegistry$ReventlessLocal.write(4000, "http://localhost:4000/graphql", "http://localhost:4000/__inmemory/login", memoryStore, 4100, undefined, undefined, cwd);
     globalThis.expect(LocalPlatformRegistry$ReventlessLocal.list(cwd, undefined).map(e => e.tapPort)).toEqual([4100]);
   });
+  globalThis.test("names where the platform API is served, and keeps it when a port is published", () => {
+    let cwd = tempRoot();
+    LocalPlatformRegistry$ReventlessLocal.write(4000, "http://localhost:4000/graphql", "http://localhost:4000/__inmemory/login", memoryStore, undefined, "http://localhost:4001/graphql", undefined, cwd);
+    LocalPlatformRegistry$ReventlessLocal.publishTapPort(4000, 4100, cwd);
+    globalThis.expect(LocalPlatformRegistry$ReventlessLocal.list(cwd, undefined).map(e => [
+      e.platformEndpoint,
+      e.tapPort
+    ])).toEqual([[
+        "http://localhost:4001/graphql",
+        4100
+      ]]);
+  });
 });
 
 let deadPid = 2147483646;

package/tests/LocalPlatformStartTest.res.mjs

@@ -28,7 +28,7 @@ let memoryStore = {
 
 function writeAt(cwd, port, store, pidOpt) {
   let pid = pidOpt !== undefined ? pidOpt : process.pid;
-  return LocalPlatformRegistry$ReventlessLocal.write(port, `http://localhost:` + port.toString() + `/graphql`, `http://localhost:` + port.toString() + `/__inmemory/login`, store, undefined, pid, cwd);
+  return LocalPlatformRegistry$ReventlessLocal.write(port, `http://localhost:` + port.toString() + `/graphql`, `http://localhost:` + port.toString() + `/__inmemory/login`, store, undefined, undefined, pid, cwd);
 }
 
 function withoutBypass(f) {

package/tests/adapter/LocalTapLinesTest.res

@@ -180,3 +180,28 @@ describe("LocalTapLines", () => {
     await disconnect(tap)
   })
 })
+
+describe("the outcome line names its cause", () => {
+  testSync("a command an automation sent says which event it acted on", () => {
+    let line = LocalTapLines.outcomeLine({
+      component: "Notice",
+      reference: "cmd-2",
+      correlationId: "flow-1",
+      causationId: "evt-7",
+      outcome: OutcomeAccepted({entityId: Some("n-1"), eventCount: 1}),
+    })
+    let d = line->JSON.parseOrThrow->JSON.Decode.object->Option.getOrThrow
+    expect(d->Dict.get("causationId"))->toEqual(Some(JSON.String("evt-7")))
+    expect(d->Dict.get("msgId"))->toEqual(Some(JSON.String("cmd-2")))
+  })
+
+  testSync("a command sent from outside has none", () => {
+    let line = LocalTapLines.outcomeLine({
+      component: "Order",
+      reference: "cmd-1",
+      outcome: OutcomeAccepted({entityId: None, eventCount: 1}),
+    })
+    let d = line->JSON.parseOrThrow->JSON.Decode.object->Option.getOrThrow
+    expect(d->Dict.get("causationId"))->toEqual(None)
+  })
+})

package/tests/adapter/LocalTapLinesTest.res.mjs

@@ -93,11 +93,11 @@ async function disconnect(tap) {
 globalThis.describe("LocalTapLines", () => {
   globalThis.test("an accepted and a rejected command each appear once on the tap", async () => {
     let tap = await connectTap();
-    CommandTopic_Helpers$ReventlessCore.reportAccepted("Order", "flow-1", "m-1", {
+    CommandTopic_Helpers$ReventlessCore.reportAccepted("Order", "flow-1", undefined, "m-1", {
       entityId: "o-1",
       eventCount: 2
     });
-    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "DomainRejection", "flow-1", "m-2", {
+    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "DomainRejection", "flow-1", undefined, "m-2", {
       errorCode: "AlreadyExists",
       errorDetail: `{"name":"Widget"}`
     });
@@ -181,7 +181,7 @@ globalThis.describe("LocalTapLines", () => {
   });
   globalThis.test("an infrastructure failure is kept as an error", async () => {
     let tap = await connectTap();
-    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "InfrastructureFailure", undefined, "m-3", {
+    CommandTopic_Helpers$ReventlessCore.reportRejected("Order", "InfrastructureFailure", undefined, undefined, "m-3", {
       errorCode: "AppendFailed",
       errorDetail: "store down"
     });
@@ -224,6 +224,38 @@ globalThis.describe("LocalTapLines", () => {
   });
 });
 
+globalThis.describe("the outcome line names its cause", () => {
+  globalThis.test("a command an automation sent says which event it acted on", () => {
+    let line = LocalTapLines$ReventlessLocal.outcomeLine({
+      component: "Notice",
+      reference: "cmd-2",
+      correlationId: "flow-1",
+      causationId: "evt-7",
+      outcome: {
+        TAG: "OutcomeAccepted",
+        entityId: "n-1",
+        eventCount: 1
+      }
+    });
+    let d = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(JSON.parse(line)), undefined);
+    globalThis.expect(d["causationId"]).toEqual("evt-7");
+    globalThis.expect(d["msgId"]).toEqual("cmd-2");
+  });
+  globalThis.test("a command sent from outside has none", () => {
+    let line = LocalTapLines$ReventlessLocal.outcomeLine({
+      component: "Order",
+      reference: "cmd-1",
+      outcome: {
+        TAG: "OutcomeAccepted",
+        entityId: undefined,
+        eventCount: 1
+      }
+    });
+    let d = Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(JSON.parse(line)), undefined);
+    globalThis.expect(d["causationId"]).toEqual(undefined);
+  });
+});
+
 let Outcome;
 
 let ViewChange;