@reventlessdev/reventless-aws 3.0.0-alpha.380 → 3.0.0-alpha.381

package/src/adapter/ScheduledPublisher/ScheduledPublisher_CloudWatchEvents.res.mjs

@@ -1,43 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Aws from "@pulumi/aws";
-import * as IAM$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/IAM/IAM.res.mjs";
-import * as Pulumi from "@pulumi/pulumi";
-import * as AWS$ReventlessAws from "../AWS.res.mjs";
-import * as AWS_Tags$ReventlessAws from "../AWS_Tags.res.mjs";
-import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
-import * as PolicyDocument$PulumiAws from "@reventlessdev/rescript-pulumi-aws/src/IAM/PolicyDocument.res.mjs";
-import * as ScheduledPublisher_CloudWatchEvents_Runtime$ReventlessAws from "./ScheduledPublisher_CloudWatchEvents_Runtime.res.mjs";
-
-function make(name, opts) {
-  let role = IAM$PulumiAws.Role.makeWithDefaultPolicy("CloudWatchEventsRole", Pulumi.output(AWS$ReventlessAws.CloudwatchEventRule.principal), AWS_Tags$ReventlessAws.make("CloudWatchEventsRole", "Platform", "Identity", "Platform", undefined, undefined, undefined, undefined), opts);
-  new (Aws.iam.Policy)(name + "CloudWatchEventsPolicy", {
-    policy: role.arn.apply(roleArn => PolicyDocument$PulumiAws.toJsonString(PolicyDocument$PulumiAws.make(undefined, name + "CloudWatchEventsPolicy", [
-      {
-        Sid: "AllowCloudWatchEvents",
-        Effect: "Allow",
-        Action: "events:*",
-        Resource: "*"
-      },
-      {
-        Sid: "AllowPassRole",
-        Effect: "Allow",
-        Action: "iam:PassRole",
-        Resource: roleArn
-      }
-    ]))),
-    tags: AWS_Tags$ReventlessAws.make(name + "CloudWatchEventsPolicy", "Platform", "Identity", "Platform", undefined, undefined, undefined, undefined)
-  }, opts);
-  return {
-    resource: Adapter$ReventlessInfra.make(role.name, role.id, role.arn, Pulumi.output("CloudWatchEvents"), undefined, undefined, undefined, Pulumi.output("aws:cloudwatch:EventRule"), undefined, undefined),
-    operations: role.arn.apply(roleArn => ({
-      createSchedule: ScheduledPublisher_CloudWatchEvents_Runtime$ReventlessAws.createSchedule(roleArn),
-      deleteSchedule: ScheduledPublisher_CloudWatchEvents_Runtime$ReventlessAws.deleteSchedule
-    }))
-  };
-}
-
-export {
-  make,
-}
-/* @pulumi/aws Not a pure module */

package/src/adapter/ScheduledPublisher/ScheduledPublisher_CloudWatchEvents_Runtime.res

@@ -1,93 +0,0 @@
-open Reventless.Schedule
-open AwsSdk.CloudWatchEvents
-
-let plural = count => count == 1 ? "" : "s"
-
-let toScheduleExpression = x =>
-  switch x {
-  | Single(year, month, day, hour, minute) =>
-    `cron(${minute->Int.toString} ${hour->Int.toString} ${day->Int.toString} ${month->Int.toString} ? ${year->Int.toString})`
-  | Minutes(minutes) =>
-    let plural = minutes->plural
-    `rate(${minutes->Int.toString} minute${plural})`
-  | Hours(hours) =>
-    let plural = hours->plural
-    `rate(${hours->Int.toString} hour${plural})`
-  | Days(days) =>
-    let plural = days->plural
-    `rate(${days->Int.toString} day${plural})`
-  | Daily(hour, minute) => `cron(${minute->Int.toString} ${hour->Int.toString} * * * *)`
-  | Weekdays(hour, minute) => `cron(${minute->Int.toString} ${hour->Int.toString} ? * MON-FRI *)`
-  | WeekdaysAndSaturday(hour, minute) =>
-    `cron(${minute->Int.toString} ${hour->Int.toString} ? * MON-SAT *)`
-  }
-
-let createSchedule = (~roleArn: string): ReventlessCore.Scheduler.createSchedule =>
-  (queueResources, schedule) =>
-    switch queueResources {
-    | [] =>
-      let err = "createSchedule not possible: no Queue configured !"
-      ReventlessCore.EffectLogger.logError(~comp=__MODULE__, err)
-      ->Effect.flatMap(_ => Effect.sync(() => JsError.throwWithMessage(err)))
-      ->Effect.runPromise
-    | resources =>
-      let resource = resources->Array.getUnsafe(0) // FIXME
-      Effect.promise(() =>
-        PutRuleCommand.send(
-          PutRuleCommand.make({
-            name: schedule.name,
-            scheduleExpression: schedule.rate->toScheduleExpression,
-            roleArn,
-            state: "ENABLED",
-          }),
-        )
-      )
-      ->Effect.flatMap(_ =>
-        Effect.promise(() =>
-          PutTargetsCommand.send(
-            PutTargetsCommand.make({
-              rule: schedule.name,
-              targets: [
-                {
-                  arn: resource.urn,
-                  id: resource.name,
-                  input: schedule.payload,
-                },
-              ],
-            }),
-          )
-        )
-      )
-      ->Effect.map(_ => ())
-      ->Effect.runPromise
-    }
-
-let deleteSchedule: ReventlessCore.Scheduler.deleteSchedule = (queueResources, name) =>
-  switch queueResources {
-  | [] =>
-    let err = "deleteSchedule not possible: no Queue configured !"
-    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, err)
-    ->Effect.flatMap(_ => Effect.sync(() => JsError.throwWithMessage(err)))
-    ->Effect.runPromise
-  | resources =>
-    let resource = resources->Array.getUnsafe(0) // FIXME
-    Effect.promise(() =>
-      RemoveTargetsCommand.send(
-        RemoveTargetsCommand.make({
-          rule: name,
-          ids: [resource.name],
-        }),
-      )
-    )
-    ->Effect.flatMap(_ =>
-      Effect.promise(() =>
-        DeleteRuleCommand.send(
-          DeleteRuleCommand.make({
-            name: name,
-          }),
-        )
-      )
-    )
-    ->Effect.map(_ => ())
-    ->Effect.runPromise
-  }

package/src/adapter/ScheduledPublisher/ScheduledPublisher_CloudWatchEvents_Runtime.res.mjs

@@ -1,85 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Effect from "effect/Effect";
-import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
-import * as CloudWatchEvents$AwsSdk from "@reventlessdev/rescript-aws-sdk/src/CloudWatchEvents.res.mjs";
-import * as EffectLogger$ReventlessCore from "@reventlessdev/reventless-core/src/util/EffectLogger.res.mjs";
-import * as ClientCloudwatchEvents from "@aws-sdk/client-cloudwatch-events";
-
-function plural(count) {
-  if (count === 1) {
-    return "";
-  } else {
-    return "s";
-  }
-}
-
-function toScheduleExpression(x) {
-  switch (x.TAG) {
-    case "Single" :
-      return `cron(` + x._4.toString() + ` ` + x._3.toString() + ` ` + x._2.toString() + ` ` + x._1.toString() + ` ? ` + x._0.toString() + `)`;
-    case "Minutes" :
-      let minutes = x._0;
-      let plural$1 = plural(minutes);
-      return `rate(` + minutes.toString() + ` minute` + plural$1 + `)`;
-    case "Hours" :
-      let hours = x._0;
-      let plural$2 = plural(hours);
-      return `rate(` + hours.toString() + ` hour` + plural$2 + `)`;
-    case "Days" :
-      let days = x._0;
-      let plural$3 = plural(days);
-      return `rate(` + days.toString() + ` day` + plural$3 + `)`;
-    case "Daily" :
-      return `cron(` + x._1.toString() + ` ` + x._0.toString() + ` * * * *)`;
-    case "Weekdays" :
-      return `cron(` + x._1.toString() + ` ` + x._0.toString() + ` ? * MON-FRI *)`;
-    case "WeekdaysAndSaturday" :
-      return `cron(` + x._1.toString() + ` ` + x._0.toString() + ` ? * MON-SAT *)`;
-  }
-}
-
-function createSchedule(roleArn) {
-  return (queueResources, schedule) => {
-    if (queueResources.length !== 0) {
-      let resource = queueResources[0];
-      return Effect.runPromise(Effect.map(Effect.flatMap(Effect.promise(() => CloudWatchEvents$AwsSdk.PutRuleCommand.send(new ClientCloudwatchEvents.PutRuleCommand({
-        Name: schedule.name,
-        ScheduleExpression: toScheduleExpression(schedule.rate),
-        RoleArn: roleArn,
-        State: "ENABLED"
-      }))), param => Effect.promise(() => CloudWatchEvents$AwsSdk.PutTargetsCommand.send(new ClientCloudwatchEvents.PutTargetsCommand({
-        Rule: schedule.name,
-        Targets: [{
-            Arn: resource.urn,
-            Id: resource.name,
-            Input: schedule.payload
-          }]
-      })))), param => {}));
-    }
-    let err = "createSchedule not possible: no Queue configured !";
-    return Effect.runPromise(Effect.flatMap(EffectLogger$ReventlessCore.logError("ScheduledPublisher_CloudWatchEvents_Runtime-ReventlessAws", undefined, err), () => Effect.sync(() => Stdlib_JsError.throwWithMessage(err))));
-  };
-}
-
-function deleteSchedule(queueResources, name) {
-  if (queueResources.length !== 0) {
-    let resource = queueResources[0];
-    return Effect.runPromise(Effect.map(Effect.flatMap(Effect.promise(() => CloudWatchEvents$AwsSdk.RemoveTargetsCommand.send(new ClientCloudwatchEvents.RemoveTargetsCommand({
-      Rule: name,
-      Ids: [resource.name]
-    }))), param => Effect.promise(() => CloudWatchEvents$AwsSdk.DeleteRuleCommand.send(new ClientCloudwatchEvents.DeleteRuleCommand({
-      Name: name
-    })))), param => {}));
-  }
-  let err = "deleteSchedule not possible: no Queue configured !";
-  return Effect.runPromise(Effect.flatMap(EffectLogger$ReventlessCore.logError("ScheduledPublisher_CloudWatchEvents_Runtime-ReventlessAws", undefined, err), () => Effect.sync(() => Stdlib_JsError.throwWithMessage(err))));
-}
-
-export {
-  plural,
-  toScheduleExpression,
-  createSchedule,
-  deleteSchedule,
-}
-/* effect/Effect Not a pure module */