@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.239 → 1.0.0-alpha.241

package/CHANGELOG.md

@@ -3,6 +3,22 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 1.0.0-alpha.241 (2026-09-11)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-ordering
+
+
+
+
+
+# 1.0.0-alpha.240 (2026-09-09)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-ordering
+
+
+
+
+
 # 1.0.0-alpha.239 (2026-09-08)
 
 **Note:** Version bump only for package @reventlessdev/online-shop-dcb-ordering

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1788869299999)
-#Done(1788869302860)
+#Start(1789087733234)
+#Done(1789087736200)

package/lib/bs/compiler-info.json

@@ -4,5 +4,5 @@
   "bsc_hash": "75e3a59c95cc953608fd3dd6ea6ed68141bba4414a20a52f114261b8a48385fa",
   "rescript_config_hash": "2b45634c4ef9d26c69e2cd8282eb5d077ce9cf087ded0065001d0f0d889e241c",
   "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
-  "generated_at": "1788869302876"
+  "generated_at": "1789087736211"
 }

package/lib/bs/src/CatalogProduct/StateChange/SyncCatalogProduct.res

@@ -17,12 +17,5 @@ type error = unit // always succeeds — sync is idempotent
 
 @schema
 type event =
-  | CatalogProductSynced({
-      productId: string,
-      name: string,
-      price: float,
-    })
-  | CatalogProductPriceChanged({
-      productId: string,
-      price: float,
-    })
+  | CatalogProductSynced({productId: string, name: string, price: float})
+  | CatalogProductPriceChanged({productId: string, price: float})

package/lib/bs/src/CatalogProduct/StateView/AvailableProducts_Projection.res

@@ -3,6 +3,5 @@
 let project = ({event}) =>
   switch event {
   | CatalogProductSynced({productId, name, price}) => [Set(productId, {productId, name, price})]
-  | CatalogProductPriceChanged({productId, price}) =>
-    [Update(productId, p => {...p, price})]
+  | CatalogProductPriceChanged({productId, price}) => [Update(productId, p => {...p, price})]
   }

package/lib/bs/src/Customer/StateChange/RegisterCustomer.res

@@ -3,20 +3,13 @@
 @@reventless.spec
 
 @schema
-type consumedEvent =
-  | CustomerRegistered
+type consumedEvent = CustomerRegistered
 
 @schema
-type command =
-  | RegisterCustomer({customerId: string, email: string, address: string})
+type command = RegisterCustomer({customerId: string, email: string, address: string})
 
 @schema
 type error = CustomerAlreadyRegistered
 
 @schema
-type event =
-  | CustomerRegistered({
-      customerId: string,
-      email: string,
-      address: string,
-    })
+type event = CustomerRegistered({customerId: string, email: string, address: string})

package/lib/bs/src/ExtensionPoint/Orders_ExtensionPointMapping.res

@@ -15,18 +15,18 @@ module Delegate = {
 
 let mapIncomingCommand = (_id, _command, _meta) => []
 
-let mapOutgoingEvent = Some((_id, event, _meta, _queryEngine) =>
-  switch event {
-  | Delegate.OrderPlaced({orderId, customerId, productIds}) =>
-    productIds->Array.map(productId =>
-      PublishEvent(
+let mapOutgoingEvent = Some(
+  (_id, event, _meta, _queryEngine) =>
+    switch event {
+    | Delegate.OrderPlaced({orderId, customerId, productIds}) =>
+      productIds->Array.map(productId => PublishEvent(
         productId,
         OrderingSpec.Orders_ExtensionPoint.ItemOrdered({productId, orderId, customerId}),
-      )
-    )
-  | Delegate.OrderCancelled({orderId, productIds}) =>
-    productIds->Array.map(productId =>
-      PublishEvent(productId, OrderingSpec.Orders_ExtensionPoint.ItemOrderCancelled({productId, orderId}))
-    )
-  }
+      ))
+    | Delegate.OrderCancelled({orderId, productIds}) =>
+      productIds->Array.map(productId => PublishEvent(
+        productId,
+        OrderingSpec.Orders_ExtensionPoint.ItemOrderCancelled({productId, orderId}),
+      ))
+    },
 )

package/lib/bs/src/LifecycleModel.res

@@ -7,7 +7,25 @@
 // annotation where it is silent.
 
 let model: array<Reventless.Plugin.derivedEdge> = [
-  {component: "CancelOrder", command: "CancelOrder", level: Reventless.Plugin.Instance, allowedStates: ["Placed"], targets: ["Cancelled"]},
-  {component: "PlaceOrder", command: "PlaceOrder", level: Reventless.Plugin.Collection, allowedStates: [], targets: ["Placed"]},
-  {component: "ShipOrder", command: "ShipOrder", level: Reventless.Plugin.Instance, allowedStates: ["Placed"], targets: ["Shipped"]},
+  {
+    component: "CancelOrder",
+    command: "CancelOrder",
+    level: Reventless.Plugin.Instance,
+    allowedStates: ["Placed"],
+    targets: ["Cancelled"],
+  },
+  {
+    component: "PlaceOrder",
+    command: "PlaceOrder",
+    level: Reventless.Plugin.Collection,
+    allowedStates: [],
+    targets: ["Placed"],
+  },
+  {
+    component: "ShipOrder",
+    command: "ShipOrder",
+    level: Reventless.Plugin.Instance,
+    allowedStates: ["Placed"],
+    targets: ["Shipped"],
+  },
 ]

package/lib/bs/src/Order/OutboundTranslation/SendOrderConfirmation.res

@@ -5,8 +5,7 @@
 @@reventless.spec
 
 @schema
-type consumedEvent =
-  | OrderPlaced({orderId: string, customerId: string})
+type consumedEvent = OrderPlaced({orderId: string, customerId: string})
 
 @schema
 type outboundItem = {orderId: string, customerId: string}

package/lib/bs/src/Order/OutboundTranslation/SendOrderConfirmation_Translation.res

@@ -10,10 +10,7 @@ let collect = (event, ~sourceId as _) =>
 // mailer directly and ignores the injected capabilities.
 let translate = async (_id, item, ~capabilities as _) => {
   try {
-    await EmailService.sendOrderConfirmation(
-      ~email=item.customerId,
-      ~orderId=item.orderId,
-    )
+    await EmailService.sendOrderConfirmation(~email=item.customerId, ~orderId=item.orderId)
     Ok(None)
   } catch {
   | exn =>

package/lib/bs/src/Order/StateChange/CancelOrder.res

@@ -9,8 +9,7 @@ type consumedEvent =
   | OrderCancelled
 
 @schema
-type command =
-  | CancelOrder({orderId: string})
+type command = CancelOrder({orderId: string})
 
 @schema
 type error =
@@ -18,11 +17,12 @@ type error =
   | OrderAlreadyShipped
 
 @schema
-type event = OrderCancelled({
-  // orderId and productIds both tag — @partitionTag picks the storage partition.
-  @partitionTag orderId: string,
-  productIds: array<string>,
-})
+type event =
+  | OrderCancelled({
+      // orderId and productIds both tag — @partitionTag picks the storage partition.
+      @partitionTag orderId: string,
+      productIds: array<string>,
+    })
 
 type lifecycleState = Orders.lifecycle
 

package/lib/bs/src/Order/StateChange/PlaceOrder.res

@@ -12,7 +12,11 @@ type consumedEvent =
 @schema
 type command =
   // Multiple tagged fields — @partitionTag picks orderId as the storage partition.
-  PlaceOrder({@partitionTag orderId: string, customerId: string, @ref("AvailableProducts") productIds: array<string>})
+  | PlaceOrder({
+      @partitionTag orderId: string,
+      customerId: string,
+      @ref("AvailableProducts") productIds: array<string>,
+    })
 
 @schema
 type error =

package/lib/bs/src/Order/StateChange/PlaceOrder_Behavior.res

@@ -29,7 +29,8 @@ let decide = (state, command) =>
     if state.placedOrderIds->Array.includes(orderId) {
       Error(OrderAlreadyPlaced)
     } else {
-      let missing = productIds->Array.filter(pid => !(state.availableProductIds->Array.includes(pid)))
+      let missing =
+        productIds->Array.filter(pid => !(state.availableProductIds->Array.includes(pid)))
       if missing->Array.length > 0 {
         Error(ProductsNotAvailable({missing: missing}))
       } else {

package/lib/bs/src/Order/StateChange/ShipOrder.res

@@ -9,8 +9,7 @@ type consumedEvent =
   | OrderCancelled
 
 @schema
-type command =
-  | ShipOrder({orderId: string})
+type command = ShipOrder({orderId: string})
 
 @schema
 type error =

package/lib/bs/src/Plugin.res

@@ -3,14 +3,54 @@
 @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},
+  {
+    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) => {
@@ -18,14 +58,26 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   module CancelOrderSlice = Platform.StateChangeSlice.Make(CancelOrder, CancelOrder_Behavior)
   module ChangeAddressSlice = Platform.StateChangeSlice.Make(ChangeAddress, ChangeAddress_Behavior)
   module ChangeEmailSlice = Platform.StateChangeSlice.Make(ChangeEmail, ChangeEmail_Behavior)
-  module DeactivateCustomerSlice = Platform.StateChangeSlice.Make(DeactivateCustomer, DeactivateCustomer_Behavior)
+  module DeactivateCustomerSlice = Platform.StateChangeSlice.Make(
+    DeactivateCustomer,
+    DeactivateCustomer_Behavior,
+  )
   module PlaceOrderSlice = Platform.StateChangeSlice.Make(PlaceOrder, PlaceOrder_Behavior)
-  module RegisterCustomerSlice = Platform.StateChangeSlice.Make(RegisterCustomer, RegisterCustomer_Behavior)
+  module RegisterCustomerSlice = Platform.StateChangeSlice.Make(
+    RegisterCustomer,
+    RegisterCustomer_Behavior,
+  )
   module ShipOrderSlice = Platform.StateChangeSlice.Make(ShipOrder, ShipOrder_Behavior)
-  module SyncCatalogProductSlice = Platform.StateChangeSlice.Make(SyncCatalogProduct, SyncCatalogProduct_Behavior)
+  module SyncCatalogProductSlice = Platform.StateChangeSlice.Make(
+    SyncCatalogProduct,
+    SyncCatalogProduct_Behavior,
+  )
 
   // StateViewSlices
-  module AvailableProductsSlice = Platform.StateViewSlice.Make(AvailableProducts, AvailableProducts_Projection)
+  module AvailableProductsSlice = Platform.StateViewSlice.Make(
+    AvailableProducts,
+    AvailableProducts_Projection,
+  )
   module CustomersSlice = Platform.StateViewSlice.Make(Customers, Customers_Projection)
   module OrdersSlice = Platform.StateViewSlice.Make(Orders, Orders_Projection)
 
@@ -33,7 +85,10 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   module AutoShipOrderSlice = Platform.AutomationSlice.Make(AutoShipOrder, AutoShipOrder_Automation)
 
   // OutboundTranslationSlices
-  module SendOrderConfirmationSlice = Platform.OutboundTranslationSlice.Make(SendOrderConfirmation, SendOrderConfirmation_Translation)
+  module SendOrderConfirmationSlice = Platform.OutboundTranslationSlice.Make(
+    SendOrderConfirmation,
+    SendOrderConfirmation_Translation,
+  )
 
   // ExtensionPoints
   module Orders_ExtensionPoint = Platform.ExtensionPoint.Make(Orders_ExtensionPointMapping)
@@ -44,12 +99,35 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   let pluginStructure = Platform.Plugin.makePluginDefinition(
     ~name="Ordering",
     ~stateViewSlices=[module(AvailableProductsSlice), module(CustomersSlice), module(OrdersSlice)],
-    ~stateChangeSlices=[module(CancelOrderSlice), module(ChangeAddressSlice), module(ChangeEmailSlice), module(DeactivateCustomerSlice), module(PlaceOrderSlice), module(RegisterCustomerSlice), module(ShipOrderSlice), module(SyncCatalogProductSlice)],
+    ~stateChangeSlices=[
+      module(CancelOrderSlice),
+      module(ChangeAddressSlice),
+      module(ChangeEmailSlice),
+      module(DeactivateCustomerSlice),
+      module(PlaceOrderSlice),
+      module(RegisterCustomerSlice),
+      module(ShipOrderSlice),
+      module(SyncCatalogProductSlice),
+    ],
     ~automationSlices=[module(AutoShipOrderSlice)],
     ~outboundTranslationSlices=[module(SendOrderConfirmationSlice)],
     ~extensions=[module(Products_Extension)],
     ~extensionPoints=[module(Orders_ExtensionPointMapping)],
-    ~componentChapters=Dict.fromArray([("AutoShipOrder", "Order"), ("AvailableProducts", "CatalogProduct"), ("CancelOrder", "Order"), ("ChangeAddress", "Customer"), ("ChangeEmail", "Customer"), ("Customers", "Customer"), ("DeactivateCustomer", "Customer"), ("Orders", "Order"), ("PlaceOrder", "Order"), ("RegisterCustomer", "Customer"), ("SendOrderConfirmation", "Order"), ("ShipOrder", "Order"), ("SyncCatalogProduct", "CatalogProduct")]),
+    ~componentChapters=Dict.fromArray([
+      ("AutoShipOrder", "Order"),
+      ("AvailableProducts", "CatalogProduct"),
+      ("CancelOrder", "Order"),
+      ("ChangeAddress", "Customer"),
+      ("ChangeEmail", "Customer"),
+      ("Customers", "Customer"),
+      ("DeactivateCustomer", "Customer"),
+      ("Orders", "Order"),
+      ("PlaceOrder", "Order"),
+      ("RegisterCustomer", "Customer"),
+      ("SendOrderConfirmation", "Order"),
+      ("ShipOrder", "Order"),
+      ("SyncCatalogProduct", "CatalogProduct"),
+    ]),
     ~lifecycleModel=LifecycleModel.model,
   )
 
@@ -59,11 +137,24 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
       ~heartbeatInterval=5,
       ~extensionPoints=[module(Orders_ExtensionPoint)],
       ~extensions=[module(Products_Extension)],
-      ~stateChangeSlices=[module(CancelOrderSlice), module(ChangeAddressSlice), module(ChangeEmailSlice), module(DeactivateCustomerSlice), module(PlaceOrderSlice), module(RegisterCustomerSlice), module(ShipOrderSlice), module(SyncCatalogProductSlice)],
-      ~stateViewSlices=[module(AvailableProductsSlice), module(CustomersSlice), module(OrdersSlice)],
+      ~stateChangeSlices=[
+        module(CancelOrderSlice),
+        module(ChangeAddressSlice),
+        module(ChangeEmailSlice),
+        module(DeactivateCustomerSlice),
+        module(PlaceOrderSlice),
+        module(RegisterCustomerSlice),
+        module(ShipOrderSlice),
+        module(SyncCatalogProductSlice),
+      ],
+      ~stateViewSlices=[
+        module(AvailableProductsSlice),
+        module(CustomersSlice),
+        module(OrdersSlice),
+      ],
       ~automationSlices=[module(AutoShipOrderSlice)],
       ~outboundTranslationSlices=[module(SendOrderConfirmationSlice)],
-      ~pluginStructure=pluginStructure,
+      ~pluginStructure,
       ~uiFragments=?uiBundleUrl->Option.map(url =>
         Platform.Plugin.makeAutoUIManifest(
           ~remoteEntryUrl=url,