@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.229 → 3.0.0-alpha.231

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/online-shop-aggregates-ordering",
-  "version": "3.0.0-alpha.229",
+  "version": "3.0.0-alpha.231",
   "description": "Online Shop example — Ordering plugin (Customer & Order aggregates)",
   "license": "Apache-2.0",
   "jest": {
@@ -21,18 +21,18 @@
   },
   "dependencies": {
     "sury": "11.0.0-rc.2",
-    "@reventlessdev/online-shop-aggregates-catalog-spec": "3.0.0-alpha.123",
-    "@reventlessdev/online-shop-aggregates-ordering-spec": "3.0.0-alpha.123",
+    "@reventlessdev/online-shop-aggregates-catalog-spec": "3.0.0-alpha.125",
+    "@reventlessdev/online-shop-aggregates-ordering-spec": "3.0.0-alpha.125",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.19",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.198",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.152",
-    "@reventlessdev/reventless-local": "3.0.0-alpha.240",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.124"
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.200",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.154",
+    "@reventlessdev/reventless-local": "3.0.0-alpha.242",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.126"
   },
   "devDependencies": {
     "rescript": "12.3.0",
     "sury-ppx": "11.0.0-rc.2",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.74"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.76"
   },
   "peerDependencies": {
     "rescript": "12.3.0"

package/src/CatalogProduct/Aggregate/CatalogProduct.res.mjs

@@ -32,6 +32,12 @@ function commandAuthorization(param) {
   return "AllowAuthenticated";
 }
 
+function commandTransition(param) {
+  return "Unrestricted";
+}
+
+let traits = [];
+
 let name = "CatalogProduct";
 
 let Id;
@@ -46,5 +52,7 @@ export {
   errorSchema,
   moduleUrl,
   commandAuthorization,
+  commandTransition,
+  traits,
 }
 /* commandSchema Not a pure module */

package/src/Customer/Aggregate/Customer.res.mjs

@@ -47,6 +47,12 @@ function commandAuthorization(param) {
   return "AllowAuthenticated";
 }
 
+function commandTransition(param) {
+  return "Unrestricted";
+}
+
+let traits = [];
+
 let name = "Customer";
 
 let Id;
@@ -61,5 +67,7 @@ export {
   errorSchema,
   moduleUrl,
   commandAuthorization,
+  commandTransition,
+  traits,
 }
 /* commandSchema Not a pure module */

package/src/Order/Aggregate/Order.res

@@ -6,9 +6,9 @@
 @schema
 type command =
   | Place({customerId: string, @ref("AvailableProducts") @noDcbTag productIds: array<string>})
-  | @transition(([Orders.Placed]) => Orders.Shipped) Ship
-  | @transition(([Orders.Placed]) => Orders.Cancelled) Cancel
-  | @transition(([Orders.Cancelled]) => Orders.Refunded) Refund({reason: string})
+  | Ship
+  | Cancel
+  | Refund({reason: string})
 
 @schema
 type event =
@@ -25,3 +25,17 @@ type error =
   | OrderAlreadyCancelled
   | OrderNotCancelled
   | OrderAlreadyRefunded
+
+// `Place` brings the row into existence, so it names no from-state; the read
+// model derives the status it lands in.
+type lifecycleState = Orders.lifecycle
+
+let commandTransition = (command: command): Reventless.Transition.t<lifecycleState> => {
+  open Reventless.Transition
+  switch command {
+  | Place(_) => Unrestricted
+  | Ship => Moves([Orders.Placed], Orders.Shipped)
+  | Cancel => Moves([Orders.Placed], Orders.Cancelled)
+  | Refund(_) => Moves([Orders.Cancelled], Orders.Refunded)
+  }
+}

package/src/Order/Aggregate/Order.res.mjs

@@ -1,7 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Sury from "sury";
-import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 import * as Reference$Reventless from "@reventlessdev/reventless-spec/src/components/Reference.res.mjs";
 
 let commandSchema = Sury.union([
@@ -44,40 +43,38 @@ let errorSchema = Sury.union([
   Sury.literal("OrderAlreadyRefunded")
 ]);
 
-let commandSchema$1 = Api$ReventlessInfra.markAllowedStates(commandSchema, [
-  [
-    "Ship",
-    ["Placed"]
-  ],
-  [
-    "Cancel",
-    ["Placed"]
-  ],
-  [
-    "Refund",
-    ["Cancelled"]
-  ]
-]);
-
-let commandSchema$2 = Api$ReventlessInfra.markTargetState(commandSchema$1, [
-  [
-    "Ship",
-    "Shipped"
-  ],
-  [
-    "Cancel",
-    "Cancelled"
-  ],
-  [
-    "Refund",
-    "Refunded"
-  ]
-]);
+function commandTransition(command) {
+  if (typeof command !== "object") {
+    if (command === "Ship") {
+      return {
+        TAG: "Moves",
+        _0: ["Placed"],
+        _1: "Shipped"
+      };
+    } else {
+      return {
+        TAG: "Moves",
+        _0: ["Placed"],
+        _1: "Cancelled"
+      };
+    }
+  } else if (command.TAG === "Place") {
+    return "Unrestricted";
+  } else {
+    return {
+      TAG: "Moves",
+      _0: ["Cancelled"],
+      _1: "Refunded"
+    };
+  }
+}
 
 function commandAuthorization(param) {
   return "AllowAuthenticated";
 }
 
+let traits = [];
+
 let name = "Order";
 
 let Id;
@@ -87,10 +84,12 @@ let moduleUrl = "@reventlessdev/online-shop-aggregates-ordering/src/Order/Aggreg
 export {
   name,
   Id,
+  commandSchema,
   eventSchema,
   errorSchema,
-  commandSchema$2 as commandSchema,
+  commandTransition,
   moduleUrl,
   commandAuthorization,
+  traits,
 }
 /* commandSchema Not a pure module */

package/src/Plugin.res.mjs

@@ -30,7 +30,9 @@ function Make(Platform) {
     errorSchema: CatalogProduct$OrderingPlugin.errorSchema,
     commandSchema: CatalogProduct$OrderingPlugin.commandSchema,
     moduleUrl: CatalogProduct$OrderingPlugin.moduleUrl,
-    commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization
+    commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization,
+    commandTransition: CatalogProduct$OrderingPlugin.commandTransition,
+    traits: CatalogProduct$OrderingPlugin.traits
   })({
     initialState: CatalogProduct_Behavior$OrderingPlugin.initialState,
     evolve: CatalogProduct_Behavior$OrderingPlugin.evolve,
@@ -49,7 +51,9 @@ function Make(Platform) {
     errorSchema: Customer$OrderingPlugin.errorSchema,
     commandSchema: Customer$OrderingPlugin.commandSchema,
     moduleUrl: Customer$OrderingPlugin.moduleUrl,
-    commandAuthorization: Customer$OrderingPlugin.commandAuthorization
+    commandAuthorization: Customer$OrderingPlugin.commandAuthorization,
+    commandTransition: Customer$OrderingPlugin.commandTransition,
+    traits: Customer$OrderingPlugin.traits
   })({
     initialState: Customer_Behavior$OrderingPlugin.initialState,
     evolve: Customer_Behavior$OrderingPlugin.evolve,
@@ -68,7 +72,9 @@ function Make(Platform) {
     errorSchema: Order$OrderingPlugin.errorSchema,
     commandSchema: Order$OrderingPlugin.commandSchema,
     moduleUrl: Order$OrderingPlugin.moduleUrl,
-    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+    commandTransition: Order$OrderingPlugin.commandTransition,
+    traits: Order$OrderingPlugin.traits
   })({
     initialState: Order_Behavior$OrderingPlugin.initialState,
     evolve: Order_Behavior$OrderingPlugin.evolve,
@@ -139,7 +145,9 @@ function Make(Platform) {
       errorSchema: Order$OrderingPlugin.errorSchema,
       commandSchema: Order$OrderingPlugin.commandSchema,
       moduleUrl: Order$OrderingPlugin.moduleUrl,
-      commandAuthorization: Order$OrderingPlugin.commandAuthorization
+      commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+      commandTransition: Order$OrderingPlugin.commandTransition,
+      traits: Order$OrderingPlugin.traits
     },
     moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.moduleUrl,
     mapIncomingCommand: Orders_ExtensionPointMapping$OrderingPlugin.mapIncomingCommand,
@@ -162,7 +170,9 @@ function Make(Platform) {
       errorSchema: CatalogProduct$OrderingPlugin.errorSchema,
       commandSchema: CatalogProduct$OrderingPlugin.commandSchema,
       moduleUrl: CatalogProduct$OrderingPlugin.moduleUrl,
-      commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization
+      commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization,
+      commandTransition: CatalogProduct$OrderingPlugin.commandTransition,
+      traits: CatalogProduct$OrderingPlugin.traits
     },
     moduleUrl: Products_Extension$OrderingPlugin.Mapping.moduleUrl,
     delegateModuleUrl: Products_Extension$OrderingPlugin.Mapping.delegateModuleUrl,
@@ -194,7 +204,9 @@ function Make(Platform) {
         errorSchema: Order$OrderingPlugin.errorSchema,
         commandSchema: Order$OrderingPlugin.commandSchema,
         moduleUrl: Order$OrderingPlugin.moduleUrl,
-        commandAuthorization: Order$OrderingPlugin.commandAuthorization
+        commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+        commandTransition: Order$OrderingPlugin.commandTransition,
+        traits: Order$OrderingPlugin.traits
       },
       moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.moduleUrl,
       mapIncomingCommand: Orders_ExtensionPointMapping$OrderingPlugin.mapIncomingCommand,

package/tests/Extension/Products_Extension_GWT.res.mjs

@@ -21,7 +21,9 @@ let include = Delegate_GWT$ReventlessGwt.FromExtension({
     errorSchema: CatalogProduct$OrderingPlugin.errorSchema,
     commandSchema: CatalogProduct$OrderingPlugin.commandSchema,
     moduleUrl: CatalogProduct$OrderingPlugin.moduleUrl,
-    commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization
+    commandAuthorization: CatalogProduct$OrderingPlugin.commandAuthorization,
+    commandTransition: CatalogProduct$OrderingPlugin.commandTransition,
+    traits: CatalogProduct$OrderingPlugin.traits
   },
   moduleUrl: Products_Extension$OrderingPlugin.Mapping.moduleUrl,
   delegateModuleUrl: Products_Extension$OrderingPlugin.Mapping.delegateModuleUrl,

package/tests/ExtensionPoint/Orders_ExtensionPointMapping_GWT.res.mjs

@@ -21,7 +21,9 @@ let include = Delegate_GWT$ReventlessGwt.FromExtensionPoint({
     errorSchema: Order$OrderingPlugin.errorSchema,
     commandSchema: Order$OrderingPlugin.commandSchema,
     moduleUrl: Order$OrderingPlugin.moduleUrl,
-    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+    commandTransition: Order$OrderingPlugin.commandTransition,
+    traits: Order$OrderingPlugin.traits
   },
   moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.moduleUrl,
   mapIncomingCommand: Orders_ExtensionPointMapping$OrderingPlugin.mapIncomingCommand,

package/tests/Order/Aggregate/OrderMappings_GWT.res.mjs

@@ -13,7 +13,9 @@ let OrderSource = Mapping_GWT$ReventlessGwt.FromBehavior({
   errorSchema: Order$OrderingPlugin.errorSchema,
   commandSchema: Order$OrderingPlugin.commandSchema,
   moduleUrl: Order$OrderingPlugin.moduleUrl,
-  commandAuthorization: Order$OrderingPlugin.commandAuthorization
+  commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+  commandTransition: Order$OrderingPlugin.commandTransition,
+  traits: Order$OrderingPlugin.traits
 })({
   Spec: {
     Id: Id$Reventless.$$String,
@@ -22,7 +24,9 @@ let OrderSource = Mapping_GWT$ReventlessGwt.FromBehavior({
     errorSchema: Order$OrderingPlugin.errorSchema,
     commandSchema: Order$OrderingPlugin.commandSchema,
     moduleUrl: Order$OrderingPlugin.moduleUrl,
-    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+    commandTransition: Order$OrderingPlugin.commandTransition,
+    traits: Order$OrderingPlugin.traits
   },
   initialState: Order_Behavior$OrderingPlugin.initialState,
   evolve: Order_Behavior$OrderingPlugin.evolve,
@@ -38,7 +42,9 @@ let OrderTarget = Mapping_GWT$ReventlessGwt.FromBehavior({
   errorSchema: Order$OrderingPlugin.errorSchema,
   commandSchema: Order$OrderingPlugin.commandSchema,
   moduleUrl: Order$OrderingPlugin.moduleUrl,
-  commandAuthorization: Order$OrderingPlugin.commandAuthorization
+  commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+  commandTransition: Order$OrderingPlugin.commandTransition,
+  traits: Order$OrderingPlugin.traits
 })({
   Spec: {
     Id: Id$Reventless.$$String,
@@ -47,7 +53,9 @@ let OrderTarget = Mapping_GWT$ReventlessGwt.FromBehavior({
     errorSchema: Order$OrderingPlugin.errorSchema,
     commandSchema: Order$OrderingPlugin.commandSchema,
     moduleUrl: Order$OrderingPlugin.moduleUrl,
-    commandAuthorization: Order$OrderingPlugin.commandAuthorization
+    commandAuthorization: Order$OrderingPlugin.commandAuthorization,
+    commandTransition: Order$OrderingPlugin.commandTransition,
+    traits: Order$OrderingPlugin.traits
   },
   initialState: Order_Behavior$OrderingPlugin.initialState,
   evolve: Order_Behavior$OrderingPlugin.evolve,