@reventlessdev/reventless-core 3.0.0-alpha.294 → 3.0.0-alpha.296

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)) => {
@@ -1144,6 +1152,21 @@ module Make = (
         }
       })
 
+      // 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,
+            connectionSpec: true,
+          }
+        })
+      )
+
       let outboundEntries =
         outboundTranslationSlices->Array.map((module(O: OutboundTranslationSlice.T)) => {
           let qn = Api_Naming.queryFieldNamesForSliceQueryDb(
@@ -1234,6 +1257,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,6 +8,7 @@ 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";
@@ -25,6 +26,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 +152,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 +360,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);
@@ -612,6 +623,17 @@ function Make(DcbEventLogStorage) {
           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,
+          connectionSpec: true
+        };
+      }));
       let outboundEntries = outboundTranslationSlices.map(O => {
         let qn = Api_Naming$ReventlessCore.queryFieldNamesForSliceQueryDb(name, O.queryDbName, undefined);
         return {
@@ -655,7 +677,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/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/src/plugin/connect/PluginExtensionPoint_Plugin.res

@@ -111,7 +111,7 @@ module Make = (Spec: Spec) => {
     | PluginExtensionPointSpec.CreateDisconnectSchedule(id, timeout) =>
       await createSchedule({
         name: id->disconnectScheduleName,
-        rate: timeout->ScheduleOps.minutesFromNow,
+        time: timeout->ScheduleOps.minutesFromNow,
         payload: {
           Message.id,
           meta: Message.generateMeta(~service=PluginExtensionPointSpec.name, ~user="Scheduler"),

package/src/plugin/connect/PluginExtensionPoint_Plugin.res.mjs

@@ -108,7 +108,7 @@ function Make(Spec) {
         let id = directive._0;
         return await createSchedule({
           name: disconnectScheduleName(id),
-          rate: ScheduleOps$ReventlessCore.minutesFromNow(directive._1),
+          time: ScheduleOps$ReventlessCore.minutesFromNow(directive._1),
           payload: JSON.stringify(Message$ReventlessCore.encodeCommand$p({
             id: id,
             meta: Message$ReventlessCore.generateMeta(PluginExtensionPointSpec$ReventlessInfra.name, undefined, "Scheduler", undefined, undefined, undefined, undefined, undefined),

package/src/util/ScheduleOps.res

@@ -1,63 +1,9 @@
 open Reventless.Schedule
 
-module DateCalc = {
-  /*** Immutable functions to calculate new Dates without mutation the arguments */
-  @new
-  external dateFromDate: Date.t => Date.t = "Date"
-
-  let addMinutes: (Date.t, int) => Date.t = (date, minutes) => {
-    let result = date->dateFromDate
-    result->Date.setUTCMinutes(result->Date.getUTCMinutes + minutes)
-    result
-  }
-
-  let addDays: (Date.t, int) => Date.t = (date, days) => {
-    let result = date->dateFromDate
-    result->Date.setUTCDate(result->Date.getUTCDate + days)
-    result
-  }
-}
-
 let forChannel = (~name, ~channelId, ~resourceNaming: ReventlessInfra.ResourceNaming.operations) =>
   name->resourceNaming.validateName ++ ("-" ++ channelId->String.split("-")->Array.getUnsafe(1))
 
-let minutesFromNow = minutes => {
-  let m = Date.make()->DateCalc.addMinutes(minutes)
-  Single(
-    m->Date.getUTCFullYear,
-    m->Date.getUTCMonth + 1,
-    m->Date.getUTCDate,
-    m->Date.getUTCHours,
-    m->Date.getUTCMinutes,
-  )
-}
-
-let nextTime = (h: hour, m: minute) => {
-  let now = Date.make()
-  let today = {
-    let epoch = Date.make()
-    epoch->Date.setUTCHours(h)
-    epoch->Date.setUTCMinutes(m)
-    epoch->Date.setUTCSeconds(0)
-    epoch
-  }
-  let tomorrow = today->DateCalc.addDays(1)
-  today < now
-    ? Single(
-        tomorrow->Date.getUTCFullYear,
-        tomorrow->Date.getUTCMonth + 1,
-        tomorrow->Date.getUTCDate,
-        tomorrow->Date.getUTCHours,
-        tomorrow->Date.getUTCMinutes,
-      )
-    : Single(
-        today->Date.getUTCFullYear,
-        today->Date.getUTCMonth + 1,
-        today->Date.getUTCDate,
-        today->Date.getUTCHours,
-        today->Date.getUTCMinutes,
-      )
-}
+let minutesFromNow = minutes => Once({moment: After(Minutes(minutes))})
 
 exception ScheduleNotCreated(schedule)
 exception ScheduleNotDeleted(string)

package/src/util/ScheduleOps.res.mjs

@@ -6,72 +6,27 @@ import * as Exit$1 from "effect/Exit";
 import * as Cause from "effect/Cause";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Effect$1 from "effect/Effect";
-import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
 import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
 import * as Util_Error$ReventlessCore from "./Util_Error.res.mjs";
 import * as EffectLogger$ReventlessCore from "./EffectLogger.res.mjs";
 
-function addMinutes(date, minutes) {
-  let result = new Date(date);
-  result.setUTCMinutes(result.getUTCMinutes() + minutes | 0);
-  return result;
-}
-
-function addDays(date, days) {
-  let result = new Date(date);
-  result.setUTCDate(result.getUTCDate() + days | 0);
-  return result;
-}
-
-let DateCalc = {
-  addMinutes: addMinutes,
-  addDays: addDays
-};
-
 function forChannel(name, channelId, resourceNaming) {
   return resourceNaming.validateName(name) + ("-" + channelId.split("-")[1]);
 }
 
 function minutesFromNow(minutes) {
-  let m = addMinutes(new Date(), minutes);
   return {
-    TAG: "Single",
-    _0: m.getUTCFullYear(),
-    _1: m.getUTCMonth() + 1 | 0,
-    _2: m.getUTCDate(),
-    _3: m.getUTCHours(),
-    _4: m.getUTCMinutes()
+    TAG: "Once",
+    moment: {
+      TAG: "After",
+      _0: {
+        TAG: "Minutes",
+        _0: minutes
+      }
+    }
   };
 }
 
-function nextTime(h, m) {
-  let now = new Date();
-  let epoch = new Date();
-  epoch.setUTCHours(h);
-  epoch.setUTCMinutes(m);
-  epoch.setUTCSeconds(0);
-  let tomorrow = addDays(epoch, 1);
-  if (Primitive_object.lessthan(epoch, now)) {
-    return {
-      TAG: "Single",
-      _0: tomorrow.getUTCFullYear(),
-      _1: tomorrow.getUTCMonth() + 1 | 0,
-      _2: tomorrow.getUTCDate(),
-      _3: tomorrow.getUTCHours(),
-      _4: tomorrow.getUTCMinutes()
-    };
-  } else {
-    return {
-      TAG: "Single",
-      _0: epoch.getUTCFullYear(),
-      _1: epoch.getUTCMonth() + 1 | 0,
-      _2: epoch.getUTCDate(),
-      _3: epoch.getUTCHours(),
-      _4: epoch.getUTCMinutes()
-    };
-  }
-}
-
 let ScheduleNotCreated = /* @__PURE__ */Primitive_exceptions.create("ScheduleOps-ReventlessCore.ScheduleNotCreated");
 
 let ScheduleNotDeleted = /* @__PURE__ */Primitive_exceptions.create("ScheduleOps-ReventlessCore.ScheduleNotDeleted");
@@ -79,11 +34,11 @@ let ScheduleNotDeleted = /* @__PURE__ */Primitive_exceptions.create("ScheduleOps
 function create(scheduler, channelResources, resourceNaming) {
   return async schedule => {
     let name = resourceNaming.validateName(schedule.name);
-    let schedule_rate = schedule.rate;
+    let schedule_time = schedule.time;
     let schedule_payload = schedule.payload;
     let schedule$1 = {
       name: name,
-      rate: schedule_rate,
+      time: schedule_time,
       payload: schedule_payload
     };
     let createSchedule = scheduler.createSchedule;
@@ -120,10 +75,8 @@ function $$delete(scheduler, channelResources, resourceNaming) {
 }
 
 export {
-  DateCalc,
   forChannel,
   minutesFromNow,
-  nextTime,
   ScheduleNotCreated,
   ScheduleNotDeleted,
   create,