@reventlessdev/reventless-local 3.0.0-alpha.289 → 3.0.0-alpha.291

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.
 
+# 3.0.0-alpha.291 (2026-10-19)
+
+### Features
+
+* **spec,aws,local:** tell the host shell which environment it runs in, and write local host UI files into a chosen assetsDir ([4f896d1](https://github.com/ReventlessDev/reventless-core/commit/4f896d13ae9ec0d211c33dbd9271e7197cfebc41))
+
+
+# 3.0.0-alpha.290 (2026-10-17)
+
+**Note:** Version bump only for package @reventlessdev/reventless-local
+
+
+
+
+
 # 3.0.0-alpha.289 (2026-10-16)
 
 * feat!(inbound): a translation slice can declare a signed webhook URL ([0ad6994](https://github.com/ReventlessDev/reventless-core/commit/0ad69949fcc91c2756c60ca8cb120dd468841d8b))

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-local",
-  "version": "3.0.0-alpha.289",
+  "version": "3.0.0-alpha.291",
   "description": "Local platform for Reventless (in-memory or SQLite backend, for development and testing without AWS)",
   "license": "Apache-2.0",
   "bin": {
@@ -34,24 +34,24 @@
     "graphql-yoga": "^5.21.0",
     "sury": "11.0.0",
     "ws": "^8.18.0",
+    "@reventlessdev/rescript-jest": "1.0.0-alpha.12",
     "@reventlessdev/rescript-effect": "1.0.0-alpha.0",
     "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.23",
     "@reventlessdev/rescript-node": "2.0.0-alpha.22",
-    "@reventlessdev/rescript-jest": "1.0.0-alpha.12",
-    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.29",
     "@reventlessdev/rescript-pulumi-pulumi": "3.0.0-alpha.0",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.298",
-    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.146",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.246",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.195",
-    "@reventlessdev/reventless-seed": "1.0.0-alpha.34",
-    "@reventlessdev/reventless-postgres": "3.0.0-alpha.162",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.167"
+    "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.29",
+    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.148",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.248",
+    "@reventlessdev/reventless-postgres": "3.0.0-alpha.164",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.197",
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.169",
+    "@reventlessdev/reventless-core": "3.0.0-alpha.300",
+    "@reventlessdev/reventless-seed": "1.0.0-alpha.34"
   },
   "devDependencies": {
     "rescript": "12.3.1",
     "sury-ppx": "11.0.0",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.102"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.103"
   },
   "peerDependencies": {
     "rescript": "^12.3.1"

package/src/BakedManifest.res

@@ -1,5 +1,5 @@
 // Writes the curated component manifest where the local host shell serves its
-// static assets from (`HostShellDist`), so `manifestUrl` discovery works in dev
+// static assets from (the chosen `assetsDir`, else `HostShellDist`), so `manifestUrl` discovery works in dev
 // exactly as it does in a deployment. Rewritten on every boot, which also makes
 // it self-healing — a `pnpm install` that replaces the package directory costs
 // one restart, not a debugging session.
@@ -30,6 +30,8 @@ let files = (~config: ReventlessInfra.Platform.bakedManifest): array<(
 let emit = (
   ~structures: array<(string, Reventless.Plugin.pluginStructure)>,
   ~config: ReventlessInfra.Platform.bakedManifest,
+  // The platform's chosen `assetsDir`; unset, the host-shell package's `dist/`.
+  ~dir: option<string>=?,
 ) => {
   let outputs = files(~config)
   // Every file is curated before any is written. A declaration naming a
@@ -42,7 +44,10 @@ let emit = (
     | Ok(manifest) => manifest
     },
   ))
-  switch HostShellDist.dir() {
+  switch switch dir {
+  | Some(_) as given => given
+  | None => HostShellDist.dir()
+  } {
   | None =>
     JsError.throwWithMessage(
       `baked manifest: cannot resolve ${HostShellDist.package} from ${NodeProcess.cwd()} — ` ++

package/src/BakedManifest.res.mjs

@@ -11,7 +11,7 @@ let log = Logger$ReventlessCore.fromEnv();
 
 let files = Platform_BakedManifest$ReventlessCore.files;
 
-function emit(structures, config) {
+function emit(structures, config, dir) {
   let outputs = Platform_BakedManifest$ReventlessCore.files(config);
   let curated = outputs.map(param => {
     let e = Platform_BakedManifest$ReventlessCore.curate(structures, param[1]);
@@ -22,11 +22,11 @@ function emit(structures, config) {
       tmp
     ];
   });
-  let dir = HostShellDist$ReventlessLocal.dir();
-  if (dir !== undefined) {
+  let dir$1 = dir !== undefined ? dir : HostShellDist$ReventlessLocal.dir();
+  if (dir$1 !== undefined) {
     curated.forEach(param => {
       let key = param[0];
-      let path = Nodepath.join(dir, key);
+      let path = Nodepath.join(dir$1, key);
       Nodefs.writeFileSync(path, JSON.stringify(param[1], undefined, 2), "utf8");
       log.info("BakedManifest", undefined, `wrote ` + key + `: ` + path);
     });

package/src/HostShellDist.res

@@ -27,3 +27,14 @@ let dir = (): option<string> =>
   } catch {
   | _ => None
   }
+
+/** The directory the local writers write into: the app's chosen `assetsDir`,
+  created if missing, else the package's `dist/`. */
+let resolve = (~assetsDir: option<string>): option<string> =>
+  switch assetsDir {
+  | Some(chosen) =>
+    let absolute = NodePath.resolve([NodeProcess.cwd(), chosen])
+    NodeFs.mkdirSync(absolute, {recursive: true})
+    Some(absolute)
+  | None => dir()
+  }

package/src/HostShellDist.res.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Nodefs from "node:fs";
 import * as Nodepath from "node:path";
 import * as Nodemodule from "node:module";
 
@@ -13,8 +14,20 @@ function dir() {
   }
 }
 
+function resolve(assetsDir) {
+  if (assetsDir === undefined) {
+    return dir();
+  }
+  let absolute = Nodepath.resolve(process.cwd(), assetsDir);
+  Nodefs.mkdirSync(absolute, {
+    recursive: true
+  });
+  return absolute;
+}
+
 export {
   $$package,
   dir,
+  resolve,
 }
-/* node:path Not a pure module */
+/* node:fs Not a pure module */

package/src/Platform.res

@@ -928,6 +928,7 @@ module MakeWithConfig = (
   let bakeManifest = (
     ~pluginComponents: array<ReventlessCore.Plugin.component>,
     ~config: ReventlessInfra.Platform.bakedManifest,
+    ~dir: option<string>,
   ) => {
     let resolved: array<(string, Reventless.Plugin.pluginStructure)> = []
     let expected = pluginComponents->Array.length
@@ -942,7 +943,7 @@ module MakeWithConfig = (
           | None => ()
           }
           if resolved->Array.length === expected {
-            BakedManifest.emit(~structures=resolved, ~config)
+            BakedManifest.emit(~structures=resolved, ~config, ~dir?)
           }
         })
     })
@@ -1518,13 +1519,15 @@ module MakeWithConfig = (
     })
 
   // In-memory ignores the infrastructure half of `~hostUiBundle` — the host shell
-  // is served from the installed package's own `dist/`, not from a CDN. What a
-  // deployment *says* is honoured, in the same three files the AWS deploy writes
+  // is served from a local directory (`assetsDir`, else the installed package's
+  // own `dist/`), not from a CDN. What a deployment *says* is honored, in the same files the AWS deploy writes
   // beside each other: `bakedManifest` through `BakedManifest`, `shellConfig`
   // through `ShellConfig`, which overlays the served `config.json` the way the
   // AWS deploy composes the one it writes, and `uiHintsFile` through `UiHints`,
   // which replaces the served hints file the way the deploy uploads it.
   type hostUiBundleConfig = {
+    // Where every file below is written, as on AWS. Unset: the host-shell
+    // package's `dist/`.
     assetsDir?: string,
     bundleVersion?: string,
     // `makePlatform` serves the declared file in place of the host-shell
@@ -1736,7 +1739,14 @@ module MakeWithConfig = (
     // structure Output to land. Unconditional, unlike the bake, because it is
     // also what restores the shipped file for a platform that has stopped
     // declaring anything.
+    //
+    // All four writers share one directory, resolved once: a second opinion puts
+    // a file where nothing reads it.
+    let hostUiDir = HostShellDist.resolve(
+      ~assetsDir=hostUiBundle->Option.flatMap(cfg => cfg.assetsDir),
+    )
     ShellConfig.emit(
+      ~dir=?hostUiDir,
       ~bakedManifest=hostUiBundle->Option.flatMap(cfg => cfg.bakedManifest),
       // Names the module `UiSlots.emit` serves below. Both or neither: a key
       // without the file is a 404 the shell survives quietly, and a file without
@@ -1747,7 +1757,7 @@ module MakeWithConfig = (
     // Unconditional for the same reason, and one file over: it is also what
     // restores the shell package's own hints for a platform that has stopped
     // declaring its own.
-    UiHints.emit(~uiHintsFile=hostUiBundle->Option.flatMap(cfg => cfg.uiHintsFile))
+    UiHints.emit(~uiHintsFile=hostUiBundle->Option.flatMap(cfg => cfg.uiHintsFile), ~dir=?hostUiDir)
     // The dev loop for the file just written. Editing hints is presentation
     // work — you change a label, you want to see the label — and routing that
     // through a platform restart puts fifteen seconds between the two. The
@@ -1759,20 +1769,22 @@ module MakeWithConfig = (
     // would imply a shutdown path this platform does not have.
     let _ = UiHints.watch(
       ~uiHintsFile=hostUiBundle->Option.flatMap(cfg => cfg.uiHintsFile),
+      ~dir=?hostUiDir,
       ~onReload=LocalEvents_Server.broadcastUiHintsChanged,
     )
     // The same pair for the module that draws what a hint cannot say. Also
     // unconditional, and for a reason the hints file does not have: this is what
     // removes a module a platform has stopped declaring, and leaving one behind
     // would go on drawing regions with nothing in the deployment to explain it.
-    UiSlots.emit(~uiSlotsFile=hostUiBundle->Option.flatMap(cfg => cfg.uiSlotsFile))
+    UiSlots.emit(~uiSlotsFile=hostUiBundle->Option.flatMap(cfg => cfg.uiSlotsFile), ~dir=?hostUiDir)
     let _ = UiSlots.watch(
       ~uiSlotsFile=hostUiBundle->Option.flatMap(cfg => cfg.uiSlotsFile),
+      ~dir=?hostUiDir,
       ~onReload=LocalEvents_Server.broadcastUiSlotsChanged,
     )
     switch hostUiBundle->Option.flatMap(cfg => cfg.bakedManifest) {
     | None => ()
-    | Some(cfg) => bakeManifest(~pluginComponents=plugins, ~config=cfg)
+    | Some(cfg) => bakeManifest(~pluginComponents=plugins, ~config=cfg, ~dir=hostUiDir)
     }
     switch (projectionCatchup, pgProjectionCatchup) {
     | (Some((db, upperBound, dcbUpperBound)), _) =>

package/src/Platform.res.mjs

@@ -38,6 +38,7 @@ import * as ComponentType$ReventlessCore from "@reventlessdev/reventless-core/sr
 import * as SqliteDriver$ReventlessLocal from "./adapter/SqliteDriver.res.mjs";
 import * as Task_Builder$ReventlessLocal from "./components/Task_Builder.res.mjs";
 import * as BakedManifest$ReventlessLocal from "./BakedManifest.res.mjs";
+import * as HostShellDist$ReventlessLocal from "./HostShellDist.res.mjs";
 import * as LocalEventTap$ReventlessLocal from "./adapter/LocalEventTap.res.mjs";
 import * as Platform_Admin$ReventlessCore from "@reventlessdev/reventless-core/src/admin/Platform_Admin.res.mjs";
 import * as PluginBehavior$ReventlessCore from "@reventlessdev/reventless-core/src/plugin/lifecycle/PluginBehavior.res.mjs";
@@ -860,7 +861,7 @@ function MakeWithConfig(Config) {
   let pluginStructuresStore = {
     contents: {}
   };
-  let bakeManifest = (pluginComponents, config) => {
+  let bakeManifest = (pluginComponents, config, dir) => {
     let resolved = [];
     let expected = pluginComponents.length;
     pluginComponents.forEach(plugin => {
@@ -877,7 +878,7 @@ function MakeWithConfig(Config) {
           ]);
         }
         if (resolved.length === expected) {
-          return BakedManifest$ReventlessLocal.emit(resolved, config);
+          return BakedManifest$ReventlessLocal.emit(resolved, config, dir);
         }
       });
     });
@@ -1330,14 +1331,15 @@ function MakeWithConfig(Config) {
       adminResources: []
     });
     subscribeToPluginEvents();
-    ShellConfig$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.bakedManifest), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.shellConfig), undefined);
-    UiHints$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), undefined);
-    UiHints$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), undefined, LocalEvents_Server$ReventlessLocal.broadcastUiHintsChanged);
-    UiSlots$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), undefined);
-    UiSlots$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), undefined, LocalEvents_Server$ReventlessLocal.broadcastUiSlotsChanged);
+    let hostUiDir = HostShellDist$ReventlessLocal.resolve(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.assetsDir));
+    ShellConfig$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.bakedManifest), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.shellConfig), hostUiDir);
+    UiHints$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), hostUiDir);
+    UiHints$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), hostUiDir, LocalEvents_Server$ReventlessLocal.broadcastUiHintsChanged);
+    UiSlots$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), hostUiDir);
+    UiSlots$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), hostUiDir, LocalEvents_Server$ReventlessLocal.broadcastUiSlotsChanged);
     let cfg = Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.bakedManifest);
     if (cfg !== undefined) {
-      bakeManifest(plugins$1, cfg);
+      bakeManifest(plugins$1, cfg, hostUiDir);
     }
     if (projectionCatchup !== undefined) {
       Stdlib_Promise.$$catch(ProjectionCheckpoint$ReventlessLocal.startupCatchup(projectionCatchup[0], projectionCatchup[1], projectionCatchup[2], () => Bus.projectionCatchupHandlers()), e => {
@@ -2620,7 +2622,7 @@ function Make($star) {
   let pluginStructuresStore = {
     contents: {}
   };
-  let bakeManifest = (pluginComponents, config) => {
+  let bakeManifest = (pluginComponents, config, dir) => {
     let resolved = [];
     let expected = pluginComponents.length;
     pluginComponents.forEach(plugin => {
@@ -2637,7 +2639,7 @@ function Make($star) {
           ]);
         }
         if (resolved.length === expected) {
-          return BakedManifest$ReventlessLocal.emit(resolved, config);
+          return BakedManifest$ReventlessLocal.emit(resolved, config, dir);
         }
       });
     });
@@ -3085,14 +3087,15 @@ function Make($star) {
       adminResources: []
     });
     subscribeToPluginEvents();
-    ShellConfig$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.bakedManifest), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.shellConfig), undefined);
-    UiHints$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), undefined);
-    UiHints$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), undefined, LocalEvents_Server$ReventlessLocal.broadcastUiHintsChanged);
-    UiSlots$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), undefined);
-    UiSlots$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), undefined, LocalEvents_Server$ReventlessLocal.broadcastUiSlotsChanged);
+    let hostUiDir = HostShellDist$ReventlessLocal.resolve(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.assetsDir));
+    ShellConfig$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.bakedManifest), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.shellConfig), hostUiDir);
+    UiHints$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), hostUiDir);
+    UiHints$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiHintsFile), hostUiDir, LocalEvents_Server$ReventlessLocal.broadcastUiHintsChanged);
+    UiSlots$ReventlessLocal.emit(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), hostUiDir);
+    UiSlots$ReventlessLocal.watch(Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.uiSlotsFile), hostUiDir, LocalEvents_Server$ReventlessLocal.broadcastUiSlotsChanged);
     let cfg = Stdlib_Option.flatMap(hostUiBundle, cfg => cfg.bakedManifest);
     if (cfg !== undefined) {
-      bakeManifest(plugins$1, cfg);
+      bakeManifest(plugins$1, cfg, hostUiDir);
     }
     if (projectionCatchup !== undefined) {
       Stdlib_Promise.$$catch(ProjectionCheckpoint$ReventlessLocal.startupCatchup(projectionCatchup[0], projectionCatchup[1], projectionCatchup[2], () => Bus.projectionCatchupHandlers()), e => {

package/src/ShellConfig.res

@@ -17,8 +17,9 @@
 // `pnpm install` that replaces the package directory costs one restart, because
 // the baseline is re-seeded from whatever the new package ships.
 //
-// One key is computed (`manifestUrl`, from the bake declaration — local knows
-// where it put the file); the rest are the deployment's own `shellConfig`,
+// The computed keys are the environment (always `local`), `manifestUrl` and the
+// journey map (from the bake declaration — local knows where it put the file),
+// `uiSlotsUrl` and `adminGroup`; the rest are the deployment's own `shellConfig`,
 // passed through verbatim. A `shellConfig` that names a computed key fails the
 // same way it does on AWS: a passthrough cannot redirect a key the platform
 // decides, and silently resolving it either way points the shell somewhere
@@ -41,7 +42,10 @@ let manifestUrlOf = (config: ReventlessInfra.Platform.bakedManifest): string =>
 // caller matching no declared group gets and what every existing deployment has.
 let journeyManifestsKey = "journeyManifestUrls"
 
+let environmentKeys = [Reventless.ShellEnvironment.nameKey, Reventless.ShellEnvironment.purposeKey]
+
 let computedKeys = [
+  ...environmentKeys,
   "manifestUrl",
   journeyManifestsKey,
   ReventlessCore.Platform_UiSlots.configKey,
@@ -60,7 +64,10 @@ let overlay = (
   ~uiSlotsFile: option<string>=?,
   ~shellConfig: option<dict<JSON.t>>,
 ): dict<JSON.t> => {
-  let out = Dict.make()
+  let out =
+    Reventless.ShellEnvironment.local
+    ->Reventless.ShellEnvironment.configFields
+    ->Dict.fromArray
 
   // `UiSlots` serves the module; this is what tells the shell to import it. The
   // two are separate writes to separate files, which is exactly why the name
@@ -120,23 +127,22 @@ let readObject = (~path: string, ~label: string): dict<JSON.t> =>
 /**
  Merge the overlay onto the shipped `config.json` in the host shell's `dist/`.
 
- A no-op when there is nothing to say and nothing was said before — a platform
- that declares neither a bake nor any `shellConfig` never touches the file, so
- its dev shell is byte-identical to one built before this module existed. Once
- either is declared the write happens or fails loudly, for the reason
- `BakedManifest.emit` gives: both failure modes it can hit are the deployment's
- own mistake, and both produce the same silent symptom if swallowed.
+ The environment keys are always written, so the shell can say it is local;
+ without the package they are dropped silently, since a platform nobody points a
+ browser at has nothing to badge. Anything declared beyond them is written or
+ fails loudly, for the reason `BakedManifest.emit` gives: both failure modes it
+ can hit are the deployment's own mistake, and both produce the same silent
+ symptom if swallowed.
  */
 let emit = (
   ~bakedManifest: option<ReventlessInfra.Platform.bakedManifest>,
   ~uiSlotsFile: option<string>=?,
   ~shellConfig: option<dict<JSON.t>>,
-  // Test seam. The baseline dance is the part of this module with state behind
-  // it — "boot twice and the second write still starts from the shipped file" is
-  // not a property a pure function can carry.
+  // The platform's chosen `assetsDir`; unset, the host-shell package's `dist/`.
   ~dir: option<string>=?,
 ) => {
   let overlay = overlay(~bakedManifest, ~uiSlotsFile?, ~shellConfig)
+  let declared = overlay->Dict.keysToArray->Array.filter(k => !(environmentKeys->Array.includes(k)))
 
   switch switch dir {
   | Some(_) as given => given
@@ -146,7 +152,7 @@ let emit = (
     // Nothing declared and no shell installed is the ordinary case for a
     // platform nobody points a browser at; only a declaration makes the missing
     // package an error, and then it is the same error the bake gives.
-    if overlay->Dict.keysToArray->Array.length > 0 {
+    if declared->Array.length > 0 {
       JsError.throwWithMessage(
         `host UI config.json: cannot resolve ${HostShellDist.package} from ${NodeProcess.cwd()} — ` ++
         `the local shell reads its config from that package's dist/, so declaring shell ` ++
@@ -157,29 +163,26 @@ let emit = (
     let path = NodePath.join([dir, fileName])
     let baselinePath = NodePath.join([dir, baselineFileName])
 
-    // Seeded only when there is an overlay to apply. A platform that declares
-    // nothing must not leave a `config.base.json` behind for the next one to
-    // read as authoritative.
-    if !NodeFs.existsSync(baselinePath) && overlay->Dict.keysToArray->Array.length > 0 {
-      if !NodeFs.existsSync(path) {
+    // The baseline is whatever `config.json` the directory held first: the
+    // shell's shipped file, or the app's own in a chosen `assetsDir`.
+    if !NodeFs.existsSync(baselinePath) {
+      if NodeFs.existsSync(path) {
+        NodeFs.writeFileSync(baselinePath, NodeFs.readFileSync(path))
+      } else if declared->Array.length > 0 {
         JsError.throwWithMessage(
-          `host UI config.json: ${HostShellDist.package} ships no ${fileName} at ${dir} — ` ++
+          `host UI config.json: there is no ${fileName} at ${dir} — ` ++
           `there is no baseline to overlay, so the shell would boot with only the keys ` ++ `declared here and none of the ones it expects.`,
         )
       }
-      NodeFs.writeFileSync(baselinePath, NodeFs.readFileSync(path))
     }
 
     if NodeFs.existsSync(baselinePath) {
       let merged = readObject(~path=baselinePath, ~label="config baseline")
       overlay->Dict.forEachWithKey((v, k) => merged->Dict.set(k, v))
       NodeFs.writeFileSync(path, JSON.stringify(merged->JSON.Encode.object, ~space=2))
-      let keys = overlay->Dict.keysToArray
       log.info(
         ~comp="ShellConfig",
-        keys->Array.length == 0
-          ? `restored ${fileName} from ${baselineFileName}: ${path}`
-          : `wrote ${fileName} with ${keys->Array.join(", ")}: ${path}`,
+        `wrote ${fileName} with ${overlay->Dict.keysToArray->Array.join(", ")}: ${path}`,
       )
     }
   }

package/src/ShellConfig.res.mjs

@@ -2,11 +2,13 @@
 
 import * as Nodefs from "node:fs";
 import * as Nodepath from "node:path";
+import * as Belt_Array from "@rescript/runtime/lib/es6/Belt_Array.js";
 import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
 import * as Stdlib_JSON from "@rescript/runtime/lib/es6/Stdlib_JSON.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
 import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
+import * as ShellEnvironment$Reventless from "@reventlessdev/reventless-spec/src/types/ShellEnvironment.res.mjs";
 import * as HostShellDist$ReventlessLocal from "./HostShellDist.res.mjs";
 import * as Platform_UiSlots$ReventlessCore from "@reventlessdev/reventless-core/src/admin/Platform_UiSlots.res.mjs";
 import * as Platform_AdminGroup$ReventlessCore from "@reventlessdev/reventless-core/src/admin/Platform_AdminGroup.res.mjs";
@@ -24,15 +26,23 @@ function manifestUrlOf(config) {
 
 let journeyManifestsKey = "journeyManifestUrls";
 
-let computedKeys = [
-  "manifestUrl",
-  journeyManifestsKey,
-  Platform_UiSlots$ReventlessCore.configKey,
-  Platform_AdminGroup$ReventlessCore.configKey
+let environmentKeys = [
+  ShellEnvironment$Reventless.nameKey,
+  ShellEnvironment$Reventless.purposeKey
 ];
 
+let computedKeys = Belt_Array.concatMany([
+  environmentKeys,
+  [
+    "manifestUrl",
+    journeyManifestsKey,
+    Platform_UiSlots$ReventlessCore.configKey,
+    Platform_AdminGroup$ReventlessCore.configKey
+  ]
+]);
+
 function overlay(bakedManifest, uiSlotsFile, shellConfig) {
-  let out = {};
+  let out = Object.fromEntries(ShellEnvironment$Reventless.configFields(ShellEnvironment$Reventless.local));
   Stdlib_Option.forEach(uiSlotsFile, param => {
     out[Platform_UiSlots$ReventlessCore.configKey] = Platform_UiSlots$ReventlessCore.url;
   });
@@ -78,9 +88,10 @@ function readObject(path, label) {
 
 function emit(bakedManifest, uiSlotsFile, shellConfig, dir) {
   let overlay$1 = overlay(bakedManifest, uiSlotsFile, shellConfig);
+  let declared = Object.keys(overlay$1).filter(k => !environmentKeys.includes(k));
   let dir$1 = dir !== undefined ? dir : HostShellDist$ReventlessLocal.dir();
   if (dir$1 === undefined) {
-    if (Object.keys(overlay$1).length !== 0) {
+    if (declared.length !== 0) {
       return Stdlib_JsError.throwWithMessage(`host UI config.json: cannot resolve ` + HostShellDist$ReventlessLocal.$$package + ` from ` + process.cwd() + ` — the local shell reads its config from that package's dist/, so declaring shell config without the package installed would write nothing and leave the shell configured as it shipped.`);
     } else {
       return;
@@ -88,11 +99,12 @@ function emit(bakedManifest, uiSlotsFile, shellConfig, dir) {
   }
   let path = Nodepath.join(dir$1, fileName);
   let baselinePath = Nodepath.join(dir$1, baselineFileName);
-  if (!Nodefs.existsSync(baselinePath) && Object.keys(overlay$1).length !== 0) {
-    if (!Nodefs.existsSync(path)) {
-      Stdlib_JsError.throwWithMessage(`host UI config.json: ` + HostShellDist$ReventlessLocal.$$package + ` ships no ` + fileName + ` at ` + dir$1 + ` — there is no baseline to overlay, so the shell would boot with only the keys declared here and none of the ones it expects.`);
+  if (!Nodefs.existsSync(baselinePath)) {
+    if (Nodefs.existsSync(path)) {
+      Nodefs.writeFileSync(baselinePath, Nodefs.readFileSync(path, "utf8"), "utf8");
+    } else if (declared.length !== 0) {
+      Stdlib_JsError.throwWithMessage(`host UI config.json: there is no ` + fileName + ` at ` + dir$1 + ` — there is no baseline to overlay, so the shell would boot with only the keys declared here and none of the ones it expects.`);
     }
-    Nodefs.writeFileSync(baselinePath, Nodefs.readFileSync(path, "utf8"), "utf8");
   }
   if (!Nodefs.existsSync(baselinePath)) {
     return;
@@ -102,8 +114,7 @@ function emit(bakedManifest, uiSlotsFile, shellConfig, dir) {
     merged[k] = v;
   });
   Nodefs.writeFileSync(path, JSON.stringify(merged, undefined, 2), "utf8");
-  let keys = Object.keys(overlay$1);
-  log.info("ShellConfig", undefined, keys.length === 0 ? `restored ` + fileName + ` from ` + baselineFileName + `: ` + path : `wrote ` + fileName + ` with ` + keys.join(", ") + `: ` + path);
+  log.info("ShellConfig", undefined, `wrote ` + fileName + ` with ` + Object.keys(overlay$1).join(", ") + `: ` + path);
 }
 
 export {
@@ -112,6 +123,7 @@ export {
   baselineFileName,
   manifestUrlOf,
   journeyManifestsKey,
+  environmentKeys,
   computedKeys,
   overlay,
   readObject,

package/src/UiHints.res

@@ -37,9 +37,8 @@ let baselineFileName = "ui-hints.base.json"
  */
 let emit = (
   ~uiHintsFile: option<string>,
-  // Test seam, as in `ShellConfig.emit`: the baseline dance is the part with
-  // state behind it, and "boot twice and the second write still starts from the
-  // shipped file" is not a property a pure function can carry.
+  // Where the file is served from: the platform's chosen `assetsDir`; unset, the
+  // host-shell package's `dist/`.
   ~dir: option<string>=?,
 ) => {
   // Read before anything is touched, so a bad declaration cannot leave the
@@ -125,8 +124,7 @@ let emit = (
  */
 let watch = (
   ~uiHintsFile: option<string>,
-  // The same seam `emit` takes, and threaded to it: a test has to be able to
-  // watch a file it wrote into a temp dir without a host-shell package on disk.
+  // The directory `emit` takes, threaded to it.
   ~dir: option<string>=?,
   ~onReload: unit => unit,
 ): option<NodeFs.watcher> =>

package/src/UiSlots.res

@@ -53,9 +53,8 @@ let fileName = ReventlessCore.Platform_UiSlots.fileName
  */
 let emit = (
   ~uiSlotsFile: option<string>,
-  // Test seam, as in `UiHints.emit`: the removal on withdrawal is the part with
-  // state behind it, and "declare, then withdraw, and the file is gone" is not a
-  // property a pure function can carry.
+  // Where the module is served from: the platform's chosen `assetsDir`; unset,
+  // the host-shell package's `dist/`.
   ~dir: option<string>=?,
 ) => {
   // Read before anything is touched, so a bad declaration cannot leave the

package/tests/HostShellDistTest.res

@@ -0,0 +1,70 @@
+open JestGlobals
+
+// The one directory every local host-UI writer writes into. An app that composes
+// its own UI bundle names it as `assetsDir`, as on AWS; a writer that took a
+// second opinion would put its file where nothing serves it.
+
+let _ = TestRunner.setup()
+
+let tmpdir = prefix => NodeFs.mkdtempSync(NodePath.join([NodeOs.tmpdir(), prefix]))
+
+// What the package's dist/ holds, so a test can say it was not touched. Empty
+// when the package is not installed where the test runs.
+let snapshot = () =>
+  HostShellDist.dir()
+  ->Option.filter(NodeFs.existsSync)
+  ->Option.mapOr([], dir =>
+    NodeFs.readdirSyncNames(dir, {})
+    ->Array.toSorted(String.compare)
+    ->Array.map(name => {
+      let path = NodePath.join([dir, name])
+      (name, NodeFs.statSync(path)->NodeFs.mtimeMs)
+    })
+  )
+
+describe("HostShellDist.resolve", () => {
+  testSync("is the package's dist/ when no directory is chosen", () =>
+    expect(HostShellDist.resolve(~assetsDir=None))->toEqual(HostShellDist.dir())
+  )
+
+  testSync("is the chosen directory, created when missing", () => {
+    let chosen = NodePath.join([tmpdir("reventless-assetsdir-"), "app", "dist"])
+    expect(HostShellDist.resolve(~assetsDir=Some(chosen)))->toEqual(Some(chosen))
+    expect(NodeFs.existsSync(chosen))->toBe(true)
+  })
+})
+
+describe("the local writers in a chosen assetsDir", () => {
+  testSync("all four write there and leave the package's dist/ alone", () => {
+    let before = snapshot()
+    let dir =
+      HostShellDist.resolve(
+        ~assetsDir=Some(NodePath.join([tmpdir("reventless-assetsdir-"), "ui"])),
+      )->Option.getOrThrow
+    // The app's own config.json is the baseline the overlay goes on.
+    NodeFs.writeFileSync(NodePath.join([dir, "config.json"]), `{"appName": "App"}`)
+    let source = name => {
+      let path = NodePath.join([tmpdir("reventless-assetsdir-src-"), name])
+      NodeFs.writeFileSync(
+        path,
+        name->String.endsWith(".json") ? "{}" : "export function register() {}",
+      )
+      path
+    }
+    let bake: ReventlessInfra.Platform.bakedManifest = {components: []}
+
+    ShellConfig.emit(~bakedManifest=Some(bake), ~shellConfig=None, ~dir)
+    UiHints.emit(~uiHintsFile=Some(source("ui-hints.json")), ~dir)
+    UiSlots.emit(~uiSlotsFile=Some(source("slots.js")), ~dir)
+    BakedManifest.emit(~structures=[], ~config=bake, ~dir)
+
+    expect(NodeFs.readdirSyncNames(dir, {})->Array.toSorted(String.compare))->toEqual([
+      "component-manifest.json",
+      "config.base.json",
+      "config.json",
+      "ui-hints.json",
+      "ui-slots.js",
+    ])
+    expect(snapshot())->toEqual(before)
+  })
+})

package/tests/HostShellDistTest.res.mjs

@@ -0,0 +1,75 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Nodefs from "node:fs";
+import * as Nodeos from "node:os";
+import * as Nodepath from "node:path";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
+import * as UiHints$ReventlessLocal from "../src/UiHints.res.mjs";
+import * as UiSlots$ReventlessLocal from "../src/UiSlots.res.mjs";
+import * as TestRunner$ReventlessLocal from "../src/test/TestRunner.res.mjs";
+import * as ShellConfig$ReventlessLocal from "../src/ShellConfig.res.mjs";
+import * as BakedManifest$ReventlessLocal from "../src/BakedManifest.res.mjs";
+import * as HostShellDist$ReventlessLocal from "../src/HostShellDist.res.mjs";
+
+TestRunner$ReventlessLocal.setup();
+
+function tmpdir(prefix) {
+  return Nodefs.mkdtempSync(Nodepath.join(Nodeos.tmpdir(), prefix));
+}
+
+function snapshot() {
+  return Stdlib_Option.mapOr(Stdlib_Option.filter(HostShellDist$ReventlessLocal.dir(), prim => Nodefs.existsSync(prim)), [], dir => Nodefs.readdirSync(dir, {}).toSorted(Primitive_string.compare).map(name => {
+    let path = Nodepath.join(dir, name);
+    return [
+      name,
+      Nodefs.statSync(path).mtimeMs
+    ];
+  }));
+}
+
+globalThis.describe("HostShellDist.resolve", () => {
+  globalThis.test("is the package's dist/ when no directory is chosen", () => {
+    globalThis.expect(HostShellDist$ReventlessLocal.resolve(undefined)).toEqual(HostShellDist$ReventlessLocal.dir());
+  });
+  globalThis.test("is the chosen directory, created when missing", () => {
+    let chosen = Nodepath.join(tmpdir("reventless-assetsdir-"), "app", "dist");
+    globalThis.expect(HostShellDist$ReventlessLocal.resolve(chosen)).toEqual(chosen);
+    globalThis.expect(Nodefs.existsSync(chosen)).toBe(true);
+  });
+});
+
+globalThis.describe("the local writers in a chosen assetsDir", () => {
+  globalThis.test("all four write there and leave the package's dist/ alone", () => {
+    let before = snapshot();
+    let dir = Stdlib_Option.getOrThrow(HostShellDist$ReventlessLocal.resolve(Nodepath.join(tmpdir("reventless-assetsdir-"), "ui")), undefined);
+    Nodefs.writeFileSync(Nodepath.join(dir, "config.json"), `{"appName": "App"}`, "utf8");
+    let source = name => {
+      let path = Nodepath.join(tmpdir("reventless-assetsdir-src-"), name);
+      Nodefs.writeFileSync(path, name.endsWith(".json") ? "{}" : "export function register() {}", "utf8");
+      return path;
+    };
+    let bake_components = [];
+    let bake = {
+      components: bake_components
+    };
+    ShellConfig$ReventlessLocal.emit(bake, undefined, undefined, dir);
+    UiHints$ReventlessLocal.emit(source("ui-hints.json"), dir);
+    UiSlots$ReventlessLocal.emit(source("slots.js"), dir);
+    BakedManifest$ReventlessLocal.emit([], bake, dir);
+    globalThis.expect(Nodefs.readdirSync(dir, {}).toSorted(Primitive_string.compare)).toEqual([
+      "component-manifest.json",
+      "config.base.json",
+      "config.json",
+      "ui-hints.json",
+      "ui-slots.js"
+    ]);
+    globalThis.expect(snapshot()).toEqual(before);
+  });
+});
+
+export {
+  tmpdir,
+  snapshot,
+}
+/*  Not a pure module */

package/tests/ShellConfigTest.res

@@ -26,11 +26,35 @@ let threw = (f: unit => unit): bool =>
   }
 
 describe("ShellConfig.overlay", () => {
-  testSync("is empty when the deployment declares nothing", () => {
+  testSync("carries only the environment when the deployment declares nothing", () => {
     let out = ShellConfig.overlay(~bakedManifest=None, ~shellConfig=None)
-    expect(out->Dict.keysToArray)->toEqual([])
+    expect(out->Dict.keysToArray)->toEqual(["environment", "environmentPurpose"])
   })
 
+  // The shell badges everything that is not production; locally it says so.
+  testSync("names the environment and its purpose local", () => {
+    let out = ShellConfig.overlay(~bakedManifest=None, ~shellConfig=None)
+    expect((out->str("environment"), out->str("environmentPurpose")))->toEqual((
+      Some("local"),
+      Some("local"),
+    ))
+  })
+
+  testSync("refuses a shellConfig naming either environment key", () =>
+    expect(
+      ["environment", "environmentPurpose"]->Array.map(
+        key =>
+          threw(
+            () =>
+              ShellConfig.overlay(
+                ~bakedManifest=None,
+                ~shellConfig=Some(Dict.fromArray([(key, JSON.Encode.string("prod"))])),
+              )->ignore,
+          ),
+      ),
+    )->toEqual([true, true])
+  )
+
   testSync("points manifestUrl at the bake's default key", () => {
     let out = ShellConfig.overlay(~bakedManifest=Some(manifest()), ~shellConfig=None)
     expect(out->str("manifestUrl"))->toEqual(Some("/component-manifest.json"))
@@ -147,11 +171,25 @@ describe("ShellConfig.emit", () => {
     expect(out->str("apiEndpoint"))->toEqual(Some("/graphql"))
   })
 
-  testSync("leaves a platform that declares nothing entirely alone", () => {
+  testSync("adds only the environment for a platform that declares nothing", () => {
     let dir = distWithConfig()
     ShellConfig.emit(~bakedManifest=None, ~shellConfig=None, ~dir)
-    expect(NodeFs.readFileSync(NodePath.join([dir, "config.json"])))->toEqual(shipped)
-    expect(NodeFs.existsSync(NodePath.join([dir, "config.base.json"])))->toBe(false)
+    let out = readConfig(dir)
+    expect(out->Dict.keysToArray)->toEqual([
+      "apiEndpoint",
+      "appName",
+      "environment",
+      "environmentPurpose",
+    ])
+    expect(readBaseline(dir)->str("appName"))->toEqual(Some("Shipped"))
+  })
+
+  // The environment alone is no declaration: a directory with no config.json to
+  // overlay is left as it is rather than refused.
+  testSync("writes nothing and refuses nothing when only the environment has no baseline", () => {
+    let dir = NodeFs.mkdtempSync(NodePath.join([NodeOs.tmpdir(), "reventless-shellconfig-"]))
+    ShellConfig.emit(~bakedManifest=None, ~shellConfig=None, ~dir)
+    expect(NodeFs.readdirSyncNames(dir, {}))->toEqual([])
   })
 
   // The whole reason a baseline is kept: boot 2 overlaying boot 1's output would
@@ -273,8 +311,8 @@ describe("ShellConfig.overlay — adminGroup", () => {
   testSync("is absent while the administrator role keeps its own name", () => {
     Reventless.Role.clearGroups()
     expect(
-      ShellConfig.overlay(~bakedManifest=None, ~shellConfig=None)->Dict.keysToArray,
-    )->toEqual([])
+      ShellConfig.overlay(~bakedManifest=None, ~shellConfig=None)->Dict.get("adminGroup"),
+    )->toEqual(None)
   })
 
   testSync("carries the group a renamed administrator role maps to", () => {

package/tests/ShellConfigTest.res.mjs

@@ -36,9 +36,36 @@ function threw(f) {
 }
 
 globalThis.describe("ShellConfig.overlay", () => {
-  globalThis.test("is empty when the deployment declares nothing", () => {
+  globalThis.test("carries only the environment when the deployment declares nothing", () => {
     let out = ShellConfig$ReventlessLocal.overlay(undefined, undefined, undefined);
-    globalThis.expect(Object.keys(out)).toEqual([]);
+    globalThis.expect(Object.keys(out)).toEqual([
+      "environment",
+      "environmentPurpose"
+    ]);
+  });
+  globalThis.test("names the environment and its purpose local", () => {
+    let out = ShellConfig$ReventlessLocal.overlay(undefined, undefined, undefined);
+    globalThis.expect([
+      str(out, "environment"),
+      str(out, "environmentPurpose")
+    ]).toEqual([
+      "local",
+      "local"
+    ]);
+  });
+  globalThis.test("refuses a shellConfig naming either environment key", () => {
+    globalThis.expect([
+      "environment",
+      "environmentPurpose"
+    ].map(key => threw(() => {
+      ShellConfig$ReventlessLocal.overlay(undefined, undefined, Object.fromEntries([[
+          key,
+          "prod"
+        ]]));
+    }))).toEqual([
+      true,
+      true
+    ]);
   });
   globalThis.test("points manifestUrl at the bake's default key", () => {
     let out = ShellConfig$ReventlessLocal.overlay(manifest(undefined), undefined, undefined);
@@ -96,10 +123,9 @@ globalThis.describe("ShellConfig.overlay — uiSlotsFile", () => {
 });
 
 globalThis.describe("ShellConfig.emit", () => {
-  let shipped = `{\n  "apiEndpoint": "/graphql",\n  "appName": "Shipped"\n}`;
   let distWithConfig = () => {
     let dir = Nodefs.mkdtempSync(Nodepath.join(Nodeos.tmpdir(), "reventless-shellconfig-"));
-    Nodefs.writeFileSync(Nodepath.join(dir, "config.json"), shipped, "utf8");
+    Nodefs.writeFileSync(Nodepath.join(dir, "config.json"), `{\n  "apiEndpoint": "/graphql",\n  "appName": "Shipped"\n}`, "utf8");
     return dir;
   };
   let readJson = path => Stdlib_Option.getOrThrow(Stdlib_JSON.Decode.object(JSON.parse(Nodefs.readFileSync(path, "utf8"))), undefined);
@@ -116,11 +142,22 @@ globalThis.describe("ShellConfig.emit", () => {
     globalThis.expect(str(out, "manifestUrl")).toEqual("/component-manifest.json");
     globalThis.expect(str(out, "apiEndpoint")).toEqual("/graphql");
   });
-  globalThis.test("leaves a platform that declares nothing entirely alone", () => {
+  globalThis.test("adds only the environment for a platform that declares nothing", () => {
     let dir = distWithConfig();
     ShellConfig$ReventlessLocal.emit(undefined, undefined, undefined, dir);
-    globalThis.expect(Nodefs.readFileSync(Nodepath.join(dir, "config.json"), "utf8")).toEqual(shipped);
-    globalThis.expect(Nodefs.existsSync(Nodepath.join(dir, "config.base.json"))).toBe(false);
+    let out = readConfig(dir);
+    globalThis.expect(Object.keys(out)).toEqual([
+      "apiEndpoint",
+      "appName",
+      "environment",
+      "environmentPurpose"
+    ]);
+    globalThis.expect(str(readBaseline(dir), "appName")).toEqual("Shipped");
+  });
+  globalThis.test("writes nothing and refuses nothing when only the environment has no baseline", () => {
+    let dir = Nodefs.mkdtempSync(Nodepath.join(Nodeos.tmpdir(), "reventless-shellconfig-"));
+    ShellConfig$ReventlessLocal.emit(undefined, undefined, undefined, dir);
+    globalThis.expect(Nodefs.readdirSync(dir, {})).toEqual([]);
   });
   globalThis.test("starts every boot from the shipped file, not the last output", () => {
     let dir = distWithConfig();
@@ -219,7 +256,7 @@ globalThis.describe("ShellConfig.overlay — journeys", () => {
 globalThis.describe("ShellConfig.overlay — adminGroup", () => {
   globalThis.test("is absent while the administrator role keeps its own name", () => {
     Role$Reventless.clearGroups();
-    globalThis.expect(Object.keys(ShellConfig$ReventlessLocal.overlay(undefined, undefined, undefined))).toEqual([]);
+    globalThis.expect(ShellConfig$ReventlessLocal.overlay(undefined, undefined, undefined)["adminGroup"]).toEqual(undefined);
   });
   globalThis.test("carries the group a renamed administrator role maps to", () => {
     Role$Reventless.clearGroups();

package/tests/components/automationslice/AutomationRescheduleFixtures.res

@@ -26,7 +26,6 @@ module DigestSpec = {
   type command = SendDigest({recipientId: @s.matches(DcbTag.string) string})
 
   let maxRetries = 2
-  let heartbeatInterval = 60
   let targetName = "SendDigest"
   let schedule = None
 }

package/tests/components/automationslice/AutomationRescheduleFixtures.res.mjs

@@ -69,7 +69,6 @@ let DigestSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: "SendDigest",
   schedule: undefined,
   authorizationOf: authorizationOf,

package/tests/components/automationslice/AutomationScheduleFixtures.res

@@ -16,7 +16,6 @@ module DemandReportSpec = {
   type command = RequestDemandReport({day: float})
 
   let maxRetries = 2
-  let heartbeatInterval = 60
   let targetName = "ReportSettings"
   let schedule = Some(Schedule.Calendar({calendar: Daily({hour: 6, minute: 0})}))
 }

package/tests/components/automationslice/AutomationScheduleFixtures.res.mjs

@@ -54,7 +54,6 @@ let DemandReportSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: targetName,
   schedule: DemandReportSpec_schedule,
   authorizationOf: authorizationOf,
@@ -124,7 +123,6 @@ let UnscheduledSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: targetName,
   authorizationOf: authorizationOf,
   commandTransition: commandTransition,
@@ -155,7 +153,6 @@ let FromClockUnscheduled = AutomationSlice$Reventless.Mapping.Make({
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: targetName,
   schedule: undefined
 })({
@@ -180,7 +177,6 @@ AutomationSlice$Reventless.Mappings.Make({
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: targetName,
   schedule: undefined
 });
@@ -208,7 +204,6 @@ let Unscheduled = AutomationSliceMaker.Make({
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: targetName,
   schedule: undefined
 })(UnscheduledAutomation);

package/tests/components/automationslice/AutomationSliceFixtures.res

@@ -39,7 +39,6 @@ module ShipOrderSpec = {
   type command = CreateShipment({orderId: @s.matches(Reventless.DcbTag.string) string})
 
   let maxRetries = 3
-  let heartbeatInterval = 60
   let targetName = "CreateShipment"
   let schedule = None
 }
@@ -55,7 +54,6 @@ module SkipProcessSpec = {
   type command = Noop
 
   let maxRetries = 0
-  let heartbeatInterval = 60
   let targetName = "Noop"
   let schedule = None
 }

package/tests/components/automationslice/AutomationSliceFixtures.res.mjs

@@ -75,7 +75,6 @@ let ShipOrderSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 3,
-  heartbeatInterval: 60,
   targetName: "CreateShipment",
   schedule: undefined,
   authorizationOf: authorizationOf,
@@ -107,7 +106,6 @@ let SkipProcessSpec = {
   todoItemSchema: todoItemSchema$1,
   commandSchema: commandSchema$1,
   maxRetries: 0,
-  heartbeatInterval: 60,
   targetName: "Noop",
   schedule: undefined,
   authorizationOf: authorizationOf$1,

package/tests/components/automationslice/AutomationSliceSelfDeadlockFixtures.res

@@ -134,7 +134,6 @@ module AutoShipSpec = {
   type command = Ship({orderId: @s.matches(Reventless.DcbTag.string) string})
 
   let maxRetries = 3
-  let heartbeatInterval = 60
   let targetName = "Ship"
   let schedule = None
 }

package/tests/components/automationslice/AutomationSliceSelfDeadlockFixtures.res.mjs

@@ -241,7 +241,6 @@ let AutoShipSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema$2,
   maxRetries: 3,
-  heartbeatInterval: 60,
   targetName: "Ship",
   schedule: undefined,
   authorizationOf: authorizationOf$2,

package/tests/components/automationslice/AutomationSweepFixtures.res

@@ -24,7 +24,6 @@ module CancelUnshippedSpec = {
   type command = CancelOrder({orderId: @s.matches(DcbTag.string) string})
 
   let maxRetries = 2
-  let heartbeatInterval = 60
   let targetName = "CancelOrder"
   let schedule = None
 }

package/tests/components/automationslice/AutomationSweepFixtures.res.mjs

@@ -62,7 +62,6 @@ let CancelUnshippedSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 2,
-  heartbeatInterval: 60,
   targetName: "CancelOrder",
   schedule: undefined,
   authorizationOf: authorizationOf,

package/tests/components/automationslice/MixedSourceAutomationSliceFixtures.res

@@ -53,7 +53,6 @@ module AutoFulfillSpec = {
       })
 
   let maxRetries = 3
-  let heartbeatInterval = 60
   let targetName = "MarkFulfilled"
   let schedule = None
 }

package/tests/components/automationslice/MixedSourceAutomationSliceFixtures.res.mjs

@@ -80,7 +80,6 @@ let AutoFulfillSpec = {
   todoItemSchema: todoItemSchema,
   commandSchema: commandSchema,
   maxRetries: 3,
-  heartbeatInterval: 60,
   targetName: "MarkFulfilled",
   schedule: undefined,
   authorizationOf: authorizationOf,

package/tests/components/outboundtranslationslice/OutboundTranslationSliceCallbackTest.res.mjs

@@ -44,7 +44,6 @@ let FireForgetCallback = OutboundTranslationSlice_Callback$ReventlessCore.Make({
   outboundItemSchema: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.outboundItemSchema,
   inboundCommandSchema: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.inboundCommandSchema,
   maxRetries: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.maxRetries,
-  heartbeatInterval: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.heartbeatInterval,
   targetName: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.targetName,
   sourceNames: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.sourceNames,
   externalSystem: OutboundTranslationSliceFixtures$ReventlessLocal.SendTrackingEmailSpec.externalSystem,
@@ -59,7 +58,6 @@ let CommandBackCallback = OutboundTranslationSlice_Callback$ReventlessCore.Make(
   outboundItemSchema: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.outboundItemSchema,
   inboundCommandSchema: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.inboundCommandSchema,
   maxRetries: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.maxRetries,
-  heartbeatInterval: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.heartbeatInterval,
   targetName: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.targetName,
   sourceNames: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.sourceNames,
   externalSystem: OutboundTranslationSliceFixtures$ReventlessLocal.ProcessPaymentSpec.externalSystem,

package/tests/components/outboundtranslationslice/OutboundTranslationSliceFixtures.res

@@ -38,7 +38,6 @@ module SendTrackingEmailSpec = {
   let onExhausted = (_id, _item, ~lastError as _) => None
 
   let maxRetries = 3
-  let heartbeatInterval = 60
   let targetName = None
   let sourceNames: array<string> = []
   let externalSystem = None
@@ -86,7 +85,6 @@ module ProcessPaymentSpec = {
   let onExhausted = (id, item, ~lastError) => onExhaustedFn.contents(id, item, lastError)
 
   let maxRetries = 2
-  let heartbeatInterval = 30
   let targetName = Some("ConfirmPayment")
   let sourceNames: array<string> = []
   let externalSystem = None

package/tests/components/outboundtranslationslice/OutboundTranslationSliceFixtures.res.mjs

@@ -76,7 +76,6 @@ let SendTrackingEmailSpec = {
   translate: translate,
   onExhausted: onExhausted,
   maxRetries: 3,
-  heartbeatInterval: 60,
   targetName: undefined,
   sourceNames: sourceNames,
   externalSystem: undefined,
@@ -158,7 +157,6 @@ let ProcessPaymentSpec = {
   onExhaustedFn: onExhaustedFn,
   onExhausted: onExhausted$1,
   maxRetries: 2,
-  heartbeatInterval: 30,
   targetName: ProcessPaymentSpec_targetName,
   sourceNames: sourceNames$1,
   externalSystem: undefined,

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res

@@ -78,7 +78,6 @@ module SendConfirmSpec = {
   type inboundCommand = unit
 
   let maxRetries = 3
-  let heartbeatInterval = 60
   let targetName = None
   let sourceNames: array<string> = []
   let externalSystem = Some("EmailService")

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res.mjs

@@ -121,7 +121,6 @@ let SendConfirmSpec = {
   outboundItemSchema: outboundItemSchema,
   inboundCommandSchema: inboundCommandSchema,
   maxRetries: 3,
-  heartbeatInterval: 60,
   targetName: undefined,
   sourceNames: sourceNames,
   externalSystem: SendConfirmSpec_externalSystem,