@reventlessdev/reventless-aws 3.0.0-alpha.167

package/src/util/Util_S3.res

@@ -0,0 +1,17 @@
+let toResource: PulumiAws.S3.Bucket.t => ReventlessInfra.Adapter.resource = ({id, arn}) =>
+  ReventlessInfra.Adapter.make(
+    ~name=id,
+    ~id,
+    ~urn=arn,
+    ~service=id->Pulumi.Output.apply(_ => AWS.S3.service),
+    ~resourceType="aws:s3:Bucket"->Pulumi.Output.make,
+  )
+
+let toResolvedBucketOutput = ({id, arn}: PulumiAws.S3.Bucket.t) =>
+  (id, arn)
+  ->Pulumi.Output.all2
+  ->Pulumi.Output.apply(((id, arn)) => {
+    Util_S3_Runtime.id,
+    name: id,
+    arn,
+  })

package/src/util/Util_S3.res.mjs

@@ -0,0 +1,30 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Pulumi from "@pulumi/pulumi";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+
+function toResource(param) {
+  let id = param.id;
+  return Adapter$ReventlessInfra.make(id, id, param.arn, id.apply(param => AWS$ReventlessAws.S3.service), undefined, undefined, undefined, Pulumi.output("aws:s3:Bucket"), undefined, undefined);
+}
+
+function toResolvedBucketOutput(param) {
+  return Pulumi.all([
+    param.id,
+    param.arn
+  ]).apply(param => {
+    let id = param[0];
+    return {
+      id: id,
+      name: id,
+      arn: param[1]
+    };
+  });
+}
+
+export {
+  toResource,
+  toResolvedBucketOutput,
+}
+/* @pulumi/pulumi Not a pure module */

package/src/util/Util_S3_Runtime.res

@@ -0,0 +1,11 @@
+type resolvedBucket = {
+  id: string,
+  name: string,
+  arn: string,
+}
+
+let toResolvedBucket = ({id, name, urn}: ReventlessCore.Adapter.resolvedResource) => {
+  id,
+  name,
+  arn: urn,
+}

package/src/util/Util_S3_Runtime.res.mjs

@@ -0,0 +1,15 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function toResolvedBucket(param) {
+  return {
+    id: param.id,
+    name: param.name,
+    arn: param.urn
+  };
+}
+
+export {
+  toResolvedBucket,
+}
+/* No side effect */

package/src/util/Util_SNS.res

@@ -0,0 +1,33 @@
+let toResolvedTopicOutput = ({name, id, arn}: PulumiAws.SNS.Topic.t) =>
+  (name, id, arn)
+  ->Pulumi.Output.all3
+  ->Pulumi.Output.apply(((name, id, arn)) => {
+    Util_SNS_Runtime.id,
+    name,
+    arn,
+  })
+
+let toResource = (~tags=?, {id, name, arn}: PulumiAws.SNS.Topic.t): ReventlessInfra.Adapter.resource =>
+  ReventlessInfra.Adapter.make(
+    ~name,
+    ~id,
+    ~urn=arn,
+    ~service=name->Pulumi.Output.apply(_ => AWS.SNS.service),
+    ~resourceType="aws:sns:Topic"->Pulumi.Output.make,
+    ~tags=?tags,
+  )
+
+let findResolvedResource = resources =>
+  resources->ReventlessCore.Util.Adapter.findResolvedResource(AWS.SNS.service)
+
+let log = ReventlessCore.Logger.fromEnv()
+
+let findTopicInResolvedResources = resources =>
+  switch resources->ReventlessCore.Util_Adapter.filterSupportedResolvedResources([AWS.SNS.service]) {
+  | [] =>
+    let err = "Couldn't find SNS Topic in resources"
+    log.error(~comp="SNS", err)
+    JsError.throwWithMessage(err)
+
+  | resources => resources->Array.getUnsafe(0)
+  }

package/src/util/Util_SNS.res.mjs

@@ -0,0 +1,50 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Pulumi from "@pulumi/pulumi";
+import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as Util_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Adapter.res.mjs";
+
+function toResolvedTopicOutput(param) {
+  return Pulumi.all([
+    param.name,
+    param.id,
+    param.arn
+  ]).apply(param => ({
+    id: param[1],
+    name: param[0],
+    arn: param[2]
+  }));
+}
+
+function toResource(tags, param) {
+  let name = param.name;
+  return Adapter$ReventlessInfra.make(name, param.id, param.arn, name.apply(param => AWS$ReventlessAws.SNS.service), undefined, undefined, undefined, Pulumi.output("aws:sns:Topic"), undefined, tags);
+}
+
+function findResolvedResource(resources) {
+  return Util_Adapter$ReventlessCore.findResolvedResource(resources, AWS$ReventlessAws.SNS.service);
+}
+
+let log = Logger$ReventlessCore.fromEnv();
+
+function findTopicInResolvedResources(resources) {
+  let resources$1 = Util_Adapter$ReventlessCore.filterSupportedResolvedResources(resources, [AWS$ReventlessAws.SNS.service]);
+  if (resources$1.length !== 0) {
+    return resources$1[0];
+  }
+  let err = "Couldn't find SNS Topic in resources";
+  log.error("SNS", undefined, err);
+  return Stdlib_JsError.throwWithMessage(err);
+}
+
+export {
+  toResolvedTopicOutput,
+  toResource,
+  findResolvedResource,
+  log,
+  findTopicInResolvedResources,
+}
+/* log Not a pure module */

package/src/util/Util_SNS_FIFO.res

@@ -0,0 +1,21 @@
+let toResource = (~tags=?, {PulumiAws.SNS.Topic.id: id, name, arn}) =>
+  ReventlessInfra.Adapter.make(
+    ~name,
+    ~id,
+    ~urn=arn,
+    ~service=name->Pulumi.Output.apply(_ => AWS.SNS_FIFO.service),
+    ~resourceType="aws:sns:Topic"->Pulumi.Output.make,
+    ~tags=?tags,
+  )
+
+let findTopicInResolvedResources = resources =>
+  switch resources->ReventlessCore.Util_Adapter.filterSupportedResolvedResources([
+    AWS.SNS_FIFO.service,
+  ]) {
+  | [] =>
+    JsError.throwWithMessage(
+      "Util.SQS_FIFO.findTopicNameInUnwrappedResources: Couldn't find SNS_FIFO Topic in resources",
+    )
+
+  | resources => resources->Array.getUnsafe(0)
+  }

package/src/util/Util_SNS_FIFO.res.mjs

@@ -0,0 +1,27 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Pulumi from "@pulumi/pulumi";
+import * as Stdlib_JsError from "@rescript/runtime/lib/es6/Stdlib_JsError.js";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as Util_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Adapter.res.mjs";
+
+function toResource(tags, param) {
+  let name = param.name;
+  return Adapter$ReventlessInfra.make(name, param.id, param.arn, name.apply(param => AWS$ReventlessAws.SNS_FIFO.service), undefined, undefined, undefined, Pulumi.output("aws:sns:Topic"), undefined, tags);
+}
+
+function findTopicInResolvedResources(resources) {
+  let resources$1 = Util_Adapter$ReventlessCore.filterSupportedResolvedResources(resources, [AWS$ReventlessAws.SNS_FIFO.service]);
+  if (resources$1.length !== 0) {
+    return resources$1[0];
+  } else {
+    return Stdlib_JsError.throwWithMessage("Util.SQS_FIFO.findTopicNameInUnwrappedResources: Couldn't find SNS_FIFO Topic in resources");
+  }
+}
+
+export {
+  toResource,
+  findTopicInResolvedResources,
+}
+/* @pulumi/pulumi Not a pure module */

package/src/util/Util_SNS_Runtime.res

@@ -0,0 +1,33 @@
+type resolvedTopic = {
+  id: string,
+  name: string,
+  arn: string,
+}
+
+let publish = (topic, message) =>
+  Effect.tryPromise(
+    ~catch=SNS_Error.classify,
+    () => AwsSdk.SNS_Helpers.publish(~topicArn=topic.arn, message),
+  )
+  ->Effect.map(_ => ())
+  ->Effect.retry(SNS_Error.retrySchedule)
+  ->Effect.catchAll(err => {
+    let msg = SNS_Error.message(err)
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, "publish: " ++ msg)
+    ->Effect.flatMap(_ => Effect.fail(msg))
+  })
+  ->Effect.runPromise
+
+let publishFifo = (topic, ~messageGroupId, ~message) =>
+  Effect.tryPromise(
+    ~catch=SNS_Error.classify,
+    () => AwsSdk.SNS_Helpers.publish(~topicArn=topic.arn, ~messageGroupId, message),
+  )
+  ->Effect.map(_ => ())
+  ->Effect.retry(SNS_Error.retrySchedule)
+  ->Effect.catchAll(err => {
+    let msg = SNS_Error.message(err)
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, "publishFifo: " ++ msg)
+    ->Effect.flatMap(_ => Effect.fail(msg))
+  })
+  ->Effect.runPromise

package/src/util/Util_SNS_Runtime.res.mjs

@@ -0,0 +1,27 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Effect from "@reventlessdev/rescript-effect/src/Effect.res.mjs";
+import * as Effect$1 from "effect/Effect";
+import * as SNS_Helpers$AwsSdk from "@reventlessdev/rescript-aws-sdk/src/SNS_Helpers.res.mjs";
+import * as SNS_Error$ReventlessAws from "../errors/SNS_Error.res.mjs";
+import * as EffectLogger$ReventlessCore from "@reventlessdev/reventless-core/src/util/EffectLogger.res.mjs";
+
+function publish(topic, message) {
+  return Effect$1.runPromise(Effect$1.catchAll(Effect$1.retry(Effect$1.map(Effect.tryPromise(SNS_Error$ReventlessAws.classify, () => SNS_Helpers$AwsSdk.publish(topic.arn, undefined, message)), param => {}), SNS_Error$ReventlessAws.retrySchedule), err => {
+    let msg = SNS_Error$ReventlessAws.message(err);
+    return Effect$1.flatMap(EffectLogger$ReventlessCore.logError("Util_SNS_Runtime-ReventlessAws", undefined, "publish: " + msg), () => Effect$1.fail(msg));
+  }));
+}
+
+function publishFifo(topic, messageGroupId, message) {
+  return Effect$1.runPromise(Effect$1.catchAll(Effect$1.retry(Effect$1.map(Effect.tryPromise(SNS_Error$ReventlessAws.classify, () => SNS_Helpers$AwsSdk.publish(topic.arn, messageGroupId, message)), param => {}), SNS_Error$ReventlessAws.retrySchedule), err => {
+    let msg = SNS_Error$ReventlessAws.message(err);
+    return Effect$1.flatMap(EffectLogger$ReventlessCore.logError("Util_SNS_Runtime-ReventlessAws", undefined, "publishFifo: " + msg), () => Effect$1.fail(msg));
+  }));
+}
+
+export {
+  publish,
+  publishFifo,
+}
+/* Effect Not a pure module */

package/src/util/Util_SQS.res

@@ -0,0 +1,70 @@
+open PulumiAws
+
+type channelParts = {queue: PulumiAws.SQS.Queue.t}
+
+let toResolvedQueueOutput = ({name, id, arn}: PulumiAws.SQS.Queue.t) =>
+  (name, id, arn)
+  ->Pulumi.Output.all3
+  ->Pulumi.Output.apply(((name, id, arn)) => {
+    Util_SQS_Runtime.id,
+    name,
+    arn,
+  })
+
+let toResource = (~tags=?, queue: PulumiAws.SQS.Queue.t): ReventlessInfra.Adapter.resource =>
+  ReventlessInfra.Adapter.make(
+    ~name=queue.name,
+    ~id=queue.id,
+    ~urn=queue.arn,
+    ~service=queue.name->Pulumi.Output.apply(_ => AWS.SQS.service),
+    ~resourceType="aws:sqs:Queue"->Pulumi.Output.make,
+    ~tags=?tags,
+  )
+
+let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {
+  name->Pulumi.Output.apply(name => PulumiAws.SQS.Queue.get(~name, ~id=id->Pulumi.Output.asInput))
+}
+
+// Example ARN: arn:aws:sqs:eu-west-1:xxxxxx:MarketplaceServiceExtensionPointCommandTopic-0101023
+let arn2Account = arn =>
+  switch arn->String.split(":") {
+  | [_, _, _, _, account, _] => account
+  | _ => ""
+  }
+
+let subscribeToSnsTopic = (
+  ~queue: PulumiAws.SQS.Queue.t,
+  ~targetName,
+  ~sourceName,
+  ~topic: ReventlessInfra.Adapter.resource,
+  ~opts,
+) =>
+  SNS.TopicSubscription.make(
+    ~name=sourceName->ReventlessCore.Util.baseName ++ ("2" ++ targetName),
+    ~args={
+      endpoint: queue.arn->Pulumi.Output.asInput,
+      protocol: SQS,
+      topic: topic.urn->Pulumi.Output.asInput,
+      rawMessageDelivery: true->Pulumi.Input.make,
+    },
+    ~opts=Some(opts),
+  )
+
+let findResource = resources => resources->ReventlessCore.Util.Adapter.findResource(AWS.SQS.service)
+
+let findResourceInOutput = resourcesOutput =>
+  resourcesOutput->ReventlessCore.Util.Adapter.findResourceInOutput(AWS.SQS.service)
+
+let findResolvedResource = resources =>
+  resources->ReventlessCore.Util.AdapterRuntime.findResolvedResource(AWS.SQS.service)
+
+module Subscription = {
+  let toResource = ({eventSourceMapping: {id, arn}}: PulumiAws.SQS.Queue.eventSubscription): ReventlessInfra.Adapter.resource =>
+    ReventlessInfra.Adapter.make(
+      ~name=id,
+      ~id,
+      ~urn=arn,
+      ~service=id->Pulumi.Output.apply(_ => AWS.SQS.service),
+      ~resourceType="aws:sqs:Queue"->Pulumi.Output.make,
+    )
+}

package/src/util/Util_SQS.res.mjs

@@ -0,0 +1,83 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as Pulumi from "@pulumi/pulumi";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Util$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as Util_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Adapter.res.mjs";
+import * as Util_AdapterRuntime$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_AdapterRuntime.res.mjs";
+
+function toResolvedQueueOutput(param) {
+  return Pulumi.all([
+    param.name,
+    param.id,
+    param.arn
+  ]).apply(param => ({
+    id: param[1],
+    name: param[0],
+    arn: param[2]
+  }));
+}
+
+function toResource(tags, queue) {
+  return Adapter$ReventlessInfra.make(queue.name, queue.id, queue.arn, queue.name.apply(param => AWS$ReventlessAws.SQS.service), undefined, undefined, undefined, Pulumi.output("aws:sqs:Queue"), undefined, tags);
+}
+
+function fromResource(param) {
+  let id = param.id;
+  return param.name.apply(name => Aws.sqs.Queue.get(name, id));
+}
+
+function arn2Account(arn) {
+  let match = arn.split(":");
+  if (match.length !== 6) {
+    return "";
+  } else {
+    return match[4];
+  }
+}
+
+function subscribeToSnsTopic(queue, targetName, sourceName, topic, opts) {
+  return new (Aws.sns.TopicSubscription)(Util$ReventlessCore.baseName(sourceName) + ("2" + targetName), {
+    endpoint: queue.arn,
+    topic: topic.urn,
+    protocol: "sqs",
+    rawMessageDelivery: true
+  }, opts);
+}
+
+function findResource(resources) {
+  return Util_Adapter$ReventlessCore.findResource(resources, AWS$ReventlessAws.SQS.service);
+}
+
+function findResourceInOutput(resourcesOutput) {
+  return Util_Adapter$ReventlessCore.findResourceInOutput(resourcesOutput, AWS$ReventlessAws.SQS.service);
+}
+
+function findResolvedResource(resources) {
+  return Util_AdapterRuntime$ReventlessCore.findResolvedResource(resources, AWS$ReventlessAws.SQS.service);
+}
+
+function toResource$1(param) {
+  let match = param.eventSourceMapping;
+  let id = match.id;
+  return Adapter$ReventlessInfra.make(id, id, match.arn, id.apply(param => AWS$ReventlessAws.SQS.service), undefined, undefined, undefined, Pulumi.output("aws:sqs:Queue"), undefined, undefined);
+}
+
+let Subscription = {
+  toResource: toResource$1
+};
+
+export {
+  toResolvedQueueOutput,
+  toResource,
+  fromResource,
+  arn2Account,
+  subscribeToSnsTopic,
+  findResource,
+  findResourceInOutput,
+  findResolvedResource,
+  Subscription,
+}
+/* @pulumi/aws Not a pure module */

package/src/util/Util_SQS_FIFO.res

@@ -0,0 +1,16 @@
+let toResource = (~tags=?, {id, name, arn}: PulumiAws.SQS_Queue.t): ReventlessInfra.Adapter.resource =>
+  ReventlessInfra.Adapter.make(
+    ~name,
+    ~id,
+    ~urn=arn,
+    ~service=name->Pulumi.Output.apply(_ => AWS.SQS_FIFO.service),
+    ~resourceType="aws:sqs:Queue"->Pulumi.Output.make,
+    ~tags=?tags,
+  )
+
+let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {
+  name->Pulumi.Output.apply(name => PulumiAws.SQS.Queue.get(~name, ~id=id->Pulumi.Output.asInput))
+}
+
+let findResource = resources =>
+  resources->ReventlessCore.Util.Adapter.findResource(AWS.SQS_FIFO.service)

package/src/util/Util_SQS_FIFO.res.mjs

@@ -0,0 +1,28 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Aws from "@pulumi/aws";
+import * as Pulumi from "@pulumi/pulumi";
+import * as AWS$ReventlessAws from "../adapter/AWS.res.mjs";
+import * as Adapter$ReventlessInfra from "@reventlessdev/reventless-infra/src/adapter/Adapter.res.mjs";
+import * as Util_Adapter$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Adapter.res.mjs";
+
+function toResource(tags, param) {
+  let name = param.name;
+  return Adapter$ReventlessInfra.make(name, param.id, param.arn, name.apply(param => AWS$ReventlessAws.SQS_FIFO.service), undefined, undefined, undefined, Pulumi.output("aws:sqs:Queue"), undefined, tags);
+}
+
+function fromResource(param) {
+  let id = param.id;
+  return param.name.apply(name => Aws.sqs.Queue.get(name, id));
+}
+
+function findResource(resources) {
+  return Util_Adapter$ReventlessCore.findResource(resources, AWS$ReventlessAws.SQS_FIFO.service);
+}
+
+export {
+  toResource,
+  fromResource,
+  findResource,
+}
+/* @pulumi/aws Not a pure module */

package/src/util/Util_SQS_Runtime.res

@@ -0,0 +1,169 @@
+open ReventlessCore.Message
+open AwsSdk
+
+type resolvedQueue = {
+  id: string,
+  name: string,
+  arn: string,
+}
+
+let toResolvedQueue = ({id, name, urn}: ReventlessCore.Adapter.resolvedResource) => {
+  id,
+  name,
+  arn: urn,
+}
+
+@module("node:crypto") external _createHash: string => 'h = "createHash"
+@send external _update: ('h, string) => 'h = "update"
+@send external _digest: ('h, string) => string = "digest"
+
+/** Returns `id` unchanged if ≤ 128 chars; otherwise its SHA-256 hex digest (64 chars).
+    SQS FIFO MessageGroupId is limited to 128 characters. Using a hash instead of
+    truncation avoids false-grouping of distinct keys that share a long prefix. */
+let safeGroupId = (id: string): string =>
+  if id->String.length <= 128 {
+    id
+  } else {
+    _createHash("sha256")->_update(id)->_digest("hex")
+  }
+
+let sendMessage = (queue, ~delay=?, messageBody) =>
+  SQS_Helpers.sendMessage(~queueId=queue.id, ~messageBody, ~delay?)
+
+let sendFifoMessage = (queue, ~delay=?, ~messageGroupId, messageBody) =>
+  SQS_Helpers.sendMessage(~queueId=queue.id, ~messageBody, ~messageGroupId, ~delay?)
+
+let send = (queue, queueService, commandJson) => {
+  let messageBody = commandJson->toMessageBody
+  Effect.tryPromise(
+    ~catch=SQS_Error.classify,
+    () =>
+      if queueService == AWS.SQS_FIFO {
+        queue->sendFifoMessage(
+          ~messageGroupId=safeGroupId(commandJson.id),
+          ~delay=?commandJson.delay,
+          messageBody,
+        )
+      } else {
+        queue->sendMessage(~delay=?commandJson.delay, messageBody)
+      },
+  )
+  ->Effect.map(_ => ())
+  ->Effect.retry(SQS_Error.sendRetrySchedule)
+  ->Effect.catchAll(err => {
+    let msg = SQS_Error.message(err)
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, "send: " ++ msg)
+    ->Effect.flatMap(_ => Effect.fail(msg))
+  })
+}
+
+let makeEntry = (queueService, commandJson) => {
+  let {id, meta: {msgId: messageId}} = commandJson
+  let messageBody = commandJson->toMessageBody
+
+  if queueService == AWS.SQS_FIFO {
+    SQS_Helpers.makeBatchEntryFifo(~groupId=safeGroupId(id), ~messageId, ~messageBody, ~delay=?commandJson.delay)
+  } else {
+    SQS_Helpers.makeBatchEntry(~messageId, ~messageBody, ~delay=?commandJson.delay)
+  }
+}
+
+let sendMessagesMaxRetries = 5
+
+let sendMessages = (queue, queueService, commandJsons) => {
+  let rec attempt = (retry, toSend) =>
+    Effect.tryPromise(
+      ~catch=SQS_Error.classify,
+      () =>
+        toSend
+        ->Array.map(commandJson => makeEntry(queueService, commandJson))
+        ->SQS_Helpers.sendMessagesParallel(~queueId=queue.id),
+    )
+    ->Effect.retry(SQS_Error.retrySchedule)
+    ->Effect.flatMap(result =>
+      switch result {
+      | Ok() => Effect.succeed()
+      | Error(failedIds) =>
+        let commandJsonsToRetry =
+          toSend->Array.filter(({meta: {msgId}}) =>
+            failedIds->Array.some(failedId => failedId == msgId)
+          )
+        if retry < sendMessagesMaxRetries {
+          ReventlessCore.EffectLogger.logInfo(
+            ~comp=__MODULE__,
+            `sendMessages: ${failedIds->Array.length->Int.toString} failed ids, retrying subset`,
+          )
+          ->Effect.flatMap(_ => attempt(retry + 1, commandJsonsToRetry))
+        } else {
+          let ids = failedIds->Array.joinUnsafe(", ")
+          Effect.fail(SQS_Error.Permanent(`sendMessages failed for ids: ${ids}`))
+        }
+      }
+    )
+  attempt(0, commandJsons)
+  ->Effect.catchAll(err => {
+    let msg = SQS_Error.message(err)
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `sendMessages: ${msg}`)
+    ->Effect.flatMap(_ => Effect.fail(msg))
+  })
+}
+
+let deleteMessage = async (queue, receiptHandle) => {
+  await {
+    queueUrl: queue.id,
+    receiptHandle,
+  }
+  ->SQS.DeleteMessageCommand.make
+  ->SQS.DeleteMessageCommand.send
+}
+
+let deleteMessagesMaxRetries = 5
+
+let deleteMessages = (entries, queue) => {
+  let rec attempt = (retry, toDelete) =>
+    Effect.tryPromise(
+      ~catch=SQS_Error.classify,
+      () => SQS_Helpers.deleteMessagesParallel(~queueId=queue.id, toDelete),
+    )
+    ->Effect.retry(SQS_Error.retrySchedule)
+    ->Effect.flatMap(result =>
+      switch result {
+      | Ok() => Effect.succeed()
+      | Error(failedIds) =>
+        let entriesToRetry =
+          toDelete
+          ->Array.filterWithIndex((_, idx) => {
+            let id = idx->Int.toString
+            failedIds->Array.some(failedId => failedId == id)
+          })
+          ->Array.mapWithIndex((entry, idx) => {
+            AwsSdk.SQS.DeleteMessageBatchCommand.id: idx->Int.toString,
+            receiptHandle: entry.receiptHandle,
+          })
+        if retry < deleteMessagesMaxRetries {
+          ReventlessCore.EffectLogger.logInfo(
+            ~comp=__MODULE__,
+            `deleteMessages: ${failedIds->Array.length->Int.toString} failed ids, retrying subset`,
+          )
+          ->Effect.flatMap(_ => attempt(retry + 1, entriesToRetry))
+        } else {
+          let ids = failedIds->Array.joinUnsafe(", ")
+          Effect.fail(SQS_Error.Permanent(`deleteMessages failed for ids: ${ids}`))
+        }
+      }
+    )
+  attempt(0, entries)
+  ->Effect.catchAll(err => {
+    let msg = SQS_Error.message(err)
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `deleteMessages: ${msg}`)
+    ->Effect.flatMap(_ => Effect.fail(msg))
+  })
+}
+
+let parseSqsRecord = (record: PulumiAws.SQS.Queue.record) => {
+  let eventStr = record.body
+  switch eventStr->JSON.parseOrThrow {
+  | json => Some(json)
+  | exception _err => None
+  }
+}