@reventlessdev/reventless-gwt 1.0.0-alpha.186 → 1.0.0-alpha.187

package/tests/FlowGwtTest.res

@@ -8,7 +8,6 @@
 // filters the log by its command's tags.
 // See `docs/plans/done/gwt-flow-and-extension-test-kinds.md` Phase 2.
 
-S.enableJson()
 
 open Flow_GWT
 

package/tests/FlowGwtTest.res.mjs

@@ -1,28 +1,26 @@
 // 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";
 import * as Flow_GWT$ReventlessGwt from "../src/Flow_GWT.res.mjs";
 
-S.enableJson();
-
-let consumedEventSchema = S.schema(s => ({
+let consumedEventSchema = Sury.$schema(s => ({
   TAG: "OrderPlaced",
   orderId: s.m(DcbTag$Reventless.string)
 }));
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "PlaceOrder",
   orderId: s.m(DcbTag$Reventless.string),
-  item: s.m(S.string)
+  item: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("AlreadyPlaced");
+let errorSchema = Sury.literal("AlreadyPlaced");
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "OrderPlaced",
   orderId: s.m(DcbTag$Reventless.string),
-  item: s.m(S.string)
+  item: s.m(Sury.string)
 }));
 
 function commandAuthorization(param) {
@@ -74,24 +72,24 @@ let PlaceOrderBehavior = {
   decide: decide
 };
 
-let consumedEventSchema$1 = S.union([
-  S.schema(s => ({
+let consumedEventSchema$1 = Sury.union([
+  Sury.$schema(s => ({
     TAG: "OrderPlaced",
-    orderId: s.m(S.string)
+    orderId: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "OrderShipped",
-    orderId: s.m(S.string)
+    orderId: s.m(Sury.string)
   }))
 ]);
 
-let todoItemSchema = S.schema(s => ({
-  orderId: s.m(S.string)
+let todoItemSchema = Sury.$schema(s => ({
+  orderId: s.m(Sury.string)
 }));
 
-let commandSchema$1 = S.schema(s => ({
+let commandSchema$1 = Sury.$schema(s => ({
   TAG: "ShipOrder",
-  orderId: s.m(S.string)
+  orderId: s.m(Sury.string)
 }));
 
 function collect(event) {
@@ -140,25 +138,25 @@ let AutoShipSlice = {
   commandAuthorization: commandAuthorization$1
 };
 
-let consumedEventSchema$2 = S.union([
-  S.schema(s => ({
+let consumedEventSchema$2 = Sury.union([
+  Sury.$schema(s => ({
     TAG: "OrderPlaced",
     orderId: s.m(DcbTag$Reventless.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "OrderShipped",
     orderId: s.m(DcbTag$Reventless.string)
   }))
 ]);
 
-let commandSchema$2 = S.schema(s => ({
+let commandSchema$2 = Sury.$schema(s => ({
   TAG: "ShipOrder",
   orderId: s.m(DcbTag$Reventless.string)
 }));
 
-let errorSchema$1 = S.literal("NotPlaced");
+let errorSchema$1 = Sury.literal("NotPlaced");
 
-let eventSchema$1 = S.schema(s => ({
+let eventSchema$1 = Sury.$schema(s => ({
   TAG: "OrderShipped",
   orderId: s.m(DcbTag$Reventless.string)
 }));
@@ -227,21 +225,21 @@ let ShipOrderBehavior = {
   decide: decide$1
 };
 
-let stateSchema = S.schema(s => ({
-  orderId: s.m(S.string),
-  item: s.m(S.string),
-  status: s.m(S.string)
+let stateSchema = Sury.$schema(s => ({
+  orderId: s.m(Sury.string),
+  item: s.m(Sury.string),
+  status: s.m(Sury.string)
 }));
 
-let consumedEventSchema$3 = S.union([
-  S.schema(s => ({
+let consumedEventSchema$3 = Sury.union([
+  Sury.$schema(s => ({
     TAG: "OrderPlaced",
-    orderId: s.m(S.string),
-    item: s.m(S.string)
+    orderId: s.m(Sury.string),
+    item: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "OrderShipped",
-    orderId: s.m(S.string)
+    orderId: s.m(Sury.string)
   }))
 ]);
 
@@ -284,15 +282,17 @@ let OrdersViewProjection = {
   project: project
 };
 
-let consumedEventSchema$4 = S.schema(s => ({
+let consumedEventSchema$4 = Sury.$schema(s => ({
   TAG: "OrderPlaced",
-  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;
+
 function collect$1(event, param) {
   let orderId = event.orderId;
   return [[
@@ -307,7 +307,7 @@ let ConfirmSlice = {
   name: "Confirm",
   consumedEventSchema: consumedEventSchema$4,
   outboundItemSchema: outboundItemSchema,
-  inboundCommandSchema: S.unit,
+  inboundCommandSchema: inboundCommandSchema,
   collect: collect$1,
   externalSystem: undefined
 };
@@ -431,4 +431,4 @@ export {
   View,
   Confirm,
 }
-/*  Not a pure module */
+/* consumedEventSchema Not a pure module */

package/tests/InboundTranslationGwtTest.res.mjs

@@ -1,18 +1,18 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as InboundTranslation_GWT$ReventlessGwt from "../src/InboundTranslation_GWT.res.mjs";
 
-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(S.string),
-  paymentId: s.m(S.string)
+  orderId: s.m(Sury.string),
+  paymentId: s.m(Sury.string)
 }));
 
 function translate(input) {

package/tests/MappingGwtTest.res

@@ -6,7 +6,6 @@
 // target-decide pipeline end-to-end against the unified `GwtSource`/`GwtTarget`
 // module types.
 
-S.enableJson()
 
 // ---------------------------------------------------------------------------
 // Shared Aggregate specs + behaviours used by the Aggr→* cases below.

package/tests/MappingGwtTest.res.mjs

@@ -1,27 +1,25 @@
 // 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 DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Mapping_GWT$ReventlessGwt from "../src/Mapping_GWT.res.mjs";
 
-S.enableJson();
-
 let name = "Category";
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "AddCategory",
-  categoryId: s.m(S.string),
-  name: s.m(S.string)
+  categoryId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "CategoryAdded",
-  categoryId: s.m(S.string),
-  name: s.m(S.string)
+  categoryId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("CategoryAlreadyExists");
+let errorSchema = Sury.literal("CategoryAlreadyExists");
 
 let moduleUrl = "";
 
@@ -74,21 +72,21 @@ let CategoryBehavior = {
 
 let name$1 = "Product";
 
-let commandSchema$1 = S.schema(s => ({
+let commandSchema$1 = Sury.$schema(s => ({
   TAG: "MirrorCategory",
-  productId: s.m(S.string),
-  categoryId: s.m(S.string),
-  name: s.m(S.string)
+  productId: s.m(Sury.string),
+  categoryId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let eventSchema$1 = S.schema(s => ({
+let eventSchema$1 = Sury.$schema(s => ({
   TAG: "ProductCategoryMirrored",
-  productId: s.m(S.string),
-  categoryId: s.m(S.string),
-  name: s.m(S.string)
+  productId: s.m(Sury.string),
+  categoryId: s.m(Sury.string),
+  name: s.m(Sury.string)
 }));
 
-let errorSchema$1 = S.literal("ProductAlreadyMirrored");
+let errorSchema$1 = Sury.literal("ProductAlreadyMirrored");
 
 let moduleUrl$2 = "";
 
@@ -140,7 +138,7 @@ let ProductBehavior = {
   moduleUrl: moduleUrl$3
 };
 
-let consumedEventSchema = S.schema(s => ({
+let consumedEventSchema = Sury.$schema(s => ({
   TAG: "NotificationSent",
   notificationId: s.m(DcbTag$Reventless.string)
 }));
@@ -151,18 +149,18 @@ function evolve$2(_state, event) {
   };
 }
 
-let commandSchema$2 = S.schema(s => ({
+let commandSchema$2 = Sury.$schema(s => ({
   TAG: "SendNotification",
   notificationId: s.m(DcbTag$Reventless.string),
-  message: s.m(S.string)
+  message: s.m(Sury.string)
 }));
 
-let errorSchema$2 = S.literal("NotificationAlreadySent");
+let errorSchema$2 = Sury.literal("NotificationAlreadySent");
 
-let eventSchema$2 = S.schema(s => ({
+let eventSchema$2 = Sury.$schema(s => ({
   TAG: "NotificationSent",
   notificationId: s.m(DcbTag$Reventless.string),
-  message: s.m(S.string)
+  message: s.m(Sury.string)
 }));
 
 function decide$2(state, command) {
@@ -204,7 +202,7 @@ let NotificationSlice = {
   readConsistency: "EscalateOnRetry"
 };
 
-let consumedEventSchema$1 = S.schema(s => ({
+let consumedEventSchema$1 = Sury.$schema(s => ({
   TAG: "StockReserved",
   itemId: s.m(DcbTag$Reventless.string)
 }));
@@ -215,18 +213,18 @@ function evolve$3(_state, event) {
   };
 }
 
-let commandSchema$3 = S.schema(s => ({
+let commandSchema$3 = Sury.$schema(s => ({
   TAG: "ReserveStock",
   itemId: s.m(DcbTag$Reventless.string),
-  quantity: s.m(S.int)
+  quantity: s.m(Sury.int)
 }));
 
-let errorSchema$3 = S.literal("OutOfStock");
+let errorSchema$3 = Sury.literal("OutOfStock");
 
-let eventSchema$3 = S.schema(s => ({
+let eventSchema$3 = Sury.$schema(s => ({
   TAG: "StockReserved",
   itemId: s.m(DcbTag$Reventless.string),
-  quantity: s.m(S.int)
+  quantity: s.m(Sury.int)
 }));
 
 function decide$3(state, command) {
@@ -593,4 +591,4 @@ export {
   DcbToDcbMapping,
   DcbToDcbGwt,
 }
-/*  Not a pure module */
+/* commandSchema Not a pure module */

package/tests/OutboundTranslationGwtTest.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 OutboundTranslation_GWT$ReventlessGwt from "../src/OutboundTranslation_GWT.res.mjs";
 
-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 = S.literal("NoOp");
+let inboundCommandSchema = Sury.literal("NoOp");
 
 function collect(event, param) {
   let orderId = event.orderId;

package/tests/QueryGwtTest.res

@@ -2,7 +2,6 @@
 // to prove the unified DSL works for either consumer type. Stage 6 of
 // `docs/plans/done/reventless-gwt.md`.
 
-S.enableJson()
 
 // ---------------------------------------------------------------------------
 // Case 1 — ReadModel: Categories.

package/tests/QueryGwtTest.res.mjs

@@ -1,22 +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 Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 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 Outcome$ReventlessGwt from "../src/Outcome.res.mjs";
 import * as Query_GWT$ReventlessGwt from "../src/Query_GWT.res.mjs";
 
-S.enableJson();
-
 let name = "Categories";
 
 let moduleUrl = "";
 
-let stateSchema = S.schema(s => ({
-  categoryId: s.m(S.string),
-  name: s.m(S.string),
-  archived: s.m(S.bool)
+let stateSchema = Sury.$schema(s => ({
+  categoryId: s.m(Sury.string),
+  name: s.m(Sury.string),
+  archived: s.m(Sury.bool)
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, [{
@@ -207,17 +205,17 @@ let name$1 = "OrdersView";
 
 let moduleUrl$1 = "";
 
-let stateSchema$1 = S.schema(s => ({
-  orderId: s.m(S.string),
-  customerId: s.m(S.string),
-  total: s.m(S.int)
+let stateSchema$1 = Sury.$schema(s => ({
+  orderId: s.m(Sury.string),
+  customerId: s.m(Sury.string),
+  total: s.m(Sury.int)
 }));
 
-let consumedEventSchema = S.schema(s => ({
+let consumedEventSchema = Sury.$schema(s => ({
   TAG: "OrderPlaced",
-  orderId: s.m(S.string),
-  customerId: s.m(S.string),
-  total: s.m(S.int)
+  orderId: s.m(Sury.string),
+  customerId: s.m(Sury.string),
+  total: s.m(Sury.int)
 }));
 
 function project(param) {
@@ -312,4 +310,4 @@ export {
   OrdersView,
   OrdersQuery,
 }
-/*  Not a pure module */
+/* stateSchema Not a pure module */

package/tests/QueryResolverGwtTest.res

@@ -3,7 +3,6 @@
 // productId (and a productIds array) that resolve into a Products read model;
 // the resolver DSL follows those keys across the spec boundary.
 
-S.enableJson()
 
 module RM = Reventless.ReadModel
 

package/tests/QueryResolverGwtTest.res.mjs

@@ -1,15 +1,13 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
 import * as Query_GWT$ReventlessGwt from "../src/Query_GWT.res.mjs";
 
-S.enableJson();
-
-let stateSchema = S.schema(s => ({
-  productId: s.m(S.string),
-  name: s.m(S.string),
-  price: s.m(S.float)
+let stateSchema = Sury.$schema(s => ({
+  productId: s.m(Sury.string),
+  name: s.m(Sury.string),
+  price: s.m(Sury.float)
 }));
 
 let config = ReadModel$Reventless.config(undefined, undefined, undefined);
@@ -23,10 +21,10 @@ let ProductRow = {
   visibility: "Public"
 };
 
-let stateSchema$1 = S.schema(s => ({
-  orderId: s.m(S.string),
-  productId: s.m(S.string),
-  productIds: s.m(S.array(S.string))
+let stateSchema$1 = Sury.$schema(s => ({
+  orderId: s.m(Sury.string),
+  productId: s.m(Sury.string),
+  productIds: s.m(Sury.array(Sury.string))
 }));
 
 let config$1 = ReadModel$Reventless.config([{
@@ -133,4 +131,4 @@ export {
   order,
   stores,
 }
-/*  Not a pure module */
+/* stateSchema Not a pure module */

package/tests/SideEffect/FakeOrderNotification.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 Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as MockEmail$ReventlessGwt from "./MockEmail.res.mjs";
 
-let eventSchema = S.union([
-  S.schema(s => ({
+let eventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "Placed",
-    email: s.m(S.string)
+    email: s.m(Sury.string)
   })),
-  S.literal("Shipped")
+  Sury.literal("Shipped")
 ]);
 
 let Source = {

package/tests/SideEffect/MockEmail.res

@@ -14,5 +14,5 @@ let recordSend = (~email, ~orderId) =>
 
 let mock: SideEffect_GWT.mock<call> = {
   snapshot: () => calls.contents,
-  encode: c => c->S.reverseConvertToJsonOrThrow(callSchema),
+  encode: c => c->Reventless.Util_Sury.toJson(callSchema),
 }

package/tests/SideEffect/MockEmail.res.mjs

@@ -1,11 +1,12 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
 
-let callSchema = S.schema(s => ({
+let callSchema = Sury.$schema(s => ({
   TAG: "SendConfirmation",
-  email: s.m(S.string),
-  orderId: s.m(S.string)
+  email: s.m(Sury.string),
+  orderId: s.m(Sury.string)
 }));
 
 let calls = {
@@ -29,7 +30,7 @@ function mock_snapshot() {
 }
 
 function mock_encode(c) {
-  return S.reverseConvertToJsonOrThrow(c, callSchema);
+  return Util_Sury$Reventless.toJson(c, callSchema);
 }
 
 let mock = {

package/tests/StateChangeSliceGwtTest.res.mjs

@@ -1,27 +1,27 @@
 // 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";
 import * as Outcome$ReventlessGwt from "../src/Outcome.res.mjs";
 import * as Behavior_GWT$ReventlessGwt from "../src/Behavior_GWT.res.mjs";
 
-let consumedEventSchema = S.union([
-  S.literal("CategoryAdded"),
-  S.literal("CategoryArchived")
+let consumedEventSchema = Sury.union([
+  Sury.literal("CategoryAdded"),
+  Sury.literal("CategoryArchived")
 ]);
 
-let commandSchema = S.schema(s => ({
+let commandSchema = Sury.$schema(s => ({
   TAG: "AddCategory",
   categoryId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
-let errorSchema = S.literal("CategoryAlreadyExists");
+let errorSchema = Sury.literal("CategoryAlreadyExists");
 
-let eventSchema = S.schema(s => ({
+let eventSchema = Sury.$schema(s => ({
   TAG: "CategoryAdded",
   categoryId: s.m(DcbTag$Reventless.string),
-  name: s.m(S.string)
+  name: s.m(Sury.string)
 }));
 
 function commandAuthorization(param) {
@@ -151,18 +151,18 @@ describe("AddCategory StateChangeSlice", () => {
   }));
 });
 
-let consumedEventSchema$1 = S.literal("Noop");
+let consumedEventSchema$1 = Sury.literal("Noop");
 
-let commandSchema$1 = S.schema(s => ({
+let commandSchema$1 = Sury.$schema(s => ({
   TAG: "Do",
-  id: s.m(S.string)
+  id: s.m(Sury.string)
 }));
 
-let errorSchema$1 = S.literal("Rejected");
+let errorSchema$1 = Sury.literal("Rejected");
 
-let eventSchema$1 = S.schema(s => ({
+let eventSchema$1 = Sury.$schema(s => ({
   TAG: "Done",
-  id: s.m(S.string)
+  id: s.m(Sury.string)
 }));
 
 function commandAuthorization$1(param) {

package/tests/StateViewSliceGwtTest.res.mjs

@@ -1,28 +1,28 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
+import * as Sury from "sury";
 import * as Projection_GWT$ReventlessGwt from "../src/Projection_GWT.res.mjs";
 
-let stateSchema = S.schema(s => ({
-  categoryId: s.m(S.string),
-  name: s.m(S.string),
-  archived: s.m(S.bool)
+let stateSchema = Sury.$schema(s => ({
+  categoryId: s.m(Sury.string),
+  name: s.m(Sury.string),
+  archived: s.m(Sury.bool)
 }));
 
-let consumedEventSchema = S.union([
-  S.schema(s => ({
+let consumedEventSchema = Sury.union([
+  Sury.$schema(s => ({
     TAG: "CategoryAdded",
-    categoryId: s.m(S.string),
-    name: s.m(S.string)
+    categoryId: s.m(Sury.string),
+    name: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "CategoryRenamed",
-    categoryId: s.m(S.string),
-    name: s.m(S.string)
+    categoryId: s.m(Sury.string),
+    name: s.m(Sury.string)
   })),
-  S.schema(s => ({
+  Sury.$schema(s => ({
     TAG: "CategoryArchived",
-    categoryId: s.m(S.string)
+    categoryId: s.m(Sury.string)
   }))
 ]);