@reventlessdev/reventless-spec 3.0.0-alpha.76 → 3.0.0-alpha.77

package/CHANGELOG.md

@@ -3,6 +3,13 @@
 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.77 (2026-07-15)
+
+### Performance Improvements
+
+* **spec:** reverse-convert DcbTag extraction instead of stringify round-trip ([4311c7b](https://github.com/ReventlessDev/reventless-core/commit/4311c7b863f99e582911ced529d77dca7cc36381))
+
+
 # 3.0.0-alpha.76 (2026-07-12)
 
 ### Features

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-spec",
-  "version": "3.0.0-alpha.76",
+  "version": "3.0.0-alpha.77",
   "description": "Specifications for Reventless",
   "license": "Apache-2.0",
   "bin": {

package/src/components/DcbTag.res

@@ -399,7 +399,11 @@ let extractTagsFromJson = (schema: S.t<unknown>, json: JSON.t): array<tag> =>
 /**
 Extracts DCB tags from a typed event value using its sury schema.
 
-Serializes the value to JSON first, then delegates to `extractTagsFromJson`.
+Reverse-converts the value to JSON through its schema, then delegates to
+`extractTagsFromJson`. Using the schema-aware reverse convert (instead of a
+`JSON.stringifyAny -> parseOrThrow` string round-trip) avoids serializing the
+whole event to a string per message and emits the schema's serialized field
+keys — so `@as`-renamed tagged fields are found by the same-schema walker.
 
 @example
 ```rescript
@@ -410,10 +414,8 @@ let tags = DcbTag.extractTags(
 // [{key: "categoryId", value: "cat-1"}]
 ```
 */
-let extractTags = (schema: S.t<'a>, value: 'a): array<tag> => {
-  let json = value->JSON.stringifyAny->Option.getOrThrow->JSON.parseOrThrow
-  extractTagsFromJson(schema->toUnknownSchema, json)
-}
+let extractTags = (schema: S.t<'a>, value: 'a): array<tag> =>
+  extractTagsFromJson(schema->toUnknownSchema, value->S.reverseConvertToJsonOrThrow(schema))
 
 // --- Extract variant constructor names from a tagged union schema ---
 // For a variant type like `type event = ItemCreated({...}) | ItemRenamed({...})`,
@@ -596,10 +598,8 @@ let tags = DcbTag.extractTagsExpanded(
 // [{key: "orderId", value: "ord-1"}, {key: "productIds", value: "p1"}, {key: "productIds", value: "p2"}]
 ```
 */
-let extractTagsExpanded = (schema: S.t<'a>, value: 'a): array<tag> => {
-  let json = value->JSON.stringifyAny->Option.getOrThrow->JSON.parseOrThrow
-  extractTagsFromJsonExpanded(schema->toUnknownSchema, json)
-}
+let extractTagsExpanded = (schema: S.t<'a>, value: 'a): array<tag> =>
+  extractTagsFromJsonExpanded(schema->toUnknownSchema, value->S.reverseConvertToJsonOrThrow(schema))
 
 // --- Automatic query construction from command schema ---
 

package/src/components/DcbTag.res.mjs

@@ -202,8 +202,7 @@ function extractTagsFromJson(schema, json) {
 }
 
 function extractTags(schema, value) {
-  let json = JSON.parse(Stdlib_Option.getOrThrow(JSON.stringify(value), undefined));
-  return extractTagsFromJson(schema, json);
+  return extractTagsFromJson(schema, S.reverseConvertToJsonOrThrow(value, schema));
 }
 
 function extractVariantNames(schema) {
@@ -345,8 +344,7 @@ function extractTagsFromJsonExpanded(schema, json) {
 }
 
 function extractTagsExpanded(schema, value) {
-  let json = JSON.parse(Stdlib_Option.getOrThrow(JSON.stringify(value), undefined));
-  return extractTagsFromJsonExpanded(schema, json);
+  return extractTagsFromJsonExpanded(schema, S.reverseConvertToJsonOrThrow(value, schema));
 }
 
 function hasTaggedArrayFields(schema) {

package/src/components/Plugin.res

@@ -368,23 +368,6 @@ type pluginStructure = {
 
 let pluginStructureOptionSchema = _jsNullable(pluginStructureSchema, ())
 
-// ── Event graph types (cross-plugin component graph) ──────────────────────────
-
-@schema
-type graphNode = {pluginName: string, componentName: string, kind: string}
-
-@schema
-type graphEdge = {
-  source: graphNode,
-  target: graphNode,
-  mechanism: string,
-  viaEvents: array<string>,
-  implicit: bool,
-}
-
-@schema
-type platformEventGraph = {nodes: array<graphNode>, edges: array<graphEdge>}
-
 /**
 The self-description of a deployed plugin, persisted in the plugin's event store.
 

package/src/components/Plugin.res.mjs

@@ -190,25 +190,6 @@ let pluginStructureSchema = S.schema(s => ({
 
 let pluginStructureOptionSchema = SuryResMjs.js_nullable(pluginStructureSchema);
 
-let graphNodeSchema = S.schema(s => ({
-  pluginName: s.m(S.string),
-  componentName: s.m(S.string),
-  kind: s.m(S.string)
-}));
-
-let graphEdgeSchema = S.schema(s => ({
-  source: s.m(graphNodeSchema),
-  target: s.m(graphNodeSchema),
-  mechanism: s.m(S.string),
-  viaEvents: s.m(S.array(S.string)),
-  implicit: s.m(S.bool)
-}));
-
-let platformEventGraphSchema = S.schema(s => ({
-  nodes: s.m(S.array(graphNodeSchema)),
-  edges: s.m(S.array(graphEdgeSchema))
-}));
-
 let pluginDefinitionSchema = S.schema(s => ({
   id: s.m(S.string),
   name: s.m(S.string),
@@ -262,9 +243,6 @@ export {
   extensionPointDefArrayOptionSchema,
   pluginStructureSchema,
   pluginStructureOptionSchema,
-  graphNodeSchema,
-  graphEdgeSchema,
-  platformEventGraphSchema,
   pluginDefinitionSchema,
 }
 /* pluginKindSchema Not a pure module */