@reventlessdev/reventless-local 3.0.0-alpha.226 → 3.0.0-alpha.228

package/tests/components/extensionpoint/ExtensionPointFixtures.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 LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
 import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
@@ -8,22 +8,20 @@ import * as TestFixtures$ReventlessLocal from "../../TestFixtures.res.mjs";
 import * as ExtensionPointMapping$ReventlessInfra from "@reventlessdev/reventless-infra/src/types/ExtensionPointMapping.res.mjs";
 import * as ExtensionPoint_Builder$ReventlessLocal from "../../../src/components/ExtensionPoint_Builder.res.mjs";
 
-S.enableJson();
-
 let Bus = LocalBus$ReventlessLocal.Make({});
 
 TestRunner$ReventlessLocal.setup();
 
 let name = "TestEP";
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "Forward",
-  targetId: s.m(S.string)
+  targetId: s.m(Sury.string)
 }));
 
-let eventSchema = S.literal("TEPNoEvent");
+let eventSchema = Sury.literal("TEPNoEvent");
 
-let directiveSchema = S.literal("TEPNoDirective");
+let directiveSchema = Sury.literal("TEPNoDirective");
 
 let moduleUrl = import.meta.url;
 
@@ -42,17 +40,17 @@ let TestEPSpec = {
 
 let name$1 = "TargetAgg";
 
-let commandSchema$1 = S.schema(s => ({
+let commandSchema$1 = Sury.$schema(s => ({
   TAG: "Execute",
-  targetId: s.m(S.string)
+  targetId: s.m(Sury.string)
 }));
 
-let eventSchema$1 = S.schema(s => ({
+let eventSchema$1 = Sury.$schema(s => ({
   TAG: "Executed",
-  targetId: s.m(S.string)
+  targetId: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("TEAggNoError");
+let errorSchema = Sury.literal("TEAggNoError");
 
 let moduleUrl$1 = import.meta.url;
 
@@ -185,4 +183,4 @@ export {
   testMeta,
   resetMocks,
 }
-/*  Not a pure module */
+/* Bus Not a pure module */

package/tests/components/extensionpoint/ExtensionPointTest.res

@@ -30,11 +30,11 @@ describe("ExtensionPoint (in-memory)", () => {
       // Build the full command body: {id, meta, command}
       let forwardCmdJson =
         TestEPSpec.Forward({targetId: "target-1"})
-        ->S.reverseConvertToJsonOrThrow(TestEPSpec.commandSchema)
+        ->Reventless.Util_Sury.toJson(TestEPSpec.commandSchema)
       let body = JSON.Encode.object(
         Dict.fromArray([
           ("id", JSON.Encode.string("ep-id-1")),
-          ("meta", testMeta->S.reverseConvertToJsonOrThrow(Reventless.Message.metaSchema)),
+          ("meta", testMeta->Reventless.Util_Sury.toJson(Reventless.Message.metaSchema)),
           ("command", forwardCmdJson),
         ]),
       )
@@ -49,7 +49,7 @@ describe("ExtensionPoint (in-memory)", () => {
       expect(cmd.id)->toBe("target-1")
 
       // commandJson should decode to Execute({targetId: "target-1"})
-      let decoded = cmd.commandJson->S.parseJsonOrThrow(DelegateAggSpec.commandSchema)
+      let decoded = cmd.commandJson->Reventless.Util_Sury.fromJson(DelegateAggSpec.commandSchema)
       expect(decoded)->toEqual(DelegateAggSpec.Execute({targetId: "target-1"}))
     },
   )

package/tests/components/extensionpoint/ExtensionPointTest.res.mjs

@@ -1,7 +1,7 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
 import * as ExtensionPointFixtures$ReventlessLocal from "./ExtensionPointFixtures.res.mjs";
 
@@ -14,7 +14,7 @@ globalThis.beforeAll(async () => {
 globalThis.describe("ExtensionPoint (in-memory)", () => {
   globalThis.beforeEach(() => ExtensionPointFixtures$ReventlessLocal.resetMocks());
   globalThis.test("dispatching Forward command calls publishToAggregates with Execute command", async () => {
-    let forwardCmdJson = S.reverseConvertToJsonOrThrow({
+    let forwardCmdJson = Util_Sury$Reventless.toJson({
       TAG: "Forward",
       targetId: "target-1"
     }, ExtensionPointFixtures$ReventlessLocal.TestEPSpec.commandSchema);
@@ -25,7 +25,7 @@ globalThis.describe("ExtensionPoint (in-memory)", () => {
       ],
       [
         "meta",
-        S.reverseConvertToJsonOrThrow(ExtensionPointFixtures$ReventlessLocal.testMeta, Message$Reventless.metaSchema)
+        Util_Sury$Reventless.toJson(ExtensionPointFixtures$ReventlessLocal.testMeta, Message$Reventless.metaSchema)
       ],
       [
         "command",
@@ -36,7 +36,7 @@ globalThis.describe("ExtensionPoint (in-memory)", () => {
     globalThis.expect(ExtensionPointFixtures$ReventlessLocal.capturedCmds.contents.length).toBe(1);
     let cmd = ExtensionPointFixtures$ReventlessLocal.capturedCmds.contents[0];
     globalThis.expect(cmd.id).toBe("target-1");
-    let decoded = S.parseJsonOrThrow(cmd.commandJson, ExtensionPointFixtures$ReventlessLocal.DelegateAggSpec.commandSchema);
+    let decoded = Util_Sury$Reventless.fromJson(cmd.commandJson, ExtensionPointFixtures$ReventlessLocal.DelegateAggSpec.commandSchema);
     globalThis.expect(decoded).toEqual({
       TAG: "Execute",
       targetId: "target-1"

package/tests/components/inboundtranslationslice/InboundTranslationSliceCallbackTest.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_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.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";
@@ -164,14 +164,14 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
   globalThis.describe("multi-command", () => {
     globalThis.test("translate returning multiple pairs publishes all commands", async () => {
       let moduleUrl = import.meta.url;
-      let externalInputSchema = S.schema(s => ({
-        orderId: s.m(S.string),
-        items: s.m(S.array(S.string))
+      let externalInputSchema = Sury.$schema(s => ({
+        orderId: s.m(Sury.string),
+        items: s.m(Sury.array(Sury.string))
       }));
-      let commandSchema = S.schema(s => ({
+      let commandSchema = Sury.$schema(s => ({
         TAG: "ConfirmPayment",
         orderId: s.m(DcbTag$Reventless.string),
-        paymentId: s.m(S.string)
+        paymentId: s.m(Sury.string)
       }));
       let translate = input => ({
         TAG: "Ok",
@@ -234,13 +234,13 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
     });
     globalThis.test("translate returning empty array publishes nothing", async () => {
       let moduleUrl = import.meta.url;
-      let externalInputSchema = S.schema(s => ({
-        orderId: s.m(S.string)
+      let externalInputSchema = Sury.$schema(s => ({
+        orderId: s.m(Sury.string)
       }));
-      let commandSchema = S.schema(s => ({
+      let commandSchema = Sury.$schema(s => ({
         TAG: "ConfirmPayment",
         orderId: s.m(DcbTag$Reventless.string),
-        paymentId: s.m(S.string)
+        paymentId: s.m(Sury.string)
       }));
       let translate = _input => ({
         TAG: "Ok",

package/tests/components/inboundtranslationslice/InboundTranslationSliceFixtures.res.mjs

@@ -1,14 +1,14 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 
 let moduleUrl = import.meta.url;
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "PaymentConfirmed",
   orderId: s.m(DcbTag$Reventless.string),
-  paymentId: s.m(S.string)
+  paymentId: s.m(Sury.string)
 }));
 
 let OrderEventLog = {
@@ -18,16 +18,16 @@ let OrderEventLog = {
 
 let moduleUrl$1 = import.meta.url;
 
-let externalInputSchema = S.schema(s => ({
-  paymentId: s.m(S.string),
-  orderId: s.m(S.string),
-  status: s.m(S.string)
+let externalInputSchema = Sury.$schema(s => ({
+  paymentId: s.m(Sury.string),
+  orderId: s.m(Sury.string),
+  status: s.m(Sury.string)
 }));
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "ConfirmPayment",
   orderId: s.m(DcbTag$Reventless.string),
-  paymentId: s.m(S.string)
+  paymentId: s.m(Sury.string)
 }));
 
 function translate(input) {

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

@@ -1,20 +1,20 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 
 let moduleUrl = import.meta.url;
 
-let eventSchema = S.union([
-  S.schema(s => ({
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "OrderShipped",
     orderId: s.m(DcbTag$Reventless.string),
-    email: s.m(S.string)
+    email: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "PaymentReceived",
     orderId: s.m(DcbTag$Reventless.string),
-    amount: s.m(S.float)
+    amount: s.m(Sury.float)
   }))
 ]);
 
@@ -25,17 +25,19 @@ let OrderEventLog = {
 
 let moduleUrl$1 = import.meta.url;
 
-let consumedEventSchema = S.schema(s => ({
+let consumedEventSchema = Sury.$schema(s => ({
   TAG: "OrderShipped",
-  orderId: s.m(S.string),
-  email: s.m(S.string)
+  orderId: s.m(Sury.string),
+  email: s.m(Sury.string)
 }));
 
-let outboundItemSchema = S.schema(s => ({
-  orderId: s.m(S.string),
-  email: s.m(S.string)
+let outboundItemSchema = Sury.$schema(s => ({
+  orderId: s.m(Sury.string),
+  email: s.m(Sury.string)
 }));
 
+let inboundCommandSchema = Sury.$unit;
+
 function collect(event, param) {
   let orderId = event.orderId;
   return [[
@@ -61,7 +63,7 @@ let SendTrackingEmailSpec = {
   moduleUrl: moduleUrl$1,
   consumedEventSchema: consumedEventSchema,
   outboundItemSchema: outboundItemSchema,
-  inboundCommandSchema: S.unit,
+  inboundCommandSchema: inboundCommandSchema,
   collect: collect,
   translate: translate,
   maxRetries: 3,
@@ -73,18 +75,18 @@ let SendTrackingEmailSpec = {
 
 let moduleUrl$2 = import.meta.url;
 
-let consumedEventSchema$1 = S.schema(s => ({
+let consumedEventSchema$1 = Sury.$schema(s => ({
   TAG: "PaymentReceived",
-  orderId: s.m(S.string),
-  amount: s.m(S.float)
+  orderId: s.m(Sury.string),
+  amount: s.m(Sury.float)
 }));
 
-let outboundItemSchema$1 = S.schema(s => ({
-  orderId: s.m(S.string),
-  amount: s.m(S.float)
+let outboundItemSchema$1 = Sury.$schema(s => ({
+  orderId: s.m(Sury.string),
+  amount: s.m(Sury.float)
 }));
 
-let inboundCommandSchema = S.schema(s => ({
+let inboundCommandSchema$1 = Sury.$schema(s => ({
   TAG: "ConfirmPayment",
   orderId: s.m(DcbTag$Reventless.string)
 }));
@@ -126,7 +128,7 @@ let ProcessPaymentSpec = {
   moduleUrl: moduleUrl$2,
   consumedEventSchema: consumedEventSchema$1,
   outboundItemSchema: outboundItemSchema$1,
-  inboundCommandSchema: inboundCommandSchema,
+  inboundCommandSchema: inboundCommandSchema$1,
   collect: collect$1,
   translateFn: translateFn,
   translate: translate$1,

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res

@@ -152,7 +152,7 @@ let publishJsons: ReventlessInfra.CommandTopic.publishJsons = async cmdJsons =>
       let fullBody = 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),
         ]),
       )
@@ -196,7 +196,7 @@ let placeCmdJson = (orderId: string): Reventless.Message.commandJson => {
   id: orderId,
   meta: testMeta,
   commandJson: PlaceSpec.Place({orderId, customerId: "cust-" ++ orderId})
-    ->S.reverseConvertToJsonOrThrow(PlaceSpec.commandSchema),
+    ->Reventless.Util_Sury.toJson(PlaceSpec.commandSchema),
 }
 
 let readEventTypes = async (orderId: string) => {

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.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 Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
@@ -8,6 +8,7 @@ import * as Stream from "effect/Stream";
 import * as Pulumi from "@pulumi/pulumi";
 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 Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
 import * as Component$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Component.res.mjs";
 import * as TestRunner$ReventlessLocal from "../../../src/test/TestRunner.res.mjs";
@@ -21,21 +22,21 @@ let name = "Place";
 
 let moduleUrl = import.meta.url;
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "Placed",
   orderId: s.m(DcbTag$Reventless.string),
-  customerId: s.m(S.string)
+  customerId: s.m(Sury.string)
 }));
 
-let consumedEventSchema = S.literal("Placed");
+let consumedEventSchema = Sury.literal("Placed");
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "Place",
   orderId: s.m(DcbTag$Reventless.string),
-  customerId: s.m(S.string)
+  customerId: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("AlreadyPlaced");
+let errorSchema = Sury.literal("AlreadyPlaced");
 
 function commandAuthorization(param) {
   return "AllowAuthenticated";
@@ -87,15 +88,17 @@ let PlaceBehavior = {
 
 let moduleUrl$2 = import.meta.url;
 
-let consumedEventSchema$1 = S.schema(s => ({
+let consumedEventSchema$1 = Sury.$schema(s => ({
   TAG: "Placed",
-  orderId: s.m(S.string)
+  orderId: s.m(Sury.string)
 }));
 
-let outboundItemSchema = S.schema(s => ({
-  orderId: s.m(S.string)
+let outboundItemSchema = Sury.$schema(s => ({
+  orderId: s.m(Sury.string)
 }));
 
+let inboundCommandSchema = Sury.$unit;
+
 let sourceNames = [];
 
 let SendConfirmSpec_externalSystem = "EmailService";
@@ -105,7 +108,7 @@ let SendConfirmSpec = {
   moduleUrl: moduleUrl$2,
   consumedEventSchema: consumedEventSchema$1,
   outboundItemSchema: outboundItemSchema,
-  inboundCommandSchema: S.unit,
+  inboundCommandSchema: inboundCommandSchema,
   maxRetries: 3,
   heartbeatInterval: 60,
   targetName: undefined,
@@ -173,7 +176,7 @@ async function publishJsons(cmdJsons) {
       ],
       [
         "meta",
-        S.reverseConvertToJsonOrThrow(cmdJson.meta, Message$Reventless.metaSchema)
+        Util_Sury$Reventless.toJson(cmdJson.meta, Message$Reventless.metaSchema)
       ],
       [
         "command",
@@ -225,7 +228,7 @@ function placeCmdJson(orderId) {
   return {
     id: orderId,
     meta: TestFixtures$ReventlessLocal.testMeta,
-    commandJson: S.reverseConvertToJsonOrThrow({
+    commandJson: Util_Sury$Reventless.toJson({
       TAG: "Place",
       orderId: orderId,
       customerId: "cust-" + orderId

package/tests/components/querydb/QueryDbFixtures.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 ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
 import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
@@ -13,9 +13,9 @@ let name = "TestItemQueryDb";
 
 let moduleUrl = import.meta.url;
 
-let stateSchema = S.schema(s => ({
-  name: s.m(S.string),
-  count: s.m(S.int)
+let stateSchema = Sury.$schema(s => ({
+  name: s.m(Sury.string),
+  count: s.m(Sury.int)
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, undefined);

package/tests/components/querydb/QueryDbSubIdFixtures.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 ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
 import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
@@ -13,11 +13,11 @@ let name = "TestMetricQueryDb";
 
 let moduleUrl = import.meta.url;
 
-let stateSchema = S.schema(s => ({
-  userId: s.m(S.string),
-  region: s.m(S.string),
-  date: s.m(S.string),
-  value: s.m(S.float)
+let stateSchema = Sury.$schema(s => ({
+  userId: s.m(Sury.string),
+  region: s.m(Sury.string),
+  date: s.m(Sury.string),
+  value: s.m(Sury.float)
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, undefined);

package/tests/components/readmodel/DcbReadModelE2EFixtures.res

@@ -153,7 +153,7 @@ let publishJsons: ReventlessInfra.CommandTopic.publishJsons = async cmdJsons =>
     let fullBody = 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),
       ]),
     )
@@ -199,7 +199,7 @@ let dispatch = async (commandJson, id) =>
 
 let addProductCmd = (productId, name) =>
   AddProductSpec.AddProduct({productId, name})
-  ->S.reverseConvertToJsonOrThrow(AddProductSpec.commandSchema)
+  ->Reventless.Util_Sury.toJson(AddProductSpec.commandSchema)
 
 let loadState = async productId => {
   switch Bus.getQueryDb("TestProductsReadModel") {
@@ -210,6 +210,6 @@ let loadState = async productId => {
       ->Stream.runCollect
       ->Effect.catchAll(_ => Effect.succeed([]))
       ->Effect.runPromise
-    states->Array.map(json => json->S.parseJsonOrThrow(ProductsReadModelSpec.stateSchema))
+    states->Array.map(json => json->Reventless.Util_Sury.fromJson(ProductsReadModelSpec.stateSchema))
   }
 }

package/tests/components/readmodel/DcbReadModelE2EFixtures.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 Stream from "@reventlessdev/rescript-effect/src/Stream.res.mjs";
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
@@ -10,6 +10,7 @@ import * as Pulumi from "@pulumi/pulumi";
 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 ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
 import * as LocalBus$ReventlessLocal from "../../../src/adapter/LocalBus.res.mjs";
 import * as Component$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Component.res.mjs";
@@ -24,21 +25,21 @@ let name = "AddProduct";
 
 let moduleUrl = import.meta.url;
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "ProductAdded",
   productId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let consumedEventSchema = S.literal("ProductAdded");
+let consumedEventSchema = Sury.literal("ProductAdded");
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "AddProduct",
   productId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("ProductAlreadyExists");
+let errorSchema = Sury.literal("ProductAlreadyExists");
 
 function commandAuthorization(param) {
   return "AllowAuthenticated";
@@ -90,10 +91,10 @@ let AddProductBehavior = {
 
 let name$1 = "ProductCatalogDcbEventLog";
 
-let eventSchema$1 = S.schema(s => ({
+let eventSchema$1 = Sury.$schema(s => ({
   TAG: "ProductAdded",
-  productId: s.m(S.string),
-  name: s.m(S.string)
+  productId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
 let ProductCatalogDcbSource = {
@@ -106,9 +107,9 @@ let name$2 = "TestProductsReadModel";
 
 let moduleUrl$2 = import.meta.url;
 
-let stateSchema = S.schema(s => ({
-  productId: s.m(S.string),
-  name: s.m(S.string)
+let stateSchema = Sury.$schema(s => ({
+  productId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, undefined);
@@ -212,7 +213,7 @@ async function publishJsons(cmdJsons) {
       ],
       [
         "meta",
-        S.reverseConvertToJsonOrThrow(cmdJson.meta, Message$Reventless.metaSchema)
+        Util_Sury$Reventless.toJson(cmdJson.meta, Message$Reventless.metaSchema)
       ],
       [
         "command",
@@ -266,7 +267,7 @@ async function dispatch(commandJson, id) {
 }
 
 function addProductCmd(productId, name) {
-  return S.reverseConvertToJsonOrThrow({
+  return Util_Sury$Reventless.toJson({
     TAG: "AddProduct",
     productId: productId,
     name: name
@@ -279,7 +280,7 @@ async function loadState(productId) {
     return [];
   }
   let states = await Effect.runPromise(Effect.catchAll(Stream.runCollect(ops.loadStream(productId)), param => Effect.succeed([])));
-  return states.map(json => S.parseJsonOrThrow(json, stateSchema));
+  return states.map(json => Util_Sury$Reventless.fromJson(json, stateSchema));
 }
 
 export {

package/tests/components/readmodel/DcbReadModelTypoFailFastTest.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_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
@@ -19,10 +19,10 @@ TestRunner$ReventlessLocal.setup();
 
 let name = "MissingDcb";
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "ProductAdded",
-  productId: s.m(S.string),
-  name: s.m(S.string)
+  productId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
 let TypoSource = {
@@ -35,9 +35,9 @@ let name$1 = "TypoCheckReadModel";
 
 let moduleUrl = import.meta.url;
 
-let stateSchema = S.schema(s => ({
-  productId: s.m(S.string),
-  name: s.m(S.string)
+let stateSchema = Sury.$schema(s => ({
+  productId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, undefined);

package/tests/components/readmodel/MixedSourceReadModelFixtures.res

@@ -148,8 +148,8 @@ let publishAggregateEvent = async (id, event: AggregateSource.event) => {
   let eventJson = JSON.Encode.object(
     Dict.fromArray([
       ("id", id->JSON.Encode.string),
-      ("meta", meta->S.reverseConvertToJsonOrThrow(Message.metaSchema)),
-      ("event", event->S.reverseConvertToJsonOrThrow(AggregateSource.eventSchema)),
+      ("meta", meta->Reventless.Util_Sury.toJson(Message.metaSchema)),
+      ("event", event->Reventless.Util_Sury.toJson(AggregateSource.eventSchema)),
     ]),
   )
   await Bus.publishEvent(aggregateTopicName, "test", meta, eventJson)
@@ -160,8 +160,8 @@ let publishDcbEvent = async (id, event: DcbSource.event) => {
   let eventJson = JSON.Encode.object(
     Dict.fromArray([
       ("id", id->JSON.Encode.string),
-      ("meta", meta->S.reverseConvertToJsonOrThrow(Message.metaSchema)),
-      ("event", event->S.reverseConvertToJsonOrThrow(DcbSource.eventSchema)),
+      ("meta", meta->Reventless.Util_Sury.toJson(Message.metaSchema)),
+      ("event", event->Reventless.Util_Sury.toJson(DcbSource.eventSchema)),
     ]),
   )
   await Bus.publishEvent(dcbTopicName, "test", meta, eventJson)
@@ -176,6 +176,6 @@ let loadState = async id => {
       ->Stream.runCollect
       ->Effect.catchAll(_ => Effect.succeed([]))
       ->Effect.runPromise
-    states->Array.map(json => json->S.parseJsonOrThrow(MixedReadModelSpec.stateSchema))
+    states->Array.map(json => json->Reventless.Util_Sury.fromJson(MixedReadModelSpec.stateSchema))
   }
 }