@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.231 → 1.0.0-alpha.233

package/lib/ocaml/Plugin.res

@@ -2,6 +2,17 @@
 
 @val external uiBundleUrl: option<string> = "process.env.ORDERING_UI_BUNDLE_URL"
 
+let dcbSliceSchemas: array<Reventless.DcbTag.sliceSchemas> = [
+  {name: CancelOrder.name, commandSchema: CancelOrder.commandSchema->S.castToUnknown, consumedEventSchema: CancelOrder.consumedEventSchema->S.castToUnknown, eventSchema: CancelOrder.eventSchema->S.castToUnknown},
+  {name: ChangeAddress.name, commandSchema: ChangeAddress.commandSchema->S.castToUnknown, consumedEventSchema: ChangeAddress.consumedEventSchema->S.castToUnknown, eventSchema: ChangeAddress.eventSchema->S.castToUnknown},
+  {name: ChangeEmail.name, commandSchema: ChangeEmail.commandSchema->S.castToUnknown, consumedEventSchema: ChangeEmail.consumedEventSchema->S.castToUnknown, eventSchema: ChangeEmail.eventSchema->S.castToUnknown},
+  {name: DeactivateCustomer.name, commandSchema: DeactivateCustomer.commandSchema->S.castToUnknown, consumedEventSchema: DeactivateCustomer.consumedEventSchema->S.castToUnknown, eventSchema: DeactivateCustomer.eventSchema->S.castToUnknown},
+  {name: PlaceOrder.name, commandSchema: PlaceOrder.commandSchema->S.castToUnknown, consumedEventSchema: PlaceOrder.consumedEventSchema->S.castToUnknown, eventSchema: PlaceOrder.eventSchema->S.castToUnknown},
+  {name: RegisterCustomer.name, commandSchema: RegisterCustomer.commandSchema->S.castToUnknown, consumedEventSchema: RegisterCustomer.consumedEventSchema->S.castToUnknown, eventSchema: RegisterCustomer.eventSchema->S.castToUnknown},
+  {name: ShipOrder.name, commandSchema: ShipOrder.commandSchema->S.castToUnknown, consumedEventSchema: ShipOrder.consumedEventSchema->S.castToUnknown, eventSchema: ShipOrder.eventSchema->S.castToUnknown},
+  {name: SyncCatalogProduct.name, commandSchema: SyncCatalogProduct.commandSchema->S.castToUnknown, consumedEventSchema: SyncCatalogProduct.consumedEventSchema->S.castToUnknown, eventSchema: SyncCatalogProduct.eventSchema->S.castToUnknown},
+]
+
 module Make = (Platform: ReventlessInfra.Platform.T) => {
   // StateChangeSlices
   module CancelOrderSlice = Platform.StateChangeSlice.Make(CancelOrder, CancelOrder_Behavior)

package/lib/ocaml/ShipOrder.res

@@ -10,7 +10,7 @@ type consumedEvent =
 
 @schema
 type command =
-  | @transition(([Orders.Placed]) => Orders.Shipped) ShipOrder({orderId: string})
+  | ShipOrder({orderId: string})
 
 @schema
 type error =
@@ -19,3 +19,12 @@ type error =
 
 @schema
 type event = OrderShipped({orderId: string})
+
+type lifecycleState = Orders.lifecycle
+
+let commandTransition = (command: command): Reventless.Transition.t<lifecycleState> => {
+  open Reventless.Transition
+  switch command {
+  | ShipOrder(_) => Moves([Orders.Placed], Orders.Shipped)
+  }
+}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/online-shop-dcb-ordering",
-  "version": "1.0.0-alpha.231",
+  "version": "1.0.0-alpha.233",
   "description": "Online Shop example — Ordering bounded context (Customer & Order) using the DCB pattern",
   "license": "Apache-2.0",
   "jest": {
@@ -21,18 +21,18 @@
   },
   "dependencies": {
     "sury": "11.0.0-rc.2",
-    "@reventlessdev/online-shop-dcb-catalog-spec": "1.0.0-alpha.125",
+    "@reventlessdev/online-shop-dcb-catalog-spec": "1.0.0-alpha.127",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.19",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.199",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.153",
-    "@reventlessdev/online-shop-dcb-ordering-spec": "1.0.0-alpha.125",
-    "@reventlessdev/reventless-local": "3.0.0-alpha.241",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.125"
+    "@reventlessdev/online-shop-dcb-ordering-spec": "1.0.0-alpha.127",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.201",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.155",
+    "@reventlessdev/reventless-local": "3.0.0-alpha.243",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.127"
   },
   "devDependencies": {
     "rescript": "12.3.0",
     "sury-ppx": "11.0.0-rc.2",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.75"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.76"
   },
   "peerDependencies": {
     "rescript": "12.3.0"

package/src/Order/StateChangeSlice/CancelOrder.res

@@ -10,7 +10,7 @@ type consumedEvent =
 
 @schema
 type command =
-  | @transition(([Orders.Placed]) => Orders.Cancelled) CancelOrder({orderId: string})
+  | CancelOrder({orderId: string})
 
 @schema
 type error =
@@ -23,3 +23,12 @@ type event = OrderCancelled({
   @partitionTag orderId: string,
   productIds: array<string>,
 })
+
+type lifecycleState = Orders.lifecycle
+
+let commandTransition = (command: command): Reventless.Transition.t<lifecycleState> => {
+  open Reventless.Transition
+  switch command {
+  | CancelOrder(_) => Moves([Orders.Placed], Orders.Cancelled)
+  }
+}

package/src/Order/StateChangeSlice/CancelOrder.res.mjs

@@ -2,7 +2,6 @@
 
 import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
-import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 
 let consumedEventSchema = Sury.union([
   Sury.$schema(s => ({
@@ -29,24 +28,18 @@ let eventSchema = Sury.$schema(s => ({
   productIds: s.m(Sury.array(DcbTag$Reventless.stringForKey("productId")))
 }));
 
-let commandSchema$1 = Api$ReventlessInfra.markAllowedStates(commandSchema, [[
-    "CancelOrder",
-    ["Placed"]
-  ]]);
-
-let commandSchema$2 = Api$ReventlessInfra.markTargetState(commandSchema$1, [[
-    "CancelOrder",
-    "Cancelled"
-  ]]);
+function commandTransition(command) {
+  return {
+    TAG: "Moves",
+    _0: ["Placed"],
+    _1: "Cancelled"
+  };
+}
 
 function commandAuthorization(param) {
   return "AllowAuthenticated";
 }
 
-function commandTransition(param) {
-  return "Unrestricted";
-}
-
 let traits = [];
 
 let name = "CancelOrder";
@@ -61,13 +54,13 @@ export {
   name,
   Id,
   consumedEventSchema,
+  commandSchema,
   errorSchema,
   eventSchema,
-  commandSchema$2 as commandSchema,
+  commandTransition,
   moduleUrl,
   commandAuthorization,
   readConsistency,
-  commandTransition,
   traits,
 }
 /* consumedEventSchema Not a pure module */

package/src/Order/StateChangeSlice/ShipOrder.res

@@ -10,7 +10,7 @@ type consumedEvent =
 
 @schema
 type command =
-  | @transition(([Orders.Placed]) => Orders.Shipped) ShipOrder({orderId: string})
+  | ShipOrder({orderId: string})
 
 @schema
 type error =
@@ -19,3 +19,12 @@ type error =
 
 @schema
 type event = OrderShipped({orderId: string})
+
+type lifecycleState = Orders.lifecycle
+
+let commandTransition = (command: command): Reventless.Transition.t<lifecycleState> => {
+  open Reventless.Transition
+  switch command {
+  | ShipOrder(_) => Moves([Orders.Placed], Orders.Shipped)
+  }
+}

package/src/Order/StateChangeSlice/ShipOrder.res.mjs

@@ -2,7 +2,6 @@
 
 import * as Sury from "sury";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
-import * as Api$ReventlessInfra from "@reventlessdev/reventless-infra/src/components/Api.res.mjs";
 
 let consumedEventSchema = Sury.union([
   Sury.literal("OrderPlaced"),
@@ -25,24 +24,18 @@ let eventSchema = Sury.$schema(s => ({
   orderId: s.m(DcbTag$Reventless.string)
 }));
 
-let commandSchema$1 = Api$ReventlessInfra.markAllowedStates(commandSchema, [[
-    "ShipOrder",
-    ["Placed"]
-  ]]);
-
-let commandSchema$2 = Api$ReventlessInfra.markTargetState(commandSchema$1, [[
-    "ShipOrder",
-    "Shipped"
-  ]]);
+function commandTransition(command) {
+  return {
+    TAG: "Moves",
+    _0: ["Placed"],
+    _1: "Shipped"
+  };
+}
 
 function commandAuthorization(param) {
   return "AllowAuthenticated";
 }
 
-function commandTransition(param) {
-  return "Unrestricted";
-}
-
 let traits = [];
 
 let name = "ShipOrder";
@@ -57,13 +50,13 @@ export {
   name,
   Id,
   consumedEventSchema,
+  commandSchema,
   errorSchema,
   eventSchema,
-  commandSchema$2 as commandSchema,
+  commandTransition,
   moduleUrl,
   commandAuthorization,
   readConsistency,
-  commandTransition,
   traits,
 }
 /* consumedEventSchema Not a pure module */

package/src/Plugin.res

@@ -2,6 +2,17 @@
 
 @val external uiBundleUrl: option<string> = "process.env.ORDERING_UI_BUNDLE_URL"
 
+let dcbSliceSchemas: array<Reventless.DcbTag.sliceSchemas> = [
+  {name: CancelOrder.name, commandSchema: CancelOrder.commandSchema->S.castToUnknown, consumedEventSchema: CancelOrder.consumedEventSchema->S.castToUnknown, eventSchema: CancelOrder.eventSchema->S.castToUnknown},
+  {name: ChangeAddress.name, commandSchema: ChangeAddress.commandSchema->S.castToUnknown, consumedEventSchema: ChangeAddress.consumedEventSchema->S.castToUnknown, eventSchema: ChangeAddress.eventSchema->S.castToUnknown},
+  {name: ChangeEmail.name, commandSchema: ChangeEmail.commandSchema->S.castToUnknown, consumedEventSchema: ChangeEmail.consumedEventSchema->S.castToUnknown, eventSchema: ChangeEmail.eventSchema->S.castToUnknown},
+  {name: DeactivateCustomer.name, commandSchema: DeactivateCustomer.commandSchema->S.castToUnknown, consumedEventSchema: DeactivateCustomer.consumedEventSchema->S.castToUnknown, eventSchema: DeactivateCustomer.eventSchema->S.castToUnknown},
+  {name: PlaceOrder.name, commandSchema: PlaceOrder.commandSchema->S.castToUnknown, consumedEventSchema: PlaceOrder.consumedEventSchema->S.castToUnknown, eventSchema: PlaceOrder.eventSchema->S.castToUnknown},
+  {name: RegisterCustomer.name, commandSchema: RegisterCustomer.commandSchema->S.castToUnknown, consumedEventSchema: RegisterCustomer.consumedEventSchema->S.castToUnknown, eventSchema: RegisterCustomer.eventSchema->S.castToUnknown},
+  {name: ShipOrder.name, commandSchema: ShipOrder.commandSchema->S.castToUnknown, consumedEventSchema: ShipOrder.consumedEventSchema->S.castToUnknown, eventSchema: ShipOrder.eventSchema->S.castToUnknown},
+  {name: SyncCatalogProduct.name, commandSchema: SyncCatalogProduct.commandSchema->S.castToUnknown, consumedEventSchema: SyncCatalogProduct.consumedEventSchema->S.castToUnknown, eventSchema: SyncCatalogProduct.eventSchema->S.castToUnknown},
+]
+
 module Make = (Platform: ReventlessInfra.Platform.T) => {
   // StateChangeSlices
   module CancelOrderSlice = Platform.StateChangeSlice.Make(CancelOrder, CancelOrder_Behavior)

package/src/Plugin.res.mjs

@@ -33,6 +33,57 @@ import * as AvailableProducts_Projection$OrderingPlugin from "./CatalogProduct/S
 import * as Orders_ExtensionPointMapping$OrderingPlugin from "./ExtensionPoint/Orders_ExtensionPointMapping.res.mjs";
 import * as SendOrderConfirmation_Translation$OrderingPlugin from "./Order/OutboundTranslationSlice/SendOrderConfirmation_Translation.res.mjs";
 
+let dcbSliceSchemas = [
+  {
+    name: CancelOrder$OrderingPlugin.name,
+    commandSchema: CancelOrder$OrderingPlugin.commandSchema,
+    consumedEventSchema: CancelOrder$OrderingPlugin.consumedEventSchema,
+    eventSchema: CancelOrder$OrderingPlugin.eventSchema
+  },
+  {
+    name: ChangeAddress$OrderingPlugin.name,
+    commandSchema: ChangeAddress$OrderingPlugin.commandSchema,
+    consumedEventSchema: ChangeAddress$OrderingPlugin.consumedEventSchema,
+    eventSchema: ChangeAddress$OrderingPlugin.eventSchema
+  },
+  {
+    name: ChangeEmail$OrderingPlugin.name,
+    commandSchema: ChangeEmail$OrderingPlugin.commandSchema,
+    consumedEventSchema: ChangeEmail$OrderingPlugin.consumedEventSchema,
+    eventSchema: ChangeEmail$OrderingPlugin.eventSchema
+  },
+  {
+    name: DeactivateCustomer$OrderingPlugin.name,
+    commandSchema: DeactivateCustomer$OrderingPlugin.commandSchema,
+    consumedEventSchema: DeactivateCustomer$OrderingPlugin.consumedEventSchema,
+    eventSchema: DeactivateCustomer$OrderingPlugin.eventSchema
+  },
+  {
+    name: PlaceOrder$OrderingPlugin.name,
+    commandSchema: PlaceOrder$OrderingPlugin.commandSchema,
+    consumedEventSchema: PlaceOrder$OrderingPlugin.consumedEventSchema,
+    eventSchema: PlaceOrder$OrderingPlugin.eventSchema
+  },
+  {
+    name: RegisterCustomer$OrderingPlugin.name,
+    commandSchema: RegisterCustomer$OrderingPlugin.commandSchema,
+    consumedEventSchema: RegisterCustomer$OrderingPlugin.consumedEventSchema,
+    eventSchema: RegisterCustomer$OrderingPlugin.eventSchema
+  },
+  {
+    name: ShipOrder$OrderingPlugin.name,
+    commandSchema: ShipOrder$OrderingPlugin.commandSchema,
+    consumedEventSchema: ShipOrder$OrderingPlugin.consumedEventSchema,
+    eventSchema: ShipOrder$OrderingPlugin.eventSchema
+  },
+  {
+    name: SyncCatalogProduct$OrderingPlugin.name,
+    commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
+    consumedEventSchema: SyncCatalogProduct$OrderingPlugin.consumedEventSchema,
+    eventSchema: SyncCatalogProduct$OrderingPlugin.eventSchema
+  }
+];
+
 function Make(Platform) {
   let CancelOrderSlice = Platform.StateChangeSlice.Make({
     name: CancelOrder$OrderingPlugin.name,
@@ -428,6 +479,7 @@ function Make(Platform) {
 }
 
 export {
+  dcbSliceSchemas,
   Make,
 }
 /* Id-Reventless Not a pure module */