@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.230 → 1.0.0-alpha.232

package/lib/bs/src/Plugin.res.mjs

@@ -43,6 +43,8 @@ function Make(Platform) {
     eventSchema: CancelOrder$OrderingPlugin.eventSchema,
     commandSchema: CancelOrder$OrderingPlugin.commandSchema,
     commandAuthorization: CancelOrder$OrderingPlugin.commandAuthorization,
+    commandTransition: CancelOrder$OrderingPlugin.commandTransition,
+    traits: CancelOrder$OrderingPlugin.traits,
     readConsistency: CancelOrder$OrderingPlugin.readConsistency
   })({
     initialState: CancelOrder_Behavior$OrderingPlugin.initialState,
@@ -59,6 +61,8 @@ function Make(Platform) {
     eventSchema: ChangeAddress$OrderingPlugin.eventSchema,
     commandSchema: ChangeAddress$OrderingPlugin.commandSchema,
     commandAuthorization: ChangeAddress$OrderingPlugin.commandAuthorization,
+    commandTransition: ChangeAddress$OrderingPlugin.commandTransition,
+    traits: ChangeAddress$OrderingPlugin.traits,
     readConsistency: ChangeAddress$OrderingPlugin.readConsistency
   })({
     initialState: ChangeAddress_Behavior$OrderingPlugin.initialState,
@@ -75,6 +79,8 @@ function Make(Platform) {
     eventSchema: ChangeEmail$OrderingPlugin.eventSchema,
     commandSchema: ChangeEmail$OrderingPlugin.commandSchema,
     commandAuthorization: ChangeEmail$OrderingPlugin.commandAuthorization,
+    commandTransition: ChangeEmail$OrderingPlugin.commandTransition,
+    traits: ChangeEmail$OrderingPlugin.traits,
     readConsistency: ChangeEmail$OrderingPlugin.readConsistency
   })({
     initialState: ChangeEmail_Behavior$OrderingPlugin.initialState,
@@ -91,6 +97,8 @@ function Make(Platform) {
     eventSchema: DeactivateCustomer$OrderingPlugin.eventSchema,
     commandSchema: DeactivateCustomer$OrderingPlugin.commandSchema,
     commandAuthorization: DeactivateCustomer$OrderingPlugin.commandAuthorization,
+    commandTransition: DeactivateCustomer$OrderingPlugin.commandTransition,
+    traits: DeactivateCustomer$OrderingPlugin.traits,
     readConsistency: DeactivateCustomer$OrderingPlugin.readConsistency
   })({
     initialState: DeactivateCustomer_Behavior$OrderingPlugin.initialState,
@@ -107,6 +115,8 @@ function Make(Platform) {
     eventSchema: PlaceOrder$OrderingPlugin.eventSchema,
     commandSchema: PlaceOrder$OrderingPlugin.commandSchema,
     commandAuthorization: PlaceOrder$OrderingPlugin.commandAuthorization,
+    commandTransition: PlaceOrder$OrderingPlugin.commandTransition,
+    traits: PlaceOrder$OrderingPlugin.traits,
     readConsistency: PlaceOrder$OrderingPlugin.readConsistency
   })({
     initialState: PlaceOrder_Behavior$OrderingPlugin.initialState,
@@ -123,6 +133,8 @@ function Make(Platform) {
     eventSchema: RegisterCustomer$OrderingPlugin.eventSchema,
     commandSchema: RegisterCustomer$OrderingPlugin.commandSchema,
     commandAuthorization: RegisterCustomer$OrderingPlugin.commandAuthorization,
+    commandTransition: RegisterCustomer$OrderingPlugin.commandTransition,
+    traits: RegisterCustomer$OrderingPlugin.traits,
     readConsistency: RegisterCustomer$OrderingPlugin.readConsistency
   })({
     initialState: RegisterCustomer_Behavior$OrderingPlugin.initialState,
@@ -139,6 +151,8 @@ function Make(Platform) {
     eventSchema: ShipOrder$OrderingPlugin.eventSchema,
     commandSchema: ShipOrder$OrderingPlugin.commandSchema,
     commandAuthorization: ShipOrder$OrderingPlugin.commandAuthorization,
+    commandTransition: ShipOrder$OrderingPlugin.commandTransition,
+    traits: ShipOrder$OrderingPlugin.traits,
     readConsistency: ShipOrder$OrderingPlugin.readConsistency
   })({
     initialState: ShipOrder_Behavior$OrderingPlugin.initialState,
@@ -155,6 +169,8 @@ function Make(Platform) {
     eventSchema: SyncCatalogProduct$OrderingPlugin.eventSchema,
     commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
     commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization,
+    commandTransition: SyncCatalogProduct$OrderingPlugin.commandTransition,
+    traits: SyncCatalogProduct$OrderingPlugin.traits,
     readConsistency: SyncCatalogProduct$OrderingPlugin.readConsistency
   })({
     initialState: SyncCatalogProduct_Behavior$OrderingPlugin.initialState,
@@ -225,7 +241,9 @@ function Make(Platform) {
     heartbeatInterval: SendOrderConfirmation$OrderingPlugin.heartbeatInterval,
     targetName: undefined,
     sourceNames: SendOrderConfirmation$OrderingPlugin.sourceNames,
-    externalSystem: SendOrderConfirmation$OrderingPlugin.externalSystem
+    externalSystem: SendOrderConfirmation$OrderingPlugin.externalSystem,
+    capabilityNeeds: SendOrderConfirmation$OrderingPlugin.capabilityNeeds,
+    traits: SendOrderConfirmation$OrderingPlugin.traits
   })({
     collect: SendOrderConfirmation_Translation$OrderingPlugin.collect,
     translate: SendOrderConfirmation_Translation$OrderingPlugin.translate,
@@ -247,7 +265,9 @@ function Make(Platform) {
       errorSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.errorSchema,
       commandSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandSchema,
       moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.moduleUrl,
-      commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization
+      commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization,
+      commandTransition: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandTransition,
+      traits: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.traits
     },
     moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.moduleUrl,
     mapIncomingCommand: Orders_ExtensionPointMapping$OrderingPlugin.mapIncomingCommand,
@@ -270,7 +290,9 @@ function Make(Platform) {
       errorSchema: SyncCatalogProduct$OrderingPlugin.errorSchema,
       commandSchema: SyncCatalogProduct$OrderingPlugin.commandSchema,
       moduleUrl: SyncCatalogProduct$OrderingPlugin.moduleUrl,
-      commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization
+      commandAuthorization: SyncCatalogProduct$OrderingPlugin.commandAuthorization,
+      commandTransition: SyncCatalogProduct$OrderingPlugin.commandTransition,
+      traits: SyncCatalogProduct$OrderingPlugin.traits
     },
     moduleUrl: Products_Extension$OrderingPlugin.Mapping.moduleUrl,
     delegateModuleUrl: Products_Extension$OrderingPlugin.Mapping.delegateModuleUrl,
@@ -307,7 +329,9 @@ function Make(Platform) {
         errorSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.errorSchema,
         commandSchema: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandSchema,
         moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.moduleUrl,
-        commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization
+        commandAuthorization: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandAuthorization,
+        commandTransition: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.commandTransition,
+        traits: Orders_ExtensionPointMapping$OrderingPlugin.Delegate.traits
       },
       moduleUrl: Orders_ExtensionPointMapping$OrderingPlugin.moduleUrl,
       mapIncomingCommand: Orders_ExtensionPointMapping$OrderingPlugin.mapIncomingCommand,

package/lib/bs/tests/Extension/Products_Extension_GWT.res.mjs

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

package/lib/bs/tests/ExtensionPoint/Orders_ExtensionPointMapping_GWT.res.mjs

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

package/lib/bs/tests/Order/AutomationSlice/AutoShipOrder_GWT.res

@@ -15,7 +15,7 @@ module AutoShipOrderSlice = {
   type consumedEvent = AutoShipOrder_Automation.FromOrderingDcb.sourceEvent
   let consumedEventSchema = AutoShipOrder_Automation.FromOrderingDcb.sourceEventSchema
 
-  let collect = e => AutoShipOrder_Automation.FromOrderingDcb.collect(e, testContext)
+  let collect = e => AutoShipOrder_Automation.FromOrderingDcb.collect(e, ~sourceId="", testContext)
   let resolve = AutoShipOrder_Automation.FromOrderingDcb.resolve
   let process = AutoShipOrder_Automation.process
 }

package/lib/bs/tests/Order/AutomationSlice/AutoShipOrder_GWT.res.mjs

@@ -14,7 +14,7 @@ let testContext = {
 let consumedEventSchema = AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.sourceEventSchema;
 
 function collect(e) {
-  return AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.collect(e, testContext);
+  return AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.collect(e, "", testContext);
 }
 
 let resolve = AutoShipOrder_Automation$OrderingPlugin.FromOrderingDcb.resolve;
@@ -29,6 +29,8 @@ let AutoShipOrderSlice = {
   targetName: AutoShipOrder$OrderingPlugin.targetName,
   moduleUrl: AutoShipOrder$OrderingPlugin.moduleUrl,
   commandAuthorization: AutoShipOrder$OrderingPlugin.commandAuthorization,
+  commandTransition: AutoShipOrder$OrderingPlugin.commandTransition,
+  traits: AutoShipOrder$OrderingPlugin.traits,
   consumedEventSchema: consumedEventSchema,
   collect: collect,
   resolve: resolve,

package/lib/bs/tests/Order/OutboundTranslationSlice/SendOrderConfirmation_GWT.res.mjs

@@ -15,7 +15,9 @@ let SendOrderConfirmationSlice = {
   targetName: undefined,
   sourceNames: SendOrderConfirmation$OrderingPlugin.sourceNames,
   externalSystem: SendOrderConfirmation$OrderingPlugin.externalSystem,
+  capabilityNeeds: SendOrderConfirmation$OrderingPlugin.capabilityNeeds,
   moduleUrl: SendOrderConfirmation$OrderingPlugin.moduleUrl,
+  traits: SendOrderConfirmation$OrderingPlugin.traits,
   collect: SendOrderConfirmation_Translation$OrderingPlugin.collect
 };
 

package/lib/ocaml/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1787841661601)
-#Done(1787841663898)
+#Start(1788306939055)
+#Done(1788306941391)

package/lib/ocaml/AutoShipOrder_Automation.res

@@ -15,7 +15,7 @@ module FromOrderingDcb = Mapping.Make(
   {
     open OrderingDcbSource
 
-    let collect = (event, _ctx) =>
+    let collect = (event, ~sourceId as _, _ctx) =>
       switch event {
       | OrderPlaced({orderId}) => [(orderId, ({orderId: orderId}: AutoShipOrder.todoItem))]
       | OrderShipped(_) => []

package/lib/ocaml/AutoShipOrder_GWT.res

@@ -15,7 +15,7 @@ module AutoShipOrderSlice = {
   type consumedEvent = AutoShipOrder_Automation.FromOrderingDcb.sourceEvent
   let consumedEventSchema = AutoShipOrder_Automation.FromOrderingDcb.sourceEventSchema
 
-  let collect = e => AutoShipOrder_Automation.FromOrderingDcb.collect(e, testContext)
+  let collect = e => AutoShipOrder_Automation.FromOrderingDcb.collect(e, ~sourceId="", testContext)
   let resolve = AutoShipOrder_Automation.FromOrderingDcb.resolve
   let process = AutoShipOrder_Automation.process
 }

package/lib/ocaml/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/lib/ocaml/SendOrderConfirmation.res

@@ -22,3 +22,7 @@ let sourceNames: array<string> = []
 // Foreign system this anti-corruption slice publishes confirmations to — drawn as an
 // external box outside the Ordering plugin in the Event Graph.
 let externalSystem = Some("EmailService")
+
+// Its mailer is not a platform capability: this slice calls a service the
+// framework does not broker, so the deployment provisions nothing for it.
+let capabilityNeeds: array<Reventless.CapabilityNeed.t> = []

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)
+  }
+}