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

package/src/util/Util_DynamoDb.res

@@ -4,7 +4,10 @@ open ReventlessInfra.Adapter
 
 let log = ReventlessCore.Logger.fromEnv()
 
-let toResourceInfo: table => Pulumi.Output.t<ReventlessInfra.Adapter.resourceInfo> = ({hashKey, rangeKey}) =>
+let toResourceInfo: table => Pulumi.Output.t<ReventlessInfra.Adapter.resourceInfo> = ({
+  hashKey,
+  rangeKey,
+}) =>
   (hashKey, rangeKey)
   ->Pulumi.Output.all2
   ->Pulumi.Output.apply(((hashKey, rangeKey)) => ReventlessInfra.Adapter.StorageKeys({
@@ -33,10 +36,9 @@ let toResource = (~tags=?, {id, name, arn} as table) =>
     ~service=name->Pulumi.Output.apply(_ => AWS.DynamoDb.service),
     ~resourceInfo=table->toResourceInfo,
     ~resourceType="aws:dynamodb:Table"->Pulumi.Output.make,
-    ~tags=?tags,
+    ~tags?,
   )
 
-
 let arn2tableName = arn =>
   switch arn->String.split(":") {
   | [_, _, _service, _region, _account, tableName] => tableName

package/src/util/Util_DynamoDbStream.res

@@ -1,5 +1,7 @@
 let toResourceInfo = (table: PulumiAws.DynamoDb.Table.t) =>
-  table.streamArn->Pulumi.Output.apply(streamArn => ReventlessInfra.Adapter.StreamSource({sourceUrn: streamArn}))
+  table.streamArn->Pulumi.Output.apply(streamArn => ReventlessInfra.Adapter.StreamSource({
+    sourceUrn: streamArn,
+  }))
 
 // The table name rides IN the apply rather than being read with `Output.get` on
 // the failure arm: `get` throws "Cannot call '.get' during update or preview" on
@@ -23,10 +25,12 @@ let toResource = (~tags=?, table: PulumiAws.DynamoDb.Table.t): ReventlessInfra.A
     ~service=table.name->Pulumi.Output.apply(_ => AWS.DynamoDbStream.service),
     ~resourceInfo=table->toResourceInfo,
     ~resourceType="aws:dynamodb:Table"->Pulumi.Output.make,
-    ~tags=?tags,
+    ~tags?,
   )
 
-let toStreamResource = (table: ReventlessInfra.Adapter.resource): ReventlessInfra.Adapter.resource => {
+let toStreamResource = (
+  table: ReventlessInfra.Adapter.resource,
+): ReventlessInfra.Adapter.resource => {
   let streamArn = table->streamArnFromDynamoDbTableResource
 
   ReventlessInfra.Adapter.make(

package/src/util/Util_DynamoDbStream_Runtime.res

@@ -37,8 +37,7 @@ let buildJsonEvent' = dict => {
     // Carry the stored `recorded_at` column into the envelope so StateViewSlice
     // projections receive it as `consumed.recordedAt` (the authoritative storage
     // time on the AWS path). Absent on non-event rows → empty string.
-    let recordedAt =
-      dict->Dict.get("recordedAt")->Option.getOr(""->JSON.Encode.string)
+    let recordedAt = dict->Dict.get("recordedAt")->Option.getOr(""->JSON.Encode.string)
     Some(
       [
         ("id", dict->Dict.get("id")->Option.getOrThrow),

package/src/util/Util_DynamoDb_Runtime.res

@@ -31,19 +31,16 @@ let putWithRetries = (table, id, item) => {
       ReventlessCore.EffectLogger.logError(
         ~comp=__MODULE__,
         `putWithRetries: id=${id}: ${msg}`,
-      )
-      ->Effect.map(_ => Error(`put id=${id} failed: ${msg}`))
-    | StaleState(msg) =>
-      Effect.succeed(Error(`Stale State: id=${id}: ${msg}`))
+      )->Effect.map(_ => Error(`put id=${id} failed: ${msg}`))
+    | StaleState(msg) => Effect.succeed(Error(`Stale State: id=${id}: ${msg}`))
     }
   )
 }
 
 let putIfNotExistsWithRetries = (~idKey, ~sortKey=?, table, id, item) => {
   let item = item->injectId(idKey, id)
-  Effect.tryPromise(
-    ~catch=DynamoDb_Error.classify,
-    () => putIfNotExists(table.name, idKey, sortKey, item),
+  Effect.tryPromise(~catch=DynamoDb_Error.classify, () =>
+    putIfNotExists(table.name, idKey, sortKey, item)
   )
   ->Effect.map(_ => Ok())
   ->Effect.retry(DynamoDb_Error.retrySchedule)
@@ -54,8 +51,7 @@ let putIfNotExistsWithRetries = (~idKey, ~sortKey=?, table, id, item) => {
       ReventlessCore.EffectLogger.logError(
         ~comp=__MODULE__,
         `putIfNotExistsWithRetries: id=${id}: ${msg}`,
-      )
-      ->Effect.map(_ => Error(`putIfNotExists id=${id} failed: ${msg}`))
+      )->Effect.map(_ => Error(`putIfNotExists id=${id} failed: ${msg}`))
     }
   )
 }
@@ -65,10 +61,7 @@ let delete = (table, ~sort=?, id) => {
 }
 
 let deleteWithRetries = (~sort=?, table, id) =>
-  Effect.tryPromise(
-    ~catch=DynamoDb_Error.classify,
-    () => table->delete(id, ~sort?),
-  )
+  Effect.tryPromise(~catch=DynamoDb_Error.classify, () => table->delete(id, ~sort?))
   ->Effect.map(_ => Ok())
   ->Effect.retry(DynamoDb_Error.retrySchedule)
   ->Effect.catchAll(err => {
@@ -76,24 +69,20 @@ let deleteWithRetries = (~sort=?, table, id) =>
     ReventlessCore.EffectLogger.logError(
       ~comp=__MODULE__,
       `delete: id=${id}: ${msg}`,
-    )
-    ->Effect.map(_ => Error(`delete id=${id} failed: ${msg}`))
+    )->Effect.map(_ => Error(`delete id=${id} failed: ${msg}`))
   })
 
 // Streams all items matching a QueryCommand, fetching one DynamoDB page at a time.
 // Each page fetch retries independently on transient errors.
 let queryStream = (params: QueryCommand.input): Stream.t<JSON.t, DynamoDb_Error.t, unit> =>
   Stream.paginateEffect((None: option<dict<JSON.t>>), cursor =>
-    Effect.tryPromise(
-      ~catch=DynamoDb_Error.classify,
-      () => {
-        let p = switch cursor {
-        | None => params
-        | Some(key) => {...params, exclusiveStartKey: key}
-        }
-        QueryCommand.send(p->QueryCommand.make)
-      },
-    )
+    Effect.tryPromise(~catch=DynamoDb_Error.classify, () => {
+      let p = switch cursor {
+      | None => params
+      | Some(key) => {...params, exclusiveStartKey: key}
+      }
+      QueryCommand.send(p->QueryCommand.make)
+    })
     ->Effect.retry(DynamoDb_Error.retrySchedule)
     ->Effect.map(res => (
       res.items->Option.getOr([]),
@@ -105,16 +94,13 @@ let queryStream = (params: QueryCommand.input): Stream.t<JSON.t, DynamoDb_Error.
 // Each page fetch retries independently on transient errors.
 let scanStream = (params: ScanCommand.input): Stream.t<JSON.t, DynamoDb_Error.t, unit> =>
   Stream.paginateEffect((None: option<dict<JSON.t>>), cursor =>
-    Effect.tryPromise(
-      ~catch=DynamoDb_Error.classify,
-      () => {
-        let p = switch cursor {
-        | None => params
-        | Some(key) => {...params, exclusiveStartKey: key}
-        }
-        ScanCommand.send(ScanCommand.make(p))
-      },
-    )
+    Effect.tryPromise(~catch=DynamoDb_Error.classify, () => {
+      let p = switch cursor {
+      | None => params
+      | Some(key) => {...params, exclusiveStartKey: key}
+      }
+      ScanCommand.send(ScanCommand.make(p))
+    })
     ->Effect.retry(DynamoDb_Error.retrySchedule)
     ->Effect.map(res => (
       res.items->Option.getOr([]),
@@ -180,10 +166,7 @@ let hasUnprocessedItems = writeOutput =>
 let batchWriteWithRetries = batchWriteRequests => {
   let all = batchWriteRequests->Dict.valuesToArray->Array.flat->Array.length->Int.toString
   let rec attempt = (retry, requests) =>
-    Effect.tryPromise(
-      ~catch=DynamoDb_Error.classify,
-      () => batchWrite(requests),
-    )
+    Effect.tryPromise(~catch=DynamoDb_Error.classify, () => batchWrite(requests))
     ->Effect.retry(DynamoDb_Error.retrySchedule)
     ->Effect.flatMap(writeOutput =>
       if writeOutput->hasUnprocessedItems {
@@ -192,8 +175,7 @@ let batchWriteWithRetries = batchWriteRequests => {
         ReventlessCore.EffectLogger.logInfo(
           ~comp=__MODULE__,
           `batchWriteWithRetries: retry ${retry->Int.toString}: ${count} unprocessed items`,
-        )
-        ->Effect.flatMap(_ => attempt(retry + 1, unprocessedRequests))
+        )->Effect.flatMap(_ => attempt(retry + 1, unprocessedRequests))
       } else {
         Effect.succeed(Ok())
       }

package/src/util/Util_HostUiDomain.res

@@ -13,7 +13,12 @@
 let defaultProdStacks = ["prod", "main"]
 
 /** Pure FQDN derivation. */
-let deriveFqdn = (~baseName: string, ~stack: string, ~baseDomain: string, ~prodStacks: array<string>): string =>
+let deriveFqdn = (
+  ~baseName: string,
+  ~stack: string,
+  ~baseDomain: string,
+  ~prodStacks: array<string>,
+): string =>
   prodStacks->Array.includes(stack)
     ? `${baseName}.${baseDomain}`
     : `${baseName}-${stack}.${baseDomain}`

package/src/util/Util_Kinesis_Runtime.res

@@ -1,20 +1,19 @@
 let putRecord = (stream, ~data) =>
-  Effect.tryPromise(
-    ~catch=Kinesis_Error.classify,
-    () =>
-      AwsSdk.Kinesis.PutRecordCommand.make({
-        data,
-        //FIXME: remove JST after merge of rescript-v11 upgrade
-        streamName: stream["name"]->Pulumi.Output.get,
-        partitionKey: "",
-      })->AwsSdk.Kinesis.PutRecordCommand.send,
+  Effect.tryPromise(~catch=Kinesis_Error.classify, () =>
+    AwsSdk.Kinesis.PutRecordCommand.make({
+      data,
+      //FIXME: remove JST after merge of rescript-v11 upgrade
+      streamName: stream["name"]->Pulumi.Output.get,
+      partitionKey: "",
+    })->AwsSdk.Kinesis.PutRecordCommand.send
   )
   ->Effect.map(_ => ())
   ->Effect.retry(Kinesis_Error.retrySchedule)
   ->Effect.catchAll(err => {
     let msg = Kinesis_Error.message(err)
-    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `putRecord: ${msg}`)
-    ->Effect.flatMap(_ => Effect.fail(msg))
+    ReventlessCore.EffectLogger.logError(~comp=__MODULE__, `putRecord: ${msg}`)->Effect.flatMap(_ =>
+      Effect.fail(msg)
+    )
   })
   ->Effect.runPromise
 /* TODO partitionKey */

package/src/util/Util_Lambda.res

@@ -3,16 +3,20 @@ type runtimeParts = {
   lambdaRole: PulumiAws.IAM.Role.t,
 }
 
-let findResource = resources => resources->ReventlessCore.Util.Adapter.findResource(AWS.Lambda.service)
+let findResource = resources =>
+  resources->ReventlessCore.Util.Adapter.findResource(AWS.Lambda.service)
 
-let toResource = (~tags=?, {id, name, arn}: PulumiAws.Lambda.Function.t): ReventlessInfra.Adapter.resource =>
+let toResource = (
+  ~tags=?,
+  {id, name, arn}: PulumiAws.Lambda.Function.t,
+): ReventlessInfra.Adapter.resource =>
   ReventlessInfra.Adapter.make(
     ~name,
     ~id,
     ~urn=arn,
     ~service=name->Pulumi.Output.apply(_ => AWS.Lambda.service),
     ~resourceType="aws:lambda:Function"->Pulumi.Output.make,
-    ~tags=?tags,
+    ~tags?,
   )
 
 let fromResource = ({id, name}: ReventlessInfra.Adapter.resource) => {
@@ -41,12 +45,15 @@ let fromOutput = (output: Pulumi.Output.t<PulumiAws.Lambda.Function.t>) => {
 let updateLanded = (lambda: Pulumi.Output.t<PulumiAws.Lambda.Function.t>): Pulumi.Output.t<unit> =>
   lambda->Pulumi.Output.flatMap(({lastModified}) => lastModified)->Pulumi.Output.apply(_ => ())
 
-let functionToResource = (~tags=?, {id, name, arn}: PulumiAws.Lambda.Function.t): ReventlessInfra.Adapter.resource =>
+let functionToResource = (
+  ~tags=?,
+  {id, name, arn}: PulumiAws.Lambda.Function.t,
+): ReventlessInfra.Adapter.resource =>
   ReventlessInfra.Adapter.make(
     ~name,
     ~id,
     ~urn=arn,
     ~service=name->Pulumi.Output.apply(_ => AWS.Lambda.service),
     ~resourceType="aws:lambda:Function"->Pulumi.Output.make,
-    ~tags=?tags,
+    ~tags?,
   )

package/src/util/Util_LambdaEnvBudget.res

@@ -59,16 +59,16 @@ let check = (
       `${outputValuedKeys->Array.length->Int.toString} queue-URL vars are resolved, over the ` ++
       `${limit->Int.toString}-byte limit. HANDLER_CONFIG is ${handlerConfigBytes->Int.toString} ` ++
       `bytes of it — move the term that grows with the plugin into a code-archive asset ` ++
-      `(Util_Bundle.buildCodeArchive ~extraStringAssets), as pluginDefinition.json and ` ++
-      `sliceModules.json already are.`,
+      `(Util_Bundle.buildCodeArchive ~extraStringAssets), as pluginDefinition.json and ` ++ `sliceModules.json already are.`,
     )
   } else if estimated > limit {
     log.warn(
       ~comp="Util_LambdaEnvBudget",
       `${lambdaName}: Lambda environment is about ${estimated->Int.toString} bytes ` ++
-      `(${exact->Int.toString} exact + ${outputValuedKeys->Array.length->Int.toString} queue-URL ` ++
-      `vars), at or over the ${limit->Int.toString}-byte limit. The deploy may fail on ` ++
-      `UpdateFunctionConfiguration; move a plugin-sized term out of HANDLER_CONFIG.`,
+      `(${exact->Int.toString} exact + ${outputValuedKeys
+        ->Array.length
+        ->Int.toString} queue-URL ` ++
+      `vars), at or over the ${limit->Int.toString}-byte limit. The deploy may fail on ` ++ `UpdateFunctionConfiguration; move a plugin-sized term out of HANDLER_CONFIG.`,
     )
   }
 }

package/src/util/Util_LambdaLogging.res

@@ -131,8 +131,7 @@ let makeManagedLogGroup = (
     Kept here, beside `logGroupNameFor`, so both naming shapes a Lambda's logs can
     take live in the one module that owns log-group naming and neither is
     reconstructed at a call site. */
-let autoCreatedLogGroupNameFor = (~physicalName: string): string =>
-  `/aws/lambda/${physicalName}`
+let autoCreatedLogGroupNameFor = (~physicalName: string): string => `/aws/lambda/${physicalName}`
 
 /** Where a function's logs actually land, for a caller that wants to point
     somebody at them (a monitoring backend stamping an address into an alert).

package/src/util/Util_LogGroup_Adopting.res

@@ -38,7 +38,6 @@
     run the **serialised** version, not current source. A fix here reaches a
     given resource only once that resource is next created or updated. Keep each
     step able to handle state written by earlier versions. */
-
 let log = ReventlessCore.Logger.fromEnv()
 
 // ── AWS SDK bindings (lazily imported — see AppSync_SourceApiAssociation_Retrying) ──
@@ -266,9 +265,7 @@ let create = async (inputs: providerInputs): createResultOut => {
   let {logGroupName, retentionInDays, tags} = inputs
 
   let adopted = try {
-    await runWithRetry(() =>
-      client->sendCreate(newCommand(sdk.createCtor, {logGroupName, tags}))
-    )
+    await runWithRetry(() => client->sendCreate(newCommand(sdk.createCtor, {logGroupName, tags})))
     false
   } catch {
   | exn if exn->JsExn.fromException->Option.mapOr(false, isAlreadyExistsError) => true

package/src/util/Util_ResourceNaming.res

@@ -5,8 +5,7 @@ let invalidNameChars = /[^.\-_a-zA-Z0-9]/g
 let validateName = String.replaceRegExp(_, invalidNameChars, "_")
 
 // Example ARN: arn:aws:sqs:eu-west-1:xxxxxx:MarketplaceServiceExtensionPointCommandTopic-0101023
-let urnName: string => string = arn =>
-  arn->String.split(":")->Array.get(5)->Option.getOr("unknown")
+let urnName: string => string = arn => arn->String.split(":")->Array.get(5)->Option.getOr("unknown")
 
 // Export as operations interface
 let operations: ReventlessInfra.ResourceNaming.operations = {

package/src/util/Util_SNS.res

@@ -7,14 +7,17 @@ let toResolvedTopicOutput = ({name, id, arn}: PulumiAws.SNS.Topic.t) =>
     arn,
   })
 
-let toResource = (~tags=?, {id, name, arn}: PulumiAws.SNS.Topic.t): ReventlessInfra.Adapter.resource =>
+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,
+    ~tags?,
   )
 
 let findResolvedResource = resources =>
@@ -23,7 +26,9 @@ let findResolvedResource = resources =>
 let log = ReventlessCore.Logger.fromEnv()
 
 let findTopicInResolvedResources = resources =>
-  switch resources->ReventlessCore.Util_Adapter.filterSupportedResolvedResources([AWS.SNS.service]) {
+  switch resources->ReventlessCore.Util_Adapter.filterSupportedResolvedResources([
+    AWS.SNS.service,
+  ]) {
   | [] =>
     let err = "Couldn't find SNS Topic in resources"
     log.error(~comp="SNS", err)

package/src/util/Util_SNS_FIFO.res

@@ -5,7 +5,7 @@ let toResource = (~tags=?, {PulumiAws.SNS.Topic.id: id, name, arn}) =>
     ~urn=arn,
     ~service=name->Pulumi.Output.apply(_ => AWS.SNS_FIFO.service),
     ~resourceType="aws:sns:Topic"->Pulumi.Output.make,
-    ~tags=?tags,
+    ~tags?,
   )
 
 let findTopicInResolvedResources = resources =>

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
 
 /**