@reventlessdev/online-shop-dcb-catalog 1.0.0-alpha.241 → 1.0.0-alpha.243

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.243 (2026-09-11)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-catalog
+
+
+
+
+
+# 1.0.0-alpha.242 (2026-09-09)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-dcb-catalog
+
+
+
+
+
 # 1.0.0-alpha.241 (2026-09-08)
 
 **Note:** Version bump only for package @reventlessdev/online-shop-dcb-catalog

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1788869300003)
-#Done(1788869302864)
+#Start(1789087733248)
+#Done(1789087736208)

package/lib/bs/compiler-info.json

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

package/lib/bs/src/Category/StateChange/ArchiveCategory.res

@@ -8,8 +8,7 @@ type consumedEvent =
   | CategoryArchived
 
 @schema
-type command =
-  | @authorize(AllowGroups(["Admin"])) ArchiveCategory({categoryId: string})
+type command = | @authorize(AllowGroups(["Admin"])) ArchiveCategory({categoryId: string})
 
 @schema
 type error = CategoryNotFound

package/lib/bs/src/Category/StateView/Categories_Projection.res

@@ -2,9 +2,7 @@
 
 let project = ({event}) =>
   switch event {
-  | CategoryAdded({categoryId, name}) => [
-      Set(categoryId, {categoryId, name, archived: false}),
-    ]
+  | CategoryAdded({categoryId, name}) => [Set(categoryId, {categoryId, name, archived: false})]
   | CategoryRenamed({categoryId, name}) => [Update(categoryId, state => {...state, name})]
   | CategoryArchived({categoryId}) => [Update(categoryId, state => {...state, archived: true})]
   }

package/lib/bs/src/CategoryActivity/ReadModel/CategoryActivity_Projections.res

@@ -53,17 +53,20 @@ module CategoryActivityMapping = Mapping.Make(
         Set(
           categoryId,
           {
-            CategoryActivity.name: name,
+            CategoryActivity.name,
             kind: Category,
             lastChange: (Added: CategoryActivity.change),
           },
         )
       | CategoryRenamed({categoryId, name}) =>
-        Update(categoryId, state => {
-          ...state,
-          name,
-          lastChange: (Renamed: CategoryActivity.change),
-        })
+        Update(
+          categoryId,
+          state => {
+            ...state,
+            name,
+            lastChange: (Renamed: CategoryActivity.change),
+          },
+        )
       | CategoryArchived({categoryId}) =>
         Update(categoryId, state => {...state, lastChange: (Archived: CategoryActivity.change)})
       }
@@ -82,11 +85,14 @@ module ProductActivityMapping = Mapping.Make(
     let project = ({event, _}) =>
       switch event {
       | ProductAdded({productId, name}) =>
-        Set(productId, {CategoryActivity.name: name, kind: Product, lastChange: Added})
+        Set(productId, {CategoryActivity.name, kind: Product, lastChange: Added})
       | ProductNameChanged({productId, name}) =>
         Update(productId, state => {...state, name, lastChange: Renamed})
       }
   },
 )
 
-let mappings: array<module(Mapping)> = [module(CategoryActivityMapping), module(ProductActivityMapping)]
+let mappings: array<module(Mapping)> = [
+  module(CategoryActivityMapping),
+  module(ProductActivityMapping),
+]

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

@@ -15,16 +15,20 @@ module Delegate = {
 
 let mapIncomingCommand = (_id, _command, _meta) => []
 
-let mapOutgoingEvent = Some((_id, event, _meta, _queryEngine) =>
-  switch event {
-  | Delegate.ProductAdded({productId, name, price}) => [
-      PublishEvent(
-        productId,
-        CatalogSpec.Products_ExtensionPoint.ProductBecameAvailable({productId, name, price}),
-      ),
-    ]
-  | Delegate.ProductPriceChanged({productId, price}) => [
-      PublishEvent(productId, CatalogSpec.Products_ExtensionPoint.ProductPriceChanged({productId, price})),
-    ]
-  }
+let mapOutgoingEvent = Some(
+  (_id, event, _meta, _queryEngine) =>
+    switch event {
+    | Delegate.ProductAdded({productId, name, price}) => [
+        PublishEvent(
+          productId,
+          CatalogSpec.Products_ExtensionPoint.ProductBecameAvailable({productId, name, price}),
+        ),
+      ]
+    | Delegate.ProductPriceChanged({productId, price}) => [
+        PublishEvent(
+          productId,
+          CatalogSpec.Products_ExtensionPoint.ProductPriceChanged({productId, price}),
+        ),
+      ]
+    },
 )

package/lib/bs/src/LifecycleModel.res

@@ -6,5 +6,4 @@
 // `@transition` annotation where it says anything, and falls back to the
 // annotation where it is silent.
 
-let model: array<Reventless.Plugin.derivedEdge> = [
-]
+let model: array<Reventless.Plugin.derivedEdge> = []

package/lib/bs/src/Plugin.res

@@ -3,26 +3,84 @@
 @val external uiBundleUrl: option<string> = "process.env.CATALOG_UI_BUNDLE_URL"
 
 let dcbSliceSchemas: array<Reventless.DcbTag.sliceSchemas> = [
-  {name: AddCategory.name, commandSchema: AddCategory.commandSchema->S.castToUnknown, consumedEventSchema: AddCategory.consumedEventSchema->S.castToUnknown, eventSchema: AddCategory.eventSchema->S.castToUnknown},
-  {name: AddProduct.name, commandSchema: AddProduct.commandSchema->S.castToUnknown, consumedEventSchema: AddProduct.consumedEventSchema->S.castToUnknown, eventSchema: AddProduct.eventSchema->S.castToUnknown},
-  {name: ArchiveCategory.name, commandSchema: ArchiveCategory.commandSchema->S.castToUnknown, consumedEventSchema: ArchiveCategory.consumedEventSchema->S.castToUnknown, eventSchema: ArchiveCategory.eventSchema->S.castToUnknown},
-  {name: ChangeProductDescription.name, commandSchema: ChangeProductDescription.commandSchema->S.castToUnknown, consumedEventSchema: ChangeProductDescription.consumedEventSchema->S.castToUnknown, eventSchema: ChangeProductDescription.eventSchema->S.castToUnknown},
-  {name: ChangeProductName.name, commandSchema: ChangeProductName.commandSchema->S.castToUnknown, consumedEventSchema: ChangeProductName.consumedEventSchema->S.castToUnknown, eventSchema: ChangeProductName.eventSchema->S.castToUnknown},
-  {name: ChangeProductPrice.name, commandSchema: ChangeProductPrice.commandSchema->S.castToUnknown, consumedEventSchema: ChangeProductPrice.consumedEventSchema->S.castToUnknown, eventSchema: ChangeProductPrice.eventSchema->S.castToUnknown},
-  {name: RecordProductDemand.name, commandSchema: RecordProductDemand.commandSchema->S.castToUnknown, consumedEventSchema: RecordProductDemand.consumedEventSchema->S.castToUnknown, eventSchema: RecordProductDemand.eventSchema->S.castToUnknown},
-  {name: RenameCategory.name, commandSchema: RenameCategory.commandSchema->S.castToUnknown, consumedEventSchema: RenameCategory.consumedEventSchema->S.castToUnknown, eventSchema: RenameCategory.eventSchema->S.castToUnknown},
+  {
+    name: AddCategory.name,
+    commandSchema: AddCategory.commandSchema->S.castToUnknown,
+    consumedEventSchema: AddCategory.consumedEventSchema->S.castToUnknown,
+    eventSchema: AddCategory.eventSchema->S.castToUnknown,
+  },
+  {
+    name: AddProduct.name,
+    commandSchema: AddProduct.commandSchema->S.castToUnknown,
+    consumedEventSchema: AddProduct.consumedEventSchema->S.castToUnknown,
+    eventSchema: AddProduct.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ArchiveCategory.name,
+    commandSchema: ArchiveCategory.commandSchema->S.castToUnknown,
+    consumedEventSchema: ArchiveCategory.consumedEventSchema->S.castToUnknown,
+    eventSchema: ArchiveCategory.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ChangeProductDescription.name,
+    commandSchema: ChangeProductDescription.commandSchema->S.castToUnknown,
+    consumedEventSchema: ChangeProductDescription.consumedEventSchema->S.castToUnknown,
+    eventSchema: ChangeProductDescription.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ChangeProductName.name,
+    commandSchema: ChangeProductName.commandSchema->S.castToUnknown,
+    consumedEventSchema: ChangeProductName.consumedEventSchema->S.castToUnknown,
+    eventSchema: ChangeProductName.eventSchema->S.castToUnknown,
+  },
+  {
+    name: ChangeProductPrice.name,
+    commandSchema: ChangeProductPrice.commandSchema->S.castToUnknown,
+    consumedEventSchema: ChangeProductPrice.consumedEventSchema->S.castToUnknown,
+    eventSchema: ChangeProductPrice.eventSchema->S.castToUnknown,
+  },
+  {
+    name: RecordProductDemand.name,
+    commandSchema: RecordProductDemand.commandSchema->S.castToUnknown,
+    consumedEventSchema: RecordProductDemand.consumedEventSchema->S.castToUnknown,
+    eventSchema: RecordProductDemand.eventSchema->S.castToUnknown,
+  },
+  {
+    name: RenameCategory.name,
+    commandSchema: RenameCategory.commandSchema->S.castToUnknown,
+    consumedEventSchema: RenameCategory.consumedEventSchema->S.castToUnknown,
+    eventSchema: RenameCategory.eventSchema->S.castToUnknown,
+  },
 ]
 
 module Make = (Platform: ReventlessInfra.Platform.T) => {
   // StateChangeSlices
   module AddCategorySlice = Platform.StateChangeSlice.Make(AddCategory, AddCategory_Behavior)
   module AddProductSlice = Platform.StateChangeSlice.Make(AddProduct, AddProduct_Behavior)
-  module ArchiveCategorySlice = Platform.StateChangeSlice.Make(ArchiveCategory, ArchiveCategory_Behavior)
-  module ChangeProductDescriptionSlice = Platform.StateChangeSlice.Make(ChangeProductDescription, ChangeProductDescription_Behavior)
-  module ChangeProductNameSlice = Platform.StateChangeSlice.Make(ChangeProductName, ChangeProductName_Behavior)
-  module ChangeProductPriceSlice = Platform.StateChangeSlice.Make(ChangeProductPrice, ChangeProductPrice_Behavior)
-  module RecordProductDemandSlice = Platform.StateChangeSlice.Make(RecordProductDemand, RecordProductDemand_Behavior)
-  module RenameCategorySlice = Platform.StateChangeSlice.Make(RenameCategory, RenameCategory_Behavior)
+  module ArchiveCategorySlice = Platform.StateChangeSlice.Make(
+    ArchiveCategory,
+    ArchiveCategory_Behavior,
+  )
+  module ChangeProductDescriptionSlice = Platform.StateChangeSlice.Make(
+    ChangeProductDescription,
+    ChangeProductDescription_Behavior,
+  )
+  module ChangeProductNameSlice = Platform.StateChangeSlice.Make(
+    ChangeProductName,
+    ChangeProductName_Behavior,
+  )
+  module ChangeProductPriceSlice = Platform.StateChangeSlice.Make(
+    ChangeProductPrice,
+    ChangeProductPrice_Behavior,
+  )
+  module RecordProductDemandSlice = Platform.StateChangeSlice.Make(
+    RecordProductDemand,
+    RecordProductDemand_Behavior,
+  )
+  module RenameCategorySlice = Platform.StateChangeSlice.Make(
+    RenameCategory,
+    RenameCategory_Behavior,
+  )
 
   // StateViewSlices
   module CategoriesSlice = Platform.StateViewSlice.Make(Categories, Categories_Projection)
@@ -30,10 +88,16 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
   module ProductsSlice = Platform.StateViewSlice.Make(Products, Products_Projection)
 
   // InboundTranslationSlices
-  module ImportProductSlice = Platform.InboundTranslationSlice.Make(ImportProduct, ImportProduct_Translation)
+  module ImportProductSlice = Platform.InboundTranslationSlice.Make(
+    ImportProduct,
+    ImportProduct_Translation,
+  )
 
   // ReadModels
-  module CategoryActivityReadModel = Platform.ReadModel.Make(CategoryActivity, CategoryActivity_Projections)
+  module CategoryActivityReadModel = Platform.ReadModel.Make(
+    CategoryActivity,
+    CategoryActivity_Projections,
+  )
 
   // Tasks
   module ImportProductsTask = Platform.Task.Make(ImportProducts)
@@ -48,11 +112,34 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
     ~name="Catalog",
     ~readModels=[module(CategoryActivityReadModel)],
     ~stateViewSlices=[module(CategoriesSlice), module(ProductDemandSlice), module(ProductsSlice)],
-    ~stateChangeSlices=[module(AddCategorySlice), module(AddProductSlice), module(ArchiveCategorySlice), module(ChangeProductDescriptionSlice), module(ChangeProductNameSlice), module(ChangeProductPriceSlice), module(RecordProductDemandSlice), module(RenameCategorySlice)],
+    ~stateChangeSlices=[
+      module(AddCategorySlice),
+      module(AddProductSlice),
+      module(ArchiveCategorySlice),
+      module(ChangeProductDescriptionSlice),
+      module(ChangeProductNameSlice),
+      module(ChangeProductPriceSlice),
+      module(RecordProductDemandSlice),
+      module(RenameCategorySlice),
+    ],
     ~inboundTranslationSlices=[module(ImportProductSlice)],
     ~extensions=[module(Orders_Extension)],
     ~extensionPoints=[module(Products_ExtensionPointMapping)],
-    ~componentChapters=Dict.fromArray([("AddCategory", "Category"), ("AddProduct", "Product"), ("ArchiveCategory", "Category"), ("Categories", "Category"), ("CategoryActivity", "CategoryActivity"), ("ChangeProductDescription", "Product"), ("ChangeProductName", "Product"), ("ChangeProductPrice", "Product"), ("ImportProduct", "Product"), ("ProductDemand", "ProductDemand"), ("Products", "Product"), ("RecordProductDemand", "ProductDemand"), ("RenameCategory", "Category")]),
+    ~componentChapters=Dict.fromArray([
+      ("AddCategory", "Category"),
+      ("AddProduct", "Product"),
+      ("ArchiveCategory", "Category"),
+      ("Categories", "Category"),
+      ("CategoryActivity", "CategoryActivity"),
+      ("ChangeProductDescription", "Product"),
+      ("ChangeProductName", "Product"),
+      ("ChangeProductPrice", "Product"),
+      ("ImportProduct", "Product"),
+      ("ProductDemand", "ProductDemand"),
+      ("Products", "Product"),
+      ("RecordProductDemand", "ProductDemand"),
+      ("RenameCategory", "Category"),
+    ]),
     ~lifecycleModel=LifecycleModel.model,
   )
 
@@ -64,10 +151,19 @@ module Make = (Platform: ReventlessInfra.Platform.T) => {
       ~extensions=[module(Orders_Extension)],
       ~readModels=[module(CategoryActivityReadModel)],
       ~tasks=[module(ImportProductsTask)],
-      ~stateChangeSlices=[module(AddCategorySlice), module(AddProductSlice), module(ArchiveCategorySlice), module(ChangeProductDescriptionSlice), module(ChangeProductNameSlice), module(ChangeProductPriceSlice), module(RecordProductDemandSlice), module(RenameCategorySlice)],
+      ~stateChangeSlices=[
+        module(AddCategorySlice),
+        module(AddProductSlice),
+        module(ArchiveCategorySlice),
+        module(ChangeProductDescriptionSlice),
+        module(ChangeProductNameSlice),
+        module(ChangeProductPriceSlice),
+        module(RecordProductDemandSlice),
+        module(RenameCategorySlice),
+      ],
       ~stateViewSlices=[module(CategoriesSlice), module(ProductDemandSlice), module(ProductsSlice)],
       ~inboundTranslationSlices=[module(ImportProductSlice)],
-      ~pluginStructure=pluginStructure,
+      ~pluginStructure,
       ~uiFragments=?uiBundleUrl->Option.map(url =>
         Platform.Plugin.makeAutoUIManifest(
           ~remoteEntryUrl=url,

package/lib/bs/src/Product/InboundTranslation/ImportProduct.res

@@ -13,12 +13,7 @@ type externalInput = {
 }
 
 @schema
-type command = AddProduct({
-  productId: string,
-  name: string,
-  description: string,
-  price: float,
-})
+type command = AddProduct({productId: string, name: string, description: string, price: float})
 
 let targetName = "AddProduct"
 // Foreign system this anti-corruption slice receives product data from — drawn as an

package/lib/bs/src/Product/InboundTranslation/ImportProduct_Translation.res

@@ -8,13 +8,15 @@ let translate = input =>
   } else if input.sku === "" {
     Error("SKU is required")
   } else {
-    Ok([(
-      input.sku,
-      AddProduct({
-        productId: input.sku,
-        name: input.title,
-        description: input.desc,
-        price: Int.toFloat(input.unitPrice) /. 100.0,
-      }),
-    )])
+    Ok([
+      (
+        input.sku,
+        AddProduct({
+          productId: input.sku,
+          name: input.title,
+          description: input.desc,
+          price: Int.toFloat(input.unitPrice) /. 100.0,
+        }),
+      ),
+    ])
   }

package/lib/bs/src/Product/StateChange/AddProduct.res

@@ -3,26 +3,13 @@
 @@reventless.spec
 
 @schema
-type consumedEvent =
-  | ProductAdded
+type consumedEvent = ProductAdded
 
 @schema
-type command =
-  | AddProduct({
-      productId: string,
-      name: string,
-      description: string,
-      price: float,
-    })
+type command = AddProduct({productId: string, name: string, description: string, price: float})
 
 @schema
 type error = ProductAlreadyExists
 
 @schema
-type event =
-  | ProductAdded({
-      productId: string,
-      name: string,
-      description: string,
-      price: float,
-    })
+type event = ProductAdded({productId: string, name: string, description: string, price: float})

package/lib/bs/src/Product/StateChange/ChangeProductDescription.res

@@ -8,15 +8,10 @@ type consumedEvent =
   | ProductDescriptionChanged({description: string})
 
 @schema
-type command =
-  | ChangeProductDescription({productId: string, description: string})
+type command = ChangeProductDescription({productId: string, description: string})
 
 @schema
 type error = ProductNotFound
 
 @schema
-type event =
-  | ProductDescriptionChanged({
-      productId: string,
-      description: string,
-    })
+type event = ProductDescriptionChanged({productId: string, description: string})

package/lib/bs/src/ProductDemand/StateChange/RecordProductDemand.res

@@ -18,11 +18,5 @@ type error = unit // always succeeds — demand recording is idempotent
 
 @schema
 type event =
-  | ProductDemandRecorded({
-      @partitionTag productId: string,
-      orderId: string,
-    })
-  | ProductDemandRevoked({
-      @partitionTag productId: string,
-      orderId: string,
-    })
+  | ProductDemandRecorded({@partitionTag productId: string, orderId: string})
+  | ProductDemandRevoked({@partitionTag productId: string, orderId: string})