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

package/src/capability/Capability_Geocoding_AwsLocation.res

@@ -25,7 +25,10 @@ let defaultIntendedUse = "SingleUse"
 
 /** Create a place index with framework attribution tags and config-driven
     provider/retention settings. */
-let make = (~name: string, ~opts: option<Pulumi.CustomResourceOptions.t>=?): ReventlessInfra.Platform.geocoderIndex => {
+let make = (
+  ~name: string,
+  ~opts: option<Pulumi.CustomResourceOptions.t>=?,
+): ReventlessInfra.Platform.geocoderIndex => {
   let dataSource = Util_LocalConfig.get("geocoderDataSource")->Option.getOr(defaultDataSource)
   let intendedUse = Util_LocalConfig.get("geocoderIntendedUse")->Option.getOr(defaultIntendedUse)
 

package/src/capability/Capability_Messaging.res

@@ -80,8 +80,7 @@ let parseEmailProvider = (raw: string): emailProvider =>
   | other =>
     JsError.throwWithMessage(
       `platform:${emailProviderKey} is "${other}", which is not an email provider.\n` ++
-      `  Known values: "ses" (default — a verified SES identity) and "log" ` ++
-      `(writes each message to the log, sends nothing).`,
+      `  Known values: "ses" (default — a verified SES identity) and "log" ` ++ `(writes each message to the log, sends nothing).`,
     )
   }
 
@@ -121,11 +120,11 @@ let make = (
   // Asked for SES and named no address. Nothing is provisioned, and the deploy
   // gate refuses this the moment a plugin declares it needs messaging — here
   // rather than there because this module has no view of what the plugins want.
-  | (Ses, None) => {emailProvider: providerInput, smsSender: ?smsSender}
+  | (Ses, None) => {emailProvider: providerInput, ?smsSender}
   | (Ses, Some(address)) => {
       emailSender: Capability_Messaging_Ses.emailSender(~name, ~address, ~displayName, ~opts?),
       emailProvider: providerInput,
-      smsSender: ?smsSender,
+      ?smsSender,
     }
   | (Log, address) => {
       emailSender: Pulumi.Input.make(
@@ -135,7 +134,7 @@ let make = (
         ),
       ),
       emailProvider: providerInput,
-      smsSender: ?smsSender,
+      ?smsSender,
     }
   }
 }

package/src/capability/Capability_Messaging_Ses.res

@@ -39,6 +39,8 @@ let emailSender = (
 ): Pulumi.Input.t<string> => {
   let identity = SES.EmailIdentity.make(~name, ~args={email: address}, ~opts?)
   identity.email
-  ->Pulumi.Output.apply(verified => Reventless.Messaging.fromHeader(~displayName, ~address=verified))
+  ->Pulumi.Output.apply(verified =>
+    Reventless.Messaging.fromHeader(~displayName, ~address=verified)
+  )
   ->Pulumi.Output.asInput
 }

package/src/capability/Capability_ObjectStore_S3.res

@@ -138,13 +138,7 @@ let make = (
       corsRules: corsRules->Pulumi.Input.make,
       forceDestroy: forceDestroy->Pulumi.Input.make,
       lifecycleRules: lifecycleRules->Pulumi.Input.make,
-      tags: AWS.Tags.make(
-        ~name,
-        ~kind,
-        ~role=Other("ObjectStore"),
-        ~scope,
-        ~plugin?,
-      ),
+      tags: AWS.Tags.make(~name, ~kind, ~role=Other("ObjectStore"), ~scope, ~plugin?),
     },
     ~opts,
   )

package/src/components/Api/AppSync_Adapter.res

@@ -45,13 +45,11 @@ let startSchemaCreation = (client: appSyncClient, input: startSchemaCreationInpu
 // jittered exponential backoff so a losing call can wait for the in-progress
 // schema to finish and try again. Permanent errors (e.g. invalid SDL) are not
 // retried — see AppSync_Error.classify.
-let startSchemaCreationRetrying = (
-  client: appSyncClient,
-  input: startSchemaCreationInput,
-): promise<unit> => {
-  Effect.tryPromise(
-    ~catch=AppSync_Error.classify,
-    () => startSchemaCreation(client, input)->Promise.then(_ => Promise.resolve()),
+let startSchemaCreationRetrying = (client: appSyncClient, input: startSchemaCreationInput): promise<
+  unit,
+> => {
+  Effect.tryPromise(~catch=AppSync_Error.classify, () =>
+    startSchemaCreation(client, input)->Promise.then(_ => Promise.resolve())
   )
   ->Effect.retry(AppSync_Error.retrySchedule)
   ->Effect.runPromise
@@ -67,13 +65,13 @@ external makeGetSchemaCreationStatusCommand: getSchemaCreationStatusInput => get
   "GetSchemaCreationStatusCommand"
 
 @send
-external sendGetStatus: (appSyncClient, getSchemaCreationStatusCommand) => promise<getSchemaCreationStatusResult> =
-  "send"
+external sendGetStatus: (
+  appSyncClient,
+  getSchemaCreationStatusCommand,
+) => promise<getSchemaCreationStatusResult> = "send"
 
 let rec waitForSchemaActive = async (client, apiId, ~maxAttempts=30, ~attempt=0) => {
-  let result = await client->sendGetStatus(
-    {apiId: apiId}->makeGetSchemaCreationStatusCommand,
-  )
+  let result = await client->sendGetStatus({apiId: apiId}->makeGetSchemaCreationStatusCommand)
   switch result.status {
   | "ACTIVE" | "SUCCESS" => ()
   | "FAILED" =>
@@ -211,9 +209,9 @@ let rec waitForMergeSuccess = async (
 // and a least-privilege deploy-role policy — see
 // `docs/guides/appsync-iam-system-caller.md`.
 
-let _permissionToCognitoGroups = (
-  permission: Reventless.Authorization.permission,
-): option<array<string>> =>
+let _permissionToCognitoGroups = (permission: Reventless.Authorization.permission): option<
+  array<string>,
+> =>
   switch permission {
   | AllowGroups([]) => Some(["__deny_all__"])
   | AllowGroups(groups) => Some(groups)
@@ -249,7 +247,7 @@ let _formatDualAuthDirective = AppSync_SdlDecorate.formatDualAuthDirective
 let _typeDeclName = (decl: string): option<string> =>
   if decl->String.startsWith("type ") {
     let rest = decl->String.slice(~start=5, ~end=decl->String.length)
-    let end = switch rest->String.search(%re("/[\s{]/")) {
+    let end = switch rest->String.search(/[\s{]/) {
     | -1 => rest->String.length
     | i => i
     }
@@ -308,9 +306,7 @@ let injectAwsAuth = (
     }
     switch entry.authorization {
     | Some({group}) =>
-      entry.fieldNames->Array.forEach(fieldName =>
-        mutationAuthMap->Dict.set(fieldName, [group])
-      )
+      entry.fieldNames->Array.forEach(fieldName => mutationAuthMap->Dict.set(fieldName, [group]))
     | None => ()
     }
     switch entry.fieldPermissions {
@@ -507,8 +503,7 @@ let _makeApiResourceWith = (
   let iamRole = IAM.Role.make(
     ~name=`${name}-appsync-role`,
     ~args={
-      assumeRolePolicy: `{"Version":"2012-10-17","Statement":[{"Effect":"Allow","Principal":{"Service":"appsync.amazonaws.com"},"Action":"sts:AssumeRole"}]}`
-        ->Pulumi.Input.make,
+      assumeRolePolicy: `{"Version":"2012-10-17","Statement":[{"Effect":"Allow","Principal":{"Service":"appsync.amazonaws.com"},"Action":"sts:AssumeRole"}]}`->Pulumi.Input.make,
       tags: AWS.Tags.make(
         ~name=`${name}-appsync-role`,
         ~kind=ReventlessCore.ComponentType.Platform,
@@ -562,15 +557,13 @@ let _makeApiResourceWith = (
   let userPoolConfigOut = switch userPoolConfig {
   | Some(config) => config
   | None =>
-    Auth_Cognito.make(~name=`${name}-auth`)->Pulumi.Output.apply((c: Auth_Cognito.authConfig) =>
-      (
-        {
-          userPoolId: c.userPoolId,
-          awsRegion: c.region,
-          defaultAction: AppSync.GraphQLApi.ALLOW,
-        }: AppSync.GraphQLApi.userPoolConfig
-      )
-    )
+    Auth_Cognito.make(
+      ~name=`${name}-auth`,
+    )->Pulumi.Output.apply((c: Auth_Cognito.authConfig): AppSync.GraphQLApi.userPoolConfig => {
+      userPoolId: c.userPoolId,
+      awsRegion: c.region,
+      defaultAction: AppSync.GraphQLApi.ALLOW,
+    })
   }
 
   // Cognito as primary auth, AWS_IAM as additional provider for
@@ -588,12 +581,7 @@ let _makeApiResourceWith = (
     ]->Pulumi.Input.make,
     schema: ?(schema->Option.map(Pulumi.Input.make)),
     logConfig: appsyncLogConfig->Pulumi.Input.make,
-    tags: AWS.Tags.make(
-      ~name,
-      ~kind=ReventlessCore.ComponentType.Plugin,
-      ~role=Api,
-      ~scope=Plugin,
-    ),
+    tags: AWS.Tags.make(~name, ~kind=ReventlessCore.ComponentType.Plugin, ~role=Api, ~scope=Plugin),
   }
   let graphQLApi = AppSync.GraphQLApi.make(~name, ~args=apiArgs, ~opts=Some(customOpts))
 
@@ -640,11 +628,10 @@ let _makeApiResourceWith = (
   (graphQLApi->Pulumi.Output.make, iamRole->Pulumi.Output.make)
 }
 
-let makeApiResource = (
-  ~name: string,
-  ~opts: Pulumi.ComponentResource.options,
-): (Pulumi.Output.t<api>, Pulumi.Output.t<role>) =>
-  _makeApiResourceWith(~name, ~schema=None, ~userPoolConfig=None, ~opts)
+let makeApiResource = (~name: string, ~opts: Pulumi.ComponentResource.options): (
+  Pulumi.Output.t<api>,
+  Pulumi.Output.t<role>,
+) => _makeApiResourceWith(~name, ~schema=None, ~userPoolConfig=None, ~opts)
 
 // Merged-mode source API: same auth shape as makeApiResource but with a
 // DECLARATIVE inline schema — the provider runs StartSchemaCreation + poll

package/src/components/Api/AppSync_SdlDecorate.res

@@ -44,9 +44,10 @@ let injectAwsSubscribe = (
             // leaves a trailing colon on the token — drop it (same rule as
             // GraphQL_Stitcher.rootTypeFieldNames).
             let name = ReventlessCore.GraphQL_Stitcher.extractLeadingName(line)
-            let name = name->String.endsWith(":")
-              ? name->String.slice(~start=0, ~end=name->String.length - 1)
-              : name
+            let name =
+              name->String.endsWith(":")
+                ? name->String.slice(~start=0, ~end=name->String.length - 1)
+                : name
             switch sourceByField->Dict.get(name) {
             | Some(mutations) =>
               let list = mutations->Array.map(m => `"${m}"`)->Array.join(", ")
@@ -126,17 +127,20 @@ let injectAwsAuthAll = (
     iamFieldNames->Array.includes(ReventlessCore.GraphQL_Stitcher.extractLeadingName(field))
   let cognitoOnly = formatCognitoGroupsDirective([group])
 
-  let augmentedMutations = parts.mutations->Array.map(field =>
-    isIam(field)
-      ? `${field}\n    ${formatDualAuthDirective(Some([group]))}`
-      : `${field}\n    ${cognitoOnly}`
-  )
-  let augmentedQueries = parts.queries->Array.map(field =>
-    isIam(field) ? `${field} ${formatDualAuthDirective(Some([group]))}` : `${field} ${cognitoOnly}`
-  )
-  let augmentedSubscriptions = parts.subscriptions->Array.map(field =>
-    `${field}\n    ${cognitoOnly}`
-  )
+  let augmentedMutations =
+    parts.mutations->Array.map(field =>
+      isIam(field)
+        ? `${field}\n    ${formatDualAuthDirective(Some([group]))}`
+        : `${field}\n    ${cognitoOnly}`
+    )
+  let augmentedQueries =
+    parts.queries->Array.map(field =>
+      isIam(field)
+        ? `${field} ${formatDualAuthDirective(Some([group]))}`
+        : `${field} ${cognitoOnly}`
+    )
+  let augmentedSubscriptions =
+    parts.subscriptions->Array.map(field => `${field}\n    ${cognitoOnly}`)
 
   ReventlessCore.GraphQL_Stitcher.encode({
     ...parts,
@@ -150,12 +154,7 @@ let injectAwsAuthAll = (
 // connections, injected by the stitcher) and the `CommandResult` members
 // (mutation returns). Stamped once on the ASSEMBLED SDL so an IAM system
 // caller (`@@reventless.systemCallable` fields) can traverse them.
-let sharedIamTypeNames = [
-  "PageInfo",
-  "CommandAccepted",
-  "CommandRejected",
-  "CommandPending",
-]
+let sharedIamTypeNames = ["PageInfo", "CommandAccepted", "CommandRejected", "CommandPending"]
 
 let stampSharedIamTypes = (sdl: string): string =>
   sharedIamTypeNames->Array.reduce(sdl, (acc, name) =>
@@ -260,7 +259,7 @@ let rootOperationTypes = ["Query", "Mutation", "Subscription"]
 let typeDeclNameOf = (line: string): option<string> =>
   if line->String.startsWith("type ") {
     let rest = line->String.slice(~start=5, ~end=line->String.length)
-    switch rest->String.search(%re("/[\s{]/")) {
+    switch rest->String.search(/[\s{]/) {
     | -1 => Some(rest)
     | i => Some(rest->String.slice(~start=0, ~end=i))
     }
@@ -271,7 +270,7 @@ let typeDeclNameOf = (line: string): option<string> =>
 // A root-operation field line: exactly two spaces of indent then a name. Deeper
 // indents are directive continuations of the field above.
 let fieldNameOf = (line: string): option<string> =>
-  switch line->String.match(%re("/^ {2}(\w+)/")) {
+  switch line->String.match(/^ {2}(\w+)/) {
   | Some(groups) => groups->Array.get(1)->Option.flatMap(x => x)
   | None => None
   }
@@ -388,7 +387,9 @@ let assertGateable = (sdl: string): string => {
   let problems = []
   if inertDirectives->Array.length > 0 {
     problems->Array.push(
-      `  ${inertDirectives->Array.length->Int.toString} field(s) carry @aws_auth, which AppSync IGNORES on a\n` ++
+      `  ${inertDirectives
+        ->Array.length
+        ->Int.toString} field(s) carry @aws_auth, which AppSync IGNORES on a\n` ++
       `  multi-auth API (this adapter always adds AWS_IAM as an additional provider).\n` ++
       `  They are gated by nothing. Emit @aws_cognito_user_pools(cognito_groups: [...])\n` ++
       `  instead — see AppSync_SdlDecorate.formatCognitoGroupsDirective.\n` ++
@@ -397,14 +398,18 @@ let assertGateable = (sdl: string): string => {
   }
   if bareFields->Array.length > 0 {
     problems->Array.push(
-      `  ${bareFields->Array.length->Int.toString} root field(s) carry no enforced auth directive, so they are\n` ++
+      `  ${bareFields
+        ->Array.length
+        ->Int.toString} root field(s) carry no enforced auth directive, so they are\n` ++
       `  reachable by ANY authenticated Cognito caller:\n` ++
       `    ${bareFields->Array.join(", ")}`,
     )
   }
   if bareTypes->Array.length > 0 {
     problems->Array.push(
-      `  ${bareTypes->Array.length->Int.toString} object type(s) carry no enforced auth directive:\n` ++
+      `  ${bareTypes
+        ->Array.length
+        ->Int.toString} object type(s) carry no enforced auth directive:\n` ++
       `    ${bareTypes->Array.join(", ")}`,
     )
   }
@@ -416,8 +421,7 @@ let assertGateable = (sdl: string): string => {
       `\n\nEvery field and type must carry @aws_cognito_user_pools (optionally with\n` ++
       `cognito_groups) and/or @aws_iam. The sweep in stampUndirectivedFields /\n` ++
       `stampAllTypesCognito should have covered this — a failure here means a schema\n` ++
-      `reached assembly by a path that bypasses them.\n` ++
-      `See docs/plans/appsync-group-authorization-unenforced.md.`,
+      `reached assembly by a path that bypasses them.\n` ++ `See docs/plans/appsync-group-authorization-unenforced.md.`,
     )
   }
   sdl
@@ -441,9 +445,13 @@ let stampCanonicalTypes = (sdl: string): string =>
   sdl
   ->String.split("\n")
   ->Array.map(line => {
-    let isObjectDef = canonicalTypeNames->Array.some(name => line->String.startsWith(`type ${name} `))
-    let isNodeDef = line->String.startsWith("interface Node ") || line->String.startsWith("interface Node{")
-    let isUnionDef = line->String.startsWith("union CommandResult ") || line->String.startsWith("union CommandResult=")
+    let isObjectDef =
+      canonicalTypeNames->Array.some(name => line->String.startsWith(`type ${name} `))
+    let isNodeDef =
+      line->String.startsWith("interface Node ") || line->String.startsWith("interface Node{")
+    let isUnionDef =
+      line->String.startsWith("union CommandResult ") ||
+        line->String.startsWith("union CommandResult=")
     if line->String.includes("@canonical") {
       line
     } else if isObjectDef || isNodeDef {

package/src/components/AutomationSlice_Builder.res

@@ -5,10 +5,12 @@ module EventCollectorChannel = EventCollectorChannel.DynamoDbStream
 module RuntimeEnvironment = RuntimeEnvironment.Lambda
 module EventCollectorRuntimeBuilder = AutomationSliceRuntime_Builder_Single
 
-module Make = (Api: {
-  let api: unit => Types.AppSync.api
-  let apiRole: unit => Types.AppSync.role
-}) => {
+module Make = (
+  Api: {
+    let api: unit => Types.AppSync.api
+    let apiRole: unit => Types.AppSync.role
+  },
+) => {
   module Inner = ReventlessCore.AutomationSlice_Builder.Make(
     RuntimeEnvironment,
     QueryDbStorage.DynamoDb,

package/src/components/ExtensionPoint_Builder.res

@@ -12,13 +12,12 @@ module Defaults: ReventlessInfra.RuntimeDefaults.T = {
 module Make = (
   Spec: ReventlessInfra.ExtensionPointMapping.Spec,
   Mappings: ReventlessInfra.ExtensionPoint.Mappings with module Spec := Spec,
-): ReventlessInfra.ExtensionPoint.T =>
-  ReventlessCore.ExtensionPoint_Builder.Make(
-    Spec,
-    Mappings,
-    RuntimeEnvironment,
-    CommandTopicChannel,
-    EventTopicPublisher.SNS,
-    ExtensionPointRuntimeBuilder,
-    Defaults,
-  )
+): ReventlessInfra.ExtensionPoint.T => ReventlessCore.ExtensionPoint_Builder.Make(
+  Spec,
+  Mappings,
+  RuntimeEnvironment,
+  CommandTopicChannel,
+  EventTopicPublisher.SNS,
+  ExtensionPointRuntimeBuilder,
+  Defaults,
+)

package/src/components/InboundTranslationSlice_Builder.res

@@ -1,10 +1,12 @@
 // InboundTranslationSlice_Builder (AWS)
 // Wires AWS adapters and delegates to the core ReventlessCore.InboundTranslationSlice_Builder.
 
-module Make = (Api: {
-  let api: unit => Types.AppSync.api
-  let apiRole: unit => Types.AppSync.role
-}) => {
+module Make = (
+  Api: {
+    let api: unit => Types.AppSync.api
+    let apiRole: unit => Types.AppSync.role
+  },
+) => {
   module Inner = ReventlessCore.InboundTranslationSlice_Builder.Make(
     QueryDbStorage.DynamoDb,
     QueryDbResolvers.AppSync,
@@ -39,10 +41,7 @@ module Make = (Api: {
         component->ReventlessCore.Component.outputs
       switch outputs.queryDb.resources->Array.get(0) {
       | Some(tableResource) =>
-        PluginRuntime_Builder.registerInboundAuditTableName(
-          ~specName=Spec.name,
-          tableResource.name,
-        )
+        PluginRuntime_Builder.registerInboundAuditTableName(~specName=Spec.name, tableResource.name)
       | None => ()
       }
       component

package/src/components/OutboundTranslationSlice_Builder.res

@@ -28,10 +28,12 @@ module DeployTimeCapabilities = {
   let capabilities = () => Reventless.Capabilities.none
 }
 
-module Make = (Api: {
-  let api: unit => Types.AppSync.api
-  let apiRole: unit => Types.AppSync.role
-}) => {
+module Make = (
+  Api: {
+    let api: unit => Types.AppSync.api
+    let apiRole: unit => Types.AppSync.role
+  },
+) => {
   module Inner = ReventlessCore.OutboundTranslationSlice_Builder.Make(
     RuntimeEnvironment,
     QueryDbStorage.DynamoDb,
@@ -53,7 +55,13 @@ module Make = (Api: {
     type component = InnerMake.component
     let queryDbName = InnerMake.queryDbName
 
-    let make = (~dcbEventLog, ~allEventTopics=Dict.make(), ~publishJsons, ~runtime=?, ~opts=?): component => {
+    let make = (
+      ~dcbEventLog,
+      ~allEventTopics=Dict.make(),
+      ~publishJsons,
+      ~runtime=?,
+      ~opts=?,
+    ): component => {
       let ots = InnerMake.make(~dcbEventLog, ~allEventTopics, ~publishJsons, ~runtime?, ~opts?)
 
       let queryDbOutputs = (ots->ReventlessCore.Component.outputs).queryDb
@@ -67,9 +75,7 @@ module Make = (Api: {
       // not carry.
       let declaredSources = Spec.sourceNames
       let sourceTopics =
-        allEventTopics->ReventlessCore.EventTopic.filter(
-          declaredSources->Belt.Set.String.fromArray,
-        )
+        allEventTopics->ReventlessCore.EventTopic.filter(declaredSources->Belt.Set.String.fromArray)
       let consumesDcbLog =
         declaredSources->Array.length == 0 ||
           declaredSources->Array.some(name => !(allEventTopics->Dict.has(name)))

package/src/components/OutboundTranslationSlice_Builder.res.mjs

@@ -92,4 +92,4 @@ export {
   DeployTimeCapabilities,
   Make,
 }
-/* Component-ReventlessCore Not a pure module */
+/* Capabilities-Reventless Not a pure module */

package/src/components/SideEffectHandler_Single.res

@@ -40,10 +40,10 @@ module Make = (): ReventlessCore.SideEffectHandler.T => {
     )
 
     // Derive npm specifiers from moduleUrl on each SideEffect module
-    let sideEffectModulePaths = sideEffects->Array.map(
-      (module(SE: Reventless.SideEffect.T)) =>
-        Util_Bundle.getModuleSpecifier(SE.moduleUrl),
-    )
+    let sideEffectModulePaths =
+      sideEffects->Array.map((module(SE: Reventless.SideEffect.T)) =>
+        Util_Bundle.getModuleSpecifier(SE.moduleUrl)
+      )
 
     EventCollectorRuntimeBuilder.registerSideEffectHandler(
       ~sideEffectHandlerName=name,

package/src/components/StateViewSlice_Builder.res

@@ -5,10 +5,12 @@ module EventCollectorChannel = EventCollectorChannel.DynamoDbStream
 module RuntimeEnvironment = RuntimeEnvironment.Lambda
 module EventCollectorRuntimeBuilder = StateViewSliceRuntime_Builder_Single
 
-module Make = (Api: {
-  let api: unit => Types.AppSync.api
-  let apiRole: unit => Types.AppSync.role
-}) => {
+module Make = (
+  Api: {
+    let api: unit => Types.AppSync.api
+    let apiRole: unit => Types.AppSync.role
+  },
+) => {
   module Inner = ReventlessCore.StateViewSlice_Builder.Make(
     RuntimeEnvironment,
     QueryDbStorage.Selectable,

package/src/components/StateViewSlice_Builder_Stream.res

@@ -9,10 +9,12 @@ module EventCollectorChannel = EventCollectorChannel.DynamoDbStream
 module RuntimeEnvironment = RuntimeEnvironment.Lambda
 module EventCollectorRuntimeBuilder = StateViewSliceRuntime_Builder_Single
 
-module Make = (Api: {
-  let api: unit => Types.AppSync.api
-  let apiRole: unit => Types.AppSync.role
-}) => {
+module Make = (
+  Api: {
+    let api: unit => Types.AppSync.api
+    let apiRole: unit => Types.AppSync.role
+  },
+) => {
   module Inner = ReventlessCore.StateViewSlice_Builder.Make(
     RuntimeEnvironment,
     QueryDbStorage.SelectableStream,

package/src/components/Task_Builder_PerBucket.res

@@ -17,14 +17,13 @@ module Defaults: ReventlessInfra.RuntimeDefaults.T = {
 
 module Make = (Spec: ReventlessCore.Task.Spec): (
   ReventlessCore.Task.T with module Spec = Spec
-) =>
-  ReventlessCore.Task_Builder.Make(
-    Spec,
-    RuntimeEnvironment,
-    EventCollectorChannel,
-    EventCollectorRuntimeBuilder,
-    TaskRuntimeBuilder,
-    TaskBucket,
-    SideEffectHandler,
-    Defaults,
-  )
+) => ReventlessCore.Task_Builder.Make(
+  Spec,
+  RuntimeEnvironment,
+  EventCollectorChannel,
+  EventCollectorRuntimeBuilder,
+  TaskRuntimeBuilder,
+  TaskBucket,
+  SideEffectHandler,
+  Defaults,
+)

package/src/plugin/cloner/ClonerRunner_Fargate.res

@@ -243,14 +243,8 @@ export const handler = async (event) => {
               Lambda.Function.variables: Dict.fromArray([
                 ("TASK_DEFINITION_ARN", taskDefinition.arn->Pulumi.Output.asInput),
                 ("CLUSTER_ARN", cluster.arn->Pulumi.Output.asInput),
-                (
-                  "STACK_ORG",
-                  fullQualifiedStackName.organization->Pulumi.Input.make,
-                ),
-                (
-                  "STACK_PROJECT",
-                  fullQualifiedStackName.project->Pulumi.Input.make,
-                ),
+                ("STACK_ORG", fullQualifiedStackName.organization->Pulumi.Input.make),
+                ("STACK_PROJECT", fullQualifiedStackName.project->Pulumi.Input.make),
                 ("STACK_STACK", fullQualifiedStackName.stack->Pulumi.Input.make),
                 (
                   "SUBNETS",
@@ -361,8 +355,7 @@ export const handler = async (event) => {
         ~opts,
       )
 
-      let invokeCloneCode =
-        `import { util } from '@aws-appsync/utils';
+      let invokeCloneCode = `import { util } from '@aws-appsync/utils';
 export function request(ctx) {
   return {
     operation: 'Invoke',

package/src/plugin/cloner/ClonerRunner_Fargate_Runtime.res

@@ -14,10 +14,7 @@ let clone = async (~taskDefinition, ~cluster, ~fullQualifiedStackName, ~subnets,
 
   log.info(
     ~comp="ClonerRunner",
-    "clone: requested by user " ++
-    payload["meta"]["user"] ++
-    " from ip " ++
-    payload["meta"]["ip"],
+    "clone: requested by user " ++ payload["meta"]["user"] ++ " from ip " ++ payload["meta"]["ip"],
   )
 
   let _ = await {

package/src/plugin/heartbeat/HeartbeatRunner_CloudWatchEvents.res

@@ -57,10 +57,7 @@ let make: ReventlessCore.Heartbeat_Adapter.runnerMaker<runtimeParts> = (
       ~args={
         policy: PulumiAws.PolicyDocument.mergePolicyDocuments(
           name ++ "Policy",
-          [
-            PulumiAws.Lambda.defaultLoggingPolicyDocument,
-            heartbeatLambdaSendMessagePolicyDocument,
-          ],
+          [PulumiAws.Lambda.defaultLoggingPolicyDocument, heartbeatLambdaSendMessagePolicyDocument],
         )->Pulumi.Output.asInput,
         role: lambdaRole.id->Pulumi.Output.asInput,
       },
@@ -70,7 +67,10 @@ let make: ReventlessCore.Heartbeat_Adapter.runnerMaker<runtimeParts> = (
   // The Lambda permission and CloudWatch event target genuinely need the
   // Lambda's resolved arn/name, so they stay inside an apply.
   let _permissionAndEventTarget =
-    (lambda->Pulumi.Output.flatMap(lambda => lambda.arn), lambda->Pulumi.Output.flatMap(lambda => lambda.name))
+    (
+      lambda->Pulumi.Output.flatMap(lambda => lambda.arn),
+      lambda->Pulumi.Output.flatMap(lambda => lambda.name),
+    )
     ->Pulumi.Output.all2
     ->Pulumi.Output.apply(((lambdaArn, lambdaName)) => {
       let _addHeartbeatLambdaPermission = PulumiAws.Lambda.Permission.make(