@reventlessdev/reventless-aws 3.0.0-alpha.399 → 3.0.0-alpha.401

package/CHANGELOG.md

@@ -3,6 +3,30 @@
 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.401 (2026-10-29)
+
+* refactor!: drop `dcbSources`, the cross-plugin DCB subscription nobody declared ([cf3b66d](https://github.com/ReventlessDev/reventless-core/commit/cf3b66d8c1b5d87673197b64eaee174598bb8253))
+* refactor!: a read model hears another plugin only through an Extension and a slice ([15c7cae](https://github.com/ReventlessDev/reventless-core/commit/15c7cae214d5aa04404779fcd87a8429aad1965c))
+
+### BREAKING CHANGES
+
+* `Reventless.Plugin.extensionDefinition` has no `dcbSources`
+field, and `Platform_PluginExtensions.dcbSources` is gone from the GraphQL
+schema. A query that selects it fails as a whole; drop the selection.
+* `ReventlessInfra.Extension.T.make` and the core
+`Extension_Builder.make` no longer take `~readModelNamesForSourceName` and
+`~publishToReadModels`. Both arguments did nothing; drop them at the call site.
+
+
+
+# 3.0.0-alpha.400 (2026-10-25)
+
+**Note:** Version bump only for package @reventlessdev/reventless-aws
+
+
+
+
+
 # 3.0.0-alpha.399 (2026-10-25)
 
 **Note:** Version bump only for package @reventlessdev/reventless-aws

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-aws",
-  "version": "3.0.0-alpha.399",
+  "version": "3.0.0-alpha.401",
   "description": "AWS adapters for Reventless",
   "license": "Apache-2.0",
   "bin": {
@@ -23,18 +23,18 @@
     "uuid": "^13.0.0",
     "yaml": "^2.8.3",
     "@reventlessdev/rescript-aws-sdk": "3.0.0-alpha.36",
-    "@reventlessdev/rescript-node": "2.0.0-alpha.23",
+    "@reventlessdev/rescript-effect": "1.0.0-alpha.1",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.13",
+    "@reventlessdev/rescript-node": "2.0.0-alpha.23",
     "@reventlessdev/rescript-pulumi-aws": "3.0.0-alpha.34",
-    "@reventlessdev/rescript-effect": "1.0.0-alpha.1",
     "@reventlessdev/rescript-pulumi-pulumi": "3.0.0-alpha.0",
-    "@reventlessdev/rescript-web": "1.0.0-alpha.8",
     "@reventlessdev/rescript-uuid": "2.0.0-alpha.1",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.206",
-    "@reventlessdev/reventless-postgres": "3.0.0-alpha.173",
+    "@reventlessdev/rescript-web": "1.0.0-alpha.8",
+    "@reventlessdev/reventless-core": "3.0.0-alpha.311",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.208",
+    "@reventlessdev/reventless-postgres": "3.0.0-alpha.175",
     "@reventlessdev/reventless-interop": "3.0.0-alpha.42",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.177",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.309"
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.179"
   },
   "devDependencies": {
     "rescript": "12.3.1",

package/scripts/DeployApp.res

@@ -61,7 +61,7 @@ Usage: deploy-app up|down [--manifest <path>] [--stack <name>]
 Deploy an app to AWS, or remove it again.
 
   deploy-app up     Deploy the platform and every plugin, bake the component
-                    manifest, create the accounts in .reventless/users.<stack>.yaml,
+                    manifest, create the accounts in .reventless/accounts.<stack>.yaml,
                     and print the web address and the sign-ins.
   deploy-app down   Remove every stack, and the Lambda layer and SSM parameter
                     \`up\` created.
@@ -495,12 +495,23 @@ let outputString = (outputs: dict<Automation.outputValue>, name: string): option
 /** The stack's own accounts file beside the platform, started from the app's
     template, or `None` when the app has no template — then there is nothing to
     create. Per stack because the file records the ids one pool minted: sharing
-    `users.yaml` would overwrite another deployment's record of its accounts. */
-let accountsFileName = stack => `users.${stack}.yaml`
+    `accounts.yaml` would overwrite another deployment's record of its accounts. A stack deployed
+    before the file was renamed keeps its `users.<stack>.yaml` until it is renamed. */
+let accountsFileName = stack => `accounts.${stack}.yaml`
+let oldAccountsFileName = stack => `users.${stack}.yaml`
 
 let accountsFile = (~platformDir: string, ~stack: string): option<string> => {
-  let file = NodePath.join([platformDir, ".reventless", accountsFileName(stack)])
-  let template = NodePath.join([platformDir, Manifest.templateName])
+  let file = {
+    let current = NodePath.join([platformDir, ".reventless", accountsFileName(stack)])
+    let old = NodePath.join([platformDir, ".reventless", oldAccountsFileName(stack)])
+    if !NodeFs.existsSync(current) && NodeFs.existsSync(old) {
+      Manifest.noticeOldName(old)
+      old
+    } else {
+      current
+    }
+  }
+  let template = Manifest.templateIn(platformDir)
   switch (NodeFs.existsSync(file), NodeFs.existsSync(template)) {
   | (false, false) => None
   | (true, _) => Some(file)

package/scripts/DeployApp.res.mjs

@@ -87,7 +87,7 @@ Usage: deploy-app up|down [--manifest <path>] [--stack <name>]
 Deploy an app to AWS, or remove it again.
 
   deploy-app up     Deploy the platform and every plugin, bake the component
-                    manifest, create the accounts in .reventless/users.<stack>.yaml,
+                    manifest, create the accounts in .reventless/accounts.<stack>.yaml,
                     and print the web address and the sign-ins.
   deploy-app down   Remove every stack, and the Lambda layer and SSM parameter
                     \`up\` created.
@@ -611,12 +611,18 @@ function outputString(outputs, name) {
 }
 
 function accountsFileName(stack) {
+  return `accounts.` + stack + `.yaml`;
+}
+
+function oldAccountsFileName(stack) {
   return `users.` + stack + `.yaml`;
 }
 
 function accountsFile(platformDir, stack) {
-  let file = Nodepath.join(platformDir, ".reventless", accountsFileName(stack));
-  let template = Nodepath.join(platformDir, AccountsManifest$Reventless.templateName);
+  let current = Nodepath.join(platformDir, ".reventless", accountsFileName(stack));
+  let old = Nodepath.join(platformDir, ".reventless", oldAccountsFileName(stack));
+  let file = !Nodefs.existsSync(current) && Nodefs.existsSync(old) ? (AccountsManifest$Reventless.noticeOldName(old), old) : current;
+  let template = AccountsManifest$Reventless.templateIn(platformDir);
   let match = Nodefs.existsSync(file);
   let match$1 = Nodefs.existsSync(template);
   if (match) {
@@ -946,6 +952,7 @@ export {
   deploy,
   outputString,
   accountsFileName,
+  oldAccountsFileName,
   accountsFile,
   signInLines,
   up,

package/scripts/ProvisionAccounts.res

@@ -17,7 +17,7 @@ one alone is enough.
 pnpm exec provision-accounts
 ```
 
-It reads `.reventless/users.yaml`, and knows nothing about any particular
+It reads `.reventless/accounts.yaml`, and knows nothing about any particular
 application's cast: the manifest belongs to whoever is deploying. A demo's four
 roles and a company's twelve staff are the same run. Which pool it writes to is
 [ProvisionProvider]'s question, and usually needs no argument either.
@@ -76,7 +76,7 @@ Turn a declared cast of accounts into working sign-ins.
                        created the pool or was handed one.
   --stack <name>       Read that output from this stack instead of the selected
                        one. The run always names the stack it used.
-  --file <path>        The manifest. Defaults to .reventless/users.yaml relative
+  --file <path>        The manifest. Defaults to .reventless/accounts.yaml relative
                        to the working directory, which is where both platforms
                        keep it.
 

package/scripts/ProvisionAccounts.res.mjs

@@ -39,7 +39,7 @@ Turn a declared cast of accounts into working sign-ins.
                        created the pool or was handed one.
   --stack <name>       Read that output from this stack instead of the selected
                        one. The run always names the stack it used.
-  --file <path>        The manifest. Defaults to .reventless/users.yaml relative
+  --file <path>        The manifest. Defaults to .reventless/accounts.yaml relative
                        to the working directory, which is where both platforms
                        keep it.
 

package/scripts/ProvisionAdmin.res

@@ -198,7 +198,7 @@ ${passwordNote}
 This script bootstraps the first account only, which is the one that cannot be
 made through a signed-in session because there is no signed-in session yet. The
 rest of the cast is a list rather than a command: declare it in
-.reventless/users.yaml and run \`pnpm exec provision-accounts\`.`
+.reventless/accounts.yaml and run \`pnpm exec provision-accounts\`.`
 
 type request = {email: string, providerId?: string, stack?: string}
 

package/scripts/ProvisionAdmin.res.mjs

@@ -119,7 +119,7 @@ The first administrator is ready.
 This script bootstraps the first account only, which is the one that cannot be
 made through a signed-in session because there is no signed-in session yet. The
 rest of the cast is a list rather than a command: declare it in
-.reventless/users.yaml and run \`pnpm exec provision-accounts\`.`;
+.reventless/accounts.yaml and run \`pnpm exec provision-accounts\`.`;
 }
 
 function parseRequest(argv) {

package/src/adapter/Identity/IdentityProvider_Cognito_Backend.res

@@ -1,7 +1,7 @@
 // The identity provider a deployed platform provisions: principals in its
 // Cognito pool, and each new one's domain id in the identity store the pool's
 // pre-token trigger reads. The AWS counterpart of the local platform's
-// `Capability_IdentityProvider_UserStore`, and reached the same way — on the
+// `Capability_IdentityProvider_AccountStore`, and reached the same way — on the
 // capability record a slice's `translate` receives.
 //
 // Pulumi-free so it ships in the slice Lambda. The pool calls go through an

package/src/adapter/Runtime/EventCollectorEntryPoint.mjs

@@ -42,16 +42,12 @@
 //       "mappingsModule":     string,          // dynamic import for the user extension file (`module Mapping`)
 //       "delegateModule":     string,          // dynamic import for the Delegate spec (aggregate / slice)
 //       "extensionPointName": string,          // service key for incomingExtensionEventHandlers (e.g. "Ordering.Orders")
-//       "aggregateNames":     string[],        // outgoing service keys + filter into top-level publishToAggregates
-//       "readModelNames":     string[]         // RMs this extension may enqueue events into (filter into readModelQueueUrls)
+//       "aggregateNames":     string[]         // outgoing service keys + filter into top-level publishToAggregates
 //     }
-//   ],
-//   (publishToAggregates / readModelQueueUrls moved to the queueUrls.json asset —
-//    one entry per target, so they outgrew the 4KB environment. Each still maps a
-//    target name to the PTA_/PRM_ env var holding its SQS URL.)
-//   "readModelNamesForSourceName": {           // deploy-side inversion of RM.sourceNames; sourceServiceName → [rmName]
-//     "Ordering.Orders": ["ProductDemands"]
-//   }
+//   ]
+//   (publishToAggregates moved to the queueUrls.json asset — one entry per
+//    target, so it outgrew the 4KB environment. It maps a target name to the
+//    PTA_ env var holding its SQS URL.)
 // }
 //
 // Why this shape and not separate entry points per Lambda: at deploy time both the
@@ -187,8 +183,6 @@ async function buildHandler() {
     const ops = extensionOperationsMake(specMod)(extBuilder.ConnectPluginMappings)({
       publishToAggregates,
       publishToPluginExtensionPoint,
-      readModelNamesForSourceName: {},
-      publishToReadModels: {},
       queryEngine,
     });
     connectExtensionHandler = {
@@ -229,12 +223,10 @@ async function buildHandler() {
       mappings: [transformedMapping],
     };
 
-    const dicts = Ops.extensionPublishDicts(config, queueUrlNames, ext);
+    const dicts = Ops.extensionPublishDicts(queueUrlNames, ext);
     const ops = extensionOperationsMake(epSpec)(mappingsModule)({
       publishToAggregates: dicts.publishToAggregates,
       publishToPluginExtensionPoint,
-      readModelNamesForSourceName: dicts.readModelNamesForSourceName,
-      publishToReadModels: dicts.publishToReadModels,
       queryEngine,
     });
 

package/src/adapter/Runtime/EventCollectorEntryPoint_Ops.res

@@ -61,15 +61,6 @@ external scanByTableName: (
 let exnMessage = (exn: exn): string =>
   exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("unknown error")
 
-// ── Absent-field normalization ──────────────────────────────────────────────
-// pluginDefinition's optionals omit the key, so a plain JSON.parse (not a sury
-// parse) yields `undefined` and ReScript reads it as None unaided. Kept because
-// the same records also arrive from stores and peers written when an absent
-// field was `null`, which ReScript's option would misread as Some.
-
-external optionAsNullable: option<'a> => Nullable.t<'a> = "%identity"
-let jsOption = (v: option<'a>): option<'a> => v->optionAsNullable->Nullable.toOption
-
 // ── HANDLER_CONFIG ──────────────────────────────────────────────────────────
 // Written by PluginRuntime_Builder.forPluginEventCollector; the field-by-field
 // schema is documented in EventCollectorEntryPoint.mjs. Explicitly decoded (no
@@ -94,7 +85,6 @@ type extensionConfig = {
   delegateModule: string,
   extensionPointName: string,
   aggregateNames: array<string>,
-  readModelNames: array<string>,
 }
 type handlerConfig = {
   queueUrl: string,
@@ -108,17 +98,13 @@ type handlerConfig = {
   extensionPoints: array<extensionPointConfig>,
   connectExtension?: connectExtensionConfig,
   extensions: array<extensionConfig>,
-  readModelNamesForSourceName: dict<array<string>>,
 }
 
-// The target→env-var maps that used to ride HANDLER_CONFIG, now read from
+// The target→env-var map that used to ride HANDLER_CONFIG, now read from
 // queueUrls.json (PluginRuntime_Builder). Values are env var NAMES, not URLs —
 // the URLs stay in the environment because the builder cannot resolve those
 // Outputs in bulk.
-type queueUrlNames = {
-  publishToAggregates: dict<string>,
-  readModelQueueUrls: dict<string>,
-}
+type queueUrlNames = {publishToAggregates: dict<string>}
 
 let strOf = (obj: dict<JSON.t>, key: string): option<string> =>
   obj->Dict.get(key)->Option.flatMap(JSON.Decode.string)
@@ -196,7 +182,6 @@ let parseHandlerConfig = (rawJson: string): handlerConfig => {
           delegateModule: ext->strOf("delegateModule")->Option.getOr(""),
           extensionPointName,
           aggregateNames: ext->strArrOf("aggregateNames"),
-          readModelNames: ext->strArrOf("readModelNames"),
         }
       })
     )
@@ -211,17 +196,6 @@ let parseHandlerConfig = (rawJson: string): handlerConfig => {
       mappingsModule: ce->strOf("mappingsModule")->Option.getOr(""),
       extensionPointName: ce->strOf("extensionPointName")->Option.getOr(""),
     })
-  let readModelNamesForSourceName =
-    obj
-    ->Dict.get("readModelNamesForSourceName")
-    ->Option.flatMap(JSON.Decode.object)
-    ->Option.getOr(Dict.make())
-    ->Dict.toArray
-    ->Array.map(((k, v)) => (
-      k,
-      v->JSON.Decode.array->Option.getOr([])->Array.filterMap(JSON.Decode.string),
-    ))
-    ->Dict.fromArray
   {
     queueUrl: obj->strOf("queueUrl")->Option.getOr(""),
     pluginExtensionPointCmdTopicUrl: obj
@@ -236,7 +210,6 @@ let parseHandlerConfig = (rawJson: string): handlerConfig => {
     extensionPoints,
     ?connectExtension,
     extensions,
-    readModelNamesForSourceName,
   }
 }
 
@@ -253,7 +226,6 @@ type pluginProjection = {
   eventCollector: string,
   extensions: array<Reventless.Plugin.extensionDefinition>,
   extensionPoints: array<Reventless.Plugin.extensionPointDefinition>,
-  dcbEventLog?: Reventless.Plugin.dcbEventLogDefinition,
 }
 
 let projectPluginRow = (row: JSON.t): option<pluginProjection> =>
@@ -262,17 +234,6 @@ let projectPluginRow = (row: JSON.t): option<pluginProjection> =>
   | Some(obj) =>
     switch (obj->strOf("id"), obj->strOf("status")) {
     | (Some(id), Some(status)) =>
-      let dcbEventLog =
-        obj
-        ->Dict.get("dcbEventLog")
-        ->Option.flatMap(JSON.Decode.object)
-        ->Option.flatMap(d =>
-          switch (d->strOf("name"), d->strOf("eventTopicArn")) {
-          | (Some(name), Some(eventTopicArn)) =>
-            Some(({name, eventTopicArn}: Reventless.Plugin.dcbEventLogDefinition))
-          | _ => None
-          }
-        )
       let extensions =
         obj
         ->Dict.get("extensions")
@@ -288,7 +249,6 @@ let projectPluginRow = (row: JSON.t): option<pluginProjection> =>
               (extensionPointName): Reventless.Plugin.extensionDefinition => {
                 name: eo->strOf("name")->Option.getOr(""),
                 extensionPointName,
-                dcbSources: eo->strArrOf("dcbSources"),
               },
             )
           )
@@ -323,30 +283,26 @@ let projectPluginRow = (row: JSON.t): option<pluginProjection> =>
         eventCollector: obj->strOf("eventCollector")->Option.getOr(""),
         extensions,
         extensionPoints,
-        ?dcbEventLog,
       })
     | _ => None
     }
   }
 
 // A pluginDefinition viewed as a projection (the manage logic reads only the
-// shared subset; `status` is never read for the acting plugin). Array/option
-// fields stay normalized: a definition arriving over the wire, rather than from
-// loadPluginDefinition's decode, may still carry null for an absent field.
+// shared subset; `status` is never read for the acting plugin).
 let projectionOfDefinition = (d: Reventless.Plugin.pluginDefinition): pluginProjection => {
   id: d.id,
   status: "",
   eventCollector: d.eventCollector,
   extensions: d.extensions,
   extensionPoints: d.extensionPoints,
-  dcbEventLog: ?(d.dcbEventLog->jsOption),
 }
 
 // ── Cross-plugin SNS subscription manager ───────────────────────────────────
 // When DoConnectPlugin / DoDisconnectPlugin fires on the admin EP mapping, scan
 // the Plugin RM for currently-Connected peers and wire (or tear down) SNS
 // subscriptions between this plugin's EventCollector queue and peer plugins'
-// EP/DCB event topics — in both directions. subscribeQueueToTopic is idempotent
+// EP event topics — in both directions. subscribeQueueToTopic is idempotent
 // (lists existing subscriptions first); unsubscribeQueueFromTopic is
 // best-effort. Failures are logged but do not throw — admin's RM projection
 // still proceeds and cold-start reconciliation re-attempts missed work.
@@ -453,50 +409,6 @@ let makeManageSubscriptions = (tableName: string): option<
                 }
               }
             }
-            // DCB sources this plugin's extensions consume: owning peer's DCB
-            // EventTopic → this EC queue.
-            for i in 0 to pluginDef.extensions->Array.length - 1 {
-              let ext = pluginDef.extensions->Array.getUnsafe(i)
-              for j in 0 to ext.dcbSources->Array.length - 1 {
-                let dcbSourceName = ext.dcbSources->Array.getUnsafe(j)
-                switch peers->Array.find(p =>
-                  switch p.dcbEventLog {
-                  | Some(l) => l.name == dcbSourceName
-                  | None => false
-                  }
-                ) {
-                | Some(peer) =>
-                  switch peer.dcbEventLog {
-                  | Some(l) =>
-                    await op(
-                      pluginDef.eventCollector,
-                      l.eventTopicArn,
-                      `dcb ${dcbSourceName} -> ${pluginDef.id}`,
-                    )
-                  | None => ()
-                  }
-                | None => ()
-                }
-              }
-            }
-            // If THIS plugin has a DCB EventLog: its topic → each consuming
-            // peer's EC queue.
-            switch pluginDef.dcbEventLog {
-            | Some(myDcb) =>
-              for j in 0 to peers->Array.length - 1 {
-                let peer = peers->Array.getUnsafe(j)
-                let consuming =
-                  peer.extensions->Array.some(e => e.dcbSources->Array.includes(myDcb.name))
-                if consuming {
-                  await op(
-                    peer.eventCollector,
-                    myDcb.eventTopicArn,
-                    `dcb ${myDcb.name} -> ${peer.id}`,
-                  )
-                }
-              }
-            | None => ()
-            }
           }
         },
       )
@@ -630,20 +542,12 @@ let buildPublishToAggregates = (map: dict<string>): dict<
   ))
   ->Dict.fromArray
 
-// Per-extension publish dicts, filtered to the extension's declared aggregate /
-// read-model names; entries with no env-var mapping or an empty URL are skipped
-// (same as the former JS `continue`s).
-type extensionDicts = {
-  publishToAggregates: dict<ReventlessCore.CommandTopic.publishJsons>,
-  publishToReadModels: dict<ReventlessCore.CommandTopic.publishJsons>,
-  readModelNamesForSourceName: dict<array<string>>,
-}
+// Per-extension publish dict, filtered to the extension's declared aggregate
+// names; entries with no env-var mapping or an empty URL are skipped (same as
+// the former JS `continue`s).
+type extensionDicts = {publishToAggregates: dict<ReventlessCore.CommandTopic.publishJsons>}
 
-let extensionPublishDicts = (
-  config: handlerConfig,
-  names: queueUrlNames,
-  ext: extensionConfig,
-): extensionDicts => {
+let extensionPublishDicts = (names: queueUrlNames, ext: extensionConfig): extensionDicts => {
   let resolve = (names: array<string>, envVarNames: dict<string>) =>
     names
     ->Array.filterMap(name =>
@@ -654,18 +558,7 @@ let extensionPublishDicts = (
       ->Option.map(queueUrl => (name, makePublishJsons(queueUrl)))
     )
     ->Dict.fromArray
-  {
-    publishToAggregates: resolve(ext.aggregateNames, names.publishToAggregates),
-    publishToReadModels: resolve(ext.readModelNames, names.readModelQueueUrls),
-    // Scoped to this extension's EP — Extension_Operations uses this dict to
-    // decide which RMs receive each incoming event.
-    readModelNamesForSourceName: Dict.fromArray([
-      (
-        ext.extensionPointName,
-        config.readModelNamesForSourceName->Dict.get(ext.extensionPointName)->Option.getOr([]),
-      ),
-    ]),
-  }
+  {publishToAggregates: resolve(ext.aggregateNames, names.publishToAggregates)}
 }
 
 let warnSkippedExtension = (ext: extensionConfig) =>
@@ -702,8 +595,8 @@ let loadPluginDefinition = (): Reventless.Plugin.pluginDefinition =>
     )
   }
 
-// The target→env-var maps, read once at cold start. A plugin that publishes
-// nowhere writes empty maps rather than omitting the file, so a read failure is
+// The target→env-var map, read once at cold start. A plugin that publishes
+// nowhere writes an empty map rather than omitting the file, so a read failure is
 // a genuinely broken archive and not an empty-map case worth guessing at.
 let loadQueueUrlNames = (): queueUrlNames =>
   try {
@@ -713,10 +606,7 @@ let loadQueueUrlNames = (): queueUrlNames =>
       ->JSON.parseOrThrow
       ->JSON.Decode.object
       ->Option.getOr(Dict.make())
-    {
-      publishToAggregates: obj->strDictOf("publishToAggregates"),
-      readModelQueueUrls: obj->strDictOf("readModelQueueUrls"),
-    }
+    {publishToAggregates: obj->strDictOf("publishToAggregates")}
   } catch {
   | exn =>
     JsError.throwWithMessage("Failed to load queueUrls.json from asset zip: " ++ exnMessage(exn))

package/src/adapter/Runtime/EventCollectorEntryPoint_Ops.res.mjs

@@ -7,7 +7,6 @@ import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
-import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
 import * as SNS_Helpers$AwsSdk from "@reventlessdev/rescript-aws-sdk/src/SNS_Helpers.res.mjs";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
@@ -64,14 +63,6 @@ function exnMessage(exn) {
   return Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown error");
 }
 
-function jsOption(v) {
-  if (v == null) {
-    return;
-  } else {
-    return Primitive_option.some(v);
-  }
-}
-
 function strOf(obj, key) {
   return Stdlib_Option.flatMap(obj[key], Stdlib_JSON.Decode.string);
 }
@@ -135,8 +126,7 @@ function parseHandlerConfig(rawJson) {
         mappingsModule: Stdlib_Option.getOr(strOf(ext, "mappingsModule"), ""),
         delegateModule: Stdlib_Option.getOr(strOf(ext, "delegateModule"), ""),
         extensionPointName: extensionPointName,
-        aggregateNames: strArrOf(ext, "aggregateNames"),
-        readModelNames: strArrOf(ext, "readModelNames")
+        aggregateNames: strArrOf(ext, "aggregateNames")
       };
     })) : Stdlib_JsError.throwWithMessage("HANDLER_CONFIG.extensions must be an array");
   let connectExtension = Stdlib_Option.map(Stdlib_Option.flatMap(obj["connectExtension"], Stdlib_JSON.Decode.object), ce => ({
@@ -144,10 +134,6 @@ function parseHandlerConfig(rawJson) {
     mappingsModule: Stdlib_Option.getOr(strOf(ce, "mappingsModule"), ""),
     extensionPointName: Stdlib_Option.getOr(strOf(ce, "extensionPointName"), "")
   }));
-  let readModelNamesForSourceName = Object.fromEntries(Object.entries(Stdlib_Option.getOr(Stdlib_Option.flatMap(obj["readModelNamesForSourceName"], Stdlib_JSON.Decode.object), {})).map(param => [
-    param[0],
-    Stdlib_Array.filterMap(Stdlib_Option.getOr(Stdlib_JSON.Decode.array(param[1]), []), Stdlib_JSON.Decode.string)
-  ]));
   return {
     queueUrl: Stdlib_Option.getOr(strOf(obj, "queueUrl"), ""),
     pluginExtensionPointCmdTopicUrl: Stdlib_Option.getOr(strOf(obj, "pluginExtensionPointCmdTopicUrl"), ""),
@@ -159,8 +145,7 @@ function parseHandlerConfig(rawJson) {
     schedulerQueueName: Stdlib_Option.getOr(strOf(obj, "schedulerQueueName"), ""),
     extensionPoints: extensionPoints,
     connectExtension: connectExtension,
-    extensions: extensions,
-    readModelNamesForSourceName: readModelNamesForSourceName
+    extensions: extensions
   };
 }
 
@@ -177,20 +162,9 @@ function projectPluginRow(row) {
   if (match$1 === undefined) {
     return;
   }
-  let dcbEventLog = Stdlib_Option.flatMap(Stdlib_Option.flatMap(obj["dcbEventLog"], Stdlib_JSON.Decode.object), d => {
-    let match = strOf(d, "name");
-    let match$1 = strOf(d, "eventTopicArn");
-    if (match !== undefined && match$1 !== undefined) {
-      return {
-        name: match,
-        eventTopicArn: match$1
-      };
-    }
-  });
   let extensions = Stdlib_Array.filterMap(Stdlib_Option.getOr(Stdlib_Option.flatMap(obj["extensions"], Stdlib_JSON.Decode.array), []), e => Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(e), eo => Stdlib_Option.map(strOf(eo, "extensionPointName"), extensionPointName => ({
     name: Stdlib_Option.getOr(strOf(eo, "name"), ""),
-    extensionPointName: extensionPointName,
-    dcbSources: strArrOf(eo, "dcbSources")
+    extensionPointName: extensionPointName
   }))));
   let extensionPoints = Stdlib_Array.filterMap(Stdlib_Option.getOr(Stdlib_Option.flatMap(obj["extensionPoints"], Stdlib_JSON.Decode.array), []), ep => Stdlib_Option.flatMap(Stdlib_JSON.Decode.object(ep), epo => {
     let match = strOf(epo, "name");
@@ -208,8 +182,7 @@ function projectPluginRow(row) {
     status: match$1,
     eventCollector: Stdlib_Option.getOr(strOf(obj, "eventCollector"), ""),
     extensions: extensions,
-    extensionPoints: extensionPoints,
-    dcbEventLog: dcbEventLog
+    extensionPoints: extensionPoints
   };
 }
 
@@ -219,8 +192,7 @@ function projectionOfDefinition(d) {
     status: "",
     eventCollector: d.eventCollector,
     extensions: d.extensions,
-    extensionPoints: d.extensionPoints,
-    dcbEventLog: Primitive_option.fromNullable(d.dcbEventLog)
+    extensionPoints: d.extensionPoints
   };
 }
 
@@ -334,37 +306,6 @@ function makeManageSubscriptions(tableName) {
           }
         }
       }
-      for (let i$2 = 0, i_finish$2 = pluginDef.extensions.length; i$2 < i_finish$2; ++i$2) {
-        let ext$1 = pluginDef.extensions[i$2];
-        for (let j$2 = 0, j_finish$2 = ext$1.dcbSources.length; j$2 < j_finish$2; ++j$2) {
-          let dcbSourceName = ext$1.dcbSources[j$2];
-          let peer$2 = peers.find(p => {
-            let l = p.dcbEventLog;
-            if (l !== undefined) {
-              return l.name === dcbSourceName;
-            } else {
-              return false;
-            }
-          });
-          if (peer$2 !== undefined) {
-            let l = peer$2.dcbEventLog;
-            if (l !== undefined) {
-              await op(pluginDef.eventCollector, l.eventTopicArn, `dcb ` + dcbSourceName + ` -> ` + pluginDef.id);
-            }
-          }
-        }
-      }
-      let myDcb = pluginDef.dcbEventLog;
-      if (myDcb === undefined) {
-        return;
-      }
-      for (let j$3 = 0, j_finish$3 = peers.length; j$3 < j_finish$3; ++j$3) {
-        let peer$3 = peers[j$3];
-        let consuming = peer$3.extensions.some(e => e.dcbSources.includes(myDcb.name));
-        if (consuming) {
-          await op(peer$3.eventCollector, myDcb.eventTopicArn, `dcb ` + myDcb.name + ` -> ` + peer$3.id);
-        }
-      }
     };
   }
 }
@@ -494,18 +435,13 @@ function buildPublishToAggregates(map) {
   ]));
 }
 
-function extensionPublishDicts(config, names, ext) {
+function extensionPublishDicts(names, ext) {
   let resolve = (names, envVarNames) => Object.fromEntries(Stdlib_Array.filterMap(names, name => Stdlib_Option.map(Stdlib_Option.filter(Stdlib_Option.flatMap(envVarNames[name], envVarName => process.env[envVarName]), queueUrl => queueUrl !== ""), queueUrl => [
     name,
     makePublishJsons(queueUrl)
   ])));
   return {
-    publishToAggregates: resolve(ext.aggregateNames, names.publishToAggregates),
-    publishToReadModels: resolve(ext.readModelNames, names.readModelQueueUrls),
-    readModelNamesForSourceName: Object.fromEntries([[
-        ext.extensionPointName,
-        Stdlib_Option.getOr(config.readModelNamesForSourceName[ext.extensionPointName], [])
-      ]])
+    publishToAggregates: resolve(ext.aggregateNames, names.publishToAggregates)
   };
 }
 
@@ -532,8 +468,7 @@ function loadQueueUrlNames() {
   try {
     let obj = Stdlib_Option.getOr(Stdlib_JSON.Decode.object(JSON.parse(Nodefs.readFileSync(assetPath("queueUrls.json"), "utf8"))), {});
     return {
-      publishToAggregates: strDictOf(obj, "publishToAggregates"),
-      readModelQueueUrls: strDictOf(obj, "readModelQueueUrls")
+      publishToAggregates: strDictOf(obj, "publishToAggregates")
     };
   } catch (raw_exn) {
     let exn = Primitive_exceptions.internalToException(raw_exn);
@@ -632,7 +567,6 @@ export {
   logError,
   scanByTableName,
   exnMessage,
-  jsOption,
   strOf,
   strArrOf,
   strDictOf,

package/src/adapter/Runtime/RuntimeEnvironment_Lambda.res

@@ -15,11 +15,11 @@ let additionalIamPolicies: array<iamPolicy> = []
 
 // CallbackFunction path — the last serialized-closure Lambda builder on AWS.
 //
-// REACHABLE, despite most deployments going through makeFromCodeAsset. Three
+// REACHABLE, despite most deployments going through makeFromCodeAsset. Two
 // component builders instantiate ReventlessCore.EventCollectorRuntime_Builder_
-// PerEventCollector.Make over this module — ForeignReadModel_Builder,
-// SideEffectHandler_PerSideEffectHandler and Task_Builder_PerBucket — and that
-// functor's forEventCollector calls `make` below. The live route is a Task whose
+// PerEventCollector.Make over this module — SideEffectHandler_PerSideEffectHandler
+// and Task_Builder_PerBucket — and that functor's forEventCollector calls `make`
+// below. The live route is a Task whose
 // spec returns `Task.sideEffects`: Task_Builder then constructs a
 // SideEffectHandler, which provisions its collector Lambda here.
 //
@@ -29,7 +29,7 @@ let additionalIamPolicies: array<iamPolicy> = []
 // where an ordering-aws deploy came up four Lambdas short). Where it does
 // serialize, it then resolves @aws-sdk against whatever the layer and the runtime
 // each supply, carrying the cold-start SDK-skew failure compiled entry points
-// were introduced to avoid. Converting these three builders to a compiled entry
+// were introduced to avoid. Converting these two builders to a compiled entry
 // point is the fix; until then a side-effect-bearing Task is the exposed surface.
 //
 // `make` cannot simply be dropped: Runtime.Environment requires environmentMaker

package/src/plugin/runtime/PluginRuntime_Builder.res

@@ -346,8 +346,6 @@ module Make = (
       extensions: [],
       pluginExtensionPointCmdTopicUrl: Pulumi.Output.make(""),
       publishToAggregates: Dict.make(),
-      readModelQueueUrls: Dict.make(),
-      readModelNamesForSourceName: Dict.make(),
     }
   }
 
@@ -427,18 +425,6 @@ module Make = (
       envVars->Dict.set(envVarName, queueUrlOutput->Pulumi.Output.asInput)
     })
 
-    // Same indirection for ReadModel EventCollector SQS URLs — only populated
-    // when user extensions enqueue directly into RMs (Extension_Operations
-    // publishToReadModels path). Empty for the admin Lambda and for the
-    // current Orders_Extension fixture (its RM is fed via the slice EventLog →
-    // RM EventColl subscription chain instead).
-    context.readModelQueueUrls
-    ->Dict.toArray
-    ->Array.forEach(((_rmName, queueUrlOutput)) => {
-      let envVarName = `PRM_${_rmName}_QUEUE_URL`
-      envVars->Dict.set(envVarName, queueUrlOutput->Pulumi.Output.asInput)
-    })
-
     // Outgoing arrays first — resolve EP eventTopicArns, then bundle everything
     // into one Output.apply that builds the JSON.
     let epEventTopicArnsOutput =
@@ -523,8 +509,7 @@ module Make = (
       // User-declared extensions — one entry per merged extension group.
       // Each entry carries enough metadata for the bundled handler to
       // dynamic-import the spec / mapping modules and filter the top-level
-      // publishToAggregates + readModelQueueUrls maps down to the subset
-      // this extension actually uses.
+      // publishToAggregates map down to the subset this extension actually uses.
       // Sort by extension name so the serialized JSON is stable across deploys.
       let extensionsArr =
         context.extensions
@@ -540,43 +525,26 @@ module Make = (
             "aggregateNames",
             ext.aggregateNames->Array.map(JSON.Encode.string)->JSON.Encode.array,
           )
-          entryDict->Dict.set(
-            "readModelNames",
-            ext.readModelNames->Array.map(JSON.Encode.string)->JSON.Encode.array,
-          )
           JSON.Encode.object(entryDict)
         })
       dict->Dict.set("extensions", JSON.Encode.array(extensionsArr))
 
-      // publishToAggregates / readModelQueueUrls live in queueUrls.json (see the
-      // asset bundle below). Both are one entry per target, so they grow with the
-      // plugin, and together with the PTA_/PRM_ vars they name they carried the
-      // catalog EventCollector past Lambda's 4KB environment ceiling. Only the
-      // maps move: they are built from Dict.keysToArray, so they hold no Pulumi
-      // Output and can be serialized here. The URLs themselves cannot follow —
-      // see the note on the aggregate walk further down.
-
-      let rmNamesForSourceDict = Dict.make()
-      context.readModelNamesForSourceName
-      ->Dict.toArray
-      ->Array.forEach(((sourceName, rmNames)) =>
-        rmNamesForSourceDict->Dict.set(
-          sourceName,
-          rmNames->Array.map(JSON.Encode.string)->JSON.Encode.array,
-        )
-      )
-      dict->Dict.set("readModelNamesForSourceName", JSON.Encode.object(rmNamesForSourceDict))
+      // publishToAggregates lives in queueUrls.json (see the asset bundle below).
+      // It is one entry per target, so it grows with the plugin, and together with
+      // the PTA_ vars it names it carried the catalog EventCollector past Lambda's
+      // 4KB environment ceiling. Only the map moves: it is built from
+      // Dict.keysToArray, so it holds no Pulumi Output and can be serialized here.
+      // The URLs themselves cannot follow — see the note on the aggregate walk
+      // further down.
 
       let json = JSON.Encode.object(dict)->JSON.stringify
-      // The PTA_/PRM_ vars are the rest of this Lambda's environment and the
-      // half that grows with the plugin. Their names are known here; their
-      // values are still Outputs, so the budget check estimates those.
-      let queueUrlKeys = Array.concat(
+      // The PTA_ vars are the rest of this Lambda's environment and the half
+      // that grows with the plugin. Their names are known here; their values
+      // are still Outputs, so the budget check estimates those.
+      let queueUrlKeys =
         context.publishToAggregates
         ->Dict.keysToArray
-        ->Array.map(n => `PTA_${n}_QUEUE_URL`),
-        context.readModelQueueUrls->Dict.keysToArray->Array.map(n => `PRM_${n}_QUEUE_URL`),
-      )
+        ->Array.map(n => `PTA_${n}_QUEUE_URL`)
       Util_LambdaEnvBudget.check(
         ~lambdaName=name,
         ~handlerConfigJson=json,
@@ -660,10 +628,6 @@ module Make = (
           "publishToAggregates",
           nameMap(context.publishToAggregates->Dict.keysToArray, "PTA"),
         )
-        queueUrlsDict->Dict.set(
-          "readModelQueueUrls",
-          nameMap(context.readModelQueueUrls->Dict.keysToArray, "PRM"),
-        )
         extraStringAssets->Dict.set(
           "queueUrls.json",
           JSON.Encode.object(queueUrlsDict)->JSON.stringify,

package/src/plugin/runtime/PluginRuntime_Builder.res.mjs

@@ -268,9 +268,7 @@ function Make(EventCollectorChannel) {
         }],
       extensions: [],
       pluginExtensionPointCmdTopicUrl: Pulumi.output(""),
-      publishToAggregates: {},
-      readModelQueueUrls: {},
-      readModelNamesForSourceName: {}
+      publishToAggregates: {}
     };
   };
   let forPluginEventCollector = (param, eventTopics, resources, memorySizeOpt, timeoutOpt, eventCollector) => {
@@ -303,10 +301,6 @@ function Make(EventCollectorChannel) {
       let envVarName = `PTA_` + param[0] + `_QUEUE_URL`;
       envVars[envVarName] = param[1];
     });
-    Object.entries(context.readModelQueueUrls).forEach(param => {
-      let envVarName = `PRM_` + param[0] + `_QUEUE_URL`;
-      envVars[envVarName] = param[1];
-    });
     let epEventTopicArnsOutput = Pulumi.all(context.extensionPoints.map(ep => ep.eventTopicArn));
     let handlerConfigJson = Pulumi.all([
       queue.id,
@@ -371,17 +365,11 @@ function Make(EventCollectorChannel) {
         entryDict["delegateModule"] = ext.delegateModule;
         entryDict["extensionPointName"] = ext.extensionPointName;
         entryDict["aggregateNames"] = ext.aggregateNames.map(prim => prim);
-        entryDict["readModelNames"] = ext.readModelNames.map(prim => prim);
         return entryDict;
       });
       dict["extensions"] = extensionsArr;
-      let rmNamesForSourceDict = {};
-      Object.entries(context.readModelNamesForSourceName).forEach(param => {
-        rmNamesForSourceDict[param[0]] = param[1].map(prim => prim);
-      });
-      dict["readModelNamesForSourceName"] = rmNamesForSourceDict;
       let json = JSON.stringify(dict);
-      let queueUrlKeys = Object.keys(context.publishToAggregates).map(n => `PTA_` + n + `_QUEUE_URL`).concat(Object.keys(context.readModelQueueUrls).map(n => `PRM_` + n + `_QUEUE_URL`));
+      let queueUrlKeys = Object.keys(context.publishToAggregates).map(n => `PTA_` + n + `_QUEUE_URL`);
       Util_LambdaEnvBudget$ReventlessAws.check(name, json, queueUrlKeys);
       return json;
     });
@@ -428,7 +416,6 @@ function Make(EventCollectorChannel) {
       };
       let queueUrlsDict = {};
       queueUrlsDict["publishToAggregates"] = nameMap(Object.keys(context.publishToAggregates), "PTA");
-      queueUrlsDict["readModelQueueUrls"] = nameMap(Object.keys(context.readModelQueueUrls), "PRM");
       extraStringAssets["queueUrls.json"] = JSON.stringify(queueUrlsDict);
       extraStringAssets["uiFragments.json"] = param[1];
       return Util_Bundle$ReventlessAws.buildCodeArchive("@reventlessdev/reventless-aws/src/adapter/Runtime/EventCollectorEntryPoint.mjs", packageDirs, extraStringAssets, undefined);

package/tests/EventCollectorEntryPoint_OpsTest.res

@@ -32,9 +32,10 @@ describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
     expect(p.eventCollector)->toBe("") // defaulted when absent
     expect(p.extensions->Array.length)->toBe(0)
     expect(p.extensionPoints->Array.length)->toBe(0)
-    expect(p.dcbEventLog->Option.isNone)->toBe(true)
   })
 
+  // A row written before `dcbSources` left the extension definition still
+  // carries the key; the projection reads past it.
   testSync("decodes extensions, dropping entries without extensionPointName", () => {
     let row = obj([
       ("id", str("Ordering@2")),
@@ -46,7 +47,7 @@ describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
           obj([
             ("name", str("OrdersExt")),
             ("extensionPointName", str("Catalog.Products")),
-            ("dcbSources", JSON.Encode.array([str("prod"), JSON.Encode.int(7)])),
+            ("dcbSources", JSON.Encode.array([])),
           ]),
           obj([("name", str("Malformed"))]), // no extensionPointName -> dropped
         ]),
@@ -58,11 +59,9 @@ describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
     let e = p.extensions->Array.getUnsafe(0)
     expect(e.name)->toBe("OrdersExt")
     expect(e.extensionPointName)->toBe("Catalog.Products")
-    // Non-string dcbSources elements are filtered out.
-    expect(e.dcbSources)->toEqual(["prod"])
   })
 
-  testSync("decodes extensionPoints and dcbEventLog; drops EPs without name/eventTopic", () => {
+  testSync("decodes extensionPoints; drops EPs without name/eventTopic", () => {
     let row = obj([
       ("id", str("Catalog@1")),
       ("status", str("Connected")),
@@ -73,6 +72,7 @@ describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
           obj([("name", str("NoTopic"))]), // no eventTopic -> dropped
         ]),
       ),
+      // Still on older rows; the subscription manager no longer reads it.
       ("dcbEventLog", obj([("name", str("catalog-dcb")), ("eventTopicArn", str("dcb-arn"))])),
     ])
     let p = project(row)->Option.getOrThrow
@@ -81,18 +81,6 @@ describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
     expect(ep.name)->toBe("Catalog.Products")
     expect(ep.commandTopic)->toBe("") // defaulted
     expect(ep.eventTopic)->toBe("t-arn")
-    let dcb = p.dcbEventLog->Option.getOrThrow
-    expect(dcb.name)->toBe("catalog-dcb")
-    expect(dcb.eventTopicArn)->toBe("dcb-arn")
-  })
-
-  testSync("drops a dcbEventLog missing eventTopicArn", () => {
-    let row = obj([
-      ("id", str("Catalog@1")),
-      ("status", str("Connected")),
-      ("dcbEventLog", obj([("name", str("catalog-dcb"))])),
-    ])
-    expect((project(row)->Option.getOrThrow).dcbEventLog->Option.isNone)->toBe(true)
   })
 })
 
@@ -146,7 +134,7 @@ describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
     let c = EventCollectorEntryPoint_Ops.parseHandlerConfig(minimalConfig([]))
     expect(c.queueUrl)->toBe("q-url")
     expect(c.connectExtension->Option.isNone)->toBe(true) // absent → None
-    expect(c.readModelNamesForSourceName->Dict.keysToArray->Array.length)->toBe(0)
+    expect(c.extensions->Array.length)->toBe(0)
   })
 
   testSync("connectExtension: JSON null (admin) maps to None; a record decodes", () => {
@@ -177,7 +165,7 @@ describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
         (
           "extensions",
           JSON.Encode.array([
-            // no name, no module specifiers, no aggregate/readModel lists
+            // no name, no module specifiers, no aggregate list
             obj([("extensionPointName", str("Ordering.Orders"))]),
           ]),
         ),
@@ -187,10 +175,9 @@ describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
     expect(ext.name)->toBe("Ordering.Orders") // name falls back to the EP name
     expect(ext.specModule)->toBe("")
     expect(ext.aggregateNames)->toEqual([])
-    expect(ext.readModelNames)->toEqual([])
   })
 
-  testSync("decodes extensionPoints entries and the env-var maps", () => {
+  testSync("decodes extensionPoints entries", () => {
     let c = EventCollectorEntryPoint_Ops.parseHandlerConfig(
       minimalConfig([
         (
@@ -204,30 +191,38 @@ describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
             ]),
           ]),
         ),
-        (
-          "readModelNamesForSourceName",
-          obj([("Ordering.Orders", JSON.Encode.array([str("ProductDemands")]))]),
-        ),
       ]),
     )
     let ep = c.extensionPoints->Array.getUnsafe(0)
     expect(ep.eventTopicArn)->toBe("arn:ep")
     expect(ep.aggregateNames)->toEqual(["Plugin"])
-    expect(c.readModelNamesForSourceName->Dict.get("Ordering.Orders"))->toEqual(
-      Some(["ProductDemands"]),
-    )
   })
 
-  // The target→env-var maps left HANDLER_CONFIG for queueUrls.json, so a config
-  // still carrying them must parse rather than trip the required-field check —
-  // that is what a Lambda running an older archive sends.
-  testSync("ignores publishToAggregates left over in HANDLER_CONFIG", () => {
+  // Keys HANDLER_CONFIG no longer carries — the target→env-var maps that left for
+  // queueUrls.json, and the read-model forwarding index with the per-extension
+  // `readModelNames` — must parse rather than trip the required-field check: that
+  // is what a Lambda running an older archive sends.
+  testSync("ignores keys an older HANDLER_CONFIG still carries", () => {
     let c = EventCollectorEntryPoint_Ops.parseHandlerConfig(
       minimalConfig([
         ("publishToAggregates", obj([("Plugin", str("PTA_Plugin_QUEUE_URL"))])),
         ("readModelQueueUrls", obj([("ProductDemands", str("PRM_ProductDemands_QUEUE_URL"))])),
+        (
+          "readModelNamesForSourceName",
+          obj([("Ordering.Orders", JSON.Encode.array([str("ProductDemands")]))]),
+        ),
+        (
+          "extensions",
+          JSON.Encode.array([
+            obj([
+              ("extensionPointName", str("Ordering.Orders")),
+              ("readModelNames", JSON.Encode.array([str("ProductDemands")])),
+            ]),
+          ]),
+        ),
       ]),
     )
     expect(c.queueUrl)->toBe("q-url")
+    expect((c.extensions->Array.getUnsafe(0)).extensionPointName)->toBe("Ordering.Orders")
   })
 })

package/tests/EventCollectorEntryPoint_OpsTest.res.mjs

@@ -43,7 +43,6 @@ globalThis.describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
     globalThis.expect(p.eventCollector).toBe("");
     globalThis.expect(p.extensions.length).toBe(0);
     globalThis.expect(p.extensionPoints.length).toBe(0);
-    globalThis.expect(Stdlib_Option.isNone(p.dcbEventLog)).toBe(true);
   });
   globalThis.test("decodes extensions, dropping entries without extensionPointName", () => {
     let row = Object.fromEntries([
@@ -73,10 +72,7 @@ globalThis.describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
             ],
             [
               "dcbSources",
-              [
-                "prod",
-                7
-              ]
+              []
             ]
           ]),
           Object.fromEntries([[
@@ -92,9 +88,8 @@ globalThis.describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
     let e = p.extensions[0];
     globalThis.expect(e.name).toBe("OrdersExt");
     globalThis.expect(e.extensionPointName).toBe("Catalog.Products");
-    globalThis.expect(e.dcbSources).toEqual(["prod"]);
   });
-  globalThis.test("decodes extensionPoints and dcbEventLog; drops EPs without name/eventTopic", () => {
+  globalThis.test("decodes extensionPoints; drops EPs without name/eventTopic", () => {
     let row = Object.fromEntries([
       [
         "id",
@@ -143,29 +138,6 @@ globalThis.describe("EventCollectorEntryPoint_Ops.projectPluginRow", () => {
     globalThis.expect(ep.name).toBe("Catalog.Products");
     globalThis.expect(ep.commandTopic).toBe("");
     globalThis.expect(ep.eventTopic).toBe("t-arn");
-    let dcb = Stdlib_Option.getOrThrow(p.dcbEventLog, undefined);
-    globalThis.expect(dcb.name).toBe("catalog-dcb");
-    globalThis.expect(dcb.eventTopicArn).toBe("dcb-arn");
-  });
-  globalThis.test("drops a dcbEventLog missing eventTopicArn", () => {
-    let row = Object.fromEntries([
-      [
-        "id",
-        "Catalog@1"
-      ],
-      [
-        "status",
-        "Connected"
-      ],
-      [
-        "dcbEventLog",
-        Object.fromEntries([[
-            "name",
-            "catalog-dcb"
-          ]])
-      ]
-    ]);
-    globalThis.expect(Stdlib_Option.isNone(Stdlib_Option.getOrThrow(EventCollectorEntryPoint_Ops$ReventlessAws.projectPluginRow(row), undefined).dcbEventLog)).toBe(true);
   });
 });
 
@@ -234,7 +206,7 @@ globalThis.describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
     let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([]));
     globalThis.expect(c.queueUrl).toBe("q-url");
     globalThis.expect(Stdlib_Option.isNone(c.connectExtension)).toBe(true);
-    globalThis.expect(Object.keys(c.readModelNamesForSourceName).length).toBe(0);
+    globalThis.expect(c.extensions.length).toBe(0);
   });
   globalThis.test("connectExtension: JSON null (admin) maps to None; a record decodes", () => {
     let asNull = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([[
@@ -274,11 +246,9 @@ globalThis.describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
     globalThis.expect(ext.name).toBe("Ordering.Orders");
     globalThis.expect(ext.specModule).toBe("");
     globalThis.expect(ext.aggregateNames).toEqual([]);
-    globalThis.expect(ext.readModelNames).toEqual([]);
   });
-  globalThis.test("decodes extensionPoints entries and the env-var maps", () => {
-    let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([
-      [
+  globalThis.test("decodes extensionPoints entries", () => {
+    let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([[
         "extensionPoints",
         [Object.fromEntries([
             [
@@ -298,21 +268,12 @@ globalThis.describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
               ["Plugin"]
             ]
           ])]
-      ],
-      [
-        "readModelNamesForSourceName",
-        Object.fromEntries([[
-            "Ordering.Orders",
-            ["ProductDemands"]
-          ]])
-      ]
-    ]));
+      ]]));
     let ep = c.extensionPoints[0];
     globalThis.expect(ep.eventTopicArn).toBe("arn:ep");
     globalThis.expect(ep.aggregateNames).toEqual(["Plugin"]);
-    globalThis.expect(c.readModelNamesForSourceName["Ordering.Orders"]).toEqual(["ProductDemands"]);
   });
-  globalThis.test("ignores publishToAggregates left over in HANDLER_CONFIG", () => {
+  globalThis.test("ignores keys an older HANDLER_CONFIG still carries", () => {
     let c = EventCollectorEntryPoint_Ops$ReventlessAws.parseHandlerConfig(minimalConfig([
       [
         "publishToAggregates",
@@ -327,9 +288,30 @@ globalThis.describe("EventCollectorEntryPoint_Ops.parseHandlerConfig", () => {
             "ProductDemands",
             "PRM_ProductDemands_QUEUE_URL"
           ]])
+      ],
+      [
+        "readModelNamesForSourceName",
+        Object.fromEntries([[
+            "Ordering.Orders",
+            ["ProductDemands"]
+          ]])
+      ],
+      [
+        "extensions",
+        [Object.fromEntries([
+            [
+              "extensionPointName",
+              "Ordering.Orders"
+            ],
+            [
+              "readModelNames",
+              ["ProductDemands"]
+            ]
+          ])]
       ]
     ]));
     globalThis.expect(c.queueUrl).toBe("q-url");
+    globalThis.expect(c.extensions[0].extensionPointName).toBe("Ordering.Orders");
   });
 });
 

package/tests/ProvisionAccountsTest.res

@@ -147,7 +147,7 @@ describe("ProvisionAccounts.provision", () => {
 
   test("a refused pool leaves the manifest untouched", async () => {
     let dir = NodeFs.mkdtempSync(NodePath.join([NodeOs.tmpdir(), "provision-accounts-"]))
-    let file = NodePath.join([dir, "users.yaml"])
+    let file = NodePath.join([dir, "accounts.yaml"])
     NodeFs.writeFileSync(file, manifest)
     let refuse = async (~providerId as _, ~usernames as _) => Error("pool signs in on email")
     let outcome = await Provision.provision(

package/tests/ProvisionAccountsTest.res.mjs

@@ -147,7 +147,7 @@ globalThis.describe("ProvisionAccounts.provision", () => {
 `;
   globalThis.test("a refused pool leaves the manifest untouched", async () => {
     let dir = Nodefs.mkdtempSync(Nodepath.join(Nodeos.tmpdir(), "provision-accounts-"));
-    let file = Nodepath.join(dir, "users.yaml");
+    let file = Nodepath.join(dir, "accounts.yaml");
     Nodefs.writeFileSync(file, manifest, "utf8");
     let refuse = async (param, param$1) => ({
       TAG: "Error",

package/src/components/ForeignReadModel_Builder.res

@@ -1,19 +0,0 @@
-module EventCollectorChannel = EventCollectorChannel.SQS
-module RuntimeEnvironment = RuntimeEnvironment.Lambda
-module EventCollectorRuntimeBuilder = ReventlessCore.EventCollectorRuntime_Builder_PerEventCollector.Make(
-  RuntimeEnvironment,
-  EventCollectorChannel,
-)
-
-module Make = (
-  Spec: Reventless.ReadModel.Spec,
-  Mappings: Reventless.Projection.Mappings with module Target := Spec,
-) => ReventlessCore.ReadModel_Builder.Make(
-  Spec,
-  Mappings,
-  RuntimeEnvironment,
-  QueryDbStorage.DynamoDb,
-  QueryDbResolvers.AppSync,
-  EventCollectorChannel,
-  EventCollectorRuntimeBuilder,
-)

package/src/components/ForeignReadModel_Builder.res.mjs

@@ -1,54 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as ReadModel_Builder$ReventlessCore from "@reventlessdev/reventless-core/src/components/ReadModel/ReadModel_Builder.res.mjs";
-import * as QueryDbStorage_DynamoDb$ReventlessAws from "../adapter/QueryDb/QueryDbStorage_DynamoDb.res.mjs";
-import * as QueryDbResolvers_AppSync$ReventlessAws from "../adapter/QueryDb/QueryDbResolvers_AppSync.res.mjs";
-import * as EventCollectorChannel_SQS$ReventlessAws from "../adapter/EventCollector/EventCollectorChannel_SQS.res.mjs";
-import * as RuntimeEnvironment_Lambda$ReventlessAws from "../adapter/Runtime/RuntimeEnvironment_Lambda.res.mjs";
-import * as EventCollectorRuntime_Builder_PerEventCollector$ReventlessCore from "@reventlessdev/reventless-core/src/adapter/Runtime/EventCollectorRuntime_Builder_PerEventCollector.res.mjs";
-
-let EventCollectorRuntimeBuilder = EventCollectorRuntime_Builder_PerEventCollector$ReventlessCore.Make({
-  make: RuntimeEnvironment_Lambda$ReventlessAws.make,
-  groupBySource: RuntimeEnvironment_Lambda$ReventlessAws.groupBySource,
-  extractCorrelationId: RuntimeEnvironment_Lambda$ReventlessAws.extractCorrelationId,
-  extractCausationId: RuntimeEnvironment_Lambda$ReventlessAws.extractCausationId,
-  extractSentTimestamp: RuntimeEnvironment_Lambda$ReventlessAws.extractSentTimestamp,
-  extractRetryCount: RuntimeEnvironment_Lambda$ReventlessAws.extractRetryCount,
-  asEventHandler: prim => prim,
-  asEffectHandler: prim => prim
-})({
-  make: EventCollectorChannel_SQS$ReventlessAws.make,
-  connect: EventCollectorChannel_SQS$ReventlessAws.connect
-});
-
-function Make(Spec) {
-  return Mappings => ReadModel_Builder$ReventlessCore.Make(Spec)(Mappings)({
-    make: RuntimeEnvironment_Lambda$ReventlessAws.make,
-    groupBySource: RuntimeEnvironment_Lambda$ReventlessAws.groupBySource,
-    extractCorrelationId: RuntimeEnvironment_Lambda$ReventlessAws.extractCorrelationId,
-    extractCausationId: RuntimeEnvironment_Lambda$ReventlessAws.extractCausationId,
-    extractSentTimestamp: RuntimeEnvironment_Lambda$ReventlessAws.extractSentTimestamp,
-    extractRetryCount: RuntimeEnvironment_Lambda$ReventlessAws.extractRetryCount,
-    asEventHandler: prim => prim,
-    asEffectHandler: prim => prim
-  })({
-    make: QueryDbStorage_DynamoDb$ReventlessAws.make
-  })({
-    make: QueryDbResolvers_AppSync$ReventlessAws.make
-  })({
-    make: EventCollectorChannel_SQS$ReventlessAws.make,
-    connect: EventCollectorChannel_SQS$ReventlessAws.connect
-  })(EventCollectorRuntimeBuilder);
-}
-
-let EventCollectorChannel;
-
-let RuntimeEnvironment;
-
-export {
-  EventCollectorChannel,
-  RuntimeEnvironment,
-  EventCollectorRuntimeBuilder,
-  Make,
-}
-/* EventCollectorRuntimeBuilder Not a pure module */