@reventlessdev/online-shop-dcb-ordering 1.0.0-alpha.103

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

@@ -0,0 +1,56 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+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 = S.union([
+  S.literal("OrderPlaced"),
+  S.literal("OrderShipped"),
+  S.literal("OrderCancelled")
+]);
+
+let commandSchema = S.schema(s => ({
+  TAG: "ShipOrder",
+  orderId: s.m(DcbTag$Reventless.string)
+}));
+
+let errorSchema = S.union([
+  S.literal("OrderNotFound"),
+  S.literal("OrderAlreadyCancelled")
+]);
+
+let eventSchema = S.schema(s => ({
+  TAG: "OrderShipped",
+  orderId: s.m(DcbTag$Reventless.string)
+}));
+
+let commandSchema$1 = Api$ReventlessInfra.markAllowedStates(commandSchema, [[
+    "ShipOrder",
+    ["Placed"]
+  ]]);
+
+function commandAuthorization(param) {
+  return "AllowAuthenticated";
+}
+
+let name = "ShipOrder";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/StateChangeSlice/ShipOrder.res.mjs";
+
+let readConsistency = "EscalateOnRetry";
+
+export {
+  name,
+  Id,
+  consumedEventSchema,
+  errorSchema,
+  eventSchema,
+  commandSchema$1 as commandSchema,
+  moduleUrl,
+  commandAuthorization,
+  readConsistency,
+}
+/* consumedEventSchema Not a pure module */

package/src/Order/StateChangeSlice/ShipOrder_Behavior.res

@@ -0,0 +1,26 @@
+@@reventless.behavior
+
+type state = {exists: bool, shipped: bool, cancelled: bool}
+
+let initialState = {exists: false, shipped: false, cancelled: false}
+
+let evolve = (state, event) =>
+  switch event {
+  | OrderPlaced => {exists: true, shipped: false, cancelled: false}
+  | OrderShipped => {...state, shipped: true}
+  | OrderCancelled => {...state, cancelled: true}
+  }
+
+let decide = (state, command) =>
+  switch command {
+  | ShipOrder({orderId: theId}) =>
+    if !state.exists {
+      Error(OrderNotFound)
+    } else if state.cancelled {
+      Error(OrderAlreadyCancelled)
+    } else if state.shipped {
+      Ok([]) // idempotent — already shipped
+    } else {
+      Ok([OrderShipped({orderId: theId})])
+    }
+  }

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

@@ -0,0 +1,73 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function evolve(state, event) {
+  switch (event) {
+    case "OrderPlaced" :
+      return {
+        exists: true,
+        shipped: false,
+        cancelled: false
+      };
+    case "OrderShipped" :
+      return {
+        exists: state.exists,
+        shipped: true,
+        cancelled: state.cancelled
+      };
+    case "OrderCancelled" :
+      return {
+        exists: state.exists,
+        shipped: state.shipped,
+        cancelled: true
+      };
+  }
+}
+
+function decide(state, command) {
+  if (state.exists) {
+    if (state.cancelled) {
+      return {
+        TAG: "Error",
+        _0: "OrderAlreadyCancelled"
+      };
+    } else if (state.shipped) {
+      return {
+        TAG: "Ok",
+        _0: []
+      };
+    } else {
+      return {
+        TAG: "Ok",
+        _0: [{
+            TAG: "OrderShipped",
+            orderId: command.orderId
+          }]
+      };
+    }
+  } else {
+    return {
+      TAG: "Error",
+      _0: "OrderNotFound"
+    };
+  }
+}
+
+let Spec;
+
+let initialState = {
+  exists: false,
+  shipped: false,
+  cancelled: false
+};
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/StateChangeSlice/ShipOrder_Behavior.res.mjs";
+
+export {
+  Spec,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* No side effect */

package/src/Order/StateViewSlice/Orders.res

@@ -0,0 +1,23 @@
+// Orders StateViewSlice.
+// Projects order events from the shared ordering event log into an Orders read model.
+@@reventless.spec
+
+@schema
+type status =
+  | Placed
+  | Shipped
+  | Cancelled
+
+@schema
+type state = {
+  orderId: string,
+  customerId: string,
+  productIds: array<string>,
+  @status status: status,
+}
+
+@schema
+type consumedEvent =
+  | OrderPlaced({orderId: string, customerId: string, productIds: array<string>})
+  | OrderShipped({orderId: string})
+  | OrderCancelled({orderId: string})

package/src/Order/StateViewSlice/Orders.res.mjs

@@ -0,0 +1,81 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
+import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as StateAnnotations$Reventless from "@reventlessdev/reventless-spec/src/components/StateAnnotations.res.mjs";
+
+let statusSchema = S.union([
+  S.literal("Placed"),
+  S.literal("Shipped"),
+  S.literal("Cancelled")
+]);
+
+let stateSchema = S.schema(s => ({
+  orderId: s.m(S.string),
+  customerId: s.m(S.string),
+  productIds: s.m(S.array(S.string)),
+  status: s.m(statusSchema)
+}));
+
+let consumedEventSchema = S.union([
+  S.schema(s => ({
+    TAG: "OrderPlaced",
+    orderId: s.m(DcbTag$Reventless.string),
+    customerId: s.m(DcbTag$Reventless.string),
+    productIds: s.m(S.array(DcbTag$Reventless.stringForKey("productId")))
+  })),
+  S.schema(s => ({
+    TAG: "OrderShipped",
+    orderId: s.m(DcbTag$Reventless.string)
+  })),
+  S.schema(s => ({
+    TAG: "OrderCancelled",
+    orderId: s.m(DcbTag$Reventless.string)
+  }))
+]);
+
+let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+
+let stateSchema$1 = S.Metadata.set(stateSchema, StateAnnotations$Reventless.stateAnnotationsId, {
+  ids: [],
+  compositeIds: [],
+  subIds: [],
+  compositeSubIds: [],
+  indexes: [],
+  hidden: [],
+  summary: [],
+  drillTargets: [],
+  drillTargetKeys: [],
+  collapsed: [],
+  scan: [],
+  scanSort: [],
+  status: "status",
+  visibility: undefined
+});
+
+let name = "Orders";
+
+let Id;
+
+let subIdConfig;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/StateViewSlice/Orders.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  statusSchema,
+  consumedEventSchema,
+  config,
+  subIdConfig,
+  stateSchema$1 as stateSchema,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* statusSchema Not a pure module */

package/src/Order/StateViewSlice/Orders_Projection.res

@@ -0,0 +1,10 @@
+@@reventless.projection
+
+let project = event =>
+  switch event {
+  | OrderPlaced({orderId, customerId, productIds}) => [
+      Set(orderId, {orderId, customerId, productIds, status: Placed}),
+    ]
+  | OrderShipped({orderId}) => [Update(orderId, state => {...state, status: Shipped})]
+  | OrderCancelled({orderId}) => [Update(orderId, state => {...state, status: Cancelled})]
+  }

package/src/Order/StateViewSlice/Orders_Projection.res.mjs

@@ -0,0 +1,52 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function project(event) {
+  switch (event.TAG) {
+    case "OrderPlaced" :
+      let orderId = event.orderId;
+      return [{
+          TAG: "Set",
+          _0: orderId,
+          _1: {
+            orderId: orderId,
+            customerId: event.customerId,
+            productIds: event.productIds,
+            status: "Placed"
+          }
+        }];
+    case "OrderShipped" :
+      return [{
+          TAG: "Update",
+          _0: event.orderId,
+          _1: state => ({
+            orderId: state.orderId,
+            customerId: state.customerId,
+            productIds: state.productIds,
+            status: "Shipped"
+          })
+        }];
+    case "OrderCancelled" :
+      return [{
+          TAG: "Update",
+          _0: event.orderId,
+          _1: state => ({
+            orderId: state.orderId,
+            customerId: state.customerId,
+            productIds: state.productIds,
+            status: "Cancelled"
+          })
+        }];
+  }
+}
+
+let Spec;
+
+let moduleUrl = "@reventlessdev/online-shop-dcb-ordering/src/Order/StateViewSlice/Orders_Projection.res.mjs";
+
+export {
+  Spec,
+  project,
+  moduleUrl,
+}
+/* No side effect */

package/src/Plugin.res

@@ -0,0 +1,64 @@
+// AUTO-GENERATED — do not edit. Run `npm run generate` to update.
+
+@val external uiBundleUrl: option<string> = "process.env.ORDERING_UI_BUNDLE_URL"
+
+module Make = (Platform: ReventlessInfra.Platform.T) => {
+  // StateChangeSlices
+  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 PlaceOrderSlice = Platform.StateChangeSlice.Make(PlaceOrder, PlaceOrder_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)
+
+  // StateViewSlices
+  module AvailableProductsSlice = Platform.StateViewSlice.Make(AvailableProducts, AvailableProducts_Projection)
+  module CustomersSlice = Platform.StateViewSlice.Make(Customers, Customers_Projection)
+  module OrdersSlice = Platform.StateViewSlice.Make(Orders, Orders_Projection)
+
+  // AutomationSlices
+  module AutoShipOrderSlice = Platform.AutomationSlice.Make(AutoShipOrder, AutoShipOrder_Automation)
+
+  // OutboundTranslationSlices
+  module SendOrderConfirmationSlice = Platform.OutboundTranslationSlice.Make(SendOrderConfirmation, SendOrderConfirmation_Translation)
+
+  // ExtensionPoints
+  module Orders_ExtensionPoint = Platform.ExtensionPoint.Make(Orders_ExtensionPointMapping)
+
+  // Extensions
+  module Products_Extension = Platform.Extension.Make(Products_Extension.Mapping)
+
+  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)],
+    ~automationSlices=[module(AutoShipOrderSlice)],
+    ~outboundTranslationSlices=[module(SendOrderConfirmationSlice)],
+    ~extensions=[module(Products_Extension)],
+    ~extensionPoints=[module(Orders_ExtensionPointMapping)],
+  )
+
+  let make = () =>
+    Platform.Plugin.make(
+      ~name="Ordering",
+      ~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)],
+      ~automationSlices=[module(AutoShipOrderSlice)],
+      ~outboundTranslationSlices=[module(SendOrderConfirmationSlice)],
+      ~pluginStructure=pluginStructure,
+      ~uiFragments=?uiBundleUrl->Option.map(url =>
+        Platform.Plugin.makeAutoUIManifest(
+          ~remoteEntryUrl=url,
+          ~name="Ordering",
+          ~pluginStructure,
+          ~readModelPositions=["platform-summary"],
+          ~aggregatePositions=["resource-detail"],
+        )
+      ),
+    )
+}