@reventlessdev/reventless-local 3.0.0-alpha.227 → 3.0.0-alpha.229

package/src/adapter/MCP_ServerInstance.res

@@ -157,7 +157,7 @@ let make = (~label: string="MCP"): t => {
       | Some(json) =>
         json
         ->JSON.parseOrThrow
-        ->S.parseOrThrow(Reventless.Identity.schema)
+        ->S.parseOrThrow(~to=Reventless.Identity.schema)
       | None => Reventless.Identity.anonymous
       }
     } catch {

package/tests/BakedManifestFilesTest.res

@@ -16,7 +16,6 @@ let keysOf = (config: ReventlessInfra.Platform.bakedManifest) =>
   BakedManifest.files(~config)->Array.map(((key, _)) => key)
 
 describe("BakedManifest.files", () => {
-  open Expect
 
   // The regression line: one declaration, one file, under the name every
   // existing deployment's config.json already points at.

package/tests/PluginEventDecodeTest.res

@@ -16,7 +16,7 @@ let envelopeOf = (event: ReventlessCore.PluginSpec.event) =>
     "Catalog",
     meta,
     ~recordedAt="2024-01-01T00:00:00Z",
-    event->S.reverseConvertToJsonOrThrow(ReventlessCore.PluginSpec.eventSchema),
+    event->Reventless.Util_Sury.toJson(ReventlessCore.PluginSpec.eventSchema),
   )
 
 describe("Platform.decodePluginEventEnvelope", () => {
@@ -38,7 +38,7 @@ describe("Platform.decodePluginEventEnvelope", () => {
   testSync("returns None for a bare event JSON (no envelope) and malformed input", () => {
     // The old bug class: input that is not the {id, meta, event} envelope.
     let bare =
-      ReventlessCore.PluginSpec.VersionDetected("2.0.0")->S.reverseConvertToJsonOrThrow(
+      ReventlessCore.PluginSpec.VersionDetected("2.0.0")->Reventless.Util_Sury.toJson(
         ReventlessCore.PluginSpec.eventSchema,
       )
     expect(Platform.decodePluginEventEnvelope(bare))->toEqual(None)
@@ -64,7 +64,7 @@ describe("Platform.decodeUiFragmentRegistryEventEnvelope", () => {
   }
 
   let dcbEnvelopeOf = (event: ReventlessCore.UiFragmentRegistry.event) => {
-    let json = event->S.reverseConvertToJsonOrThrow(ReventlessCore.UiFragmentRegistry.eventSchema)
+    let json = event->Reventless.Util_Sury.toJson(ReventlessCore.UiFragmentRegistry.eventSchema)
     let (eventType, data) = json->ReventlessCore.Message.splitMessage
     ReventlessCore.Message.composeEventJson'(
       "Catalog",

package/tests/PluginEventDecodeTest.res.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as Message$ReventlessCore from "@reventlessdev/reventless-core/src/Message.res.mjs";
 import * as Platform$ReventlessLocal from "../src/Platform.res.mjs";
 import * as PluginSpec$ReventlessCore from "@reventlessdev/reventless-core/src/plugin/lifecycle/PluginSpec.res.mjs";
@@ -15,7 +15,7 @@ TestRunner$ReventlessLocal.setup();
 let meta = Message$ReventlessCore.generateMeta(PluginSpec$ReventlessCore.name, undefined, undefined, undefined, undefined, undefined, undefined, undefined);
 
 function envelopeOf(event) {
-  return Message$ReventlessCore.composeEventJson$p("Catalog", meta, "2024-01-01T00:00:00Z", S.reverseConvertToJsonOrThrow(event, PluginSpec$ReventlessCore.eventSchema));
+  return Message$ReventlessCore.composeEventJson$p("Catalog", meta, "2024-01-01T00:00:00Z", Util_Sury$Reventless.toJson(event, PluginSpec$ReventlessCore.eventSchema));
 }
 
 globalThis.describe("Platform.decodePluginEventEnvelope", () => {
@@ -46,7 +46,7 @@ globalThis.describe("Platform.decodePluginEventEnvelope", () => {
     });
   });
   globalThis.test("returns None for a bare event JSON (no envelope) and malformed input", () => {
-    let bare = S.reverseConvertToJsonOrThrow({
+    let bare = Util_Sury$Reventless.toJson({
       TAG: "VersionDetected",
       _0: "2.0.0"
     }, PluginSpec$ReventlessCore.eventSchema);
@@ -62,7 +62,7 @@ globalThis.describe("Platform.decodePluginEventEnvelope", () => {
 globalThis.describe("Platform.decodeUiFragmentRegistryEventEnvelope", () => {
   let dcbMeta = Message$ReventlessCore.generateMeta(ComponentType$ReventlessCore.name(Platform_Admin_Structure$ReventlessCore.pluginId, "DcbEventLog"), undefined, undefined, undefined, undefined, undefined, undefined, undefined);
   let dcbEnvelopeOf = event => {
-    let json = S.reverseConvertToJsonOrThrow(event, UiFragmentRegistry$ReventlessCore.eventSchema);
+    let json = Util_Sury$Reventless.toJson(event, UiFragmentRegistry$ReventlessCore.eventSchema);
     let match = Message$ReventlessCore.splitMessage(json);
     return Message$ReventlessCore.composeEventJson$p("Catalog", dcbMeta, "2024-01-01T00:00:00Z", Message$ReventlessCore.combineMessage(match[0], match[1]));
   };

package/tests/ShellConfigTest.res

@@ -167,7 +167,6 @@ let fulfilment: ReventlessInfra.Platform.bakedJourney = {
 }
 
 describe("ShellConfig.overlay — journeys", () => {
-  open Expect
 
   // The regression line. A shell that has never heard of journeys must not
   // suddenly find a key it does not know.

package/tests/adapter/CommandAuthorizationTest.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";
@@ -15,16 +15,16 @@ import * as CommandGeneratorResolvers_GraphQL$ReventlessLocal from "../../src/ad
 
 TestRunner$ReventlessLocal.setup();
 
-let commandSchema = S.union([
-  S.schema(s => ({
+let commandSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "Add",
-    name: s.m(S.string)
+    name: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Rename",
-    name: s.m(S.string)
+    name: s.m(Sury.string)
   })),
-  S.literal("Archive")
+  Sury.literal("Archive")
 ]);
 
 function commandAuthorization(cmd) {

package/tests/adapter/GraphQL_SchemaInspectorTest.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_Option from "@rescript/runtime/lib/es6/Stdlib_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";
@@ -16,87 +16,93 @@ import * as Plugin_SubscriptionSchema$ReventlessCore from "@reventlessdev/revent
 
 TestRunner$ReventlessLocal.setup();
 
-let testStateSchema = S.schema(s => ({
+let stringSchema = Sury.string;
+
+let numberSchema = Sury.float;
+
+let boolSchema = Sury.bool;
+
+let testStateSchema = Sury.$schema(s => ({
   id: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string),
-  price: s.m(S.float),
-  active: s.m(S.bool)
+  name: s.m(Sury.string),
+  price: s.m(Sury.float),
+  active: s.m(Sury.bool)
 }));
 
-let svStateSchema = S.schema(s => ({
+let svStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string),
-  price: s.m(S.float)
+  name: s.m(Sury.string),
+  price: s.m(Sury.float)
 }));
 
-let sourceKindSchema = S.union([
-  S.literal("tagged"),
-  S.literal("ancestry"),
-  S.literal("substrate")
+let sourceKindSchema = Sury.union([
+  Sury.literal("tagged"),
+  Sury.literal("ancestry"),
+  Sury.literal("substrate")
 ]);
 
-let enumStateSchema = S.schema(s => ({
+let enumStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
   requiredSource: s.m(sourceKindSchema),
-  optionalSource: s.m(S.option(sourceKindSchema))
+  optionalSource: s.m(Sury.$option(sourceKindSchema))
 }));
 
-let addCommandSchema = S.schema(s => ({
+let addCommandSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let unionCommandSchema = S.union([
-  S.schema(s => ({
+let unionCommandSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "Create",
     itemId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string)
+    name: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "Rename",
     itemId: s.m(DcbTag$Reventless.string),
-    newName: s.m(S.string)
+    newName: s.m(Sury.string)
   }))
 ]);
 
-let dcbSingleCommandSchema = S.schema(s => ({
+let dcbSingleCommandSchema = Sury.$schema(s => ({
   TAG: "AddCategory",
   categoryId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let dcbMultiCommandSchema = S.union([
-  S.schema(s => ({
+let dcbMultiCommandSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "SyncNewProduct",
     productId: s.m(DcbTag$Reventless.string),
-    name: s.m(S.string),
-    price: s.m(S.float)
+    name: s.m(Sury.string),
+    price: s.m(Sury.float)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ChangeSyncedPrice",
     productId: s.m(DcbTag$Reventless.string),
-    price: s.m(S.float)
+    price: s.m(Sury.float)
   }))
 ]);
 
-let plainStateSchema = S.schema(s => ({
+let plainStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let keylessStateSchema = S.schema(s => ({
-  name: s.m(S.string),
-  note: s.m(S.string)
+let keylessStateSchema = Sury.$schema(s => ({
+  name: s.m(Sury.string),
+  note: s.m(Sury.string)
 }));
 
-let indexedStateSchema = S.schema(s => ({
+let indexedStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  ownerId: s.m(S.string),
-  status: s.m(S.string),
-  name: s.m(S.string)
+  ownerId: s.m(Sury.string),
+  status: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let indexedStateSchemaWithAnnotations = S.Metadata.set(indexedStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
+let indexedStateSchemaWithAnnotations = Sury.$Metadata_set(indexedStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
   ids: ["productId"],
   compositeIds: [],
   subIds: [],
@@ -121,13 +127,13 @@ let indexedStateSchemaWithAnnotations = S.Metadata.set(indexedStateSchema, State
   retired: undefined
 });
 
-let orderedStateSchema = S.schema(s => ({
+let orderedStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  createdAt: s.m(S.string),
-  name: s.m(S.string)
+  createdAt: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let orderedStateSchemaWithAnnotations = S.Metadata.set(orderedStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
+let orderedStateSchemaWithAnnotations = Sury.$Metadata_set(orderedStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
   ids: ["productId"],
   compositeIds: [],
   subIds: ["createdAt"],
@@ -149,14 +155,14 @@ let orderedStateSchemaWithAnnotations = S.Metadata.set(orderedStateSchema, State
   retired: undefined
 });
 
-let scanStateSchema = S.schema(s => ({
+let scanStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  status: s.m(S.string),
-  name: s.m(S.string),
-  description: s.m(S.string)
+  status: s.m(Sury.string),
+  name: s.m(Sury.string),
+  description: s.m(Sury.string)
 }));
 
-let scanStateSchemaWithAnnotations = S.Metadata.set(scanStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
+let scanStateSchemaWithAnnotations = Sury.$Metadata_set(scanStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
   ids: ["productId"],
   compositeIds: [],
   subIds: [],
@@ -181,16 +187,16 @@ let scanStateSchemaWithAnnotations = S.Metadata.set(scanStateSchema, StateAnnota
 globalThis.describe("GraphQL_SchemaInspector", () => {
   globalThis.describe("inspectScalar", () => {
     globalThis.test("plain string derives to String", async () => {
-      globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(S.string)).toBe("String");
+      globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(stringSchema)).toBe("String");
     });
     globalThis.test("tagged string derives to ID", async () => {
       globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(DcbTag$Reventless.string)).toBe("ID");
     });
     globalThis.test("float derives to Float", async () => {
-      globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(S.float)).toBe("Float");
+      globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(numberSchema)).toBe("Float");
     });
     globalThis.test("bool derives to Boolean", async () => {
-      globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(S.bool)).toBe("Boolean");
+      globalThis.expect(GraphQL_SchemaInspector$ReventlessCore.inspectScalar(boolSchema)).toBe("Boolean");
     });
   });
   globalThis.describe("inspectObjectType", () => {
@@ -205,7 +211,7 @@ globalThis.describe("GraphQL_SchemaInspector", () => {
       globalThis.expect(sdl.includes("active: Boolean")).toBe(true);
     });
     globalThis.test("returns None for non-object schema", async () => {
-      let result = GraphQL_SchemaInspector$ReventlessCore.inspectObjectType("Foo", S.string);
+      let result = GraphQL_SchemaInspector$ReventlessCore.inspectObjectType("Foo", stringSchema);
       globalThis.expect(Stdlib_Option.isNone(result)).toBe(true);
     });
   });
@@ -229,7 +235,7 @@ globalThis.describe("GraphQL_SchemaInspector", () => {
       globalThis.expect(renameField.includes("newName: String")).toBe(true);
     });
     globalThis.test("returns empty for non-object/non-union schema", async () => {
-      let fields = GraphQL_SchemaInspector$ReventlessCore.inspectMutationFields("Foo", S.string);
+      let fields = GraphQL_SchemaInspector$ReventlessCore.inspectMutationFields("Foo", stringSchema);
       globalThis.expect(fields.length).toBe(0);
     });
   });
@@ -707,14 +713,8 @@ globalThis.describe("optional enum fields preserve GraphQL nullability", () => {
   });
 });
 
-let stringSchema = S.string;
-
 let taggedSchema = DcbTag$Reventless.string;
 
-let numberSchema = S.float;
-
-let boolSchema = S.bool;
-
 export {
   stringSchema,
   taggedSchema,

package/tests/adapter/LocalAuthHttpTest.res

@@ -163,7 +163,7 @@ testPromise("POST /__inmemory/login returns {token, identity} for valid credenti
   // The echoed identity matches what LocalAuth.lookupUser returns.
   switch getJsonField(body, "identity") {
   | Some(idJson) =>
-    let id = idJson->S.parseJsonOrThrow(Reventless.Identity.schema)
+    let id = idJson->Reventless.Util_Sury.fromJson(Reventless.Identity.schema)
     expect(id.username)->toEqual("alice")
     expect(id.groups)->toEqual(["Editor"])
   | None => JsError.throwWithMessage("response missing identity field")

package/tests/adapter/LocalAuthHttpTest.res.mjs

@@ -1,11 +1,11 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
 import * as Nodehttp from "node:http";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.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 Identity$Reventless from "@reventlessdev/reventless-spec/src/types/Identity.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 import * as LocalAuth$ReventlessLocal from "../../src/adapter/Auth/LocalAuth.res.mjs";
 import * as TestRunner$ReventlessLocal from "../../src/test/TestRunner.res.mjs";
 import * as DomainGraphQL_Server$ReventlessLocal from "../../src/adapter/DomainGraphQL_Server.res.mjs";
@@ -151,7 +151,7 @@ globalThis.test("POST /__inmemory/login returns {token, identity} for valid cred
   if (idJson === undefined) {
     return Stdlib_JsError.throwWithMessage("response missing identity field");
   }
-  let id = S.parseJsonOrThrow(idJson, Identity$Reventless.schema);
+  let id = Util_Sury$Reventless.fromJson(idJson, Identity$Reventless.schema);
   globalThis.expect(id.username).toEqual("alice");
   globalThis.expect(id.groups).toEqual(["Editor"]);
 });

package/tests/adapter/QueryDbListResolverTest.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 Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
@@ -26,13 +26,13 @@ import * as QueryDbResolvers_GraphQL$ReventlessLocal from "../../src/adapter/Que
 
 TestRunner$ReventlessLocal.setup();
 
-let rowStateSchema = S.schema(s => ({
+let rowStateSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string),
-  status: s.m(S.string),
-  name: s.m(S.string)
+  status: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let rowStateSchemaWithAnnotations = S.Metadata.set(rowStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
+let rowStateSchemaWithAnnotations = Sury.$Metadata_set(rowStateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
   ids: ["productId"],
   compositeIds: [],
   subIds: [],

package/tests/components/aggregate/AggregateFixtures.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";
@@ -9,17 +9,17 @@ import * as Aggregate_Builder$ReventlessLocal from "../../../src/components/Aggr
 
 let name = "TestItem";
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "CreateItem",
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "ItemCreated",
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("AlreadyExists");
+let errorSchema = Sury.literal("AlreadyExists");
 
 let moduleUrl = import.meta.url;
 

package/tests/components/automationslice/AutomationSliceFixtures.res

@@ -138,7 +138,7 @@ let testContext: Reventless.AutomationSlice.context = {
 // the event payload with a `meta.service` matching the source name so the
 // callback's per-source dispatch picks the right mapping.
 let encodeShipOrderEvent = (event: ShipOrderSource.event): JSON.t => {
-  let payloadJson = event->S.reverseConvertToJsonOrThrow(ShipOrderSource.eventSchema)
+  let payloadJson = event->Reventless.Util_Sury.toJson(ShipOrderSource.eventSchema)
   let dict = switch payloadJson->JSON.Decode.object {
   | Some(d) => d->Dict.copy
   | None =>
@@ -158,13 +158,13 @@ let encodeShipOrderEvent = (event: ShipOrderSource.event): JSON.t => {
     msgId: "msg-1",
     correlationId: "",
   }
-  dict->Dict.set("meta", meta->S.reverseConvertToJsonOrThrow(Reventless.Message.metaSchema))
+  dict->Dict.set("meta", meta->Reventless.Util_Sury.toJson(Reventless.Message.metaSchema))
   dict->Dict.set("id", JSON.Encode.string("env-id"))
   JSON.Encode.object(dict)
 }
 
 let encodeSkipProcessEvent = (event: SkipProcessSource.event): JSON.t => {
-  let payloadJson = event->S.reverseConvertToJsonOrThrow(SkipProcessSource.eventSchema)
+  let payloadJson = event->Reventless.Util_Sury.toJson(SkipProcessSource.eventSchema)
   let dict = switch payloadJson->JSON.Decode.object {
   | Some(d) => d->Dict.copy
   | None =>
@@ -183,7 +183,7 @@ let encodeSkipProcessEvent = (event: SkipProcessSource.event): JSON.t => {
     msgId: "msg-1",
     correlationId: "",
   }
-  dict->Dict.set("meta", meta->S.reverseConvertToJsonOrThrow(Reventless.Message.metaSchema))
+  dict->Dict.set("meta", meta->Reventless.Util_Sury.toJson(Reventless.Message.metaSchema))
   dict->Dict.set("id", JSON.Encode.string("env-id"))
   JSON.Encode.object(dict)
 }

package/tests/components/automationslice/AutomationSliceFixtures.res.mjs

@@ -1,21 +1,22 @@
 // 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 Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 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 AutomationSlice$Reventless from "@reventlessdev/reventless-spec/src/components/AutomationSlice.res.mjs";
 
 let name = "ShipOrderDcbEventLog";
 
-let eventSchema = S.union([
-  S.schema(s => ({
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "OrderPlaced",
     orderId: s.m(DcbTag$Reventless.string),
-    address: s.m(S.string)
+    address: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ShipmentCreated",
     orderId: s.m(DcbTag$Reventless.string)
   }))
@@ -29,12 +30,12 @@ let ShipOrderSource = {
 
 let name$1 = "SkipProcessDcbEventLog";
 
-let eventSchema$1 = S.union([
-  S.schema(s => ({
+let eventSchema$1 = Sury.union([
+  Sury.$schema(s => ({
     TAG: "OrderPlaced",
     orderId: s.m(DcbTag$Reventless.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "ShipmentCreated",
     orderId: s.m(DcbTag$Reventless.string)
   }))
@@ -48,12 +49,12 @@ let SkipProcessSource = {
 
 let moduleUrl = import.meta.url;
 
-let todoItemSchema = S.schema(s => ({
-  orderId: s.m(S.string),
-  address: s.m(S.string)
+let todoItemSchema = Sury.$schema(s => ({
+  orderId: s.m(Sury.string),
+  address: s.m(Sury.string)
 }));
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "CreateShipment",
   orderId: s.m(DcbTag$Reventless.string)
 }));
@@ -75,11 +76,11 @@ let ShipOrderSpec = {
 
 let moduleUrl$1 = import.meta.url;
 
-let todoItemSchema$1 = S.schema(s => ({
-  orderId: s.m(S.string)
+let todoItemSchema$1 = Sury.$schema(s => ({
+  orderId: s.m(Sury.string)
 }));
 
-let commandSchema$1 = S.literal("Noop");
+let commandSchema$1 = Sury.literal("Noop");
 
 function commandAuthorization$1(param) {
   return "AllowAuthenticated";
@@ -196,7 +197,7 @@ let SkipProcessAutomation = {
 };
 
 function encodeShipOrderEvent(event) {
-  let payloadJson = S.reverseConvertToJsonOrThrow(event, eventSchema);
+  let payloadJson = Util_Sury$Reventless.toJson(event, eventSchema);
   let d = Stdlib_JSON.Decode.object(payloadJson);
   let dict;
   if (d !== undefined) {
@@ -219,13 +220,13 @@ function encodeShipOrderEvent(event) {
     msgId: "msg-1",
     correlationId: ""
   };
-  dict["meta"] = S.reverseConvertToJsonOrThrow(meta, Message$Reventless.metaSchema);
+  dict["meta"] = Util_Sury$Reventless.toJson(meta, Message$Reventless.metaSchema);
   dict["id"] = "env-id";
   return dict;
 }
 
 function encodeSkipProcessEvent(event) {
-  let payloadJson = S.reverseConvertToJsonOrThrow(event, eventSchema$1);
+  let payloadJson = Util_Sury$Reventless.toJson(event, eventSchema$1);
   let d = Stdlib_JSON.Decode.object(payloadJson);
   let dict;
   if (d !== undefined) {
@@ -248,7 +249,7 @@ function encodeSkipProcessEvent(event) {
     msgId: "msg-1",
     correlationId: ""
   };
-  dict["meta"] = S.reverseConvertToJsonOrThrow(meta, Message$Reventless.metaSchema);
+  dict["meta"] = Util_Sury$Reventless.toJson(meta, Message$Reventless.metaSchema);
   dict["id"] = "env-id";
   return dict;
 }

package/tests/components/automationslice/AutomationSliceSelfDeadlockFixtures.res

@@ -207,7 +207,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),
         ]),
       )
@@ -266,7 +266,7 @@ let placeCmdJson = (orderId: string): Reventless.Message.commandJson => {
   id: orderId,
   meta: testMeta,
   commandJson: PlaceSpec.Place({orderId: orderId})
-    ->S.reverseConvertToJsonOrThrow(PlaceSpec.commandSchema),
+    ->Reventless.Util_Sury.toJson(PlaceSpec.commandSchema),
 }
 
 // Promise-based timeout used to fail fast if the chain self-deadlocks.