@reventlessdev/reventless-local 3.0.0-alpha.197 → 3.0.0-alpha.199

package/CHANGELOG.md

@@ -3,6 +3,23 @@
 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.199 (2026-08-04)
+
+### Features
+
+* **geocoding:** serve geocoding through the platform GraphQL API (D9 half 2) ([914d3c0](https://github.com/ReventlessDev/reventless-core/commit/914d3c0a99a1b67ffb89e2b8259dd30f67ff9bae))
+
+
+# 3.0.0-alpha.198 (2026-08-04)
+
+### Bug Fixes
+
+* **core:** tag a slice's published command with its target, not itself ([bb2b063](https://github.com/ReventlessDev/reventless-core/commit/bb2b063f914e45fb8efcba28e0b691713cf93d8a))
+### Features
+
+* **outbound:** hand translate its geocoder instead of making it fetch one ([fb18312](https://github.com/ReventlessDev/reventless-core/commit/fb1831216b37c9562868c46e1a09054e69418c67))
+
+
 # 3.0.0-alpha.197 (2026-08-03)
 
 **Note:** Version bump only for package @reventlessdev/reventless-local

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-local",
-  "version": "3.0.0-alpha.197",
+  "version": "3.0.0-alpha.199",
   "description": "Local platform for Reventless (in-memory or SQLite backend, for development and testing without AWS)",
   "license": "Apache-2.0",
   "bin": {
@@ -35,17 +35,17 @@
     "sury": "11.0.0-alpha.4",
     "ws": "^8.18.0",
     "@reventlessdev/rescript-effect": "0.1.0-alpha.32",
-    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.26",
+    "@reventlessdev/rescript-jest": "1.0.0-alpha.10",
     "@reventlessdev/rescript-node": "2.0.0-alpha.1",
+    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.26",
     "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.21",
-    "@reventlessdev/rescript-jest": "1.0.0-alpha.10",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.18",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.209",
-    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.57",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.156",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.99",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.124",
-    "@reventlessdev/reventless-postgres": "3.0.0-alpha.73"
+    "@reventlessdev/reventless-core": "3.0.0-alpha.211",
+    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.59",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.126",
+    "@reventlessdev/reventless-postgres": "3.0.0-alpha.75",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.100",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.158"
   },
   "devDependencies": {
     "rescript": "12.3.0",

package/src/Platform.res

@@ -1938,6 +1938,9 @@ module MakeWithConfig = (
     // Upload service (route B) on the domain server — mirrors adding it to
     // `domainBaseFragment` on AWS.
     LocalUploadResolvers.register(DomainGraphQL_Server.asInterface)
+    // Geocoding client door (D9 half 2) on the domain server — same mirror. A dev
+    // stub (no real geocoder locally), so the map picker's search box works offline.
+    LocalGeocodeResolvers.register(DomainGraphQL_Server.asInterface)
     // In split mode, inject Relay base types (Node interface, PageInfo) into the platform
     // server so SDL fragments compile. The node(id) query is Domain-only — the Platform
     // API is consumed by admin tools and agents, not Relay clients.

package/src/Platform.res.mjs

@@ -61,6 +61,7 @@ import * as EventPublish_Callback$ReventlessCore from "@reventlessdev/reventless
 import * as LocalUploadResolvers$ReventlessLocal from "./adapter/LocalUploadResolvers.res.mjs";
 import * as ProjectionCheckpoint$ReventlessLocal from "./adapter/ProjectionCheckpoint.res.mjs";
 import * as ExtensionPointMapping$ReventlessInfra from "@reventlessdev/reventless-infra/src/types/ExtensionPointMapping.res.mjs";
+import * as LocalGeocodeResolvers$ReventlessLocal from "./adapter/LocalGeocodeResolvers.res.mjs";
 import * as UiFragments_Projection$ReventlessCore from "@reventlessdev/reventless-core/src/admin/UiFragmentRegistry/StateViewSlice/UiFragments_Projection.res.mjs";
 import * as EventLogStorage_Sqlite$ReventlessLocal from "./adapter/EventLog/EventLogStorage_Sqlite.res.mjs";
 import * as ExtensionPoint_Builder$ReventlessLocal from "./components/ExtensionPoint_Builder.res.mjs";
@@ -1559,6 +1560,7 @@ function MakeWithConfig(Config) {
     DomainGraphQL_Server$ReventlessLocal.registerTypes(GraphQL_Stitcher$ReventlessCore.relayBaseTypes);
     DomainGraphQL_Server$ReventlessLocal.registerQueries(GraphQL_Stitcher$ReventlessCore.relayBaseQueries, {});
     LocalUploadResolvers$ReventlessLocal.register(DomainGraphQL_Server$ReventlessLocal.asInterface);
+    LocalGeocodeResolvers$ReventlessLocal.register(DomainGraphQL_Server$ReventlessLocal.asInterface);
     if (Config.splitApi) {
       PlatformGraphQL_Server$ReventlessLocal.registerTypes(GraphQL_Stitcher$ReventlessCore.relayBaseTypes);
     }
@@ -3244,6 +3246,7 @@ function Make($star) {
     DomainGraphQL_Server$ReventlessLocal.registerTypes(GraphQL_Stitcher$ReventlessCore.relayBaseTypes);
     DomainGraphQL_Server$ReventlessLocal.registerQueries(GraphQL_Stitcher$ReventlessCore.relayBaseQueries, {});
     LocalUploadResolvers$ReventlessLocal.register(DomainGraphQL_Server$ReventlessLocal.asInterface);
+    LocalGeocodeResolvers$ReventlessLocal.register(DomainGraphQL_Server$ReventlessLocal.asInterface);
     PlatformGraphQL_Server$ReventlessLocal.registerTypes(GraphQL_Stitcher$ReventlessCore.relayBaseTypes);
     currentDeployTarget.contents = "Domain";
   };

package/src/adapter/LocalCapabilities.res

@@ -0,0 +1,13 @@
+// What the local platform hands a slice's `translate`.
+//
+// Nothing, today — and that is the honest answer rather than a placeholder. The
+// local platform provisions no geocoder (a deployed stack's place index is an
+// account and a bill), so `Capabilities.none` reports `Unavailable`, which
+// `translate` maps to a retryable `Error` and the sweep surfaces. A dev running
+// a geocoding slice sees its items stay queued, which is true, instead of seeing
+// them written off as unresolvable addresses, which would not be.
+//
+// This is the one place to change when local grows a real one — a fixture, a
+// stub keyed by address, or Nominatim. Slices reach it through the injected
+// record, so nothing in a plugin moves on that day.
+let capabilities = () => Reventless.Capabilities.none

package/src/adapter/LocalCapabilities.res.mjs

@@ -0,0 +1,12 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Capabilities$Reventless from "@reventlessdev/reventless-spec/src/semantic/Capabilities.res.mjs";
+
+function capabilities() {
+  return Capabilities$Reventless.none;
+}
+
+export {
+  capabilities,
+}
+/* No side effect */

package/src/adapter/LocalGeocodeResolvers.res

@@ -0,0 +1,63 @@
+// Local geocode resolver — the *client* door of the geocoding capability (D9 half
+// 2) on the dev platform. Registers `Query.geocode` on the domain server the same
+// way `LocalUploadResolvers` registers `Upload_Presign`, which is the local analogue
+// of adding the field to `domainBaseFragment` on AWS.
+//
+// This closes a dev-experience gap: before it, `config.geocoderEndpoint` was unset
+// in local dev, so the map picker's search box did not render at all and the input
+// was click-to-place only. With this door registered, address search works in dev.
+//
+// The dev platform provisions no real geocoder — `LocalCapabilities` keeps the
+// *unattended* slice path at `Capabilities.none`, and the two doors are
+// independent. This browser door is a deterministic stub: a non-empty query
+// resolves to one candidate whose point is a stable function of the query text, so
+// a search places a pin, in the same spot every time, with no network call or API
+// key. The coordinates are placeholders — echoed back beside the query as the label
+// — not a real geocode. An empty query yields no results, matching the AWS door and
+// the browser's cleared-input case.
+
+// A stable, in-range `(lat, lng)` derived from the query text: fold the character
+// codes into one number and map it into safe coordinate bands. Deterministic, so a
+// dev search is reproducible across reloads.
+let stubPoint = (text: string): (float, float) => {
+  let sum = ref(0)
+  for i in 0 to text->String.length - 1 {
+    let code = text->String.codePointAt(i)->Option.getOr(0)
+    sum := sum.contents + code * (i + 1)
+  }
+  let n = sum.contents
+  let lat = mod(n, 120)->Int.toFloat -. 60.0 // −60 … 59
+  let lng = mod(n / 7, 240)->Int.toFloat -. 120.0 // −120 … 119
+  (lat, lng)
+}
+
+let register = (server: ReventlessGraphqlServer.GraphQL_ServerInstance.t): unit => {
+  let resolvers = Dict.make()
+  resolvers->Dict.set("geocode", async (_root, args, _ctx): JSON.t => {
+    let obj = args->JSON.Decode.object->Option.getOr(Dict.make())
+    let text =
+      obj
+      ->Dict.get("text")
+      ->Option.flatMap(JSON.Decode.string)
+      ->Option.getOr("")
+      ->String.trim
+    if text == "" {
+      JSON.Encode.array([])
+    } else {
+      let (lat, lng) = stubPoint(text)
+      let candidate =
+        Dict.fromArray([
+          ("label", JSON.Encode.string(text)),
+          ("lat", JSON.Encode.float(lat)),
+          ("lng", JSON.Encode.float(lng)),
+          ("relevance", JSON.Encode.float(1.0)),
+        ])->JSON.Encode.object
+      JSON.Encode.array([candidate])
+    }
+  })
+  server.registerTypes(~sdlTypes=ReventlessCore.Platform_AdminApi.geocodeTypes)
+  server.registerQueries(
+    ~sdlFields=ReventlessCore.Platform_AdminApi.geocodeQueryFields,
+    ~resolvers,
+  )
+}

package/src/adapter/LocalGeocodeResolvers.res.mjs

@@ -0,0 +1,58 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+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 Platform_AdminApi$ReventlessCore from "@reventlessdev/reventless-core/src/admin/Platform_AdminApi.res.mjs";
+
+function stubPoint(text) {
+  let sum = 0;
+  for (let i = 0, i_finish = text.length; i < i_finish; ++i) {
+    let code = Stdlib_Option.getOr(text.codePointAt(i), 0);
+    sum = sum + (code * (i + 1 | 0) | 0) | 0;
+  }
+  let n = sum;
+  let lat = n % 120 - 60.0;
+  let lng = (n / 7 | 0) % 240 - 120.0;
+  return [
+    lat,
+    lng
+  ];
+}
+
+function register(server) {
+  let resolvers = {};
+  resolvers["geocode"] = async (_root, args, _ctx) => {
+    let obj = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(args), {});
+    let text = Stdlib_Option.getOr(Stdlib_Option.flatMap(obj["text"], Stdlib_JSON.Decode.string), "").trim();
+    if (text === "") {
+      return [];
+    }
+    let match = stubPoint(text);
+    return [Object.fromEntries([
+        [
+          "label",
+          text
+        ],
+        [
+          "lat",
+          match[0]
+        ],
+        [
+          "lng",
+          match[1]
+        ],
+        [
+          "relevance",
+          1.0
+        ]
+      ])];
+  };
+  server.registerTypes(Platform_AdminApi$ReventlessCore.geocodeTypes);
+  server.registerQueries(Platform_AdminApi$ReventlessCore.geocodeQueryFields, resolvers);
+}
+
+export {
+  stubPoint,
+  register,
+}
+/* Platform_AdminApi-ReventlessCore Not a pure module */

package/src/components/OutboundTranslationSlice_Builder.res

@@ -24,6 +24,7 @@ module Make = (Bus: LocalBus.T) => {
     EventCollectorChannel,
     EventCollectorRuntimeBuilder,
     Api,
+    LocalCapabilities,
   )
 
   module Make = (

package/src/components/OutboundTranslationSlice_Builder.res.mjs

@@ -1,6 +1,7 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Component$ReventlessCore from "@reventlessdev/reventless-core/src/components/Component.res.mjs";
+import * as LocalCapabilities$ReventlessLocal from "../adapter/LocalCapabilities.res.mjs";
 import * as LocalQueryDbStorage$ReventlessLocal from "../adapter/QueryDb/LocalQueryDbStorage.res.mjs";
 import * as LocalRuntimeEnvironment$ReventlessLocal from "../adapter/Runtime/LocalRuntimeEnvironment.res.mjs";
 import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../adapter/QueryDb/QueryDbResolvers_GraphQL.res.mjs";
@@ -32,7 +33,7 @@ function Make(Bus) {
     make: QueryDbStorage.make
   })({
     make: QueryDbResolvers.make
-  })(EventCollectorChannel)(EventCollectorRuntimeBuilder)(Api);
+  })(EventCollectorChannel)(EventCollectorRuntimeBuilder)(Api)(LocalCapabilities$ReventlessLocal);
   let Make$1 = Spec => (Translation => {
     let Inner = CoreMaker.Make(Spec)(Translation);
     return {

package/tests/components/outboundtranslationslice/OutboundTranslationSliceCallbackTest.res

@@ -70,7 +70,7 @@ describe("OutboundTranslationSlice Callback", () => {
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
         publishedCommands := cmds
       }
-      await FireForgetCallback.phase2(mockPublish)
+      await FireForgetCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
       expect(publishedCommands.contents->Array.length)->toBe(0)
       let row = FireForgetCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow
       expect(row.status)->toBe(Completed)
@@ -81,7 +81,7 @@ describe("OutboundTranslationSlice Callback", () => {
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
         publishedCommands := cmds
       }
-      await FireForgetCallback.phase2(mockPublish)
+      await FireForgetCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
       expect(publishedCommands.contents->Array.length)->toBe(0)
     })
   })
@@ -93,7 +93,7 @@ describe("OutboundTranslationSlice Callback", () => {
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
         publishedCommands := Array.concat(publishedCommands.contents, cmds)
       }
-      await CommandBackCallback.phase2(mockPublish)
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
       expect(publishedCommands.contents->Array.length)->toBe(1)
       let cmd = publishedCommands.contents->Array.getUnsafe(0)
       expect(cmd.id)->toBe("ord-1")
@@ -101,12 +101,28 @@ describe("OutboundTranslationSlice Callback", () => {
       expect(row.status)->toBe(Completed)
     })
 
+    // The published command's `meta.service` must name the TARGET, not this
+    // slice. An aggregate derives its event's meta from the command's, and
+    // ReadModel/AutomationSlice callbacks dispatch mappings on `meta.service` —
+    // so a slice that stamps its own name here makes the target's events match
+    // no mapping and project as zero actions, with no error anywhere.
+    testPromise("published command is tagged with the target's name", async () => {
+      CommandBackCallback.phase1([("evt", PaymentReceived({orderId: "ord-1", amount: 50.0}))])
+      let publishedCommands = ref([])
+      let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
+        publishedCommands := Array.concat(publishedCommands.contents, cmds)
+      }
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
+      let cmd = publishedCommands.contents->Array.getUnsafe(0)
+      expect(cmd.meta.service)->toBe("ConfirmPayment")
+    })
+
     testPromise("Error marks item as Failed with incremented retryCount", async () => {
       ProcessPaymentSpec.translateFn := (async (_id, _item) => Error("gateway timeout"))
 
       CommandBackCallback.phase1([("evt", PaymentReceived({orderId: "ord-1", amount: 50.0}))])
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async _cmds => ()
-      await CommandBackCallback.phase2(mockPublish)
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
 
       let row = CommandBackCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow
       expect(row.status)->toBe(Failed)
@@ -118,7 +134,7 @@ describe("OutboundTranslationSlice Callback", () => {
       ProcessPaymentSpec.translateFn := (async (_id, _item) => Error("timeout"))
       CommandBackCallback.phase1([("evt", PaymentReceived({orderId: "ord-1", amount: 50.0}))])
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async _cmds => ()
-      await CommandBackCallback.phase2(mockPublish)
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
       let row1 = CommandBackCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow
       expect(row1.retryCount)->toBe(1)
 
@@ -129,7 +145,7 @@ describe("OutboundTranslationSlice Callback", () => {
       let successPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
         publishedCommands := cmds
       }
-      await CommandBackCallback.phase2(successPublish)
+      await CommandBackCallback.phase2(successPublish, ~capabilities=Reventless.Capabilities.none)
       expect(publishedCommands.contents->Array.length)->toBe(1)
       let row2 = CommandBackCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow
       expect(row2.status)->toBe(Completed)
@@ -142,8 +158,8 @@ describe("OutboundTranslationSlice Callback", () => {
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async _cmds => ()
 
       // Fail twice
-      await CommandBackCallback.phase2(mockPublish)
-      await CommandBackCallback.phase2(mockPublish)
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
       let row = CommandBackCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow
       expect(row.retryCount)->toBe(2)
 
@@ -152,7 +168,7 @@ describe("OutboundTranslationSlice Callback", () => {
       let trackPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
         publishedCommands := cmds
       }
-      await CommandBackCallback.phase2(trackPublish)
+      await CommandBackCallback.phase2(trackPublish, ~capabilities=Reventless.Capabilities.none)
       expect(publishedCommands.contents->Array.length)->toBe(0)
       let row2 = CommandBackCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow
       // retryCount should still be 2 — not retried
@@ -178,7 +194,7 @@ describe("OutboundTranslationSlice Callback", () => {
       let mockPublish: ReventlessInfra.CommandTopic.publishJsons = async cmds => {
         publishedCommands := Array.concat(publishedCommands.contents, cmds)
       }
-      await CommandBackCallback.phase2(mockPublish)
+      await CommandBackCallback.phase2(mockPublish, ~capabilities=Reventless.Capabilities.none)
 
       // ord-1 should be Failed, ord-2 should be Completed
       let row1 = CommandBackCallback.todoItems->Dict.get("ord-1")->Option.getOrThrow

package/tests/components/outboundtranslationslice/OutboundTranslationSliceCallbackTest.res.mjs

@@ -2,6 +2,7 @@
 
 import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Capabilities$Reventless from "@reventlessdev/reventless-spec/src/semantic/Capabilities.res.mjs";
 import * as OutboundTranslationSliceFixtures$ReventlessLocal from "./OutboundTranslationSliceFixtures.res.mjs";
 import * as OutboundTranslationSlice_Callback$ReventlessCore from "@reventlessdev/reventless-core/src/components/OutboundTranslationSlice/OutboundTranslationSlice_Callback.res.mjs";
 
@@ -145,7 +146,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
       let mockPublish = async cmds => {
         publishedCommands.contents = cmds;
       };
-      await FireForgetCallback.phase2(mockPublish);
+      await FireForgetCallback.phase2(mockPublish, Capabilities$Reventless.none);
       globalThis.expect(publishedCommands.contents.length).toBe(0);
       let row = Stdlib_Option.getOrThrow(FireForgetCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row.status).toBe("Completed");
@@ -157,7 +158,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
       let mockPublish = async cmds => {
         publishedCommands.contents = cmds;
       };
-      await FireForgetCallback.phase2(mockPublish);
+      await FireForgetCallback.phase2(mockPublish, Capabilities$Reventless.none);
       globalThis.expect(publishedCommands.contents.length).toBe(0);
     });
   });
@@ -177,13 +178,32 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
       let mockPublish = async cmds => {
         publishedCommands.contents = publishedCommands.contents.concat(cmds);
       };
-      await CommandBackCallback.phase2(mockPublish);
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
       globalThis.expect(publishedCommands.contents.length).toBe(1);
       let cmd = publishedCommands.contents[0];
       globalThis.expect(cmd.id).toBe("ord-1");
       let row = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row.status).toBe("Completed");
     });
+    globalThis.test("published command is tagged with the target's name", async () => {
+      CommandBackCallback.phase1([[
+          "evt",
+          {
+            TAG: "PaymentReceived",
+            orderId: "ord-1",
+            amount: 50.0
+          }
+        ]]);
+      let publishedCommands = {
+        contents: []
+      };
+      let mockPublish = async cmds => {
+        publishedCommands.contents = publishedCommands.contents.concat(cmds);
+      };
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
+      let cmd = publishedCommands.contents[0];
+      globalThis.expect(cmd.meta.service).toBe("ConfirmPayment");
+    });
     globalThis.test("Error marks item as Failed with incremented retryCount", async () => {
       OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.translateFn.contents = async (_id, _item) => ({
         TAG: "Error",
@@ -198,7 +218,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
           }
         ]]);
       let mockPublish = async _cmds => {};
-      await CommandBackCallback.phase2(mockPublish);
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
       let row = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row.status).toBe("Failed");
       globalThis.expect(row.retryCount).toBe(1);
@@ -217,7 +237,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
           }
         ]]);
       let mockPublish = async _cmds => {};
-      await CommandBackCallback.phase2(mockPublish);
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
       let row1 = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row1.retryCount).toBe(1);
       OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.translateFn.contents = async (id, _item) => ({
@@ -236,7 +256,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
       let successPublish = async cmds => {
         publishedCommands.contents = cmds;
       };
-      await CommandBackCallback.phase2(successPublish);
+      await CommandBackCallback.phase2(successPublish, Capabilities$Reventless.none);
       globalThis.expect(publishedCommands.contents.length).toBe(1);
       let row2 = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row2.status).toBe("Completed");
@@ -255,8 +275,8 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
           }
         ]]);
       let mockPublish = async _cmds => {};
-      await CommandBackCallback.phase2(mockPublish);
-      await CommandBackCallback.phase2(mockPublish);
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
       let row = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row.retryCount).toBe(2);
       let publishedCommands = {
@@ -265,7 +285,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
       let trackPublish = async cmds => {
         publishedCommands.contents = cmds;
       };
-      await CommandBackCallback.phase2(trackPublish);
+      await CommandBackCallback.phase2(trackPublish, Capabilities$Reventless.none);
       globalThis.expect(publishedCommands.contents.length).toBe(0);
       let row2 = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row2.retryCount).toBe(2);
@@ -318,7 +338,7 @@ globalThis.describe("OutboundTranslationSlice Callback", () => {
       let mockPublish = async cmds => {
         publishedCommands.contents = publishedCommands.contents.concat(cmds);
       };
-      await CommandBackCallback.phase2(mockPublish);
+      await CommandBackCallback.phase2(mockPublish, Capabilities$Reventless.none);
       let row1 = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-1"], undefined);
       globalThis.expect(row1.status).toBe("Failed");
       let row2 = Stdlib_Option.getOrThrow(CommandBackCallback.todoItems["ord-2"], undefined);

package/tests/components/outboundtranslationslice/OutboundTranslationSliceFixtures.res

@@ -35,7 +35,7 @@ module SendTrackingEmailSpec = {
     | OrderShipped({orderId, email}) => [(orderId, {orderId, email})]
     }
 
-  let translate = async (_id, _item) => Ok(None)
+  let translate = async (_id, _item, ~capabilities as _) => Ok(None)
 
   let maxRetries = 3
   let heartbeatInterval = 60
@@ -72,7 +72,10 @@ module ProcessPaymentSpec = {
     async (id, _item) => Ok(Some((id, ConfirmPayment({orderId: id}))))
   )
 
-  let translate = (id, item) => translateFn.contents(id, item)
+  // The mock stays two-arg: a test that wants to vary behaviour varies it on
+  // the item, and threading capabilities into every fixture would make each
+  // one restate a type it does not use.
+  let translate = (id, item, ~capabilities as _) => translateFn.contents(id, item)
 
   let maxRetries = 2
   let heartbeatInterval = 30

package/tests/components/outboundtranslationslice/OutboundTranslationSliceFixtures.res.mjs

@@ -47,7 +47,7 @@ function collect(event, param) {
     ]];
 }
 
-async function translate(_id, _item) {
+async function translate(_id, _item, param) {
   return {
     TAG: "Ok",
     _0: undefined
@@ -113,7 +113,7 @@ let translateFn = {
   })
 };
 
-function translate$1(id, item) {
+function translate$1(id, item, param) {
   return translateFn.contents(id, item);
 }
 

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res

@@ -107,7 +107,7 @@ module SendConfirmTranslation: OutboundTranslationSlice.Translation
       [(orderId, ({orderId: orderId}: SendConfirmSpec.outboundItem))]
     }
 
-  let translate = async (_id, item: SendConfirmSpec.outboundItem) => {
+  let translate = async (_id, item: SendConfirmSpec.outboundItem, ~capabilities as _) => {
     externalCalls->Array.push(item.orderId)
     Ok(None)
   }

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res.mjs

@@ -130,7 +130,7 @@ function collect(event, param) {
     ]];
 }
 
-async function translate(_id, item) {
+async function translate(_id, item, param) {
   externalCalls.push(item.orderId);
   return {
     TAG: "Ok",