@reventlessdev/reventless-core 3.0.0-alpha.145 → 3.0.0-alpha.147

package/CHANGELOG.md

@@ -3,6 +3,20 @@
 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.147 (2026-07-08)
+
+### Bug Fixes
+
+* **reventless-core:** composite DCB slices can read back their own events ([4604a91](https://github.com/ReventlessDev/reventless-core/commit/4604a9159fb8bf59b2191ad69fee6613c7f75cd9))
+
+
+# 3.0.0-alpha.146 (2026-07-08)
+
+### Features
+
+* **reventless-core:** classify plugins by kind in the lifecycle read model ([64e3f22](https://github.com/ReventlessDev/reventless-core/commit/64e3f22b8114a771886b7c8ec023e95971413c0b))
+
+
 # 3.0.0-alpha.145 (2026-07-08)
 
 ### Bug Fixes

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-core",
-  "version": "3.0.0-alpha.145",
+  "version": "3.0.0-alpha.147",
   "description": "Core package for Reventless framework",
   "license": "Apache-2.0",
   "jest": {
@@ -31,14 +31,14 @@
     "@reventlessdev/rescript-effect": "0.1.0-alpha.25",
     "@reventlessdev/rescript-hash-object": "1.2.0-alpha.10",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.6",
-    "@reventlessdev/rescript-fast-csv": "1.2.0-alpha.11",
     "@reventlessdev/rescript-node-streams": "1.1.0-alpha.10",
+    "@reventlessdev/rescript-fast-csv": "1.2.0-alpha.11",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.14",
     "@reventlessdev/rescript-ssh2": "1.1.0-alpha.11",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.90",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.68",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.91",
     "@reventlessdev/reventless-interop": "3.0.0-alpha.24",
-    "@reventlessdev/rescript-uuid": "1.1.0-alpha.14"
+    "@reventlessdev/rescript-uuid": "1.1.0-alpha.14",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.69"
   },
   "devDependencies": {
     "rescript": "^12.3.0",

package/src/admin/Platform_Admin.res

@@ -80,6 +80,7 @@ module Make = (
           uiFragments: None,
           structure: None,
           dcbEventLog: None,
+          kind: Domain,
         }
 
         module Callback = Admin_Callback.Make({

package/src/admin/Platform_Admin.res.mjs

@@ -46,7 +46,8 @@ function Make(RuntimeEnvironment) {
             apiTarget: undefined,
             uiFragments: undefined,
             structure: undefined,
-            dcbEventLog: undefined
+            dcbEventLog: undefined,
+            kind: "Domain"
           };
           let Callback = Admin_Callback$ReventlessCore.Make({
             pluginDefinition: fakePluginDefinition,
@@ -187,7 +188,8 @@ function Make(RuntimeEnvironment) {
               apiTarget: undefined,
               uiFragments: undefined,
               structure: undefined,
-              dcbEventLog: undefined
+              dcbEventLog: undefined,
+              kind: "Domain"
             };
             let Callback = Admin_Callback$ReventlessCore.Make({
               pluginDefinition: fakePluginDefinition,

package/src/components/StateChangeSlice/StateChangeSlice_Callback.res

@@ -61,8 +61,7 @@ module Make = (
     | Some(keys) => baseTags->Array.filter(t => keys->Array.includes(t.key))
     | None => baseTags
     }
-    let tags =
-      indexedTags->Array.concat([{Reventless.DcbTag.key: "originatorSlice", value: Spec.name}])
+    let tags = indexedTags
     // Inherit service from the triggering command — the DcbEventLog publish path
     // overrides service to `<name>DcbEventLog` for routing so EventCollector
     // subscriptions still match.
@@ -83,12 +82,8 @@ module Make = (
   // tag value(s) instead of logging no id.
   let readEventId = (tags: array<Reventless.DcbTag.tag>): option<string> => {
     let ownTagValues = () => {
-      // Skip the `originatorSlice` metadata tag that `encodeEvent` appends to
-      // every stored event — it's the producing slice's name, not an entity id.
       let vals =
-        tags
-        ->Array.filter((t: Reventless.DcbTag.tag) => t.key != "originatorSlice")
-        ->Array.reduce([], (acc, t: Reventless.DcbTag.tag) =>
+        tags->Array.reduce([], (acc, t: Reventless.DcbTag.tag) =>
           acc->Array.includes(t.value) ? acc : acc->Array.concat([t.value])
         )
       vals->Array.length == 0 ? None : Some(vals->Array.join(","))

package/src/components/StateChangeSlice/StateChangeSlice_Callback.res.mjs

@@ -29,7 +29,7 @@ function Make(Spec) {
       ]]);
     let readEventId = tags => {
       let ownTagValues = () => {
-        let vals = Stdlib_Array.reduce(tags.filter(t => t.key !== "originatorSlice"), [], (acc, t) => {
+        let vals = Stdlib_Array.reduce(tags, [], (acc, t) => {
           if (acc.includes(t.value)) {
             return acc;
           } else {
@@ -188,15 +188,11 @@ function Make(Spec) {
                 let baseTags = DcbTag$Reventless.extractTagsExpanded(Spec.eventSchema, e);
                 let keys = tagKeysByEventType[eventType];
                 let indexedTags = keys !== undefined ? baseTags.filter(t => keys.includes(t.key)) : baseTags;
-                let tags = indexedTags.concat([{
-                    key: "originatorSlice",
-                    value: Spec.name
-                  }]);
                 let meta = Message$ReventlessCore.deriveMeta(parentMeta, undefined);
                 return {
                   eventType: eventType,
                   data: match[1],
-                  tags: tags,
+                  tags: indexedTags,
                   meta: meta
                 };
               });

package/src/plugin/component/Plugin_Builder.res

@@ -687,6 +687,12 @@ module Make = (
             uiFragments,
             structure: pluginStructure,
             dcbEventLog: dcbEventLogDef,
+            // Business role from the deploy-time metadata registry (set via
+            // registerPluginMetadata). Unset → Domain. Rides the handshake to the
+            // plugin-lifecycle projection so the admin can segregate infrastructure.
+            kind: Plugin_Helpers.pluginMetadataRegistry.contents
+            ->Option.flatMap(m => m.kind)
+            ->Option.getOr(Plugin_Helpers.Domain),
           })
 
         // Bundled Plugin EventCollector reconstructs Extension_Operations at

package/src/plugin/component/Plugin_Builder.res.mjs

@@ -462,7 +462,8 @@ function Make(Spec) {
             apiTarget: capturedDeployTarget,
             uiFragments: uiFragments,
             structure: pluginStructure,
-            dcbEventLog: param[2]
+            dcbEventLog: param[2],
+            kind: Stdlib_Option.getOr(Stdlib_Option.flatMap(Plugin_Helpers$ReventlessCore.pluginMetadataRegistry.contents, m => m.kind), "Domain")
           }));
           let aggregateQueueUrls = {};
           Object.entries(aggregateResources).forEach(param => {

package/src/plugin/component/Plugin_BuiltHook.res

@@ -12,8 +12,11 @@
 // describe a plugin's role and origin.
 // ---------------------------------------------------------------------------
 
-/** Classifies the business role of a plugin. Absent defaults to Domain. */
-type pluginKind =
+/** Classifies the business role of a plugin. Absent defaults to Domain.
+    Aliases the canonical `@schema` enum in `reventless-spec` (`Reventless.Plugin.pluginKind`)
+    so the deploy-time metadata registry and the serialized `pluginDefinition` share one
+    type — no mapping needed where metadata flows onto the definition. */
+type pluginKind = Reventless.Plugin.pluginKind =
   | Domain
   | PlatformInfrastructure
   | Commercial

package/src/plugin/component/Plugin_SubscriptionSchema.res

@@ -61,8 +61,7 @@ let sourceCFields = (
 // Pushed via AppSync Events API. Admin / observability only.
 //
 // Returns (subscriptionFields, supportingTypes) — the supporting type is the
-// {DisplayName}EventLogEvent type that carries position, eventType, payload, and
-// the optional originatorSlice tag injected by StateChangeSlice_Callback.
+// {DisplayName}EventLogEvent type that carries position, eventType, and payload.
 
 let sourceAFieldsAndTypes = (
   ~eventLogEntries: array<eventLogSchemaEntry>,
@@ -76,7 +75,7 @@ let sourceAFieldsAndTypes = (
       seen->Set.add(n)
       fields->Array.push(`  on${n}EventLog_eventAppended: ${n}EventLogEvent`)
       types->Array.push(
-        `type ${n}EventLogEvent {\n  position: String!\n  eventType: String!\n  payload: AWSJSON!\n  originatorSlice: String\n}`,
+        `type ${n}EventLogEvent {\n  position: String!\n  eventType: String!\n  payload: AWSJSON!\n}`,
       )
     }
   })

package/src/plugin/component/Plugin_SubscriptionSchema.res.mjs

@@ -41,7 +41,7 @@ function sourceAFieldsAndTypes(eventLogEntries) {
     if (!seen.has(n)) {
       seen.add(n);
       fields.push(`  on` + n + `EventLog_eventAppended: ` + n + `EventLogEvent`);
-      types.push(`type ` + n + `EventLogEvent {\n  position: String!\n  eventType: String!\n  payload: AWSJSON!\n  originatorSlice: String\n}`);
+      types.push(`type ` + n + `EventLogEvent {\n  position: String!\n  eventType: String!\n  payload: AWSJSON!\n}`);
       return;
     }
   });

package/src/plugin/lifecycle/PluginsProjection.res

@@ -58,6 +58,7 @@ let displayState = (
     uiFragments: def.uiFragments,
     structure: def.structure,
     dcbEventLog: def.dcbEventLog,
+    kind: def.kind,
     // The current version is never listed among the "other" connected versions.
     otherConnectedVersions: otherConnectedVersions->Util.without(def.version),
   }

package/src/plugin/lifecycle/PluginsProjection.res.mjs

@@ -74,6 +74,7 @@ function displayState(def, status, statusChange, otherConnectedVersions) {
   let base_uiFragments = def.uiFragments;
   let base_structure = def.structure;
   let base_dcbEventLog = def.dcbEventLog;
+  let base_kind = def.kind;
   let base_otherConnectedVersions = without(otherConnectedVersions, def.version);
   let base = {
     name: base_name,
@@ -89,6 +90,7 @@ function displayState(def, status, statusChange, otherConnectedVersions) {
     uiFragments: base_uiFragments,
     structure: base_structure,
     dcbEventLog: base_dcbEventLog,
+    kind: base_kind,
     otherConnectedVersions: base_otherConnectedVersions
   };
   let target = def.apiTarget;

package/src/plugin/lifecycle/PluginsReadModelSpec.res

@@ -37,6 +37,12 @@ type state = {
   // from this plugin's DCB topic → peer EventCollectors (and vice-versa). None
   // for pure-aggregate plugins or for plugins persisted before Phase 4.
   dcbEventLog: @s.matches(Reventless.Plugin.dcbEventLogOptionSchema) option<Reventless.Plugin.dcbEventLogDefinition>,
+  // Business role of the plugin (from pluginDefinition.kind). Lets the admin Plugins
+  // view segregate PlatformInfrastructure / Commercial / Marketplace from Domain.
+  // @scan opts the field into server-side equality filtering so the connection gains
+  // a `kindEq` filter — the panel split (main list vs System/Infrastructure) pages
+  // correctly server-side rather than filtering a page client-side.
+  @scan kind: Reventless.Plugin.pluginKind,
   // Other versions of this name that are currently **Connected** — excludes this
   // row's own `version` (whose status is the `status` field above). Lets the
   // projection recompute which version is current (highest Connected) during a
@@ -61,6 +67,7 @@ type queryResult = {
   uiFragments: option<Reventless.Plugin.uiFragmentManifest>,
   structure: option<Reventless.Plugin.pluginStructure>,
   dcbEventLog: option<Reventless.Plugin.dcbEventLogDefinition>,
+  kind: Reventless.Plugin.pluginKind,
 }
 
 

package/src/plugin/lifecycle/PluginsReadModelSpec.res.mjs

@@ -4,6 +4,7 @@ import * as S from "sury/src/S.res.mjs";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
 import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
+import * as StateAnnotations$Reventless from "@reventlessdev/reventless-spec/src/components/StateAnnotations.res.mjs";
 
 let statusSchema = S.union([
   S.literal("Connected"),
@@ -27,11 +28,29 @@ let stateSchema = S.schema(s => ({
   uiFragments: s.m(Plugin$Reventless.uiFragmentManifestOptionSchema),
   structure: s.m(Plugin$Reventless.pluginStructureOptionSchema),
   dcbEventLog: s.m(Plugin$Reventless.dcbEventLogOptionSchema),
+  kind: s.m(Plugin$Reventless.pluginKindSchema),
   otherConnectedVersions: s.m(S.array(Plugin$Reventless.versionSchema))
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, undefined);
 
+let stateSchema$1 = S.Metadata.set(stateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
+  ids: [],
+  compositeIds: [],
+  subIds: [],
+  compositeSubIds: [],
+  indexes: [],
+  hidden: [],
+  summary: [],
+  drillTargets: [],
+  drillTargetKeys: [],
+  collapsed: [],
+  scan: ["kind"],
+  scanSort: [],
+  status: undefined,
+  visibility: undefined
+});
+
 let name = "Plugins";
 
 let Id;
@@ -48,9 +67,9 @@ export {
   name,
   Id,
   statusSchema,
-  stateSchema,
   config,
   subIdConfig,
+  stateSchema$1 as stateSchema,
   moduleUrl,
   authorization,
   visibility,

package/tests/dcb/DcbStateChangeSliceTest.res

@@ -81,7 +81,7 @@ describe("StateChangeSlice_Callback:", () => {
       ))->toEqual(([Ok("ref-1")], 1, 1))
     })
 
-    testPromise("stored event has correct tags", async () => {
+    testPromise("stored event carries only its entity tags (no framework provenance tag)", async () => {
       let _ = await TestHandler.handleCommands(
         testDcbEventLog,
         Stream.fromIterable([
@@ -90,10 +90,11 @@ describe("StateChangeSlice_Callback:", () => {
       )->Effect.runPromise
       let storedEvent = mock.getEvents()->Array.getUnsafe(0)
 
-      expect(storedEvent.tags)->toEqual([
-        {Reventless.DcbTag.key: "itemId", value: "item-1"},
-        {Reventless.DcbTag.key: "originatorSlice", value: "TestStateChangeSlice"},
-      ])
+      // No `originatorSlice` (or any other) metadata tag is smuggled into the tag
+      // set — a stored event's tags are exactly its DCB entity tags, so the
+      // composite read/write keys stay aligned. See
+      // docs/analysis/dcb-event-provenance-and-metadata.md.
+      expect(storedEvent.tags)->toEqual([{Reventless.DcbTag.key: "itemId", value: "item-1"}])
     })
   })
 

package/tests/dcb/DcbStateChangeSliceTest.res.mjs

@@ -201,23 +201,17 @@ globalThis.describe("StateChangeSlice_Callback:", () => {
         1
       ]);
     });
-    globalThis.test("stored event has correct tags", async () => {
+    globalThis.test("stored event carries only its entity tags (no framework provenance tag)", async () => {
       await Effect.runPromise(TestHandler.handleCommands(undefined, undefined, testDcbEventLog, Stream.fromIterable([makeTopicItem("ref-1", {
           TAG: "CreateItem",
           itemId: "item-1",
           name: "Test"
         })])));
       let storedEvent = mock.getEvents()[0];
-      globalThis.expect(storedEvent.tags).toEqual([
-        {
+      globalThis.expect(storedEvent.tags).toEqual([{
           key: "itemId",
           value: "item-1"
-        },
-        {
-          key: "originatorSlice",
-          value: "TestStateChangeSlice"
-        }
-      ]);
+        }]);
     });
   });
   globalThis.describe("handleCommands - decide returns Ok([])", () => {

package/tests/logger/LogFormatTest.res

@@ -76,6 +76,7 @@ describe("LogFormat", () => {
             uiFragments: None,
             structure: None,
             dcbEventLog: None,
+            kind: Domain,
           }),
         ]
         let meta: Message.meta = {
@@ -97,7 +98,7 @@ describe("LogFormat", () => {
           },
         )
         let expected1 = `1/2: \x1b[1mHeartbeat\x1b[0m(0): {"command":{"TAG":"Heartbeat","_0":"0.0.0"},"meta":${metaStr},"id":"0"}`
-        let expected2 = `2/2: \x1b[1mConnect\x1b[0m(1): {"command":{"TAG":"Connect","_0":{"id":"id","name":"testName","version":"testVersion","extensionPoints":[{"name":"testExtensionPoint","commandTopic":"testCommandTopic","eventTopic":"testEventTopic"}],"extensions":[{"name":"testExtension","extensionPointName":"testExtensionPoint","dcbSources":[]}],"eventCollector":"testEventCollector","extensionProtocols":[],"apiSchemaFragment":null,"apiTarget":null,"uiFragments":null,"structure":null,"dcbEventLog":null}},"meta":${metaStr},"id":"1"}`
+        let expected2 = `2/2: \x1b[1mConnect\x1b[0m(1): {"command":{"TAG":"Connect","_0":{"id":"id","name":"testName","version":"testVersion","extensionPoints":[{"name":"testExtensionPoint","commandTopic":"testCommandTopic","eventTopic":"testEventTopic"}],"extensions":[{"name":"testExtension","extensionPointName":"testExtensionPoint","dcbSources":[]}],"eventCollector":"testEventCollector","extensionProtocols":[],"apiSchemaFragment":null,"apiTarget":null,"uiFragments":null,"structure":null,"dcbEventLog":null,"kind":"Domain"}},"meta":${metaStr},"id":"1"}`
         expect(commandJsonsToLogMessages(arr))->toEqual([expected1, expected2])
       },
     )

package/tests/logger/LogFormatTest.res.mjs

@@ -76,7 +76,8 @@ globalThis.describe("LogFormat", () => {
             apiTarget: undefined,
             uiFragments: undefined,
             structure: undefined,
-            dcbEventLog: undefined
+            dcbEventLog: undefined,
+            kind: "Domain"
           }
         }
       ];
@@ -95,7 +96,7 @@ globalThis.describe("LogFormat", () => {
         commandJson: Message$ReventlessCore.encode(command, PluginSpec$ReventlessCore.commandSchema)
       }));
       let expected1 = `1/2: \x1b[1mHeartbeat\x1b[0m(0): {"command":{"TAG":"Heartbeat","_0":"0.0.0"},"meta":` + metaStr + `,"id":"0"}`;
-      let expected2 = `2/2: \x1b[1mConnect\x1b[0m(1): {"command":{"TAG":"Connect","_0":{"id":"id","name":"testName","version":"testVersion","extensionPoints":[{"name":"testExtensionPoint","commandTopic":"testCommandTopic","eventTopic":"testEventTopic"}],"extensions":[{"name":"testExtension","extensionPointName":"testExtensionPoint","dcbSources":[]}],"eventCollector":"testEventCollector","extensionProtocols":[],"apiSchemaFragment":null,"apiTarget":null,"uiFragments":null,"structure":null,"dcbEventLog":null}},"meta":` + metaStr + `,"id":"1"}`;
+      let expected2 = `2/2: \x1b[1mConnect\x1b[0m(1): {"command":{"TAG":"Connect","_0":{"id":"id","name":"testName","version":"testVersion","extensionPoints":[{"name":"testExtensionPoint","commandTopic":"testCommandTopic","eventTopic":"testEventTopic"}],"extensions":[{"name":"testExtension","extensionPointName":"testExtensionPoint","dcbSources":[]}],"eventCollector":"testEventCollector","extensionProtocols":[],"apiSchemaFragment":null,"apiTarget":null,"uiFragments":null,"structure":null,"dcbEventLog":null,"kind":"Domain"}},"meta":` + metaStr + `,"id":"1"}`;
       globalThis.expect(LogFormat$ReventlessCore.commandJsonsToLogMessages(arr)).toEqual([
         expected1,
         expected2

package/tests/message/MessageTest.res

@@ -44,6 +44,7 @@ describe("Message should", () => {
       uiFragments: None,
       structure: None,
       dcbEventLog: None,
+      kind: Domain,
     })
     let variantJson = variant->Message.encode(PluginSpec.commandSchema)
     let variantName = variantNameOfJson(variantJson)

package/tests/message/MessageTest.res.mjs

@@ -43,7 +43,8 @@ globalThis.describe("Message should", () => {
         apiTarget: undefined,
         uiFragments: undefined,
         structure: undefined,
-        dcbEventLog: undefined
+        dcbEventLog: undefined,
+        kind: "Domain"
       }
     };
     let variantJson = Message$ReventlessCore.encode(variant, PluginSpec$ReventlessCore.commandSchema);