@reventlessdev/reventless-core 3.0.0-alpha.295 → 3.0.0-alpha.297

package/src/components/AutomationSlice/AutomationSlice_Schedules.res.mjs

@@ -0,0 +1,193 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Sury from "sury";
+import * as Stdlib_Dict from "@rescript/runtime/lib/es6/Stdlib_Dict.js";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Clock$Reventless from "@reventlessdev/reventless-spec/src/components/Clock.res.mjs";
+import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
+import * as Schedule$Reventless from "@reventlessdev/reventless-spec/src/types/Schedule.res.mjs";
+import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
+import * as ScheduleTime$ReventlessCore from "../../util/ScheduleTime.res.mjs";
+
+let declared = "declared";
+
+let rowSchema = Sury.$schema(s => ({
+  key: s.m(Sury.string),
+  time: s.m(Sury.$option(Sury.string)),
+  setBy: s.m(Sury.string),
+  setAt: s.m(Sury.string)
+}));
+
+function encodeTime(time) {
+  return JSON.stringify(Util_Sury$Reventless.toJson(time, Schedule$Reventless.timeSchema));
+}
+
+function decodeTime(text) {
+  return Util_Sury$Reventless.fromJson(JSON.parse(text), Schedule$Reventless.timeSchema);
+}
+
+function timeOf(row) {
+  return Stdlib_Option.map(row.time, decodeTime);
+}
+
+function iso(millis) {
+  return new Date(millis).toISOString();
+}
+
+function clearRow(rows, key, setBy, setAt) {
+  if (key === Clock$Reventless.defaultKey) {
+    rows[key] = {
+      key: key,
+      setBy: setBy,
+      setAt: setAt
+    };
+    return;
+  } else {
+    return Stdlib_Dict.$$delete(rows, key);
+  }
+}
+
+function apply(rows, change, setBy, recordedAt) {
+  if (change.TAG === "Set") {
+    let wanted = change.time;
+    let key = change.key;
+    let errs = ScheduleTime$ReventlessCore.errors(wanted);
+    if (errs.length !== 0) {
+      return {
+        TAG: "Error",
+        _0: `schedule ` + key + `: ` + errs.join("; ")
+      };
+    }
+    let resolved = ScheduleTime$ReventlessCore.resolveOnce(wanted, recordedAt);
+    rows[key] = {
+      key: key,
+      time: encodeTime(resolved),
+      setBy: setBy,
+      setAt: new Date(recordedAt).toISOString()
+    };
+    return {
+      TAG: "Ok",
+      _0: {
+        TAG: "Put",
+        key: key,
+        time: resolved
+      }
+    };
+  }
+  let cleared = change.key;
+  clearRow(rows, cleared, setBy, new Date(recordedAt).toISOString());
+  return {
+    TAG: "Ok",
+    _0: {
+      TAG: "Remove",
+      key: cleared
+    }
+  };
+}
+
+function fired(rows, key) {
+  Stdlib_Option.forEach(rows[key], row => {
+    let match = Stdlib_Option.map(row.time, decodeTime);
+    if (match === undefined) {
+      return;
+    }
+    switch (match.TAG) {
+      case "Every" :
+      case "Calendar" :
+        return;
+      case "Once" :
+        return clearRow(rows, key, row.setBy, row.setAt);
+    }
+  });
+}
+
+function declare(rows, declaredTime, now) {
+  let match = rows[Clock$Reventless.defaultKey];
+  if (declaredTime !== undefined) {
+    if (match !== undefined && !(match.setBy === declared && Primitive_object.notequal(match.time, encodeTime(declaredTime)))) {
+      return;
+    } else {
+      rows[Clock$Reventless.defaultKey] = {
+        key: Clock$Reventless.defaultKey,
+        time: encodeTime(declaredTime),
+        setBy: declared,
+        setAt: new Date(now).toISOString()
+      };
+      return;
+    }
+  } else if (match !== undefined && match.setBy === declared) {
+    return Stdlib_Dict.$$delete(rows, Clock$Reventless.defaultKey);
+  } else {
+    return;
+  }
+}
+
+function isPast(time, now) {
+  switch (time.TAG) {
+    case "Every" :
+    case "Calendar" :
+      return false;
+    case "Once" :
+      return Stdlib_Option.isNone(ScheduleTime$ReventlessCore.nextFiring(time, now));
+  }
+}
+
+async function reconcile(rows, platform, declaredTime, now) {
+  declare(rows, declaredTime, now);
+  let live = Stdlib_Array.filterMap(Object.values(rows), row => {
+    let time = Stdlib_Option.map(row.time, decodeTime);
+    if (time !== undefined) {
+      if (isPast(time, now)) {
+        clearRow(rows, row.key, row.setBy, row.setAt);
+        return;
+      } else {
+        return [
+          row,
+          time
+        ];
+      }
+    }
+  });
+  let held = await platform.names();
+  for (let i = 0, i_finish = live.length; i < i_finish; ++i) {
+    let match = live[i];
+    let row = match[0];
+    if (row.setBy === declared || !held.includes(platform.nameOf(row.key))) {
+      await platform.put(row.key, match[1]);
+    }
+  }
+  let wanted = live.map(param => platform.nameOf(param[0].key));
+  let extra = held.filter(name => !wanted.includes(name));
+  for (let i$1 = 0, i_finish$1 = extra.length; i$1 < i_finish$1; ++i$1) {
+    await platform.removeName(extra[i$1]);
+  }
+}
+
+async function tell(platform, changes) {
+  for (let i = 0, i_finish = changes.length; i < i_finish; ++i) {
+    let match = changes[i];
+    if (match.TAG === "Put") {
+      await platform.put(match.key, match.time);
+    } else {
+      await platform.removeName(platform.nameOf(match.key));
+    }
+  }
+}
+
+export {
+  declared,
+  rowSchema,
+  encodeTime,
+  decodeTime,
+  timeOf,
+  iso,
+  clearRow,
+  apply,
+  fired,
+  declare,
+  isPast,
+  reconcile,
+  tell,
+}
+/* rowSchema Not a pure module */

package/src/components/Dcb/Dcb_Builder.res

@@ -188,11 +188,13 @@ module Make = (
           // its own `sourceEventSchema`. Validation contributes one entry per
           // (slice, source) pair so unknown variants surface against the right
           // mapping context.
+          // The Clock's ticks come from the slice's schedules, not from a slice.
           automationSlices->Array.flatMap((module(A: AutomationSlice.T)) =>
-            A.Automation.mappings->Array.map((module(M: A.Automation.Mapping)) => (
-              A.Spec.name,
-              M.sourceEventSchema->S.castToUnknown,
-            ))
+            A.Automation.mappings->Array.filterMap((module(M: A.Automation.Mapping)) =>
+              M.sourceName == Reventless.Clock.name
+                ? None
+                : Some((A.Spec.name, M.sourceEventSchema->S.castToUnknown))
+            )
           ),
         )
         ->Array.concat(
@@ -664,6 +666,12 @@ module Make = (
       automationSlices->Array.forEach((module(A: AutomationSlice.T)) => {
         let qn = Api_Naming.queryFieldNamesForSliceQueryDb(~plugin=name, ~queryDbName=A.queryDbName)
         Plugin_Helpers.queryFieldNamesRegistry->Dict.set(A.queryDbName, qn)
+        A.schedulesDbName->Option.forEach(queryDbName =>
+          Plugin_Helpers.queryFieldNamesRegistry->Dict.set(
+            queryDbName,
+            Api_Naming.queryFieldNamesForSliceQueryDb(~plugin=name, ~queryDbName),
+          )
+        )
       })
 
       outboundTranslationSlices->Array.forEach((module(O: OutboundTranslationSlice.T)) => {
@@ -1130,6 +1138,9 @@ module Make = (
         }
       })
 
+      // What the framework keeps for a slice is read by the deployment's operators.
+      let operators = Reventless.OwnerScope.operators()
+
       let automationEntries = automationSlices->Array.map((module(A: AutomationSlice.T)) => {
         let qn = Api_Naming.queryFieldNamesForSliceQueryDb(~plugin=name, ~queryDbName=A.queryDbName)
         {
@@ -1140,10 +1151,27 @@ module Make = (
             A.Spec.todoItemSchema,
           )->S.castToUnknown,
           authorization: None,
+          permission: operators,
           connectionSpec: true,
         }
       })
 
+      // A scheduled slice's schedules: when it runs, and who set it.
+      let scheduleEntries = automationSlices->Array.filterMap((module(A: AutomationSlice.T)) =>
+        A.schedulesDbName->Option.map(queryDbName => {
+          let qn = Api_Naming.queryFieldNamesForSliceQueryDb(~plugin=name, ~queryDbName)
+          {
+            ReventlessInfra.Api.singleFieldName: qn.singleFieldName,
+            listFieldName: qn.listFieldName,
+            returnTypeName: qn.returnTypeName,
+            stateSchema: AutomationSlice_Schedules.rowSchema->S.castToUnknown,
+            authorization: None,
+            permission: operators,
+            connectionSpec: true,
+          }
+        })
+      )
+
       let outboundEntries =
         outboundTranslationSlices->Array.map((module(O: OutboundTranslationSlice.T)) => {
           let qn = Api_Naming.queryFieldNamesForSliceQueryDb(
@@ -1158,6 +1186,7 @@ module Make = (
               O.Spec.outboundItemSchema,
             )->S.castToUnknown,
             authorization: None,
+            permission: operators,
             connectionSpec: true,
           }
         })
@@ -1174,6 +1203,7 @@ module Make = (
             returnTypeName: qn.returnTypeName,
             stateSchema: InboundTranslationSlice_Callback.auditRowSchema->S.castToUnknown,
             authorization: None,
+            permission: operators,
             connectionSpec: true,
           }
         })
@@ -1234,6 +1264,7 @@ module Make = (
         mutationEntries: Array.concat(mutationEntriesFromSlices, mutationEntriesFromInboundSlices),
         queryEntries: stateViewEntries
         ->Array.concat(automationEntries)
+        ->Array.concat(scheduleEntries)
         ->Array.concat(outboundEntries)
         ->Array.concat(inboundEntries),
         eventLogEntries: if allProducedSchemas->Array.length > 0 {

package/src/components/Dcb/Dcb_Builder.res.mjs

@@ -8,10 +8,12 @@ import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect from "effect/Effect";
 import * as Pulumi from "@pulumi/pulumi";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Clock$Reventless from "@reventlessdev/reventless-spec/src/components/Clock.res.mjs";
 import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
 import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Logger$ReventlessCore from "../../util/Logger.res.mjs";
+import * as OwnerScope$Reventless from "@reventlessdev/reventless-spec/src/types/OwnerScope.res.mjs";
 import * as Authorization$Reventless from "@reventlessdev/reventless-spec/src/types/Authorization.res.mjs";
 import * as Component$ReventlessCore from "../Component.res.mjs";
 import * as DcbValidation$Reventless from "@reventlessdev/reventless-spec/src/components/DcbValidation.res.mjs";
@@ -25,6 +27,7 @@ import * as Plugin_Structure$ReventlessCore from "../../plugin/component/Plugin_
 import * as DcbEventLog_Builder$ReventlessCore from "../DcbEventLog/DcbEventLog_Builder.res.mjs";
 import * as CommandTopic_Builder$ReventlessCore from "../CommandTopic/CommandTopic_Builder.res.mjs";
 import * as AutomationSlice_Callback$ReventlessCore from "../AutomationSlice/AutomationSlice_Callback.res.mjs";
+import * as AutomationSlice_Schedules$ReventlessCore from "../AutomationSlice/AutomationSlice_Schedules.res.mjs";
 import * as CommandGenerator_Callback$ReventlessCore from "../CommandGenerator/CommandGenerator_Callback.res.mjs";
 import * as InboundTranslationSlice_Callback$ReventlessCore from "../InboundTranslationSlice/InboundTranslationSlice_Callback.res.mjs";
 import * as OutboundTranslationSlice_Callback$ReventlessCore from "../OutboundTranslationSlice/OutboundTranslationSlice_Callback.res.mjs";
@@ -150,10 +153,16 @@ function Make(DcbEventLogStorage) {
       ]).concat(stateViewSlices.map(V => [
         V.Spec.name,
         V.Spec.consumedEventSchema
-      ])).concat(automationSlices.flatMap(A => A.Automation.mappings.map(M => [
-        A.Spec.name,
-        M.sourceEventSchema
-      ]))).concat(outboundTranslationSlices.map(O => [
+      ])).concat(automationSlices.flatMap(A => Stdlib_Array.filterMap(A.Automation.mappings, M => {
+        if (M.sourceName === Clock$Reventless.name) {
+          return;
+        } else {
+          return [
+            A.Spec.name,
+            M.sourceEventSchema
+          ];
+        }
+      }))).concat(outboundTranslationSlices.map(O => [
         O.Spec.name,
         O.Spec.consumedEventSchema
       ]));
@@ -352,6 +361,9 @@ function Make(DcbEventLogStorage) {
       automationSlices.forEach(A => {
         let qn = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, A.queryDbName, undefined);
         Plugin_Helpers$ReventlessCore.queryFieldNamesRegistry[A.queryDbName] = qn;
+        Stdlib_Option.forEach(A.schedulesDbName, queryDbName => {
+          Plugin_Helpers$ReventlessCore.queryFieldNamesRegistry[queryDbName] = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, queryDbName, undefined);
+        });
       });
       outboundTranslationSlices.forEach(O => {
         let qn = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, O.queryDbName, undefined);
@@ -601,6 +613,7 @@ function Make(DcbEventLogStorage) {
           resolvedFields: resolvedFields
         };
       });
+      let operators = OwnerScope$Reventless.operators();
       let automationEntries = automationSlices.map(A => {
         let qn = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, A.queryDbName, undefined);
         return {
@@ -609,9 +622,22 @@ function Make(DcbEventLogStorage) {
           returnTypeName: qn.returnTypeName,
           stateSchema: AutomationSlice_Callback$ReventlessCore.todoRowSchemaFor(A.Spec.todoItemSchema),
           authorization: undefined,
+          permission: operators,
           connectionSpec: true
         };
       });
+      let scheduleEntries = Stdlib_Array.filterMap(automationSlices, A => Stdlib_Option.map(A.schedulesDbName, queryDbName => {
+        let qn = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, queryDbName, undefined);
+        return {
+          singleFieldName: qn.singleFieldName,
+          listFieldName: qn.listFieldName,
+          returnTypeName: qn.returnTypeName,
+          stateSchema: AutomationSlice_Schedules$ReventlessCore.rowSchema,
+          authorization: undefined,
+          permission: operators,
+          connectionSpec: true
+        };
+      }));
       let outboundEntries = outboundTranslationSlices.map(O => {
         let qn = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, O.queryDbName, undefined);
         return {
@@ -620,6 +646,7 @@ function Make(DcbEventLogStorage) {
           returnTypeName: qn.returnTypeName,
           stateSchema: OutboundTranslationSlice_Callback$ReventlessCore.todoRowSchemaFor(O.Spec.outboundItemSchema),
           authorization: undefined,
+          permission: operators,
           connectionSpec: true
         };
       });
@@ -631,6 +658,7 @@ function Make(DcbEventLogStorage) {
           returnTypeName: qn.returnTypeName,
           stateSchema: InboundTranslationSlice_Callback$ReventlessCore.auditRowSchema,
           authorization: undefined,
+          permission: operators,
           connectionSpec: true
         };
       });
@@ -655,7 +683,7 @@ function Make(DcbEventLogStorage) {
         dcbPublishJsons: publishJsons,
         dcbCommandTopicQueueUrl: dcbCommandTopicQueueUrl,
         mutationEntries: mutationEntriesFromSlices.concat(mutationEntriesFromInboundSlices),
-        queryEntries: stateViewEntries.concat(automationEntries).concat(outboundEntries).concat(inboundEntries),
+        queryEntries: stateViewEntries.concat(automationEntries).concat(scheduleEntries).concat(outboundEntries).concat(inboundEntries),
         eventLogEntries: allProducedSchemas.length !== 0 ? [{
               busKey: name + "DcbEventLog",
               displayName: name,

package/src/components/InboundTranslationSlice/InboundTranslationSlice_Builder.res

@@ -36,7 +36,7 @@ module Make = (
       let config = Reventless.ReadModel.config()
       let subIdConfig: option<Reventless.ReadModel.subIdConfig<state>> = None
       type role = Reventless.Role.name
-      let authorization: Reventless.Authorization.rule<role> = AllowAuthenticated
+      let authorization: Reventless.Authorization.rule<role> = Reventless.OwnerScope.operators()
       let visibility: Reventless.Visibility.t = Public
     }
 

package/src/components/InboundTranslationSlice/InboundTranslationSlice_Builder.res.mjs

@@ -3,6 +3,7 @@
 import * as Id$Reventless from "@reventlessdev/reventless-spec/src/types/Id.res.mjs";
 import * as Pulumi from "@pulumi/pulumi";
 import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as OwnerScope$Reventless from "@reventlessdev/reventless-spec/src/types/OwnerScope.res.mjs";
 import * as Component$ReventlessCore from "../Component.res.mjs";
 import * as ComponentType$ReventlessCore from "../../ComponentType.res.mjs";
 import * as QueryDb_Builder$ReventlessCore from "../QueryDb/QueryDb_Builder.res.mjs";
@@ -16,6 +17,7 @@ function Make(QueryDbStorage) {
       let queryDbName = Spec.name + "Audit";
       let moduleUrl = import.meta.url;
       let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+      let authorization = OwnerScope$Reventless.operators();
       let SpecificQueryDb = QueryDb_Builder$ReventlessCore.Make({
         Id: Id$Reventless.$$String,
         name: queryDbName,
@@ -23,7 +25,7 @@ function Make(QueryDbStorage) {
         stateSchema: InboundTranslationSlice_Callback$ReventlessCore.auditRowSchema,
         config: config,
         subIdConfig: undefined,
-        authorization: "AllowAuthenticated",
+        authorization: authorization,
         visibility: "Public"
       })(QueryDbStorage)(QueryDbResolvers);
       let syncToQueryDb = async (queryDbOps, requestId) => {

package/src/components/OutboundTranslationSlice/OutboundTranslationSlice_Builder.res

@@ -52,7 +52,7 @@ module Make = (
       let config = Reventless.ReadModel.config()
       let subIdConfig: option<Reventless.ReadModel.subIdConfig<state>> = None
       type role = Reventless.Role.name
-      let authorization: Reventless.Authorization.rule<role> = AllowAuthenticated
+      let authorization: Reventless.Authorization.rule<role> = Reventless.OwnerScope.operators()
       let visibility: Reventless.Visibility.t = Public
     }
 

package/src/components/OutboundTranslationSlice/OutboundTranslationSlice_Builder.res.mjs

@@ -17,6 +17,7 @@ import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js
 import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
 import * as DcbDecode$Reventless from "@reventlessdev/reventless-spec/src/components/DcbDecode.res.mjs";
 import * as ReadModel$Reventless from "@reventlessdev/reventless-spec/src/components/ReadModel.res.mjs";
+import * as OwnerScope$Reventless from "@reventlessdev/reventless-spec/src/types/OwnerScope.res.mjs";
 import * as Message$ReventlessCore from "../../Message.res.mjs";
 import * as Component$ReventlessCore from "../Component.res.mjs";
 import * as EventTopic$ReventlessCore from "../EventTopic/EventTopic.res.mjs";
@@ -35,6 +36,7 @@ function Make(RuntimeEnvironment) {
       let queryDbName = Spec.name + "Todo";
       let moduleUrl = import.meta.url;
       let config = ReadModel$Reventless.config(undefined, undefined, undefined);
+      let authorization = OwnerScope$Reventless.operators();
       let SpecificQueryDb = QueryDb_Builder$ReventlessCore.Make({
         Id: Id$Reventless.$$String,
         name: queryDbName,
@@ -42,7 +44,7 @@ function Make(RuntimeEnvironment) {
         stateSchema: OutboundTranslationSlice_Callback$ReventlessCore.todoRowSchema,
         config: config,
         subIdConfig: undefined,
-        authorization: "AllowAuthenticated",
+        authorization: authorization,
         visibility: "Public"
       })(QueryDbStorage)(QueryDbResolvers);
       let SpecificEventCollector = EventCollector_Builder$ReventlessCore.Make(RuntimeEnvironment)(EventCollectorChannel);

package/src/plugin/component/Plugin_Builder.res

@@ -382,7 +382,7 @@ module Make = (
     // and idResolver paths). Slice output dicts are keyed by Spec.name; the
     // queryDb name appends a suffix per slice kind:
     //   StateViewSlice           — no suffix
-    //   AutomationSlice          — "Todo"
+    //   AutomationSlice          — "Todo", and "Schedule" when it maps the Clock
     //   OutboundTranslationSlice — "Todo"
     //   InboundTranslationSlice  — "Audit"
     dcbResult.stateViewSlicesOutputs
@@ -393,7 +393,10 @@ module Make = (
     ->Array.forEach(((k, v)) => allQueryDbs->Dict.set(k ++ "Audit", v.queryDb))
     dcbResult.automationSlicesOutputs
     ->Dict.toArray
-    ->Array.forEach(((k, v)) => allQueryDbs->Dict.set(k ++ "Todo", v.queryDb))
+    ->Array.forEach(((k, v)) => {
+      allQueryDbs->Dict.set(k ++ "Todo", v.queryDb)
+      v.schedulesDb->Option.forEach(db => allQueryDbs->Dict.set(k ++ "Schedule", db))
+    })
     dcbResult.outboundTranslationSlicesOutputs
     ->Dict.toArray
     ->Array.forEach(((k, v)) => allQueryDbs->Dict.set(k ++ "Todo", v.queryDb))
@@ -466,9 +469,13 @@ module Make = (
       let extractEventTypes = schema => Reventless.DcbTag.extractVariantNames(schema)
       let routingSchemas: Dict.t<Plugin_Helpers.pluginDeployedSchema> = Dict.make()
       automationSlices->Array.forEach((module(As: ReventlessInfra.AutomationSlice.T)) => {
-        // Union of source-event variants across every per-source mapping.
+        // Union of source-event variants across every per-source mapping. The
+        // Clock's tick is no event of the plugin's; its schedule says when it comes.
         let consumedEventTypes =
           As.Automation.mappings
+          ->Array.filter((module(M: As.Automation.Mapping)) =>
+            M.sourceName != Reventless.Clock.name
+          )
           ->Array.flatMap((module(M: As.Automation.Mapping)) =>
             extractEventTypes(M.sourceEventSchema->S.castToUnknown)
           )

package/src/plugin/component/Plugin_Builder.res.mjs

@@ -6,6 +6,7 @@ import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Pulumi from "@pulumi/pulumi";
 import * as Belt_SetString from "@rescript/runtime/lib/es6/Belt_SetString.js";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Clock$Reventless from "@reventlessdev/reventless-spec/src/components/Clock.res.mjs";
 import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Plugin$Reventless from "@reventlessdev/reventless-spec/src/components/Plugin.res.mjs";
@@ -284,7 +285,12 @@ function Make(Spec) {
           allQueryDbs[param[0] + "Audit"] = param[1].queryDb;
         });
         Object.entries(dcbResult.automationSlicesOutputs).forEach(param => {
-          allQueryDbs[param[0] + "Todo"] = param[1].queryDb;
+          let v = param[1];
+          let k = param[0];
+          allQueryDbs[k + "Todo"] = v.queryDb;
+          Stdlib_Option.forEach(v.schedulesDb, db => {
+            allQueryDbs[k + "Schedule"] = db;
+          });
         });
         Object.entries(dcbResult.outboundTranslationSlicesOutputs).forEach(param => {
           allQueryDbs[param[0] + "Todo"] = param[1].queryDb;
@@ -348,7 +354,7 @@ function Make(Spec) {
         });
         let routingSchemas = {};
         automationSlices.forEach(As => {
-          let consumedEventTypes = Belt_SetString.toArray(Belt_SetString.fromArray(As.Automation.mappings.flatMap(M => DcbTag$Reventless.extractVariantNames(M.sourceEventSchema))));
+          let consumedEventTypes = Belt_SetString.toArray(Belt_SetString.fromArray(As.Automation.mappings.filter(M => M.sourceName !== Clock$Reventless.name).flatMap(M => DcbTag$Reventless.extractVariantNames(M.sourceEventSchema))));
           routingSchemas[As.Spec.name] = {
             consumedEventTypes: consumedEventTypes,
             producedCommandTypes: DcbTag$Reventless.extractAllVariantNames(As.Spec.commandSchema),

package/src/plugin/component/Plugin_Structure.res

@@ -1775,6 +1775,8 @@ let make = (
       // contributes that one source's variants.
       let allConsumedVariants =
         AS.Automation.mappings
+        // The Clock's tick is no event of the plugin's; `schedule` says when it comes.
+        ->Array.filter((module(M: AS.Automation.Mapping)) => M.sourceName != Reventless.Clock.name)
         ->Array.flatMap((module(M: AS.Automation.Mapping)) =>
           eventVariantNames(M.sourceEventSchema->S.castToUnknown)
         )
@@ -1788,6 +1790,11 @@ let make = (
           producedCommandTypes: qualify(~prefix=name, commandVariantNames(AS.Spec.commandSchema)),
           targetName: AS.Spec.targetName,
           chapter: chapterOf(AS.Spec.name),
+          schedule: ?(
+            AS.Spec.schedule->Option.map(time =>
+              time->Reventless.Util_Sury.toJson(Reventless.Schedule.timeSchema)->JSON.stringify
+            )
+          ),
         }: Reventless.Plugin.automationSliceDef
       )
     })

package/src/plugin/component/Plugin_Structure.res.mjs

@@ -6,12 +6,14 @@ import * as Primitive_int from "@rescript/runtime/lib/es6/Primitive_int.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Belt_SetString from "@rescript/runtime/lib/es6/Belt_SetString.js";
 import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as Clock$Reventless from "@reventlessdev/reventless-spec/src/components/Clock.res.mjs";
 import * as Owner$Reventless from "@reventlessdev/reventless-spec/src/components/Owner.res.mjs";
 import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
 import * as Primitive_string from "@rescript/runtime/lib/es6/Primitive_string.js";
 import * as Trait$Reventless from "@reventlessdev/reventless-spec/src/types/Trait.res.mjs";
 import * as DcbTag$Reventless from "@reventlessdev/reventless-spec/src/components/DcbTag.res.mjs";
 import * as Message$Reventless from "@reventlessdev/reventless-spec/src/types/Message.res.mjs";
+import * as Schedule$Reventless from "@reventlessdev/reventless-spec/src/types/Schedule.res.mjs";
 import * as Semantic$Reventless from "@reventlessdev/reventless-spec/src/semantic/Semantic.res.mjs";
 import * as Lifecycle$Reventless from "@reventlessdev/reventless-spec/src/types/Lifecycle.res.mjs";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
@@ -1252,13 +1254,14 @@ function make(name, aggregatesOpt, readModelsOpt, stateViewSlicesOpt, stateChang
     };
   });
   let automationSliceDefs = automationSlices.map(AS => {
-    let allConsumedVariants = Belt_SetString.toArray(Belt_SetString.fromArray(AS.Automation.mappings.flatMap(M => DcbTag$Reventless.extractVariantNames(M.sourceEventSchema))));
+    let allConsumedVariants = Belt_SetString.toArray(Belt_SetString.fromArray(AS.Automation.mappings.filter(M => M.sourceName !== Clock$Reventless.name).flatMap(M => DcbTag$Reventless.extractVariantNames(M.sourceEventSchema))));
     return {
       name: AS.Spec.name,
       consumedEventTypes: qualify(name, allConsumedVariants),
       producedCommandTypes: qualify(name, DcbTag$Reventless.extractAllVariantNames(AS.Spec.commandSchema)),
       targetName: AS.Spec.targetName,
-      chapter: componentChapters[AS.Spec.name]
+      chapter: componentChapters[AS.Spec.name],
+      schedule: Stdlib_Option.map(AS.Spec.schedule, time => JSON.stringify(Util_Sury$Reventless.toJson(time, Schedule$Reventless.timeSchema)))
     };
   });
   let outboundTranslationSliceDefs = outboundTranslationSlices.map(OTS => ({

package/tests/admin/AdminApiSchemaDriftTest.res

@@ -120,6 +120,7 @@ let automation: automationSliceDef = {
   producedCommandTypes: ["Restock"],
   targetName: "Product",
   chapter: Some("Replenishment"),
+  schedule: `{"TAG":"Every","_0":{"TAG":"Minutes","_0":15}}`,
 }
 
 let outbound: outboundTranslationSliceDef = {

package/tests/admin/AdminApiSchemaDriftTest.res.mjs

@@ -184,12 +184,15 @@ let automation_producedCommandTypes = ["Restock"];
 
 let automation_chapter = "Replenishment";
 
+let automation_schedule = `{"TAG":"Every","_0":{"TAG":"Minutes","_0":15}}`;
+
 let automation = {
   name: "Restocker",
   consumedEventTypes: automation_consumedEventTypes,
   producedCommandTypes: automation_producedCommandTypes,
   targetName: "Product",
-  chapter: automation_chapter
+  chapter: automation_chapter,
+  schedule: automation_schedule
 };
 
 let outbound_consumedEventTypes = ["OrderPlaced"];