@reventlessdev/online-shop-aggregates-ordering 3.0.0-alpha.101

package/src/Order/Aggregate/Order_Behavior.res.mjs

@@ -0,0 +1,193 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.res.mjs";
+
+let stateSchema = S.union([
+  S.literal("NotCreated"),
+  S.schema(s => ({
+    TAG: "Placed",
+    customerId: s.m(S.string),
+    productIds: s.m(S.array(S.string))
+  })),
+  S.literal("Shipped"),
+  S.literal("Cancelled"),
+  S.literal("Refunded")
+]);
+
+function evolve(state, event) {
+  if (typeof state !== "object") {
+    switch (state) {
+      case "NotCreated" :
+        if (typeof event !== "object" || event.TAG !== "Placed") {
+          return state;
+        } else {
+          return {
+            TAG: "Placed",
+            customerId: event.customerId,
+            productIds: event.productIds
+          };
+        }
+      case "Cancelled" :
+        if (typeof event !== "object" || event.TAG !== "Refunded") {
+          return state;
+        } else {
+          return "Refunded";
+        }
+      case "Shipped" :
+      case "Refunded" :
+        return state;
+    }
+  } else {
+    if (typeof event !== "object") {
+      return "Shipped";
+    }
+    switch (event.TAG) {
+      case "Placed" :
+        return {
+          TAG: "Placed",
+          customerId: event.customerId,
+          productIds: event.productIds
+        };
+      case "Cancelled" :
+        return "Cancelled";
+      case "Refunded" :
+        throw {
+          RE_EXN_ID: "Match_failure",
+          _1: [
+            "Order_Behavior.res",
+            17,
+            2
+          ],
+          Error: new Error()
+        };
+    }
+  }
+}
+
+function decide(state, command) {
+  if (typeof state === "object") {
+    if (typeof command !== "object") {
+      if (command === "Ship") {
+        return {
+          TAG: "Ok",
+          _0: ["Shipped"]
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "Cancelled",
+              productIds: state.productIds
+            }]
+        };
+      }
+    } else if (command.TAG === "Place") {
+      return {
+        TAG: "Error",
+        _0: "OrderAlreadyPlaced"
+      };
+    } else {
+      return {
+        TAG: "Error",
+        _0: "OrderNotCancelled"
+      };
+    }
+  }
+  switch (state) {
+    case "NotCreated" :
+      if (typeof command !== "object" || command.TAG !== "Place") {
+        return {
+          TAG: "Error",
+          _0: "OrderNotFound"
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "Placed",
+              customerId: command.customerId,
+              productIds: command.productIds
+            }]
+        };
+      }
+    case "Shipped" :
+      if (typeof command !== "object") {
+        if (command === "Ship") {
+          return {
+            TAG: "Ok",
+            _0: []
+          };
+        } else {
+          return {
+            TAG: "Error",
+            _0: "OrderAlreadyShipped"
+          };
+        }
+      } else if (command.TAG === "Place") {
+        return {
+          TAG: "Error",
+          _0: "OrderAlreadyShipped"
+        };
+      } else {
+        return {
+          TAG: "Error",
+          _0: "OrderNotCancelled"
+        };
+      }
+    case "Cancelled" :
+      if (typeof command !== "object") {
+        if (command === "Ship") {
+          return {
+            TAG: "Error",
+            _0: "OrderAlreadyCancelled"
+          };
+        } else {
+          return {
+            TAG: "Ok",
+            _0: []
+          };
+        }
+      } else if (command.TAG === "Place") {
+        return {
+          TAG: "Error",
+          _0: "OrderAlreadyCancelled"
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: [{
+              TAG: "Refunded",
+              reason: command.reason
+            }]
+        };
+      }
+    case "Refunded" :
+      if (typeof command !== "object" || command.TAG !== "Refund") {
+        return {
+          TAG: "Error",
+          _0: "OrderAlreadyRefunded"
+        };
+      } else {
+        return {
+          TAG: "Ok",
+          _0: []
+        };
+      }
+  }
+}
+
+let Spec;
+
+let initialState = "NotCreated";
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-ordering/src/Order/Aggregate/Order_Behavior.res.mjs";
+
+export {
+  Spec,
+  stateSchema,
+  initialState,
+  evolve,
+  decide,
+  moduleUrl,
+}
+/* stateSchema Not a pure module */

package/src/Order/Aggregate/Order_Mappings.res

@@ -0,0 +1,15 @@
+// Order event mappings — maps Order events to Order commands.
+// When an order is placed, automatically issue a Ship command.
+@@reventless.mappings
+
+module AutoShipMapping = {
+  module Source = Order
+
+  let map = (orderId, event, _queryEngine) =>
+    switch event {
+    | Order.Placed(_) => [Publish(orderId, Order.Ship)]
+    | _ => []
+    }
+}
+
+let mappings: array<module(Mapping)> = [module(AutoShipMapping)]

package/src/Order/Aggregate/Order_Mappings.res.mjs

@@ -0,0 +1,55 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Order$OrderingPlugin from "./Order.res.mjs";
+import * as EventMapping$Reventless from "@reventlessdev/reventless-spec/src/types/EventMapping.res.mjs";
+
+let M = EventMapping$Reventless.Mappings.Make({
+  name: Order$OrderingPlugin.name,
+  Id: Id$Reventless.$$String,
+  commandSchema: Order$OrderingPlugin.commandSchema
+});
+
+function map(orderId, event, _queryEngine) {
+  if (typeof event !== "object") {
+    return [];
+  } else if (event.TAG === "Placed") {
+    return [{
+        TAG: "Publish",
+        _0: orderId,
+        _1: "Ship"
+      }];
+  } else {
+    return [];
+  }
+}
+
+let AutoShipMapping = {
+  Source: undefined,
+  map: map
+};
+
+let mappings = [{
+    Source: {
+      name: Order$OrderingPlugin.name,
+      Id: Id$Reventless.$$String,
+      eventSchema: Order$OrderingPlugin.eventSchema
+    },
+    map: map
+  }];
+
+let Target;
+
+let counter;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-ordering/src/Order/Aggregate/Order_Mappings.res.mjs";
+
+export {
+  Target,
+  M,
+  AutoShipMapping,
+  mappings,
+  counter,
+  moduleUrl,
+}
+/* M Not a pure module */

package/src/Order/ReadModel/Orders.res

@@ -0,0 +1,19 @@
+// Orders read model specification.
+// Query-side state for customer orders.
+
+@@reventless.spec
+
+@schema
+type status =
+  | Placed
+  | Shipped
+  | Cancelled
+  | Refunded
+
+@schema
+type state = {
+  customerId: string,
+  productIds: array<string>,
+  @status status: status,
+}
+

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

@@ -0,0 +1,62 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as S from "sury/src/S.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"),
+  S.literal("Refunded")
+]);
+
+let stateSchema = S.schema(s => ({
+  customerId: s.m(S.string),
+  productIds: s.m(S.array(S.string)),
+  status: s.m(statusSchema)
+}));
+
+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-aggregates-ordering/src/Order/ReadModel/Orders.res.mjs";
+
+let authorization = "AllowAuthenticated";
+
+let visibility = "Public";
+
+export {
+  name,
+  Id,
+  statusSchema,
+  config,
+  subIdConfig,
+  stateSchema$1 as stateSchema,
+  moduleUrl,
+  authorization,
+  visibility,
+}
+/* statusSchema Not a pure module */

package/src/Order/ReadModel/Orders_Projections.res

@@ -0,0 +1,31 @@
+// Order projection mappings.
+// Maps Order aggregate events to Orders read model state changes.
+@@reventless.mappings
+
+module OrderMapping = Mapping.Make(
+  Order,
+  Orders,
+  {
+    open Order
+    let project = ({event, id, _}) =>
+      switch event {
+      | Placed({customerId, productIds}) =>
+        Set(
+          id,
+          {
+            Orders.customerId: customerId,
+            productIds,
+            status: (Placed: Orders.status),
+          },
+        )
+      | Shipped =>
+        Update(id, state => {...state, status: (Shipped: Orders.status)})
+      | Cancelled(_) =>
+        Update(id, state => {...state, status: (Cancelled: Orders.status)})
+      | Refunded(_) =>
+        Update(id, state => {...state, status: (Refunded: Orders.status)})
+      }
+  },
+)
+
+let mappings: array<module(Mapping)> = [module(OrderMapping)]

package/src/Order/ReadModel/Orders_Projections.res.mjs

@@ -0,0 +1,89 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Order$OrderingPlugin from "../Aggregate/Order.res.mjs";
+import * as Orders$OrderingPlugin from "./Orders.res.mjs";
+import * as Projection$Reventless from "@reventlessdev/reventless-spec/src/types/Projection.res.mjs";
+
+let M = Projection$Reventless.Mappings.Make({
+  Id: Id$Reventless.$$String,
+  name: Orders$OrderingPlugin.name,
+  stateSchema: Orders$OrderingPlugin.stateSchema,
+  subIdConfig: undefined
+});
+
+function project(param) {
+  let event = param.event;
+  let id = param.id;
+  if (typeof event !== "object") {
+    return {
+      TAG: "Update",
+      _0: id,
+      _1: state => ({
+        customerId: state.customerId,
+        productIds: state.productIds,
+        status: "Shipped"
+      })
+    };
+  }
+  switch (event.TAG) {
+    case "Placed" :
+      return {
+        TAG: "Set",
+        _0: id,
+        _1: {
+          customerId: event.customerId,
+          productIds: event.productIds,
+          status: "Placed"
+        }
+      };
+    case "Cancelled" :
+      return {
+        TAG: "Update",
+        _0: id,
+        _1: state => ({
+          customerId: state.customerId,
+          productIds: state.productIds,
+          status: "Cancelled"
+        })
+      };
+    case "Refunded" :
+      return {
+        TAG: "Update",
+        _0: id,
+        _1: state => ({
+          customerId: state.customerId,
+          productIds: state.productIds,
+          status: "Refunded"
+        })
+      };
+  }
+}
+
+let OrderMapping = Projection$Reventless.Mapping.Make({
+  Id: Id$Reventless.$$String,
+  name: Order$OrderingPlugin.name,
+  eventSchema: Order$OrderingPlugin.eventSchema
+})({
+  Id: Id$Reventless.$$String,
+  name: Orders$OrderingPlugin.name,
+  stateSchema: Orders$OrderingPlugin.stateSchema,
+  subIdConfig: undefined
+})({
+  project: project
+});
+
+let mappings = [OrderMapping];
+
+let Target;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-ordering/src/Order/ReadModel/Orders_Projections.res.mjs";
+
+export {
+  Target,
+  M,
+  OrderMapping,
+  mappings,
+  moduleUrl,
+}
+/* M Not a pure module */

package/src/Order/SideEffect/Order_EmailNotification.res

@@ -0,0 +1,18 @@
+// Send an order confirmation email when an order is placed.
+@@reventless.spec
+
+module Source = {
+  let name = Order.name
+  module Id = Order.Id
+  @schema type event = Order.event
+}
+
+let execute = async (orderId, _meta, event, _queryEngine) =>
+  switch event {
+  | Order.Placed({customerId}) =>
+    await EmailService.sendOrderConfirmation(
+      ~email=customerId,
+      ~orderId=orderId->Order.Id.toString,
+    )
+  | _ => ()
+  }

package/src/Order/SideEffect/Order_EmailNotification.res.mjs

@@ -0,0 +1,34 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
+import * as Order$OrderingPlugin from "../Aggregate/Order.res.mjs";
+import * as EmailService$OrderingPlugin from "../../Service/EmailService.res.mjs";
+
+let Source = {
+  name: Order$OrderingPlugin.name,
+  Id: undefined,
+  eventSchema: Order$OrderingPlugin.eventSchema
+};
+
+async function execute(orderId, _meta, event, _queryEngine) {
+  if (typeof event !== "object" || event.TAG !== "Placed") {
+    return;
+  } else {
+    return await EmailService$OrderingPlugin.sendOrderConfirmation(event.customerId, Id$Reventless.$$String.toString(orderId));
+  }
+}
+
+let name = "Order_EmailNotification";
+
+let Id;
+
+let moduleUrl = "@reventlessdev/online-shop-aggregates-ordering/src/Order/SideEffect/Order_EmailNotification.res.mjs";
+
+export {
+  name,
+  Id,
+  Source,
+  execute,
+  moduleUrl,
+}
+/* Id-Reventless Not a pure module */

package/src/Plugin.res

@@ -0,0 +1,65 @@
+// 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) => {
+  // Aggregates
+  module CatalogProductAggregate = Platform.Aggregate.Make(
+    CatalogProduct,
+    CatalogProduct_Behavior,
+    ReventlessInfra.NoEventMappings.Make(CatalogProduct),
+  )
+  module CustomerAggregate = Platform.Aggregate.Make(
+    Customer,
+    Customer_Behavior,
+    ReventlessInfra.NoEventMappings.Make(Customer),
+  )
+  module OrderAggregate = Platform.Aggregate.Make(
+    Order,
+    Order_Behavior,
+    Order_Mappings,
+  )
+
+  // ReadModels
+  module AvailableProductsReadModel = Platform.ReadModel.Make(AvailableProducts, AvailableProducts_Projections)
+  module CustomersReadModel = Platform.ReadModel.Make(Customers, Customers_Projections)
+  module OrdersReadModel = Platform.ReadModel.Make(Orders, Orders_Projections)
+
+  // Tasks
+  module OrderNotificationsTask = Platform.Task.Make(OrderNotifications)
+
+  // 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",
+    ~aggregates=[module(CatalogProductAggregate), module(CustomerAggregate), module(OrderAggregate)],
+    ~readModels=[module(AvailableProductsReadModel), module(CustomersReadModel), module(OrdersReadModel)],
+    ~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)],
+      ~aggregates=[module(CatalogProductAggregate), module(CustomerAggregate), module(OrderAggregate)],
+      ~readModels=[module(AvailableProductsReadModel), module(CustomersReadModel), module(OrdersReadModel)],
+      ~tasks=[module(OrderNotificationsTask)],
+      ~pluginStructure=pluginStructure,
+      ~uiFragments=?uiBundleUrl->Option.map(url =>
+        Platform.Plugin.makeAutoUIManifest(
+          ~remoteEntryUrl=url,
+          ~name="Ordering",
+          ~pluginStructure,
+          ~readModelPositions=["platform-summary"],
+          ~aggregatePositions=["resource-detail"],
+        )
+      ),
+    )
+}