@reventlessdev/online-shop-hybrid-ordering 1.0.0-alpha.183 → 1.0.0-alpha.185

package/CHANGELOG.md

@@ -3,6 +3,21 @@
 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.185 (2026-08-04)
+
+**Note:** Version bump only for package @reventlessdev/online-shop-hybrid-ordering
+
+
+
+
+
+# 1.0.0-alpha.184 (2026-08-04)
+
+### Features
+
+* **outbound:** hand translate its geocoder instead of making it fetch one ([fb18312](https://github.com/ReventlessDev/reventless-core/commit/fb1831216b37c9562868c46e1a09054e69418c67))
+
+
 # 1.0.0-alpha.183 (2026-08-03)
 
 **Note:** Version bump only for package @reventlessdev/online-shop-hybrid-ordering

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/online-shop-hybrid-ordering",
-  "version": "1.0.0-alpha.183",
+  "version": "1.0.0-alpha.185",
   "description": "Online Shop Hybrid example — Ordering plugin (Customer aggregate + Order/CatalogProduct DCB)",
   "license": "Apache-2.0",
   "jest": {
@@ -21,13 +21,13 @@
   },
   "dependencies": {
     "sury": "^11.0.0-alpha.4",
-    "@reventlessdev/online-shop-hybrid-catalog-spec": "1.0.0-alpha.94",
-    "@reventlessdev/online-shop-hybrid-ordering-spec": "1.0.0-alpha.94",
+    "@reventlessdev/online-shop-hybrid-catalog-spec": "1.0.0-alpha.95",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.158",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.126",
+    "@reventlessdev/online-shop-hybrid-ordering-spec": "1.0.0-alpha.95",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.18",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.156",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.124",
-    "@reventlessdev/reventless-local": "3.0.0-alpha.197",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.99"
+    "@reventlessdev/reventless-local": "3.0.0-alpha.199",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.100"
   },
   "devDependencies": {
     "rescript": "12.3.0",

package/src/Customer/OutboundTranslationSlice/GeocodeCustomerAddress_Translation.res

@@ -17,9 +17,13 @@ let collect = (event, ~sourceId) =>
   | AddressUpdated({address}) => [(`${sourceId}:${address}`, {customerId: sourceId, address})]
   }
 
-let translate = async (_id, item) => {
+// The geocoder arrives as a capability rather than being reached for. This
+// plugin cannot name Amazon Location — it depends on `reventless-spec`, not on
+// `reventless-aws` — and under this shape it does not need to: the deployment
+// decides what answers, and nothing below changes when that answer does.
+let translate = async (_id, item, ~capabilities: Reventless.Capabilities.t) => {
   let customerId = item.customerId
-  switch await GeocodingService.search(~text=item.address) {
+  switch await capabilities.geocode(~text=item.address) {
   | Error(Unavailable(why)) =>
     // Retryable: the service could not answer. Do NOT report a verdict on the
     // address — one outage would otherwise mark every address in flight bad.

package/src/Customer/OutboundTranslationSlice/GeocodeCustomerAddress_Translation.res.mjs

@@ -1,7 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Geocoding$Reventless from "@reventlessdev/reventless-spec/src/semantic/Geocoding.res.mjs";
-import * as GeocodingService$OrderingPlugin from "../../Service/GeocodingService.res.mjs";
 
 function collect(event, sourceId) {
   if (event.TAG === "Registered") {
@@ -24,9 +23,9 @@ function collect(event, sourceId) {
     ]];
 }
 
-async function translate(_id, item) {
+async function translate(_id, item, capabilities) {
   let customerId = item.customerId;
-  let candidates = await GeocodingService$OrderingPlugin.search(item.address);
+  let candidates = await capabilities.geocode(item.address);
   if (candidates.TAG === "Ok") {
     let match = Geocoding$Reventless.confidentMatch(candidates._0, undefined, undefined);
     if (match !== undefined) {
@@ -86,4 +85,4 @@ export {
   translate,
   moduleUrl,
 }
-/* GeocodingService-OrderingPlugin Not a pure module */
+/* No side effect */

package/src/Order/OutboundTranslationSlice/SendOrderConfirmation_Translation.res

@@ -6,7 +6,9 @@ let collect = (event, ~sourceId as _) =>
   | OrderPlaced({orderId, customerId}) => [(orderId, {orderId, customerId})]
   }
 
-let translate = async (_id, item) => {
+// This slice calls a service the framework does not broker, so it reaches its
+// mailer directly and ignores the injected capabilities.
+let translate = async (_id, item, ~capabilities as _) => {
   try {
     await EmailService.sendOrderConfirmation(
       ~email=item.customerId,

package/src/Order/OutboundTranslationSlice/SendOrderConfirmation_Translation.res.mjs

@@ -16,7 +16,7 @@ function collect(event, param) {
     ]];
 }
 
-async function translate(_id, item) {
+async function translate(_id, item, param) {
   try {
     await EmailService$OrderingPlugin.sendOrderConfirmation(item.customerId, item.orderId);
     return {

package/src/Service/GeocodingService.res

@@ -1,91 +0,0 @@
-// The plugin's geocoding client.
-//
-// A plugin is provider-agnostic — it cannot reach `ReventlessAws` and should not
-// know that Amazon Location is what answers. So this talks HTTP to whatever
-// endpoint the deployment configured and speaks the framework's provider-neutral
-// vocabulary (`Reventless.Geocoding`) on both sides.
-//
-// The endpoint's contract, which is what makes an unattended caller possible:
-// `200` with a (possibly empty) array is an answer, and any other status is the
-// service failing to give one. The distinction is the whole reason this returns
-// `result` rather than a list — see `Reventless.Geocoding.failure`.
-
-@val external fetch: (string, 'options) => promise<'response> = "fetch"
-
-type response = {ok: bool, status: int}
-@send external json: response => promise<JSON.t> = "json"
-
-@val external encodeURIComponent: string => string = "encodeURIComponent"
-
-// `process.env` without a Node binding — a plugin depends on neither
-// rescript-node nor any provider package.
-type processT = {env: dict<string>}
-@val external process: processT = "process"
-
-let endpoint = () =>
-  switch process.env->Dict.get("GEOCODER_ENDPOINT") {
-  | Some("") | None => None
-  | Some(v) => Some(v)
-  }
-
-// One candidate off the wire. A row missing a coordinate, or carrying one
-// outside the valid ranges, is dropped rather than propagated — it cannot be
-// stored, and one bad row should not lose the good ones beside it.
-let decodeCandidate = (json: JSON.t): option<Reventless.Geocoding.candidate> =>
-  switch json->JSON.Decode.object {
-  | None => None
-  | Some(o) =>
-    switch (
-      o->Dict.get("lat")->Option.flatMap(JSON.Decode.float),
-      o->Dict.get("lng")->Option.flatMap(JSON.Decode.float),
-    ) {
-    | (Some(lat), Some(lng)) =>
-      switch Reventless.GeoPoint.make(~lat, ~lng) {
-      | Ok(point) =>
-        Some({
-          Reventless.Geocoding.label: o
-          ->Dict.get("label")
-          ->Option.flatMap(JSON.Decode.string)
-          ->Option.getOr(""),
-          point,
-          relevance: o->Dict.get("relevance")->Option.flatMap(JSON.Decode.float),
-        })
-      | Error(_) => None
-      }
-    | _ => None
-    }
-  }
-
-// Annotated against the framework's port rather than spelling the signature out
-// again. The endpoint this reads is a deployment's *current* answer to "who
-// geocodes"; the type is the answer that does not change when that one does, so
-// a later supplier swaps in here without `translate` noticing.
-let search: Reventless.Geocoding.search = async (~text) => {
-  let trimmed = text->String.trim
-  switch endpoint() {
-  | None => Error(Unavailable("no geocoder endpoint configured (GEOCODER_ENDPOINT unset)"))
-  | Some(_) if trimmed == "" =>
-    // An empty query was never going to match; asking would spend a request to
-    // be told so.
-    Error(NoMatch)
-  | Some(base) =>
-    let url = `${base}?q=${encodeURIComponent(trimmed)}`
-    switch await fetch(url, {"method": "GET"}) {
-    | response =>
-      if !response.ok {
-        Error(Unavailable(`geocoder responded ${response.status->Int.toString}`))
-      } else {
-        switch await response->json {
-        | body =>
-          let candidates =
-            body->JSON.Decode.array->Option.getOr([])->Array.filterMap(decodeCandidate)
-          candidates->Array.length == 0 ? Error(NoMatch) : Ok(candidates)
-        | exception _ => Error(Unavailable("geocoder returned a body that is not JSON"))
-        }
-      }
-    | exception exn =>
-      let msg = exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("unknown")
-      Error(Unavailable(msg))
-    }
-  }
-}

package/src/Service/GeocodingService.res.mjs

@@ -1,123 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
-import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
-import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-import * as GeoPoint$Reventless from "@reventlessdev/reventless-spec/src/semantic/GeoPoint.res.mjs";
-import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
-
-function endpoint() {
-  let v = process.env["GEOCODER_ENDPOINT"];
-  if (v !== undefined && v !== "") {
-    return v;
-  }
-}
-
-function decodeCandidate(json) {
-  let o = Stdlib_JSON.Decode.object(json);
-  if (o === undefined) {
-    return;
-  }
-  let match = Stdlib_Option.flatMap(o["lat"], Stdlib_JSON.Decode.float);
-  let match$1 = Stdlib_Option.flatMap(o["lng"], Stdlib_JSON.Decode.float);
-  if (match === undefined) {
-    return;
-  }
-  if (match$1 === undefined) {
-    return;
-  }
-  let point = GeoPoint$Reventless.make(match, match$1);
-  if (point.TAG === "Ok") {
-    return {
-      label: Stdlib_Option.getOr(Stdlib_Option.flatMap(o["label"], Stdlib_JSON.Decode.string), ""),
-      point: point._0,
-      relevance: Stdlib_Option.flatMap(o["relevance"], Stdlib_JSON.Decode.float)
-    };
-  }
-}
-
-async function search(text) {
-  let trimmed = text.trim();
-  let base = endpoint();
-  if (base === undefined) {
-    return {
-      TAG: "Error",
-      _0: {
-        TAG: "Unavailable",
-        _0: "no geocoder endpoint configured (GEOCODER_ENDPOINT unset)"
-      }
-    };
-  }
-  if (trimmed === "") {
-    return {
-      TAG: "Error",
-      _0: "NoMatch"
-    };
-  }
-  let url = base + `?q=` + encodeURIComponent(trimmed);
-  let exit = 0;
-  let response;
-  try {
-    response = await fetch(url, {
-      method: "GET"
-    });
-    exit = 1;
-  } catch (raw_exn) {
-    let exn = Primitive_exceptions.internalToException(raw_exn);
-    let msg = Stdlib_Option.getOr(Stdlib_Option.flatMap(Stdlib_JsExn.fromException(exn), Stdlib_JsExn.message), "unknown");
-    return {
-      TAG: "Error",
-      _0: {
-        TAG: "Unavailable",
-        _0: msg
-      }
-    };
-  }
-  if (exit === 1) {
-    if (!response.ok) {
-      return {
-        TAG: "Error",
-        _0: {
-          TAG: "Unavailable",
-          _0: `geocoder responded ` + response.status.toString()
-        }
-      };
-    }
-    let exit$1 = 0;
-    let body;
-    try {
-      body = await response.json();
-      exit$1 = 2;
-    } catch (exn$1) {
-      return {
-        TAG: "Error",
-        _0: {
-          TAG: "Unavailable",
-          _0: "geocoder returned a body that is not JSON"
-        }
-      };
-    }
-    if (exit$1 === 2) {
-      let candidates = Stdlib_Array.filterMap(Stdlib_Option.getOr(Stdlib_JSON.Decode.array(body), []), decodeCandidate);
-      if (candidates.length === 0) {
-        return {
-          TAG: "Error",
-          _0: "NoMatch"
-        };
-      } else {
-        return {
-          TAG: "Ok",
-          _0: candidates
-        };
-      }
-    }
-  }
-}
-
-export {
-  endpoint,
-  decodeCandidate,
-  search,
-}
-/* Stdlib_JsExn Not a pure module */