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

package/tests/AppSync_AdapterTest.res.mjs

@@ -853,20 +853,17 @@ globalThis.describe("AppSync_Adapter.waitForMergeSuccess", () => {
     let client = makeFakeClient([
       {
         sourceApiAssociation: {
-          sourceApiAssociationStatus: "MERGE_SCHEDULED",
-          sourceApiAssociationStatusDetail: undefined
+          sourceApiAssociationStatus: "MERGE_SCHEDULED"
         }
       },
       {
         sourceApiAssociation: {
-          sourceApiAssociationStatus: "MERGE_IN_PROGRESS",
-          sourceApiAssociationStatusDetail: undefined
+          sourceApiAssociationStatus: "MERGE_IN_PROGRESS"
         }
       },
       {
         sourceApiAssociation: {
-          sourceApiAssociationStatus: "MERGE_SUCCESS",
-          sourceApiAssociationStatusDetail: undefined
+          sourceApiAssociationStatus: "MERGE_SUCCESS"
         }
       }
     ]);
@@ -892,8 +889,7 @@ globalThis.describe("AppSync_Adapter.waitForMergeSuccess", () => {
   globalThis.test("times out after maxAttempts on a status that never settles", async () => {
     let client = makeFakeClient([{
         sourceApiAssociation: {
-          sourceApiAssociationStatus: "MERGE_IN_PROGRESS",
-          sourceApiAssociationStatusDetail: undefined
+          sourceApiAssociationStatus: "MERGE_IN_PROGRESS"
         }
       }]);
     let message = "";

package/tests/Auth_ActiveRoleStoreTest.res

@@ -12,7 +12,7 @@ module Ops = Auth_ActiveRoleStore_Ops
 module Contract = ReventlessCore.Auth_ActiveRole
 
 describe("Auth_ActiveRoleStore_Ops.mayActAs — the conformance table", () => {
-  Contract.conformanceCases->Array.forEach(({label, membership, requested, expected}) =>
+  Contract.conformanceCases->Array.forEach(({label, membership, ?requested, ?expected}) =>
     switch requested {
     // "no role requested" has no subset decision to make — it is the clearing
     // path, exercised against the handler rather than the predicate.

package/tests/Auth_ActiveRoleTrigger_OpsTest.res

@@ -53,7 +53,7 @@ let claimOf = (e: Trigger.event, key) =>
 let effectiveGroups = (e: Trigger.event, ~membership) => groupsOf(e)->Option.getOr(membership)
 
 describe("the conformance table, minted by the trigger", () => {
-  Contract.conformanceCases->Array.forEach(({label, membership, requested, expected}) =>
+  Contract.conformanceCases->Array.forEach(({label, membership, ?requested, ?expected}) =>
     testSync(
       label,
       () => {

package/tests/AutomationSliceEntryPoint_OpsTest.res

@@ -309,7 +309,6 @@ describe("AutomationSliceEntryPoint_Ops.runSweeps", () => {
     comp,
     name: comp,
     tick: None,
-    reconcile: None,
   }
 
   test("sweeps every slice", async () => {
@@ -346,7 +345,6 @@ describe("AutomationSliceEntryPoint_Ops.runTick", () => {
     comp: name,
     name,
     tick,
-    reconcile: None,
   }
   let slices = [
     slice(~name="Outbound", ~tick=None),

package/tests/AutomationSliceEntryPoint_OpsTest.res.mjs

@@ -465,8 +465,7 @@ globalThis.describe("AutomationSliceEntryPoint_Ops.runSweeps", () => {
     sweep: run,
     comp: comp,
     name: comp,
-    tick: undefined,
-    reconcile: undefined
+    tick: undefined
   });
   globalThis.test("sweeps every slice", async () => {
     let swept = [];
@@ -512,8 +511,7 @@ globalThis.describe("AutomationSliceEntryPoint_Ops.runTick", () => {
     sweep: async () => {},
     comp: name,
     name: name,
-    tick: tick,
-    reconcile: undefined
+    tick: tick
   });
   let slices = [
     {
@@ -521,8 +519,7 @@ globalThis.describe("AutomationSliceEntryPoint_Ops.runTick", () => {
       sweep: async () => {},
       comp: "Outbound",
       name: "Outbound",
-      tick: undefined,
-      reconcile: undefined
+      tick: undefined
     },
     slice("DemandReport", async (key, at) => {
       ticks.push([

package/tests/BakeConvergenceTest.res

@@ -48,11 +48,6 @@ let emptyStructure: Reventless.Plugin.pluginStructure = {
   outboundTranslationSlices: [],
   inboundTranslationSlices: [],
   extensions: [],
-  extensionPoints: None,
-  requiredStores: None,
-  requiredStoreDeclarations: None,
-  requiredCapabilities: None,
-  traitDeclarations: None,
 }
 
 let definition = (~structure): Reventless.Plugin.pluginDefinition => {
@@ -64,9 +59,7 @@ let definition = (~structure): Reventless.Plugin.pluginDefinition => {
   eventCollector: "arn:aws:sqs:eu-west-1:0:Ordering",
   extensionProtocols: [],
   apiSchemaFragment: None,
-  apiTarget: None,
   structure: Some(structure),
-  dcbEventLog: None,
   kind: Domain,
 }
 
@@ -119,7 +112,7 @@ describe("the bake converges when a plugin's structure changes", () => {
   let (keyA, structureA) = deployStructure(emptyStructure)
   let (keyB, structureB) = deployStructure({
     ...emptyStructure,
-    requiredStores: Some(["Ordering.receipts"]),
+    requiredStores: ["Ordering.receipts"],
   })
   let defA = definition(~structure=structureA)
   let defB = definition(~structure=structureB)

package/tests/BakeConvergenceTest.res.mjs

@@ -60,12 +60,7 @@ let emptyStructure = {
   automationSlices: emptyStructure_automationSlices,
   outboundTranslationSlices: emptyStructure_outboundTranslationSlices,
   inboundTranslationSlices: emptyStructure_inboundTranslationSlices,
-  extensions: emptyStructure_extensions,
-  extensionPoints: undefined,
-  requiredStores: undefined,
-  requiredStoreDeclarations: undefined,
-  requiredCapabilities: undefined,
-  traitDeclarations: undefined
+  extensions: emptyStructure_extensions
 };
 
 function definition(structure) {
@@ -78,9 +73,7 @@ function definition(structure) {
     eventCollector: "arn:aws:sqs:eu-west-1:0:Ordering",
     extensionProtocols: [],
     apiSchemaFragment: undefined,
-    apiTarget: undefined,
     structure: structure,
-    dcbEventLog: undefined,
     kind: "Domain"
   };
 }
@@ -125,21 +118,8 @@ let afterDeploy = "2026-08-27T10:05:00Z";
 globalThis.describe("the bake converges when a plugin's structure changes", () => {
   let match = deployStructure(emptyStructure);
   let keyA = match[0];
-  let match$1 = deployStructure({
-    readModels: emptyStructure_readModels,
-    stateViewSlices: emptyStructure_stateViewSlices,
-    stateChangeSlices: emptyStructure_stateChangeSlices,
-    aggregates: emptyStructure_aggregates,
-    automationSlices: emptyStructure_automationSlices,
-    outboundTranslationSlices: emptyStructure_outboundTranslationSlices,
-    inboundTranslationSlices: emptyStructure_inboundTranslationSlices,
-    extensions: emptyStructure_extensions,
-    extensionPoints: undefined,
-    requiredStores: ["Ordering.receipts"],
-    requiredStoreDeclarations: undefined,
-    requiredCapabilities: undefined,
-    traitDeclarations: undefined
-  });
+  let newrecord = {...emptyStructure};
+  let match$1 = deployStructure((newrecord.requiredStores = ["Ordering.receipts"], newrecord));
   let keyB = match$1[0];
   let defA = definition(match[1]);
   let defB = definition(match$1[1]);

package/tests/BakeManifestTest.res

@@ -33,12 +33,11 @@ plugins:
     expect(resolved)->toEqual(
       Ok({
         DeployManifest.file: "/repo/shop/deploy-manifest.yaml",
-        region: Some("eu-west-1"),
+        region: "eu-west-1",
         platform: {
           name: "shop-platform",
           dir: "/repo/shop/platform-aws",
           stackDefaults: Dict.fromArray([("platform:messagingEmailProvider", "log")]),
-          region: None,
           review: true,
         },
         plugins: [
@@ -46,14 +45,13 @@ plugins:
             name: "catalog",
             dir: "/repo/shop/catalog-aws",
             stackDefaults: Dict.make(),
-            region: None,
             review: true,
           },
           {
             name: "ordering",
             dir: "/repo/shop/ordering-aws",
             stackDefaults: Dict.make(),
-            region: Some("eu-central-1"),
+            region: "eu-central-1",
             review: false,
           },
         ],
@@ -79,9 +77,9 @@ describe("BakeManifest.parseArgs", () => {
       ]),
     )->toEqual(
       Ok({
-        Bake.manifest: Some("m.yaml"),
-        stack: Some("alpha"),
-        since: Some("2026-09-16T10:00:00Z"),
+        Bake.manifest: "m.yaml",
+        stack: "alpha",
+        since: "2026-09-16T10:00:00Z",
         review: false,
         help: false,
       }),
@@ -109,7 +107,6 @@ describe("BakeManifest.pluginsToRead", () => {
     DeployManifest.name,
     dir: `/repo/shop/${name}-aws`,
     stackDefaults: Dict.make(),
-    region: None,
     review,
   }
   let plugins = [plugin("catalog", ~review=true), plugin("ingest", ~review=false)]
@@ -213,8 +210,6 @@ describe("BakeManifest.readAnswer", () => {
         plugin: "Catalog",
         state: "missing",
         expected: "sha256/new",
-        found: None,
-        writtenAt: None,
       }),
     )->toBe("  Catalog: missing — expected sha256/new, row holds no row (written never)")
   )

package/tests/BakeManifestTest.res.mjs

@@ -40,7 +40,6 @@ plugins:
               "platform:messagingEmailProvider",
               "log"
             ]]),
-          region: undefined,
           review: true
         },
         plugins: [
@@ -48,7 +47,6 @@ plugins:
             name: "catalog",
             dir: "/repo/shop/catalog-aws",
             stackDefaults: {},
-            region: undefined,
             review: true
           },
           {
@@ -122,7 +120,6 @@ globalThis.describe("BakeManifest.pluginsToRead", () => {
     name: name,
     dir: `/repo/shop/` + name + `-aws`,
     stackDefaults: {},
-    region: undefined,
     review: review
   });
   let plugins = [
@@ -229,9 +226,7 @@ globalThis.describe("BakeManifest.readAnswer", () => {
     globalThis.expect(BakeManifest$ReventlessAws.registrationLine({
       plugin: "Catalog",
       state: "missing",
-      expected: "sha256/new",
-      found: undefined,
-      writtenAt: undefined
+      expected: "sha256/new"
     })).toBe("  Catalog: missing — expected sha256/new, row holds no row (written never)");
   });
 });

package/tests/CommandLineTest.res

@@ -11,14 +11,14 @@ let answersLikeEveryTool = (cli: CliArgs.cli<'args>, ~mistake, ~message) =>
   test(`${cli.bin}: --help and a usage mistake`, async () => {
     let usage = cli.usage->String.trim
     expect(usage->String.startsWith(`Usage: ${cli.bin} `))->toBe(true)
-    let help = {CliArgs.stdout: [usage], stderr: [], exitCode: Some(0), reachedMain: false}
+    let help = {CliArgs.stdout: [usage], stderr: [], exitCode: 0, reachedMain: false}
     expect(await CliArgs.observe(cli, ["-h"]))->toEqual(help)
     // Help wins: whoever asks what a tool takes is least sure of their arguments.
     expect(await CliArgs.observe(cli, mistake->Array.concat(["--help"])))->toEqual(help)
     expect(await CliArgs.observe(cli, mistake))->toEqual({
       CliArgs.stdout: [],
       stderr: [`${cli.bin}: ${message}\n\n${usage}`],
-      exitCode: Some(2),
+      exitCode: 2,
       reachedMain: false,
     })
   })
@@ -62,7 +62,7 @@ describe("a string flag's value", () => {
 
   testSync("may be given inline", () =>
     expect(DeployApp.parseArgs(["down", "--manifest=../m.yaml", "--stack=try"]))->toEqual(
-      Ok({DeployApp.command: Some(Down), manifest: Some("../m.yaml"), stack: "try", help: false}),
+      Ok({DeployApp.command: Down, manifest: "../m.yaml", stack: "try", help: false}),
     )
   )
 

package/tests/DeployAppTest.res

@@ -6,13 +6,13 @@ open JestGlobals
 describe("DeployApp.parseArgs", () => {
   testSync("up with the defaults", () =>
     expect(DeployApp.parseArgs(["up"]))->toEqual(
-      Ok({DeployApp.command: Some(Up), manifest: None, stack: "dev", help: false}),
+      Ok({DeployApp.command: Up, stack: "dev", help: false}),
     )
   )
 
   testSync("down with a manifest and a stack", () =>
     expect(DeployApp.parseArgs(["down", "--manifest", "../m.yaml", "--stack", "try"]))->toEqual(
-      Ok({DeployApp.command: Some(Down), manifest: Some("../m.yaml"), stack: "try", help: false}),
+      Ok({DeployApp.command: Down, manifest: "../m.yaml", stack: "try", help: false}),
     )
   )
 
@@ -55,11 +55,10 @@ describe("DeployApp stacks and layer", () => {
     projectName: "shop-platform-aws",
     program: "/app/platform-aws/src/Main.res.mjs",
     stackDefaults: Dict.fromArray([("aws:region", "us-east-1"), ("platform:x", "y")]),
-    region: None,
   }
 
   testSync("a stack the manifest puts in another region is refused", () => {
-    let ingest = {...project, label: "ingest", region: Some("eu-central-1")}
+    let ingest = {...project, label: "ingest", region: "eu-central-1"}
     expect(
       DeployApp.regionProblems(~projects=[project, ingest], ~region="eu-west-1")->Array.length,
     )->toBe(1)

package/tests/DeployAppTest.res.mjs

@@ -9,7 +9,6 @@ globalThis.describe("DeployApp.parseArgs", () => {
       TAG: "Ok",
       _0: {
         command: "Up",
-        manifest: undefined,
         stack: "dev",
         help: false
       }
@@ -79,27 +78,19 @@ globalThis.describe("DeployApp stacks and layer", () => {
     dir: "/app/platform-aws",
     projectName: "shop-platform-aws",
     program: "/app/platform-aws/src/Main.res.mjs",
-    stackDefaults: project_stackDefaults,
-    region: undefined
+    stackDefaults: project_stackDefaults
   };
   globalThis.test("a stack the manifest puts in another region is refused", () => {
-    let ingest_stackDefaults = project_stackDefaults;
-    let ingest_region = "eu-central-1";
-    let ingest = {
-      label: "ingest",
-      dir: "/app/platform-aws",
-      projectName: "shop-platform-aws",
-      program: "/app/platform-aws/src/Main.res.mjs",
-      stackDefaults: ingest_stackDefaults,
-      region: ingest_region
-    };
+    let newrecord = {...project};
+    newrecord.region = "eu-central-1";
+    newrecord.label = "ingest";
     globalThis.expect(DeployApp$ReventlessAws.regionProblems([
       project,
-      ingest
+      newrecord
     ], "eu-west-1").length).toBe(1);
     globalThis.expect(DeployApp$ReventlessAws.regionProblems([
       project,
-      ingest
+      newrecord
     ], "eu-central-1")).toEqual([]);
   });
   globalThis.test("a new stack gets the app's defaults, then the region and the try-out flag", () => {

package/tests/EpInboundTestSlice.res

@@ -15,6 +15,7 @@ type command = AddThing({thingId: string})
 
 let targetName = "AddThing"
 let externalSystem: option<string> = Some("TestFeed")
+let capabilityNeeds: array<Reventless.CapabilityNeed.t> = []
 let endpoint = None
 
 type role = Reventless.Role.name

package/tests/EpInboundTestSlice.res.mjs

@@ -12,6 +12,8 @@ let commandSchema = Sury.$schema(s => ({
   thingId: s.m(Sury.string)
 }));
 
+let capabilityNeeds = [];
+
 function authorizationOf(param) {
   return {
     TAG: "AllowRoles",
@@ -36,6 +38,7 @@ export {
   commandSchema,
   targetName,
   externalSystem,
+  capabilityNeeds,
   endpoint,
   authorizationOf,
 }

package/tests/EventCollectorPluginDefinitionAssetTest.res

@@ -30,9 +30,8 @@ let offloadedFragment: Reventless.Plugin.pluginDefinition = {
       bytes: 14594,
     }),
   ),
-  apiTarget: Some("Domain"),
+  apiTarget: "Domain",
   structure: None,
-  dcbEventLog: None,
   kind: Domain,
 }
 

package/tests/EventCollectorPluginDefinitionAssetTest.res.mjs

@@ -31,29 +31,17 @@ let offloadedFragment = {
   },
   apiTarget: "Domain",
   structure: undefined,
-  dcbEventLog: undefined,
   kind: "Domain"
 };
 
-let inlineFragment = {
-  id: offloadedFragment.id,
-  name: offloadedFragment.name,
-  version: offloadedFragment.version,
-  extensionPoints: offloadedFragment.extensionPoints,
-  extensions: offloadedFragment.extensions,
-  eventCollector: offloadedFragment.eventCollector,
-  extensionProtocols: offloadedFragment.extensionProtocols,
-  apiSchemaFragment: {
-    TAG: "Inline",
-    _0: {
-      encoded: "{\"types\":[]}",
-      protocol: "1"
-    }
-  },
-  apiTarget: offloadedFragment.apiTarget,
-  structure: offloadedFragment.structure,
-  dcbEventLog: offloadedFragment.dcbEventLog,
-  kind: offloadedFragment.kind
+let newrecord = {...offloadedFragment};
+
+newrecord.apiSchemaFragment = {
+  TAG: "Inline",
+  _0: {
+    encoded: "{\"types\":[]}",
+    protocol: "1"
+  }
 };
 
 function writeAsset(def) {
@@ -100,7 +88,7 @@ globalThis.describe("pluginDefinition.json write/read symmetry", () => {
   globalThis.test("a definition read back from the asset can be published to the Connect handshake", () => {
     [
       offloadedFragment,
-      inlineFragment
+      newrecord
     ].forEach(def => {
       let published = Util_Sury$Reventless.toJson({
         TAG: "ConnectPlugin",
@@ -126,6 +114,8 @@ globalThis.describe("pluginDefinition.json write/read symmetry", () => {
   });
 });
 
+let inlineFragment = newrecord;
+
 export {
   offloadedFragment,
   inlineFragment,

package/tests/IdentityProvider_Cognito_BackendTest.res

@@ -289,11 +289,8 @@ describe("AutomationSliceRuntime_Builder_Single.declaresIdentityProvider", () =>
     callbackType: "outbound",
     queryDbTableName: Pulumi.Output.make(""),
     queryDbResources: [],
-    context: None,
     sourceTopics: Dict.make(),
     consumesDcbLog: true,
-    commandTargetName: None,
-    schedule: None,
     schedulesResources: [],
     capabilityNeeds: needs,
   }

package/tests/IdentityProvider_Cognito_BackendTest.res.mjs

@@ -407,11 +407,8 @@ globalThis.describe("AutomationSliceRuntime_Builder_Single.declaresIdentityProvi
     callbackType: "outbound",
     queryDbTableName: Pulumi.output(""),
     queryDbResources: [],
-    context: undefined,
     sourceTopics: {},
     consumesDcbLog: true,
-    commandTargetName: undefined,
-    schedule: undefined,
     schedulesResources: [],
     capabilityNeeds: needs
   });

package/tests/PgQueryResolver_LambdaTest.res

@@ -104,16 +104,16 @@ let makeBinding = (
   indexes: [
     {index: "byStatus", type_: "S", idField: "status", projectionType: Reventless.ReadModel.ALL},
   ],
-  subIdField,
+  ?subIdField,
   capability,
   labelField: "name",
   includeIdParam: true,
   authorization,
-  ownerField,
-  retiredField,
-  retiredValues,
+  ?ownerField,
+  ?retiredField,
+  ?retiredValues,
   namedWhenRetired,
-  imageSource,
+  ?imageSource,
 }
 
 let mkPayload = (
@@ -695,16 +695,12 @@ let geoBinding = (): PgQueryResolver_Lambda.binding => {
   indexes: [
     {index: "byStatus", type_: "S", idField: "status", projectionType: Reventless.ReadModel.ALL},
   ],
-  subIdField: Some("lineNo"),
+  subIdField: "lineNo",
   capability,
   labelField: "name",
   includeIdParam: true,
   authorization: Reventless.Authorization.AllowAnonymous,
-  ownerField: None,
-  retiredField: None,
-  retiredValues: None,
   namedWhenRetired: false,
-  imageSource: None,
 }
 
 // The member type of the first row a door answers with, whatever shape it took.

package/tests/PgQueryResolver_LambdaTest.res.mjs

@@ -414,37 +414,11 @@ globalThis.describe("PgQueryResolver_Lambda.dispatch", () => {
     delete: 0,
     deleteBatch: 0
   };
-  let init = makeBinding(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined);
-  let authBinding_pushdowns = init.pushdowns;
-  let authBinding_indexes = init.indexes;
-  let authBinding_subIdField = init.subIdField;
-  let authBinding_capability = init.capability;
-  let authBinding_labelField = init.labelField;
-  let authBinding_includeIdParam = init.includeIdParam;
-  let authBinding_authorization = init.authorization;
-  let authBinding_ownerField = init.ownerField;
-  let authBinding_retiredField = init.retiredField;
-  let authBinding_retiredValues = init.retiredValues;
-  let authBinding_namedWhenRetired = init.namedWhenRetired;
-  let authBinding_imageSource = init.imageSource;
-  let authBinding = {
-    ops: authOps,
-    pushdowns: authBinding_pushdowns,
-    indexes: authBinding_indexes,
-    subIdField: authBinding_subIdField,
-    capability: authBinding_capability,
-    labelField: authBinding_labelField,
-    includeIdParam: authBinding_includeIdParam,
-    authorization: authBinding_authorization,
-    ownerField: authBinding_ownerField,
-    retiredField: authBinding_retiredField,
-    retiredValues: authBinding_retiredValues,
-    namedWhenRetired: authBinding_namedWhenRetired,
-    imageSource: authBinding_imageSource
-  };
+  let newrecord = {...makeBinding(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined)};
+  newrecord.ops = authOps;
   let lookupAuth = name => {
     if (name === "AuthTable") {
-      return authBinding;
+      return newrecord;
     }
   };
   let ident = (username, groups) => ({
@@ -710,11 +684,7 @@ function geoBinding() {
     labelField: "name",
     includeIdParam: true,
     authorization: "AllowAnonymous",
-    ownerField: undefined,
-    retiredField: undefined,
-    retiredValues: undefined,
-    namedWhenRetired: false,
-    imageSource: undefined
+    namedWhenRetired: false
   };
 }
 

package/tests/Platform_ProvidedGroupsTest.res

@@ -34,7 +34,7 @@ describe("Platform_ProvidedGroups.poolFromExports", () => {
         ("identityProviderId", JSON.Encode.string("p1")),
         ("identityProviderRegion", JSON.Encode.string("eu-west-1")),
       ]),
-    )->toEqual(Some({Platform_ProvidedGroups.id: "p1", region: Some("eu-west-1")}))
+    )->toEqual(Some({Platform_ProvidedGroups.id: "p1", region: "eu-west-1"}))
   )
 
   testSync("reads them nested under default, as an ESM platform exports them", () =>
@@ -45,7 +45,7 @@ describe("Platform_ProvidedGroups.poolFromExports", () => {
           JSON.Encode.object(Dict.fromArray([("cognitoUserPoolId", JSON.Encode.string("p-old"))])),
         ),
       ]),
-    )->toEqual(Some({Platform_ProvidedGroups.id: "p-old", region: None}))
+    )->toEqual(Some({Platform_ProvidedGroups.id: "p-old"}))
   )
 
   testSync("no pool id is no pool to list", () => expect(from([]))->toEqual(None))

package/tests/Platform_ProvidedGroupsTest.res.mjs

@@ -80,8 +80,7 @@ globalThis.describe("Platform_ProvidedGroups.poolFromExports", () => {
             "p-old"
           ]])
       ]])).toEqual({
-      id: "p-old",
-      region: undefined
+      id: "p-old"
     });
   });
   globalThis.test("no pool id is no pool to list", () => {

package/tests/ProvisionAccountsTest.res

@@ -15,9 +15,7 @@ module Provision = ProvisionAccounts
 
 describe("ProvisionAccounts.parseArgs", () => {
   testSync("no arguments leaves every choice unanswered", () =>
-    expect(Provision.parseArgs([]))->toEqual(
-      Ok({Provision.providerId: None, stack: None, file: None, help: false}),
-    )
+    expect(Provision.parseArgs([]))->toEqual(Ok({Provision.providerId: ?None, help: false}))
   )
 
   testSync("a pool and a manifest parse", () =>
@@ -25,9 +23,8 @@ describe("ProvisionAccounts.parseArgs", () => {
       Provision.parseArgs(["--provider-id", "eu-west-1_AbCdEfGhI", "--file", "cast.yaml"]),
     )->toEqual(
       Ok({
-        Provision.providerId: Some("eu-west-1_AbCdEfGhI"),
-        stack: None,
-        file: Some("cast.yaml"),
+        Provision.providerId: "eu-west-1_AbCdEfGhI",
+        file: "cast.yaml",
         help: false,
       }),
     )
@@ -35,7 +32,7 @@ describe("ProvisionAccounts.parseArgs", () => {
 
   testSync("--stack picks the deployment to read the pool id from", () =>
     expect(Provision.parseArgs(["--stack", "beta"]))->toEqual(
-      Ok({Provision.providerId: None, stack: Some("beta"), file: None, help: false}),
+      Ok({Provision.providerId: ?None, stack: "beta", help: false}),
     )
   )
 
@@ -54,9 +51,7 @@ describe("ProvisionAccounts.parseArgs", () => {
   )
 
   testSync("-h asks for the usage", () =>
-    expect(Provision.parseArgs(["-h"]))->toEqual(
-      Ok({Provision.providerId: None, stack: None, file: None, help: true}),
-    )
+    expect(Provision.parseArgs(["-h"]))->toEqual(Ok({Provision.providerId: ?None, help: true}))
   )
 })