@reventlessdev/reventless-core 3.0.0-alpha.239 → 3.0.0-alpha.240

package/src/components/Api/SuryToJsonSchema.res

@@ -263,8 +263,19 @@ and objectRefToJsonSchema = (
 ): JSON.t => {
   let props = Dict.make()
   let required: array<string> = []
+  // `@internal` fields are dropped rather than annotated. A marker would be the
+  // right answer for a field that is on the surface and merely unwanted (that is
+  // `@hidden`); this one is not on the surface at all, so there is nothing for a
+  // consumer to describe and an entry here would advertise a field the SDL does
+  // not declare — which is precisely the mismatch that made read-model queries
+  // reference fields the server rejects.
+  //
+  // This is the single point for every JSON-Schema consumer: `queryableDef.schema`,
+  // the MCP generator and the manifest all derive through this walk.
+  let internal = annotations->Option.flatMap(spec => spec.internal)->Option.getOr([])
   fields
   ->Dict.toArray
+  ->Array.filter(((fieldName, _)) => !(internal->Array.includes(fieldName)))
   ->Array.forEach(((fieldName, fieldType)) => {
     let baseSchema = fromSchemaType(fieldType)
     let withAnnotations = switch annotations {

package/src/components/Api/SuryToJsonSchema.res.mjs

@@ -281,7 +281,8 @@ function objectRefToJsonSchema(annotations, optionalOpt, ownersOpt, fields) {
   let owners = ownersOpt !== undefined ? ownersOpt : [];
   let props = {};
   let required = [];
-  Object.entries(fields).forEach(param => {
+  let internal = Stdlib_Option.getOr(Stdlib_Option.flatMap(annotations, spec => spec.internal), []);
+  Object.entries(fields).filter(param => !internal.includes(param[0])).forEach(param => {
     let fieldType = param[1];
     let fieldName = param[0];
     let baseSchema = fromSchemaType(fieldType);

package/src/components/AutomationSlice/AutomationSlice_Callback.res

@@ -1,4 +1,3 @@
-S.enableJson()
 // AutomationSlice callback — implements the TODO list pattern with mixed-source
 // dispatch (Plan 04).
 //
@@ -143,7 +142,7 @@ module Make = (
           | Some(_) => () // Already exists — skip
           | None =>
             let row: todoRow = {
-              item: item->S.reverseConvertToJsonOrThrow(Spec.todoItemSchema),
+              item: item->Reventless.Util_Sury.toJson(Spec.todoItemSchema),
               status: Pending,
               createdAt: now(),
               retryCount: 0,
@@ -198,7 +197,7 @@ module Make = (
     let commands = []
 
     pending->Array.forEach(((id, row)) => {
-      let item = try row.item->S.parseJsonOrThrow(Spec.todoItemSchema)->Some catch {
+      let item = try row.item->Reventless.Util_Sury.fromJson(Spec.todoItemSchema)->Some catch {
       | exn =>
         let errMsg =
           exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("unknown")
@@ -214,7 +213,7 @@ module Make = (
         | Some((targetId, command)) =>
           todoItems->Dict.set(id, {...row, status: Processing, processedAt: now()})
           let commandJson = try command
-          ->S.reverseConvertToJsonOrThrow(Spec.commandSchema)
+          ->Reventless.Util_Sury.toJson(Spec.commandSchema)
           ->Some catch {
           | exn =>
             let errMsg =

package/src/components/AutomationSlice/AutomationSlice_Callback.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.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";
@@ -9,35 +9,34 @@ import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js
 import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
 import * as DcbDecode$Reventless from "@reventlessdev/reventless-spec/src/components/DcbDecode.res.mjs";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 
-S.enableJson();
-
-let todoStatusSchema = S.union([
-  S.literal("Pending"),
-  S.literal("Processing"),
-  S.literal("Completed"),
-  S.literal("Failed")
+let todoStatusSchema = Sury.union([
+  Sury.literal("Pending"),
+  Sury.literal("Processing"),
+  Sury.literal("Completed"),
+  Sury.literal("Failed")
 ]);
 
-let todoRowSchema = S.schema(s => ({
-  item: s.m(S.json),
+let todoRowSchema = Sury.$schema(s => ({
+  item: s.m(Sury.json),
   status: s.m(todoStatusSchema),
-  createdAt: s.m(S.string),
-  processedAt: s.m(S.option(S.string)),
-  completedAt: s.m(S.option(S.string)),
-  retryCount: s.m(S.int)
+  createdAt: s.m(Sury.string),
+  processedAt: s.m(Sury.$option(Sury.string)),
+  completedAt: s.m(Sury.$option(Sury.string)),
+  retryCount: s.m(Sury.int)
 }));
 
 function todoRowSchemaFor(itemSchema) {
-  return S.schema(s => ({
+  return Sury.$schema(s => ({
     item: s.m(itemSchema),
     status: s.m(todoStatusSchema),
-    createdAt: s.m(S.string),
-    processedAt: s.m(S.option(S.string)),
-    completedAt: s.m(S.option(S.string)),
-    retryCount: s.m(S.int)
+    createdAt: s.m(Sury.string),
+    processedAt: s.m(Sury.$option(Sury.string)),
+    completedAt: s.m(Sury.$option(Sury.string)),
+    retryCount: s.m(Sury.int)
   }));
 }
 
@@ -60,7 +59,7 @@ function Make(Spec) {
           if (match !== undefined) {
             return;
           }
-          let row_item = S.reverseConvertToJsonOrThrow(param[1], Spec.todoItemSchema);
+          let row_item = Util_Sury$Reventless.toJson(param[1], Spec.todoItemSchema);
           let row_createdAt = new Date().toISOString();
           let row = {
             item: row_item,
@@ -115,7 +114,7 @@ function Make(Spec) {
         let id = param[0];
         let item;
         try {
-          item = Primitive_option.some(S.parseJsonOrThrow(row.item, Spec.todoItemSchema));
+          item = Primitive_option.some(Util_Sury$Reventless.fromJson(row.item, Spec.todoItemSchema));
         } catch (raw_exn) {
           let exn = Primitive_exceptions.internalToException(raw_exn);
           let errMsg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown");
@@ -134,7 +133,7 @@ function Make(Spec) {
           todoItems[id] = newrecord;
           let commandJson;
           try {
-            commandJson = S.reverseConvertToJsonOrThrow(match[1], Spec.commandSchema);
+            commandJson = Util_Sury$Reventless.toJson(match[1], Spec.commandSchema);
           } catch (raw_exn) {
             let exn = Primitive_exceptions.internalToException(raw_exn);
             let errMsg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown");
@@ -198,4 +197,4 @@ export {
   todoRowSchemaFor,
   Make,
 }
-/*  Not a pure module */
+/* todoStatusSchema Not a pure module */

package/src/components/CommandTopic/CommandTopic_Callback.res

@@ -18,8 +18,7 @@ module Make = (Spec: ReventlessInfra.CommandTopic.T, Ops: Ops with module Spec =
         | command' => Some({ReventlessInfra.CommandTopic.reference, command: command'})
         | exception err =>
           let commandStr = json->JSON.stringify
-          let errMsg =
-            err->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("unknown")
+          let errMsg = err->Reventless.Util_Sury.exnMessage
           EffectLogger.logError(
             ~comp,
             `decode failed: ${commandStr} err=${errMsg}`,

package/src/components/CommandTopic/CommandTopic_Callback.res.mjs

@@ -1,10 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-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 Effect from "effect/Effect";
 import * as Stream from "effect/Stream";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 
@@ -21,7 +20,7 @@ function Make(Spec) {
         } catch (raw_err) {
           let err = Primitive_exceptions.internalToException(raw_err);
           let commandStr = JSON.stringify(json);
-          let errMsg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(err), Stdlib_JsExn.message), "unknown");
+          let errMsg = Util_Sury$Reventless.exnMessage(err, undefined);
           Effect.runSync(EffectLogger$ReventlessCore.logError(comp, undefined, `decode failed: ` + commandStr + ` err=` + errMsg));
           return;
         }
@@ -46,4 +45,4 @@ function Make(Spec) {
 export {
   Make,
 }
-/* Stdlib_JsExn Not a pure module */
+/* effect/Effect Not a pure module */

package/src/components/CommandTopic/CommandTopic_Helpers.res

@@ -169,7 +169,7 @@ let encodeCommandJson = (cmdJson: Reventless.Message.commandJson): JSON.t =>
   JSON.Encode.object(
     Dict.fromArray([
       ("id", JSON.Encode.string(cmdJson.id)),
-      ("meta", cmdJson.meta->S.reverseConvertToJsonOrThrow(Reventless.Message.metaSchema)),
+      ("meta", cmdJson.meta->Reventless.Util_Sury.toJson(Reventless.Message.metaSchema)),
       ("command", cmdJson.commandJson),
     ]),
   )

package/src/components/CommandTopic/CommandTopic_Helpers.res.mjs

@@ -1,6 +1,5 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 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 Effect from "effect/Effect";
@@ -8,6 +7,7 @@ import * as Stream from "effect/Stream";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 
 let commandOutcomeHook = {
@@ -127,7 +127,7 @@ function encodeCommandJson(cmdJson) {
     ],
     [
       "meta",
-      S.reverseConvertToJsonOrThrow(cmdJson.meta, Message$Reventless.metaSchema)
+      Util_Sury$Reventless.toJson(cmdJson.meta, Message$Reventless.metaSchema)
     ],
     [
       "command",
@@ -238,4 +238,4 @@ export {
   registerHandler,
   getHandlers,
 }
-/* S Not a pure module */
+/* Stdlib_JsExn Not a pure module */

package/src/components/Counter/Counter.res.mjs

@@ -1,9 +1,9 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as ComponentType$ReventlessCore from "../../ComponentType.res.mjs";
 
-let counterEventSchema = S.literal("CountFinished");
+let counterEventSchema = Sury.literal("CountFinished");
 
 let name = ComponentType$ReventlessCore.toName("Counter");
 

package/src/components/Counter/Counter_Callback.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
@@ -10,9 +10,9 @@ import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 import * as ComponentType$ReventlessCore from "../../ComponentType.res.mjs";
 
-let countsStateSchema = S.schema(s => ({
-  id: s.m(S.string),
-  count: s.m(S.int)
+let countsStateSchema = Sury.$schema(s => ({
+  id: s.m(Sury.string),
+  count: s.m(Sury.int)
 }));
 
 function groupByCounterId(references) {

package/src/components/Counter/Counter_Operations.res.mjs

@@ -1,15 +1,15 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
 import * as Counter$ReventlessCore from "./Counter.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 
-let referencesStateSchema = S.schema(s => ({
-  id: s.m(S.string),
-  inc: s.m(S.int)
+let referencesStateSchema = Sury.$schema(s => ({
+  id: s.m(Sury.string),
+  inc: s.m(Sury.int)
 }));
 
 function groupCountItemsByCounterId(countItems) {

package/src/components/Dcb/Dcb_Builder.res

@@ -51,7 +51,7 @@ let mergedEventSchema = (schemas: array<S.t<unknown>>) =>
     many
     ->Array.flatMap(schema =>
       switch schema {
-      | S.Union({anyOf}) => anyOf
+      | S.AnyOf({anyOf}) => anyOf
       | other => [other]
       }
     )

package/src/components/Dcb/Dcb_Builder.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
@@ -81,8 +81,8 @@ function mergedEventSchema(schemas) {
     return schemas[0];
   }
   let seen = new Set();
-  return S.union(schemas.flatMap(schema => {
-    if (schema.type === "union") {
+  return Sury.union(schemas.flatMap(schema => {
+    if (schema.type === "anyOf") {
       return schema.anyOf;
     } else {
       return [schema];
@@ -242,10 +242,11 @@ function Make(DcbEventLogStorage) {
       let DcbEventLog = DcbEventLog_Builder$ReventlessCore.Make(DcbEventLogStorage)(DcbEventTopicPublisher);
       let dcbEventLog = DcbEventLog.make(name, indexes$1, partitionTag, effectiveCrossPartitionTagKeys, opts);
       Stdlib_Option.forEach(HooksConfig.hooks.onDcbEventLogCreated, hook => hook(dcbEventLog));
+      let commandSchema = Sury.json;
       let DcbCommandTopic = CommandTopic_Builder$ReventlessCore.Make({
         Id: Id$Reventless.$$String,
         name: childName,
-        commandSchema: S.json
+        commandSchema: commandSchema
       })(DcbCommandTopicChannel);
       let dcbCommandTopic = DcbCommandTopic.make(name + `Dcb`, {
         kind: "Plugin",
@@ -254,10 +255,11 @@ function Make(DcbEventLogStorage) {
       Stdlib_Option.forEach(HooksConfig.hooks.onDcbCommandTopicCreated, hook => hook(dcbCommandTopic));
       let publishJsons = Component$ReventlessCore.operations(dcbCommandTopic).apply(ops => ops.publishJsons);
       let name$1 = childName + "Async";
+      let commandSchema$1 = Sury.json;
       let DcbAsyncCommandTopic = CommandTopic_Builder$ReventlessCore.Make({
         Id: Id$Reventless.$$String,
         name: name$1,
-        commandSchema: S.json
+        commandSchema: commandSchema$1
       })(DcbCommandTopicChannelAsync);
       let asyncDcbCommandTopicOpt;
       if (asyncSlices.length !== 0) {
@@ -447,7 +449,7 @@ function Make(DcbEventLogStorage) {
         });
         return [
           byTag$1,
-          make(S.json)
+          make(Sury.json)
         ];
       });
       let dcbHandler = Pulumi.all([

package/src/components/DcbEventLog/DcbEventLog_Builder.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as Pulumi from "@pulumi/pulumi";
 import * as Component$ReventlessCore from "../Component.res.mjs";
@@ -13,6 +13,7 @@ import * as DcbEventLog_Operations$ReventlessCore from "./DcbEventLog_Operations
 
 function Make(Storage) {
   return EventTopicPublisher => {
+    let eventSchema = Sury.json;
     let make = (name, indexesOpt, partitionTag, crossPartitionTagKeysOpt, opts) => {
       let indexes = indexesOpt !== undefined ? indexesOpt : [];
       let crossPartitionTagKeys = crossPartitionTagKeysOpt !== undefined ? crossPartitionTagKeysOpt : [];
@@ -31,7 +32,7 @@ function Make(Storage) {
         let SpecificEventTopic = EventTopic_Builder$ReventlessCore.Make({
           Id: Id$Reventless.$$String,
           name: "DcbEventLog",
-          eventSchema: S.json
+          eventSchema: eventSchema
         })(EventTopicPublisher);
         let eventTopic = SpecificEventTopic.make(extra$1, storage.resources, owner, Util_Pulumi$ReventlessCore.ComponentResourceOptions.ofCustomResourceOptions(opts));
         Component$ReventlessCore.setOperations(extra, Pulumi.all([
@@ -71,4 +72,4 @@ function Make(Storage) {
 export {
   Make,
 }
-/* S Not a pure module */
+/* sury Not a pure module */

package/src/components/EventCollector/EventCollector_Builder.res

@@ -11,7 +11,7 @@ let makeStreamHandler = (
   let jsonHandler: EventCollector.jsonEventsHandler = stream =>
     stream
     ->Stream.mapEffect(json =>
-      Effect.trySync(~catch=_exn => "decode error", () => json->S.parseOrThrow(schema))
+      Effect.trySync(~catch=_exn => "decode error", () => json->S.parseOrThrow(~to=schema))
     )
     ->jsonEventsHandler
 

package/src/components/InboundTranslationSlice/InboundTranslationSlice_Callback.res

@@ -1,4 +1,3 @@
-S.enableJson()
 // InboundTranslationSlice callback — receives external input and translates to commands.
 //
 // Maintains an audit log QueryDb and delegates translation to Translation.translate.
@@ -113,7 +112,7 @@ module Make = (
     let requestId = Uuid.v4()
 
     // Parse the external input
-    let input = try inputJson->S.parseOrThrow(Spec.externalInputSchema)->Ok catch {
+    let input = try inputJson->S.parseOrThrow(~to=Spec.externalInputSchema)->Ok catch {
     | exn =>
       let msg =
         exn

package/src/components/InboundTranslationSlice/InboundTranslationSlice_Callback.res.mjs

@@ -1,6 +1,7 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Uuid from "uuid";
 import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
 import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
@@ -10,20 +11,18 @@ import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_excep
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 
-S.enableJson();
-
-let auditStatusSchema = S.union([
-  S.literal("Success"),
-  S.literal("Failure")
+let auditStatusSchema = Sury.union([
+  Sury.literal("Success"),
+  Sury.literal("Failure")
 ]);
 
-let auditRowSchema = S.schema(s => ({
-  input: s.m(S.string),
+let auditRowSchema = Sury.$schema(s => ({
+  input: s.m(Sury.string),
   status: s.m(auditStatusSchema),
-  targetIds: s.m(S.option(S.array(S.string))),
-  commandCount: s.m(S.option(S.int)),
-  error: s.m(S.option(S.string)),
-  receivedAt: s.m(S.string)
+  targetIds: s.m(Sury.$option(Sury.array(Sury.string))),
+  commandCount: s.m(Sury.$option(Sury.int)),
+  error: s.m(Sury.$option(Sury.string)),
+  receivedAt: s.m(Sury.string)
 }));
 
 function receiveResultToOutcome(result) {
@@ -236,4 +235,4 @@ export {
   takeAuditRow,
   Make,
 }
-/*  Not a pure module */
+/* auditStatusSchema Not a pure module */

package/src/components/OutboundTranslationSlice/OutboundTranslationSlice_Callback.res

@@ -1,4 +1,3 @@
-S.enableJson()
 // OutboundTranslationSlice callback — implements the tracked external call pattern.
 //
 // Phase 1 (collect): updates the in-memory TODO list from events (no resolve)
@@ -144,7 +143,7 @@ module Make = (
         | Some(_) => () // Already exists -- skip (idempotent)
         | None =>
           let row: todoRow = {
-            item: item->S.reverseConvertToJsonOrThrow(Spec.outboundItemSchema),
+            item: item->Reventless.Util_Sury.toJson(Spec.outboundItemSchema),
             status: Pending,
             createdAt: now(),
             retryCount: 0,
@@ -170,7 +169,7 @@ module Make = (
     let _ = await pending->Array.reduce(Promise.resolve(), async (prev, (id, row)) => {
       let _ = await prev
 
-      let item = try row.item->S.parseJsonOrThrow(Spec.outboundItemSchema)->Some catch {
+      let item = try row.item->Reventless.Util_Sury.fromJson(Spec.outboundItemSchema)->Some catch {
       | exn =>
         let errMsg =
           exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("unknown")
@@ -200,7 +199,7 @@ module Make = (
         | Ok(Some((targetId, cmd))) =>
           // Encode command and publish
           let commandJson = try cmd
-          ->S.reverseConvertToJsonOrThrow(Spec.inboundCommandSchema)
+          ->Reventless.Util_Sury.toJson(Spec.inboundCommandSchema)
           ->Some catch {
           | exn =>
             let errMsg =

package/src/components/OutboundTranslationSlice/OutboundTranslationSlice_Callback.res.mjs

@@ -1,43 +1,42 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 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 Effect from "effect/Effect";
 import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as EffectLogger$ReventlessCore from "../../util/EffectLogger.res.mjs";
 
-S.enableJson();
-
-let todoStatusSchema = S.union([
-  S.literal("Pending"),
-  S.literal("Processing"),
-  S.literal("Completed"),
-  S.literal("Failed")
+let todoStatusSchema = Sury.union([
+  Sury.literal("Pending"),
+  Sury.literal("Processing"),
+  Sury.literal("Completed"),
+  Sury.literal("Failed")
 ]);
 
-let todoRowSchema = S.schema(s => ({
-  item: s.m(S.json),
+let todoRowSchema = Sury.$schema(s => ({
+  item: s.m(Sury.json),
   status: s.m(todoStatusSchema),
-  createdAt: s.m(S.string),
-  processedAt: s.m(S.option(S.string)),
-  completedAt: s.m(S.option(S.string)),
-  retryCount: s.m(S.int),
-  lastError: s.m(S.option(S.string))
+  createdAt: s.m(Sury.string),
+  processedAt: s.m(Sury.$option(Sury.string)),
+  completedAt: s.m(Sury.$option(Sury.string)),
+  retryCount: s.m(Sury.int),
+  lastError: s.m(Sury.$option(Sury.string))
 }));
 
 function todoRowSchemaFor(itemSchema) {
-  return S.schema(s => ({
+  return Sury.$schema(s => ({
     item: s.m(itemSchema),
     status: s.m(todoStatusSchema),
-    createdAt: s.m(S.string),
-    processedAt: s.m(S.option(S.string)),
-    completedAt: s.m(S.option(S.string)),
-    retryCount: s.m(S.int),
-    lastError: s.m(S.option(S.string))
+    createdAt: s.m(Sury.string),
+    processedAt: s.m(Sury.$option(Sury.string)),
+    completedAt: s.m(Sury.$option(Sury.string)),
+    retryCount: s.m(Sury.int),
+    lastError: s.m(Sury.$option(Sury.string))
   }));
 }
 
@@ -53,7 +52,7 @@ function Make(Spec) {
           if (match !== undefined) {
             return;
           }
-          let row_item = S.reverseConvertToJsonOrThrow(param[1], Spec.outboundItemSchema);
+          let row_item = Util_Sury$Reventless.toJson(param[1], Spec.outboundItemSchema);
           let row_createdAt = new Date().toISOString();
           let row = {
             item: row_item,
@@ -82,7 +81,7 @@ function Make(Spec) {
         await prev;
         let item;
         try {
-          item = Primitive_option.some(S.parseJsonOrThrow(row.item, Spec.outboundItemSchema));
+          item = Primitive_option.some(Util_Sury$Reventless.fromJson(row.item, Spec.outboundItemSchema));
         } catch (raw_exn) {
           let exn = Primitive_exceptions.internalToException(raw_exn);
           let errMsg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown");
@@ -112,7 +111,7 @@ function Make(Spec) {
           if (match !== undefined) {
             let commandJson;
             try {
-              commandJson = S.reverseConvertToJsonOrThrow(match[1], Spec.inboundCommandSchema);
+              commandJson = Util_Sury$Reventless.toJson(match[1], Spec.inboundCommandSchema);
             } catch (raw_exn$2) {
               let exn$2 = Primitive_exceptions.internalToException(raw_exn$2);
               let errMsg$1 = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn$2), Stdlib_JsExn.message), "unknown");
@@ -183,4 +182,4 @@ export {
   todoRowSchemaFor,
   Make,
 }
-/*  Not a pure module */
+/* todoStatusSchema Not a pure module */

package/src/components/SideEffectHandler/SideEffectHandler_Callback.res

@@ -25,7 +25,7 @@ module Make = (Spec: Spec): T => {
     ->JSON.Decode.object
     ->Option.flatMap(eventObj' => {
       let metaJson = eventObj'->Dict.get("meta")
-      switch metaJson->Option.map(meta => meta->S.parseJsonOrThrow(Message.metaSchema)) {
+      switch metaJson->Option.map(meta => meta->Reventless.Util_Sury.fromJson(Message.metaSchema)) {
       | Some(eventMeta) =>
         let entry =
           sideEffectsWithTags->Array.find(((module(SideEffect: Reventless.SideEffect.T), _)) =>

package/src/components/SideEffectHandler/SideEffectHandler_Callback.res.mjs

@@ -1,6 +1,5 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 import * as Effect from "@reventlessdev/rescript-effect/src/Effect.res.mjs";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
@@ -10,6 +9,7 @@ import * as Stream from "effect/Stream";
 import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as LogFormat$ReventlessCore from "../../util/LogFormat.res.mjs";
 import * as Util_Error$ReventlessCore from "../../util/Util_Error.res.mjs";
@@ -24,7 +24,7 @@ function Make(Spec) {
     let metaJson = eventObj$p["meta"];
     let eventMeta;
     try {
-      eventMeta = Stdlib_Option.map(metaJson, meta => S.parseJsonOrThrow(meta, Message$ReventlessCore.metaSchema));
+      eventMeta = Stdlib_Option.map(metaJson, meta => Util_Sury$Reventless.fromJson(meta, Message$ReventlessCore.metaSchema));
     } catch (raw_err) {
       let err = Primitive_exceptions.internalToException(raw_err);
       let errMsg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(err), Stdlib_JsExn.message), "unknown");
@@ -92,4 +92,4 @@ function Make(Spec) {
 export {
   Make,
 }
-/* S Not a pure module */
+/* Effect Not a pure module */

package/src/components/StateChangeSlice/StateChangeSlice_Callback.res

@@ -39,7 +39,7 @@ module Make = (
     // fields entirely, while the consumer side (DcbDecode) parses with the sury
     // schema — a js_nullable option field would reject the missing key and the
     // event would be dropped as schema drift.
-    let json = event->S.reverseConvertToJsonOrThrow(Spec.eventSchema)
+    let json = event->Reventless.Util_Sury.toJson(Spec.eventSchema)
     let (eventType, data) = json->Message.splitMessage
     // Use `extractTagsExpanded` (not `extractTags`) so per-element tags on
     // `array<string>` fields are emitted — e.g. OrderPlaced's
@@ -433,7 +433,7 @@ module Make = (
           | Error(error) =>
             // Business-rule rejection — no append, but the read snapshot is valid; cache it.
             cachePut((state, headPosition))
-            let errorJson = error->S.reverseConvertToJsonOrThrow(Spec.errorSchema)
+            let errorJson = error->Reventless.Util_Sury.toJson(Spec.errorSchema)
             let errorCode = errorJson->Message.variantNameOfJson
             let (_, payloadDict) = errorJson->Message.splitMessage
             let errorDetail =