@reventlessdev/reventless-core 3.0.0-alpha.292 → 3.0.0-alpha.294

package/src/plugin/component/Plugin_Structure.res.mjs

@@ -644,12 +644,12 @@ function syntheticCommand(schema, variantName) {
   }
 }
 
-function constructorPermissions(commandSchema, commandAuthorization) {
-  return DcbTag$Reventless.extractAllVariantNames(commandSchema).map(variantName => commandAuthorization(syntheticCommand(commandSchema, variantName)));
+function constructorPermissions(commandSchema, authorizationOf) {
+  return DcbTag$Reventless.extractAllVariantNames(commandSchema).map(authorizationOf);
 }
 
-function inboundDoorPermission(commandSchema, commandAuthorization) {
-  return Authorization$Reventless.anyOf(constructorPermissions(commandSchema, commandAuthorization));
+function inboundDoorPermission(commandSchema, authorizationOf) {
+  return Authorization$Reventless.anyOf(DcbTag$Reventless.extractAllVariantNames(commandSchema).map(authorizationOf));
 }
 
 function annotateArgTypes(schema, argTypes) {
@@ -666,7 +666,7 @@ function annotateArgTypes(schema, argTypes) {
   return schema;
 }
 
-function toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor, parentSchema, commandAuthorization, commandTransition, derivedEdgeFor, v) {
+function toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor, parentSchema, authorizationOf, commandTransition, derivedEdgeFor, v) {
   let mkDef = (variantName, properties) => {
     let match = commandLevelAndId(isAggregate, partitionKey, variantName, properties);
     let aggregateIdField = match[1];
@@ -708,7 +708,7 @@ function toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor
       let excluded = ApiNoApiHelpers$ReventlessCore.getExcludedVariants(parentSchema);
       apiExposed = excluded !== undefined ? !excluded.has(variantName) : true;
     }
-    let rule = commandAuthorization(syntheticCommand$1);
+    let rule = authorizationOf(variantName);
     let requiredAccess = accessKeysFor(rule);
     let mutationField = apiExposed ? mutationFieldFor(variantName) : "";
     let jsonSchema = SuryToJsonSchema$ReventlessCore.deriveObjectSchema(apiExposed, mutationField, v);
@@ -753,12 +753,12 @@ function toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor
   }
 }
 
-function extractCommandDefs(identityViews, isAggregate, partitionKey, mutationFieldFor, commandAuthorization, commandTransition, derivedEdgeForOpt, commandSchema) {
+function extractCommandDefs(identityViews, isAggregate, partitionKey, mutationFieldFor, authorizationOf, commandTransition, derivedEdgeForOpt, commandSchema) {
   let derivedEdgeFor = derivedEdgeForOpt !== undefined ? derivedEdgeForOpt : param => {};
   if (commandSchema.type === "anyOf") {
-    return Stdlib_Array.filterMap(commandSchema.anyOf, v => toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor, commandSchema, commandAuthorization, commandTransition, derivedEdgeFor, v));
+    return Stdlib_Array.filterMap(commandSchema.anyOf, v => toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor, commandSchema, authorizationOf, commandTransition, derivedEdgeFor, v));
   } else {
-    return Stdlib_Option.mapOr(toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor, commandSchema, commandAuthorization, commandTransition, derivedEdgeFor, commandSchema), [], def => [def]);
+    return Stdlib_Option.mapOr(toCommandDef(identityViews, isAggregate, partitionKey, mutationFieldFor, commandSchema, authorizationOf, commandTransition, derivedEdgeFor, commandSchema), [], def => [def]);
   }
 }
 
@@ -1226,7 +1226,7 @@ function make(name, aggregatesOpt, readModelsOpt, stateViewSlicesOpt, stateChang
     let consumed = match$1[1];
     return {
       name: SCS.Spec.name,
-      commands: extractCommandDefs(identityViews, false, partitionBySlice[SCS.Spec.name], variantName => Api_Naming$ReventlessCore.sliceMutationFieldFor(name, SCS.Spec.name, SCS.Spec.commandSchema, variantName), command => Authorization$Reventless.named(SCS.Spec.commandAuthorization(command)), SCS.Spec.commandTransition, extra => derivedEdgeFor(SCS.Spec.name, extra), SCS.Spec.commandSchema),
+      commands: extractCommandDefs(identityViews, false, partitionBySlice[SCS.Spec.name], variantName => Api_Naming$ReventlessCore.sliceMutationFieldFor(name, SCS.Spec.name, SCS.Spec.commandSchema, variantName), name => Authorization$Reventless.named(SCS.Spec.authorizationOf(name)), SCS.Spec.commandTransition, extra => derivedEdgeFor(SCS.Spec.name, extra), SCS.Spec.commandSchema),
       producedEventTypes: produced,
       consumedEventTypes: consumed,
       linkedViews: linkedSvsFor(produced),
@@ -1241,7 +1241,7 @@ function make(name, aggregatesOpt, readModelsOpt, stateViewSlicesOpt, stateChang
     let produced = match[1];
     return {
       name: A.Spec.name,
-      commands: extractCommandDefs(identityViews, true, undefined, variantName => Api_Naming$ReventlessCore.aggregateMutationField(name, A.Spec.name, variantName), command => Authorization$Reventless.named(A.Spec.commandAuthorization(command)), A.Spec.commandTransition, extra => derivedEdgeFor(A.Spec.name, extra), A.Spec.commandSchema),
+      commands: extractCommandDefs(identityViews, true, undefined, variantName => Api_Naming$ReventlessCore.aggregateMutationField(name, A.Spec.name, variantName), name => Authorization$Reventless.named(A.Spec.authorizationOf(name)), A.Spec.commandTransition, extra => derivedEdgeFor(A.Spec.name, extra), A.Spec.commandSchema),
       producedEventTypes: produced,
       consumedEventTypes: [],
       linkedViews: linkedSvsFor(produced).concat(linkedReadModelsFor(A.Spec.name)),
@@ -1276,7 +1276,7 @@ function make(name, aggregatesOpt, readModelsOpt, stateViewSlicesOpt, stateChang
     targetName: ITS.Spec.targetName,
     externalSystem: ITS.Spec.externalSystem,
     chapter: componentChapters[ITS.Spec.name],
-    requiredRoles: nonEmpty(Array.from(new Set(constructorPermissions(ITS.Spec.commandSchema, cmd => Authorization$Reventless.named(ITS.Spec.commandAuthorization(cmd))).flatMap(Authorization$Reventless.rolesOf).map(role => role)).values()))
+    requiredRoles: nonEmpty(Array.from(new Set(DcbTag$Reventless.extractAllVariantNames(ITS.Spec.commandSchema).map(name => Authorization$Reventless.named(ITS.Spec.authorizationOf(name))).flatMap(Authorization$Reventless.rolesOf).map(role => role)).values()))
   }));
   let tableFailures = [];
   let tableWarnings = [];

package/src/plugin/connect/PluginConnectExtension_Mapping.res.mjs

@@ -75,7 +75,7 @@ function Make(Spec) {
       errorSchema: ExtensionMapping$ReventlessInfra.NoDelegate.errorSchema,
       commandSchema: ExtensionMapping$ReventlessInfra.NoDelegate.commandSchema,
       moduleUrl: ExtensionMapping$ReventlessInfra.NoDelegate.moduleUrl,
-      commandAuthorization: ExtensionMapping$ReventlessInfra.NoDelegate.commandAuthorization,
+      authorizationOf: ExtensionMapping$ReventlessInfra.NoDelegate.authorizationOf,
       commandTransition: ExtensionMapping$ReventlessInfra.NoDelegate.commandTransition,
       traits: ExtensionMapping$ReventlessInfra.NoDelegate.traits
     },

package/src/plugin/connect/PluginExtensionPoint_Plugin.res.mjs

@@ -405,7 +405,7 @@ function Make(Spec) {
       errorSchema: PluginSpec$ReventlessCore.errorSchema,
       commandSchema: PluginSpec$ReventlessCore.commandSchema,
       moduleUrl: PluginSpec$ReventlessCore.moduleUrl,
-      commandAuthorization: PluginSpec$ReventlessCore.commandAuthorization,
+      authorizationOf: PluginSpec$ReventlessCore.authorizationOf,
       commandTransition: PluginSpec$ReventlessCore.commandTransition,
       traits: PluginSpec$ReventlessCore.traits
     },

package/src/plugin/connect/PluginExtensionPoint_UiFragment.res

@@ -9,7 +9,7 @@
 // aggregate; the two run side by side on the same EP.
 //
 // A StateChangeSlice Spec structurally satisfies Reventless.Aggregate.Spec (name, Id,
-// command/event/error + schemas, commandSchema, commandAuthorization, moduleUrl), which is all
+// command/event/error + schemas, commandSchema, authorizationOf, moduleUrl), which is all
 // ExtensionPointMapping.Make consumes from a Delegate.
 
 open ReventlessInfra.ExtensionPointMapping

package/src/plugin/connect/PluginExtensionPoint_UiFragment.res.mjs

@@ -72,7 +72,7 @@ let Mapping = ExtensionPointMapping$ReventlessInfra.Make({
     errorSchema: UiFragmentRegistry$ReventlessCore.errorSchema,
     commandSchema: UiFragmentRegistry$ReventlessCore.commandSchema,
     moduleUrl: UiFragmentRegistry$ReventlessCore.moduleUrl,
-    commandAuthorization: UiFragmentRegistry$ReventlessCore.commandAuthorization,
+    authorizationOf: UiFragmentRegistry$ReventlessCore.authorizationOf,
     commandTransition: UiFragmentRegistry$ReventlessCore.commandTransition,
     traits: UiFragmentRegistry$ReventlessCore.traits
   },

package/src/plugin/lifecycle/PluginSpec.res.mjs

@@ -146,7 +146,7 @@ let commandSchema$1 = Api$ReventlessInfra.markNoApiVariants(commandSchema, [
   "Disconnect"
 ]);
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -170,7 +170,7 @@ export {
   commandTransition,
   commandSchema$1 as commandSchema,
   moduleUrl,
-  commandAuthorization,
+  authorizationOf,
   traits,
 }
 /* commandSchema Not a pure module */

package/tests/aggregate/AggregateCacheTest.res.mjs

@@ -33,7 +33,7 @@ let errorSchema = Sury.literal("Never");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -50,7 +50,7 @@ let AggSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -245,7 +245,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })({
@@ -268,7 +268,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
     errorSchema: errorSchema,
     commandSchema: commandSchema,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization,
+    authorizationOf: authorizationOf,
     commandTransition: commandTransition,
     traits: traits
   },

package/tests/aggregate/AggregateConflictTest.res.mjs

@@ -22,7 +22,7 @@ let errorSchema = Sury.literal("AlreadyExists");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -39,7 +39,7 @@ let AggSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -202,7 +202,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })({
@@ -225,7 +225,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
     errorSchema: errorSchema,
     commandSchema: commandSchema,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization,
+    authorizationOf: authorizationOf,
     commandTransition: commandTransition,
     traits: traits
   },

package/tests/aggregate/AggregateFixtures.res.mjs

@@ -36,7 +36,7 @@ let errorSchema = Sury.union([
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -53,7 +53,7 @@ let AggSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -237,7 +237,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })({
@@ -260,7 +260,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
     errorSchema: errorSchema,
     commandSchema: commandSchema,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization,
+    authorizationOf: authorizationOf,
     commandTransition: commandTransition,
     traits: traits
   },

package/tests/aggregate/AggregateSnapshotTest.res.mjs

@@ -28,7 +28,7 @@ let errorSchema = Sury.literal("Never");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -45,7 +45,7 @@ let AggSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -292,7 +292,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })({
@@ -315,7 +315,7 @@ let TestHandler = Aggregate_Callback$ReventlessCore.Make({
     errorSchema: errorSchema,
     commandSchema: commandSchema,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization,
+    authorizationOf: authorizationOf,
     commandTransition: commandTransition,
     traits: traits
   },
@@ -438,7 +438,7 @@ let PlainHandler = Aggregate_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })({
@@ -461,7 +461,7 @@ let PlainHandler = Aggregate_Callback$ReventlessCore.Make({
     errorSchema: errorSchema,
     commandSchema: commandSchema,
     moduleUrl: moduleUrl,
-    commandAuthorization: commandAuthorization,
+    authorizationOf: authorizationOf,
     commandTransition: commandTransition,
     traits: traits
   },

package/tests/api/GraphQL_FragmentGeneratorTest.res.mjs

@@ -29,7 +29,7 @@ let commandSchema = Sury.union([
   }))
 ]);
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -41,7 +41,7 @@ let traits = [];
 
 let OrderSliceCmd = {
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -291,7 +291,7 @@ let commandSchema$1 = Sury.union([
   }))
 ]);
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -303,7 +303,7 @@ let traits$1 = [];
 
 let AddProductCmd = {
   commandSchema: commandSchema$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 };
@@ -320,7 +320,7 @@ let commandSchema$2 = Sury.union([
   }))
 ]);
 
-function commandAuthorization$2(param) {
+function authorizationOf$2(param) {
   return "AllowAuthenticated";
 }
 
@@ -332,7 +332,7 @@ let traits$2 = [];
 
 let ChangePriceCmd = {
   commandSchema: commandSchema$2,
-  commandAuthorization: commandAuthorization$2,
+  authorizationOf: authorizationOf$2,
   commandTransition: commandTransition$2,
   traits: traits$2
 };

package/tests/commandgenerator/CommandGeneratorFixtures.res.mjs

@@ -28,7 +28,7 @@ let errorSchema = Sury.literal("InvalidCommand");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -45,7 +45,7 @@ let CmdGenAggSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -114,7 +114,7 @@ let TestGenerator = CommandGenerator_Callback$ReventlessCore.Make(MockPublishSpe
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 });

package/tests/commandgenerator/OwnerActingTest.res.mjs

@@ -72,7 +72,7 @@ let errorSchema = Sury.union([
   Sury.literal("OrderNotFound")
 ]);
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -90,7 +90,7 @@ let OrderSlice = {
   consumedEventSchema: consumedEventSchema,
   commandSchema: commandSchema,
   errorSchema: errorSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -189,7 +189,7 @@ let OrderHandler = StateChangeSlice_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -270,7 +270,7 @@ let errorSchema$1 = Sury.union([
 
 let moduleUrl$1 = import.meta.url;
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -287,7 +287,7 @@ let AccountSpec = {
   eventSchema: eventSchema$1,
   errorSchema: errorSchema$1,
   moduleUrl: moduleUrl$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 };
@@ -453,7 +453,7 @@ let AccountHandler = Aggregate_Callback$ReventlessCore.Make({
   errorSchema: errorSchema$1,
   commandSchema: commandSchema$1,
   moduleUrl: moduleUrl$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 })({
@@ -476,7 +476,7 @@ let AccountHandler = Aggregate_Callback$ReventlessCore.Make({
     errorSchema: errorSchema$1,
     commandSchema: commandSchema$1,
     moduleUrl: moduleUrl$1,
-    commandAuthorization: commandAuthorization$1,
+    authorizationOf: authorizationOf$1,
     commandTransition: commandTransition$1,
     traits: traits$1
   },

package/tests/commandtopic/CommandOutcomeHookTest.res.mjs

@@ -63,7 +63,7 @@ let SliceHandler = StateChangeSlice_Callback$ReventlessCore.Make({
   errorSchema: DcbFixtures$ReventlessCore.TestCommandSpec.errorSchema,
   eventSchema: DcbFixtures$ReventlessCore.TestCommandSpec.eventSchema,
   commandSchema: DcbFixtures$ReventlessCore.TestCommandSpec.commandSchema,
-  commandAuthorization: DcbFixtures$ReventlessCore.TestCommandSpec.commandAuthorization,
+  authorizationOf: DcbFixtures$ReventlessCore.TestCommandSpec.authorizationOf,
   commandTransition: DcbFixtures$ReventlessCore.TestCommandSpec.commandTransition,
   traits: DcbFixtures$ReventlessCore.TestCommandSpec.traits,
   readConsistency: DcbFixtures$ReventlessCore.TestCommandSpec.readConsistency

package/tests/commandtopic/CommandTopicCallbackFixtures.res.mjs

@@ -21,7 +21,7 @@ let commandSchema = Sury.union([
   }))
 ]);
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -35,7 +35,7 @@ let TestSpec = {
   Id: undefined,
   name: name,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -72,7 +72,7 @@ let TestOps_Spec = {
   Id: Id$Reventless.StringPure,
   name: name,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/dcb/DcbFixtures.res.mjs

@@ -152,7 +152,7 @@ function decide(state, command) {
   }
 }
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -178,7 +178,7 @@ let TestCommandSpec = {
   initialState: TestCommandSpec_initialState,
   evolve: evolve,
   decide: decide,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"

package/tests/dcb/DcbStateChangeSliceTest.res.mjs

@@ -59,7 +59,7 @@ let TestHandler = StateChangeSlice_Callback$ReventlessCore.Make({
   errorSchema: DcbFixtures$ReventlessCore.TestCommandSpec.errorSchema,
   eventSchema: DcbFixtures$ReventlessCore.TestCommandSpec.eventSchema,
   commandSchema: DcbFixtures$ReventlessCore.TestCommandSpec.commandSchema,
-  commandAuthorization: DcbFixtures$ReventlessCore.TestCommandSpec.commandAuthorization,
+  authorizationOf: DcbFixtures$ReventlessCore.TestCommandSpec.authorizationOf,
   commandTransition: DcbFixtures$ReventlessCore.TestCommandSpec.commandTransition,
   traits: DcbFixtures$ReventlessCore.TestCommandSpec.traits,
   readConsistency: DcbFixtures$ReventlessCore.TestCommandSpec.readConsistency
@@ -77,7 +77,7 @@ let commandSchema = DcbFixtures$ReventlessCore.TestCommandSpec.commandSchema;
 
 let errorSchema = DcbFixtures$ReventlessCore.TestCommandSpec.errorSchema;
 
-let commandAuthorization = DcbFixtures$ReventlessCore.TestCommandSpec.commandAuthorization;
+let authorizationOf = DcbFixtures$ReventlessCore.TestCommandSpec.authorizationOf;
 
 let commandTransition = DcbFixtures$ReventlessCore.TestCommandSpec.commandTransition;
 
@@ -102,7 +102,7 @@ let StrongSpec = {
   initialState: StrongSpec_initialState,
   evolve: StrongSpec_evolve,
   decide: StrongSpec_decide,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "AlwaysStrong"
@@ -120,7 +120,7 @@ let commandSchema$1 = DcbFixtures$ReventlessCore.TestCommandSpec.commandSchema;
 
 let errorSchema$1 = DcbFixtures$ReventlessCore.TestCommandSpec.errorSchema;
 
-let commandAuthorization$1 = DcbFixtures$ReventlessCore.TestCommandSpec.commandAuthorization;
+let authorizationOf$1 = DcbFixtures$ReventlessCore.TestCommandSpec.authorizationOf;
 
 let commandTransition$1 = DcbFixtures$ReventlessCore.TestCommandSpec.commandTransition;
 
@@ -145,7 +145,7 @@ let EventualSpec = {
   initialState: EventualSpec_initialState,
   evolve: EventualSpec_evolve,
   decide: EventualSpec_decide,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1,
   readConsistency: "AlwaysEventual"
@@ -158,7 +158,7 @@ let StrongHandler = StateChangeSlice_Callback$ReventlessCore.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "AlwaysStrong"
@@ -171,7 +171,7 @@ let EventualHandler = StateChangeSlice_Callback$ReventlessCore.Make({
   errorSchema: errorSchema$1,
   eventSchema: eventSchema$1,
   commandSchema: commandSchema$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1,
   readConsistency: "AlwaysEventual"

package/tests/eventmapper/EventMapperFixtures.res.mjs

@@ -161,7 +161,7 @@ let commandSchema = Sury.union([
 
 let moduleUrl$2 = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -176,7 +176,7 @@ let CmdTargetSpec = {
   name: name$3,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl$2,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -253,7 +253,7 @@ let OrderMappings_Target = {
   name: name$3,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl$2,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -284,7 +284,7 @@ let CountOrderMappings_Target = {
   name: name$3,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl$2,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/extensionpoint/ExtensionPointFixtures.res.mjs

@@ -26,7 +26,7 @@ let directiveSchema = Sury.literal("DirectiveA");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -42,7 +42,7 @@ let TestEPSpec = {
   eventSchema: eventSchema,
   directiveSchema: directiveSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/extensionpoint/ExtensionPointOperationsTest.res.mjs

@@ -21,7 +21,7 @@ let directiveSchema = Sury.literal("OpsEPNoDirective");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -37,7 +37,7 @@ let OpsEPSpec = {
   eventSchema: eventSchema,
   directiveSchema: directiveSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/plugin/PluginStructureAccessTest.res

@@ -147,10 +147,11 @@ module PsTwoRuleFeed = {
   let targetName = "AddProduct"
   let externalSystem = None
   type role = Reventless.Role.name
-  let commandAuthorization = (command: command): Reventless.Authorization.rule<role> =>
-    switch command {
-    | AddProduct(_) => AllowRoles([Reventless.Role.make("Merchandiser")])
-    | AddCategory(_) => AllowRoles([Reventless.Role.make("Admin")])
+  let authorizationOf = (name: string): Reventless.Authorization.rule<role> =>
+    switch name {
+    | "AddProduct" => AllowRoles([Reventless.Role.make("Merchandiser")])
+    | "AddCategory" => AllowRoles([Reventless.Role.make("Admin")])
+    | _ => DenyAll
     }
 }
 
@@ -172,7 +173,7 @@ module PsTwoRuleFeedSlice: ReventlessInfra.InboundTranslationSlice.T = {
 describe("an inbound slice's roles", () => {
   let door = Dcb_Builder.inboundDoorPermission(
     PsTwoRuleFeed.commandSchema,
-    PsTwoRuleFeed.commandAuthorization,
+    PsTwoRuleFeed.authorizationOf,
   )
 
   testSync("the door admits any constructor's roles", () =>