@reventlessdev/reventless-aws 3.0.0-alpha.396 → 3.0.0-alpha.398

package/src/Platform.res.mjs

@@ -334,8 +334,7 @@ function MakeWithConfig(Config) {
     };
     domainEventsApiOpt = {
       name: "DomainEventsApi",
-      api: api$2,
-      defaultNamespace: undefined
+      api: api$2
     };
   } else {
     let cognitoPool = Platform_Stack$ReventlessAws.resolveCognitoUserPool();
@@ -1505,6 +1504,8 @@ function MakeWithConfig(Config) {
                 return `\n  Messaging is \`Capability_Messaging.make\`, passed to the platform as \`~messagingSender\`. The sender itself is configuration and has no default: set \`platform:messagingEmailSender\` in Pulumi.<stack>.yaml (or REVENTLESS_MESSAGING_EMAIL_SENDER), then verify the address with SES — or \`platform:messagingEmailProvider: log\` to log every message and send none.`;
               case "IdentityProvider" :
                 return `\n  IdentityProvider is the platform's Cognito pool, exported as \`identityProviderId\`. This platform stack exports none — deploy it first.`;
+              case "Stash" :
+                return `\n  Stash has no deployed backend yet; the local platform keeps one in memory. Host a plugin that needs it on the local platform.`;
             }
           }))).join(""));
         }
@@ -1768,8 +1769,7 @@ function Make($star) {
     };
     domainEventsApiOpt = {
       name: "DomainEventsApi",
-      api: api$2,
-      defaultNamespace: undefined
+      api: api$2
     };
   } else {
     let cognitoPool = Platform_Stack$ReventlessAws.resolveCognitoUserPool();
@@ -2914,6 +2914,8 @@ function Make($star) {
                 return `\n  Messaging is \`Capability_Messaging.make\`, passed to the platform as \`~messagingSender\`. The sender itself is configuration and has no default: set \`platform:messagingEmailSender\` in Pulumi.<stack>.yaml (or REVENTLESS_MESSAGING_EMAIL_SENDER), then verify the address with SES — or \`platform:messagingEmailProvider: log\` to log every message and send none.`;
               case "IdentityProvider" :
                 return `\n  IdentityProvider is the platform's Cognito pool, exported as \`identityProviderId\`. This platform stack exports none — deploy it first.`;
+              case "Stash" :
+                return `\n  Stash has no deployed backend yet; the local platform keeps one in memory. Host a plugin that needs it on the local platform.`;
             }
           }))).join(""));
         }

package/src/Platform_ProvidedGroups.res

@@ -8,7 +8,7 @@ read outside any `Output.apply`.
 
 module Cognito = AwsSdk.CognitoIdentityServiceProvider
 
-type pool = {id: string, region: option<string>}
+type pool = {id: string, region?: string}
 
 type send = Cognito.ListGroupsCommand.input => promise<Cognito.ListGroupsCommand.output>
 
@@ -39,7 +39,7 @@ let poolFromExports = (~get: string => option<JSON.t>): option<pool> => {
   ->Option.orElse(read("cognitoUserPoolId"))
   ->Option.map(id => {
     id,
-    region: read("identityProviderRegion")->Option.orElse(read("cognitoRegion")),
+    region: ?(read("identityProviderRegion")->Option.orElse(read("cognitoRegion"))),
   })
 }
 
@@ -72,7 +72,7 @@ let resolvePool = async (~stackRef: option<Pulumi.StackReference.t>): option<poo
       ~cfg=Pulumi.Config.make(Some("platform")),
     )->Option.map(id => {
       id,
-      region: Pulumi.Config.make(Some("aws"))->Pulumi.Config.get("region"),
+      region: ?(Pulumi.Config.make(Some("aws"))->Pulumi.Config.get("region")),
     })
   }
 
@@ -86,7 +86,7 @@ let sendTo = (~region: option<string>): send => {
 let load = async (~stackRef: option<Pulumi.StackReference.t>): unit =>
   switch await resolvePool(~stackRef) {
   | None => ()
-  | Some({id, region}) =>
+  | Some({id, ?region}) =>
     let groups = try await listAll(~send=sendTo(~region), ~userPoolId=id) catch {
     | exn if exn->Util_AwsError.hasCode(~code="AccessDeniedException") =>
       JsError.throwWithMessage(

package/src/Platform_Stack.res

@@ -18,7 +18,7 @@ type cognitoUserPool = {
   /** The sign-in attribute this stack created the pool with. `None` in BYO mode:
     the pool's own choice was made elsewhere and no lookup here reads it back,
     so reporting one would be a guess. */
-  loginIdentifier: option<Auth_LoginIdentifier.t>,
+  loginIdentifier?: Auth_LoginIdentifier.t,
 }
 
 /**
@@ -250,7 +250,6 @@ let _resolveUncached = (): cognitoUserPool => {
       managed: false,
       activeRoleTable,
       identityTable,
-      loginIdentifier: None,
     }
 
   | None =>
@@ -346,7 +345,7 @@ let _resolveUncached = (): cognitoUserPool => {
       managed: true,
       activeRoleTable,
       identityTable,
-      loginIdentifier: Some(loginIdentifier),
+      loginIdentifier,
     }
   }
 

package/src/Platform_Stack.res.mjs

@@ -107,8 +107,7 @@ function _resolveUncached() {
       poolArn: lookup.apply(r => r.arn),
       managed: false,
       activeRoleTable: activeRoleTable,
-      identityTable: identityTable,
-      loginIdentifier: undefined
+      identityTable: identityTable
     };
   } else {
     let loginIdentifier = _loginIdentifier(cfg);

package/src/adapter/Api/AppSyncEventsSigner_Ops.res

@@ -23,13 +23,13 @@ let hmacFromBuf = (key: NodeCrypto.buffer, data: string): NodeCrypto.buffer =>
 
 // ── SigV4 ───────────────────────────────────────────────────────────────────
 
-type creds = {accessKeyId: string, secretAccessKey: string, sessionToken: option<string>}
+type creds = {accessKeyId: string, secretAccessKey: string, sessionToken?: string}
 
 // Ambient Lambda execution-role credentials (the managed runtime injects these).
 let envCreds = (): creds => {
   accessKeyId: NodeProcess.env->Dict.get("AWS_ACCESS_KEY_ID")->Option.getOr(""),
   secretAccessKey: NodeProcess.env->Dict.get("AWS_SECRET_ACCESS_KEY")->Option.getOr(""),
-  sessionToken: NodeProcess.env->Dict.get("AWS_SESSION_TOKEN"),
+  sessionToken: ?(NodeProcess.env->Dict.get("AWS_SESSION_TOKEN")),
 }
 
 let region = (): string => NodeProcess.env->Dict.get("AWS_REGION")->Option.getOr("eu-west-1")

package/src/adapter/Api/AppSync_EventsApi.res

@@ -80,7 +80,7 @@ type t = {
   /** Full AppSync Events API output — carry this through the stack. */
   api: Api.t,
   /** The `default` channel namespace created on the API. */
-  defaultNamespace: option<ChannelNamespace.t>,
+  defaultNamespace?: ChannelNamespace.t,
   /** The client-publishable `client` namespace. Absent on plugin-stack
       phantoms (namespaces live on the platform stack's API). */
   clientNamespace?: ChannelNamespace.t,
@@ -202,7 +202,7 @@ let make = (
     ~opts=Some({...opts, parent: api->Pulumi.Resource.makeFromJs}),
   )
 
-  {name, api, defaultNamespace: Some(defaultNamespace), clientNamespace}
+  {name, api, defaultNamespace, clientNamespace}
 }
 
 /** HTTP endpoint URL for use as Lambda `APPSYNC_ENDPOINT` env var.

package/src/adapter/Api/Platform_ComponentDefinitions_Lambda_Ops.res

@@ -334,9 +334,9 @@ let bakeSelection = (json: JSON.t): option<ReventlessCore.Platform_BakedManifest
     ->Option.flatMap(JSON.Decode.string)
     ->Option.map(plugin => {
       ReventlessCore.Platform_BakedManifest.plugin,
-      views: strings(o, "views"),
-      commands: strings(o, "commands"),
-      derived: strings(o, "derived"),
+      views: ?strings(o, "views"),
+      commands: ?strings(o, "commands"),
+      derived: ?strings(o, "derived"),
     })
   )
 }
@@ -502,8 +502,8 @@ type registrationState =
 type registration = {
   plugin: string,
   expected: string,
-  found: option<string>,
-  writtenAt: option<string>,
+  found?: string,
+  writtenAt?: string,
   state: registrationState,
 }
 
@@ -550,7 +550,7 @@ let registrations = (
     let row = current->Dict.get(plugin)
     let found = row->Option.map(((key, _)) => key)
     let writtenAt = row->Option.flatMap(((_, at)) => at)
-    {plugin, expected, found, writtenAt, state: classify(~expected, ~found, ~writtenAt, ~since)}
+    {plugin, expected, ?found, ?writtenAt, state: classify(~expected, ~found, ~writtenAt, ~since)}
   })
 }
 

package/src/adapter/Auth/Auth_ActiveRoleTrigger.res

@@ -64,7 +64,7 @@ let make = (
             ~id=name ++ "Policy",
             ~statements=[
               {
-                sid: "AllowLambdaLogging",
+                PolicyDocument.sid: "AllowLambdaLogging",
                 effect: Allow,
                 actions: Actions([
                   "logs:CreateLogGroup",
@@ -79,13 +79,20 @@ let make = (
                 actions: Action("dynamodb:GetItem"),
                 resources: Resource(tableArn),
               },
-              {
-                sid: "AllowReadingDomainId",
-                effect: Allow,
-                actions: Action("dynamodb:GetItem"),
-                resources: Resource(identityArn),
-              },
-            ],
+            ]->Array.concat(
+              // A supplied pool with no identity store yet: nothing to read, and
+              // an empty resource would make the policy invalid.
+              identityArn == ""
+                ? []
+                : [
+                    {
+                      sid: "AllowReadingDomainId",
+                      effect: Allow,
+                      actions: Action("dynamodb:GetItem"),
+                      resources: Resource(identityArn),
+                    },
+                  ],
+            ),
           )
           ->PolicyDocument.toJsonString
           ->Pulumi.Input.make,

package/src/adapter/Auth/Auth_ActiveRoleTrigger.res.mjs

@@ -19,6 +19,7 @@ function make(activeRoleTableName, activeRoleTableArn, identityTableName, identi
     activeRoleTableArn,
     identityTableArn
   ]).apply(param => {
+    let identityArn = param[1];
     new (Aws.iam.RolePolicy)(name + "Policy", {
       policy: PolicyDocument$PulumiAws.toJsonString(PolicyDocument$PulumiAws.make(undefined, name + "Policy", [
         {
@@ -36,14 +37,13 @@ function make(activeRoleTableName, activeRoleTableArn, identityTableName, identi
           Effect: "Allow",
           Action: "dynamodb:GetItem",
           Resource: param[0]
-        },
-        {
-          Sid: "AllowReadingDomainId",
-          Effect: "Allow",
-          Action: "dynamodb:GetItem",
-          Resource: param[1]
         }
-      ])),
+      ].concat(identityArn === "" ? [] : [{
+            Sid: "AllowReadingDomainId",
+            Effect: "Allow",
+            Action: "dynamodb:GetItem",
+            Resource: identityArn
+          }]))),
       role: lambdaRole.id
     }, opts$1);
   });

package/src/adapter/Auth/Auth_IdentityStore.res

@@ -41,12 +41,51 @@ let makeTable = (
   {name: table.name, arn: table.arn}
 }
 
-/** The store a resolved provider calls for — created or looked up. */
+let log = ReventlessCore.Logger.fromEnv()
+
+/**
+The [ProviderScoped] table if `provision-identity` has created it, else an empty
+name and ARN.
+
+🚨 **Absent is a supported state, not a failed lookup** — unlike the active-role
+store, which a supplied pool has always had. A pool provisioned before this store
+existed has no table, and its deployments must keep deploying: the trigger then
+adds no claim and every account keeps its `sub`, which is exactly what each one
+did before. Running `provision-identity` again creates the table, and the next
+deploy picks it up. A Pulumi `getTable` fails the whole program on a missing
+table, so this asks DynamoDB directly.
+*/
+let lookupTableIfPresent = (~tableName: string): storeTable => {
+  let arn = Pulumi.Output.make(tableName)->Pulumi.Output.flatMap(name =>
+    (
+      async () =>
+        try {
+          let out = await AwsSdk.DynamoDb_DynamoDb.DescribeTableCommand.make({
+            tableName: name,
+          })->AwsSdk.DynamoDb_DynamoDb.DescribeTableCommand.send
+          out.table->Option.flatMap(t => t.tableArn)->Option.getOr("")
+        } catch {
+        | exn if Util_AwsError.isNotFound(exn) =>
+          log.warn(
+            ~comp="IdentityStore",
+            `no identity store "${name}" on this provider — accounts keep their pool id. Run provision-identity to create it.`,
+          )
+          ""
+        }
+    )()->Pulumi.Output.fromPromise
+  )
+  {
+    name: arn->Pulumi.Output.apply(found => found == "" ? "" : tableName),
+    arn,
+  }
+}
+
+/** The store a resolved provider calls for — created, or looked up if present. */
 let resolveTable = (
   ~choice: Auth_ActiveRoleStore.storeChoice,
   ~opts: Pulumi.ComponentResource.options,
 ): storeTable =>
   switch choice {
   | StackScoped => makeTable(~opts)
-  | ProviderScoped(tableName) => Auth_ActiveRoleStore.lookupTable(~tableName)
+  | ProviderScoped(tableName) => lookupTableIfPresent(~tableName)
   }

package/src/adapter/Auth/Auth_IdentityStore.res.mjs

@@ -1,9 +1,16 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Output$Pulumi from "@reventlessdev/rescript-pulumi-pulumi/src/Output.res.mjs";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Pulumi from "@pulumi/pulumi";
+import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
+import * as Logger$ReventlessCore from "@reventlessdev/reventless-core/src/util/Logger.res.mjs";
 import * as AWS_Tags$ReventlessAws from "../AWS_Tags.res.mjs";
+import * as ClientDynamodb from "@aws-sdk/client-dynamodb";
+import * as DynamoDb_DynamoDb$AwsSdk from "@reventlessdev/rescript-aws-sdk/src/DynamoDb_DynamoDb.res.mjs";
 import * as Util_Pulumi$ReventlessCore from "@reventlessdev/reventless-core/src/util/Util_Pulumi.res.mjs";
+import * as Util_AwsError$ReventlessAws from "../../util/Util_AwsError.res.mjs";
 import * as Util_DynamoDb$ReventlessAws from "../../util/Util_DynamoDb.res.mjs";
-import * as Auth_ActiveRoleStore$ReventlessAws from "./Auth_ActiveRoleStore.res.mjs";
 import * as Auth_IdentityStore_Schema$ReventlessAws from "./Auth_IdentityStore_Schema.res.mjs";
 
 function chooseStore(identityProviderId) {
@@ -30,17 +37,49 @@ function makeTable(nameOpt, opts) {
   };
 }
 
+let log = Logger$ReventlessCore.fromEnv();
+
+function lookupTableIfPresent(tableName) {
+  let arn = Output$Pulumi.flatMap(Pulumi.output(tableName), name => (async () => {
+    try {
+      let out = await DynamoDb_DynamoDb$AwsSdk.DescribeTableCommand.send(new ClientDynamodb.DescribeTableCommand({
+        TableName: name
+      }));
+      return Stdlib_Option.getOr(Stdlib_Option.flatMap(out.Table, t => t.TableArn), "");
+    } catch (raw_exn) {
+      let exn = Primitive_exceptions.internalToException(raw_exn);
+      if (Util_AwsError$ReventlessAws.isNotFound(exn)) {
+        log.warn("IdentityStore", undefined, `no identity store "` + name + `" on this provider — accounts keep their pool id. Run provision-identity to create it.`);
+        return "";
+      }
+      throw exn;
+    }
+  })());
+  return {
+    name: arn.apply(found => {
+      if (found === "") {
+        return "";
+      } else {
+        return tableName;
+      }
+    }),
+    arn: arn
+  };
+}
+
 function resolveTable(choice, opts) {
   if (typeof choice !== "object") {
     return makeTable(undefined, opts);
   } else {
-    return Auth_ActiveRoleStore$ReventlessAws.lookupTable(choice._0);
+    return lookupTableIfPresent(choice._0);
   }
 }
 
 export {
   chooseStore,
   makeTable,
+  log,
+  lookupTableIfPresent,
   resolveTable,
 }
-/* AWS_Tags-ReventlessAws Not a pure module */
+/* log Not a pure module */

package/src/adapter/DcbEventLog/DcbBackend.res

@@ -53,8 +53,8 @@ let isPostgres = (): bool => selectionRef.contents->Option.isSome
 type relayLogEntry = {
   logName: string,
   partitionTag: Reventless.DcbTag.derivedPartitionTag,
-  mutable collectorQueueUrl: option<Pulumi.Output.t<string>>,
-  mutable collectorQueueArn: option<Pulumi.Output.t<string>>,
+  mutable collectorQueueUrl?: Pulumi.Output.t<string>,
+  mutable collectorQueueArn?: Pulumi.Output.t<string>,
 }
 
 let relayLogs: array<relayLogEntry> = []
@@ -62,7 +62,7 @@ let relayLogs: array<relayLogEntry> = []
 /** Step 1: record a Postgres DCB log and its partition tag (from the storage maker). */
 let registerRelayLog = (~logName: string, ~partitionTag: Reventless.DcbTag.derivedPartitionTag) =>
   relayLogs
-  ->Array.push({logName, partitionTag, collectorQueueUrl: None, collectorQueueArn: None})
+  ->Array.push({logName, partitionTag})
   ->ignore
 
 /** Step 2: attach a plugin's EventCollector SQS queue to its DCB log's relay entry. */

package/src/adapter/DcbEventLog/DcbBackend.res.mjs

@@ -23,9 +23,7 @@ let relayLogs = [];
 function registerRelayLog(logName, partitionTag) {
   relayLogs.push({
     logName: logName,
-    partitionTag: partitionTag,
-    collectorQueueUrl: undefined,
-    collectorQueueArn: undefined
+    partitionTag: partitionTag
   });
 }
 

package/src/adapter/DcbEventLog/DcbEventLogStorage_DynamoDb_Runtime.res

@@ -265,9 +265,9 @@ let queryByCompositeTags = async (
 
 // Filter clause shared by both scan paths.
 type scanFilter = {
-  filterExpression: option<string>,
-  expressionAttributeNames: option<Dict.t<string>>,
-  expressionAttributeValues: option<Dict.t<JSON.t>>,
+  filterExpression?: string,
+  expressionAttributeNames?: Dict.t<string>,
+  expressionAttributeValues?: Dict.t<JSON.t>,
 }
 
 // Builds the scan FilterExpression. Always asserts `attribute_exists(event)` so
@@ -294,9 +294,9 @@ let buildScanFilter = (~eventTypes: option<array<string>>=?): scanFilter => {
 
   let hasAttributeValues = expressionAttributeValues->Dict.keysToArray->Array.length > 0
   {
-    filterExpression: Some(filterParts->Array.join(" AND ")),
-    expressionAttributeNames: Some(expressionAttributeNames),
-    expressionAttributeValues: hasAttributeValues ? Some(expressionAttributeValues) : None,
+    filterExpression: filterParts->Array.join(" AND "),
+    expressionAttributeNames,
+    expressionAttributeValues: ?(hasAttributeValues ? Some(expressionAttributeValues) : None),
   }
 }
 
@@ -523,7 +523,7 @@ let deduplicateByPosition = (
 
 type mergeSlot = {
   queue: Queue.t<option<ReventlessCore.DcbEventLog_Adapter.rawSequencedEvent>>,
-  head: option<ReventlessCore.DcbEventLog_Adapter.rawSequencedEvent>,
+  head?: ReventlessCore.DcbEventLog_Adapter.rawSequencedEvent,
 }
 
 // Wraps a sub-stream in a Queue(1) producer fiber and pulls the first element.
@@ -539,7 +539,9 @@ let initSlot = (
       // unhandled-fiber-failure warning).
       ->Effect.ensuring(Queue.offer(queue, None)->Effect.map(_ => ()))
       ->Effect.catchAll(_ => Effect.succeed())
-    Effect.fork(producer)->Effect.flatMap(_ => Queue.take(queue)->Effect.map(head => {queue, head}))
+    Effect.fork(producer)->Effect.flatMap(_ =>
+      Queue.take(queue)->Effect.map(head => {queue, ?head})
+    )
   })
 
 // Returns the index of the slot with the smallest position, or None if all exhausted.
@@ -596,7 +598,7 @@ let mergeSortedEvents = (
             let newSlots = slots->Array.mapWithIndex(
               (s, i) =>
                 if i == idx {
-                  {...s, head: nextHead}
+                  {...s, head: ?nextHead}
                 } else {
                   s
                 },

package/src/adapter/DcbEventLog/DcbEventLogStorage_DynamoDb_Runtime.res.mjs

@@ -468,14 +468,12 @@ function mergeSortedEvents(streams) {
     let emitEvent = Stdlib_Option.getOrThrow(slot.head, undefined);
     return Effect$1.map(Queue.take(slot.queue), nextHead => {
       let newSlots = slots.map((s, i) => {
-        if (i === idx) {
-          return {
-            queue: s.queue,
-            head: nextHead
-          };
-        } else {
+        if (i !== idx) {
           return s;
         }
+        let newrecord = {...s};
+        newrecord.head = nextHead;
+        return newrecord;
       });
       let hasActive = newSlots.some(s => Stdlib_Option.isSome(s.head));
       return [

package/src/adapter/EventLog/EventLogBackend.res

@@ -53,8 +53,8 @@ let isPostgres = (): bool => selectionRef.contents->Option.isSome
 type relayLogEntry = {
   logName: string,
   aggregateName: string,
-  mutable collectorQueueUrl: option<Pulumi.Output.t<string>>,
-  mutable collectorQueueArn: option<Pulumi.Output.t<string>>,
+  mutable collectorQueueUrl?: Pulumi.Output.t<string>,
+  mutable collectorQueueArn?: Pulumi.Output.t<string>,
 }
 
 let relayLogs: array<relayLogEntry> = []
@@ -62,7 +62,7 @@ let relayLogs: array<relayLogEntry> = []
 /** Step 1: record a Postgres classic log (from the storage maker). */
 let registerRelayLog = (~logName: string, ~aggregateName: string) =>
   relayLogs
-  ->Array.push({logName, aggregateName, collectorQueueUrl: None, collectorQueueArn: None})
+  ->Array.push({logName, aggregateName})
   ->ignore
 
 /** Step 2: attach a plugin's EventCollector SQS queue to one aggregate's relay entry. */

package/src/adapter/EventLog/EventLogBackend.res.mjs

@@ -23,9 +23,7 @@ let relayLogs = [];
 function registerRelayLog(logName, aggregateName) {
   relayLogs.push({
     logName: logName,
-    aggregateName: aggregateName,
-    collectorQueueUrl: undefined,
-    collectorQueueArn: undefined
+    aggregateName: aggregateName
   });
 }
 

package/src/adapter/Geocoder/Geocoder_AwsLocation_Backend.res

@@ -57,7 +57,7 @@ let search = async (~indexName: string, ~text: string, ~maxResults: int=5): resu
                 Some({
                   Reventless.Geocoding.label: place.label->Option.getOr(""),
                   point,
-                  relevance: r.relevance,
+                  relevance: ?r.relevance,
                 })
               // A coordinate that fails the range check is dropped rather than
               // propagated: it cannot be stored, and one bad row should not lose

package/src/adapter/QueryDb/PgQueryResolver_Lambda.res

@@ -89,7 +89,7 @@ type binding = {
   ops: ReventlessCore.QueryDb_Adapter.operations,
   pushdowns: pushdowns,
   indexes: array<Reventless.ReadModel.indexConfig>,
-  subIdField: option<string>,
+  subIdField?: string,
   capability: ReventlessCore.GraphQL_FragmentGenerator.serverCapability,
   labelField: string,
   includeIdParam: bool,
@@ -97,9 +97,9 @@ type binding = {
   /** The state's `@owner` field, when it declares one. Derived at Lambda init
       from the same schema `capability` comes from, so the two cannot disagree
       about which fields this read model has. */
-  ownerField: option<string>,
-  retiredField: option<string>,
-  retiredValues: option<array<string>>,
+  ownerField?: string,
+  retiredField?: string,
+  retiredValues?: array<string>,
   /** Whether a reference to a retired row of this read model still resolves its
       name — the `@namedWhenRetired` opt-in. Read only by the reference door;
       every other door narrows as it always did. */
@@ -107,7 +107,7 @@ type binding = {
   /** The field a reference shows this row's picture from, derived from the same
       schema as `capability` by `Reventless.RowImage`. `None` for a view that
       declares no picture, which is most of them. */
-  imageSource: option<Reventless.RowImage.source>,
+  imageSource?: Reventless.RowImage.source,
 }
 
 // -- arg helpers -------------------------------------------------------------

package/src/adapter/Runtime/AggregateRuntime_Builder_Micro.res

@@ -11,7 +11,7 @@ type aggregateInfo = {
   specModulePath: string,
   decisionModulePath: string,
   eventLogTableName: Pulumi.Output.t<string>,
-  mappingsModulePath: option<string>,
+  mappingsModulePath?: string,
 }
 
 let aggregateInfos: dict<aggregateInfo> = Dict.make()
@@ -25,7 +25,7 @@ let registerAggregate = (
 ) =>
   aggregateInfos->Dict.set(
     aggregateName,
-    {specModulePath, decisionModulePath, eventLogTableName, mappingsModulePath},
+    {specModulePath, decisionModulePath, eventLogTableName, ?mappingsModulePath},
   )
 
 type storedSpec = {

package/src/adapter/Runtime/AggregateRuntime_Builder_Micro_Async.res

@@ -15,7 +15,7 @@ type aggregateInfo = {
   specModulePath: string,
   decisionModulePath: string,
   eventLogTableName: Pulumi.Output.t<string>,
-  mappingsModulePath: option<string>,
+  mappingsModulePath?: string,
 }
 
 let aggregateInfos: dict<aggregateInfo> = Dict.make()
@@ -29,7 +29,7 @@ let registerAggregate = (
 ) =>
   aggregateInfos->Dict.set(
     aggregateName,
-    {specModulePath, decisionModulePath, eventLogTableName, mappingsModulePath},
+    {specModulePath, decisionModulePath, eventLogTableName, ?mappingsModulePath},
   )
 
 type storedSpec = {