@reventlessdev/reventless-aws 3.0.0-alpha.343 → 3.0.0-alpha.345

package/src/util/Util_SNS_Runtime.res

@@ -5,29 +5,30 @@ type resolvedTopic = {
 }
 
 let publish = (topic, message) =>
-  Effect.tryPromise(
-    ~catch=SNS_Error.classify,
-    () => AwsSdk.SNS_Helpers.publish(~topicArn=topic.arn, 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))
+    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.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))
+    ReventlessCore.EffectLogger.logError(
+      ~comp=__MODULE__,
+      "publishFifo: " ++ msg,
+    )->Effect.flatMap(_ => Effect.fail(msg))
   })
   ->Effect.runPromise

package/src/util/Util_SQS.res

@@ -18,7 +18,7 @@ let toResource = (~tags=?, queue: PulumiAws.SQS.Queue.t): ReventlessInfra.Adapte
     ~urn=queue.arn,
     ~service=queue.name->Pulumi.Output.apply(_ => AWS.SQS.service),
     ~resourceType="aws:sqs:Queue"->Pulumi.Output.make,
-    ~tags=?tags,
+    ~tags?,
   )
 
 let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {
@@ -59,7 +59,9 @@ 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 =>
+  let toResource = (
+    {eventSourceMapping: {id, arn}}: PulumiAws.SQS.Queue.eventSubscription,
+  ): ReventlessInfra.Adapter.resource =>
     ReventlessInfra.Adapter.make(
       ~name=id,
       ~id,

package/src/util/Util_SQS_FIFO.res

@@ -1,11 +1,14 @@
-let toResource = (~tags=?, {id, name, arn}: PulumiAws.SQS_Queue.t): ReventlessInfra.Adapter.resource =>
+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,
+    ~tags?,
   )
 
 let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {

package/src/util/Util_SQS_Runtime.res

@@ -31,25 +31,24 @@ let sendFifoMessage = (queue, ~delay=?, ~messageGroupId, messageBody) =>
 
 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.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))
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, "send: " ++ msg)->Effect.flatMap(_ =>
+      Effect.fail(msg)
+    )
   })
 }
 
@@ -58,7 +57,12 @@ let makeEntry = (queueService, commandJson) => {
   let messageBody = commandJson->toMessageBody
 
   if queueService == AWS.SQS_FIFO {
-    SQS_Helpers.makeBatchEntryFifo(~groupId=safeGroupId(id), ~messageId, ~messageBody, ~delay=?commandJson.delay)
+    SQS_Helpers.makeBatchEntryFifo(
+      ~groupId=safeGroupId(id),
+      ~messageId,
+      ~messageBody,
+      ~delay=?commandJson.delay,
+    )
   } else {
     SQS_Helpers.makeBatchEntry(~messageId, ~messageBody, ~delay=?commandJson.delay)
   }
@@ -68,12 +72,10 @@ 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.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 =>
@@ -88,19 +90,19 @@ let sendMessages = (queue, queueService, commandJsons) => {
           ReventlessCore.EffectLogger.logInfo(
             ~comp=__MODULE__,
             `sendMessages: ${failedIds->Array.length->Int.toString} failed ids, retrying subset`,
-          )
-          ->Effect.flatMap(_ => attempt(retry + 1, commandJsonsToRetry))
+          )->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 => {
+  attempt(0, commandJsons)->Effect.catchAll(err => {
     let msg = SQS_Error.message(err)
-    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `sendMessages: ${msg}`)
-    ->Effect.flatMap(_ => Effect.fail(msg))
+    ReventlessCore.EffectLogger.logError(
+      ~comp=__MODULE__,
+      `sendMessages: ${msg}`,
+    )->Effect.flatMap(_ => Effect.fail(msg))
   })
 }
 
@@ -117,9 +119,8 @@ 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.tryPromise(~catch=SQS_Error.classify, () =>
+      SQS_Helpers.deleteMessagesParallel(~queueId=queue.id, toDelete)
     )
     ->Effect.retry(SQS_Error.retrySchedule)
     ->Effect.flatMap(result =>
@@ -140,19 +141,19 @@ let deleteMessages = (entries, queue) => {
           ReventlessCore.EffectLogger.logInfo(
             ~comp=__MODULE__,
             `deleteMessages: ${failedIds->Array.length->Int.toString} failed ids, retrying subset`,
-          )
-          ->Effect.flatMap(_ => attempt(retry + 1, entriesToRetry))
+          )->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 => {
+  attempt(0, entries)->Effect.catchAll(err => {
     let msg = SQS_Error.message(err)
-    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `deleteMessages: ${msg}`)
-    ->Effect.flatMap(_ => Effect.fail(msg))
+    ReventlessCore.EffectLogger.logError(
+      ~comp=__MODULE__,
+      `deleteMessages: ${msg}`,
+    )->Effect.flatMap(_ => Effect.fail(msg))
   })
 }
 

package/src/util/Util_ShellConfig.res

@@ -156,8 +156,9 @@ let fields = (
     if collisions->Array.length > 0 {
       failwith(
         "host UI config.json: shellConfig sets key(s) the deploy already computes — " ++
-        collisions->Array.join(", ") ++
-        ". Remove them from shellConfig; a passthrough cannot redirect a computed key.",
+        collisions->Array.join(
+          ", ",
+        ) ++ ". Remove them from shellConfig; a passthrough cannot redirect a computed key.",
       )
     }
     extra->Dict.forEachWithKey((v, k) => out->Dict.set(k, v))

package/src/util/Util_StaticBundle.res

@@ -44,9 +44,7 @@ let rec walkInto = (~dir: string, ~prefix: string, acc: array<fileEntry>): unit
  */
 let walk = (assetsDir: string): array<fileEntry> => {
   if !NodeFs.existsSync(assetsDir) {
-    JsError.throwWithMessage(
-      `Util_StaticBundle.walk: assetsDir does not exist: ${assetsDir}`,
-    )
+    JsError.throwWithMessage(`Util_StaticBundle.walk: assetsDir does not exist: ${assetsDir}`)
   }
   let acc: array<fileEntry> = []
   walkInto(~dir=assetsDir, ~prefix="", acc)

package/src/util/Util_StoreLayout.res

@@ -88,7 +88,10 @@ Destroy semantics follow disposability, **not** layout.
 field rename may destroy a bucket by accident. Only stacks that are routinely
 torn down are unprotected.
 */
-let protectionFor = (~stack: string, ~ephemeralPrefixes: array<string>=defaultEphemeralPrefixes): protection =>
+let protectionFor = (
+  ~stack: string,
+  ~ephemeralPrefixes: array<string>=defaultEphemeralPrefixes,
+): protection =>
   ephemeralPrefixes->Array.some(p => stack->String.startsWith(p)) ? Unprotected : Protected
 
 /**

package/tests/AWS_TagsTest.res

@@ -18,8 +18,7 @@ let tagsFor = (
   ~component=?,
   ~plugin=?,
   ~platform=?,
-) =>
-  AWS_Tags.make(~name, ~kind, ~role, ~scope, ~component?, ~plugin?, ~platform?)->toDict
+) => AWS_Tags.make(~name, ~kind, ~role, ~scope, ~component?, ~plugin?, ~platform?)->toDict
 
 describe("AWS_Tags — key set", () => {
   testSync("emits every reventless: fact exactly once, plus the bare Name", () => {
@@ -50,7 +49,11 @@ describe("AWS_Tags — key set", () => {
     // `Environment` was a framework fact wearing an un-namespaced name. One
     // authoritative name per fact — `Name` is the sole bare key, because the AWS
     // console reads that literal spelling for its resource-name column.
-    let tags = tagsFor(~name="Products", ~kind=ReventlessCore.ComponentType.ReadModel, ~role=QueryDb)
+    let tags = tagsFor(
+      ~name="Products",
+      ~kind=ReventlessCore.ComponentType.ReadModel,
+      ~role=QueryDb,
+    )
     expect(tags->Dict.get("Type"))->toEqual(None)
     expect(tags->Dict.get("Plugin"))->toEqual(None)
     expect(tags->Dict.get("Environment"))->toEqual(None)
@@ -166,7 +169,11 @@ describe("AWS_Tags — owner overrides the piece adapter's own kind", () => {
 
 describe("AWS_Tags — scope", () => {
   testSync("component scope names the component, defaulting to the resource name", () => {
-    let tags = tagsFor(~name="Products", ~kind=ReventlessCore.ComponentType.ReadModel, ~role=QueryDb)
+    let tags = tagsFor(
+      ~name="Products",
+      ~kind=ReventlessCore.ComponentType.ReadModel,
+      ~role=QueryDb,
+    )
     expect(tags->Dict.get("reventless:scope"))->toEqual(Some("component"))
     expect(tags->Dict.get("reventless:component"))->toEqual(Some("Products"))
   })
@@ -216,7 +223,11 @@ describe("AWS_Tags — plugin attribution", () => {
     // Adapters sit far below the builder that knows the plugin name, so the
     // ambient context is how a DynamoDB table learns it belongs to Ordering.
     let previous = Attribution.enter(~platform="online-shop", ~plugin="Ordering")
-    let tags = tagsFor(~name="OrderEventLog", ~kind=ReventlessCore.ComponentType.Aggregate, ~role=EventLog)
+    let tags = tagsFor(
+      ~name="OrderEventLog",
+      ~kind=ReventlessCore.ComponentType.Aggregate,
+      ~role=EventLog,
+    )
     Attribution.restore(previous)
     expect(tags->Dict.get("reventless:plugin"))->toEqual(Some("Ordering"))
     expect(tags->Dict.get("reventless:platform"))->toEqual(Some("online-shop"))

package/tests/AppSyncEventsSigner_OpsTest.res

@@ -23,10 +23,19 @@ external signedHeadersJs: (
 let get = (d, k) => d->Dict.get(k)->Option.getOr("<missing>")
 
 // Compare the ReScript signer to the JS reference for one input tuple.
-let assertParity = (~host, ~path, ~body, ~region, ~isoNow, ~accessKeyId, ~secretAccessKey, ~sessionToken) => {
+let assertParity = (
+  ~host,
+  ~path,
+  ~body,
+  ~region,
+  ~isoNow,
+  ~accessKeyId,
+  ~secretAccessKey,
+  ~sessionToken,
+) => {
   let creds: AppSyncEventsSigner_Ops.creds = {accessKeyId, secretAccessKey, sessionToken}
   let mine = AppSyncEventsSigner_Ops.signedHeaders(~host, ~path, ~body, ~region, ~isoNow, ~creds)
-  let jsCreds: jsCreds = {accessKeyId, secretAccessKey, sessionToken: ?sessionToken}
+  let jsCreds: jsCreds = {accessKeyId, secretAccessKey, ?sessionToken}
   let ref = signedHeadersJs(~host, ~path, ~body, ~region, ~isoNow, ~creds=jsCreds)
   expect(mine->get("Authorization"))->toBe(ref->get("Authorization"))
   expect(mine->get("x-amz-date"))->toBe(ref->get("x-amz-date"))