@reventlessdev/reventless-local 3.0.0-alpha.282 → 3.0.0-alpha.283

package/CHANGELOG.md

@@ -3,6 +3,17 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 3.0.0-alpha.283 (2026-10-10)
+
+* feat!: a command's rule is looked up by its name, without a cast ([5f02c40](https://github.com/ReventlessDev/reventless-core/commit/5f02c4081d077bf4a6951d8c9b2b16553a8ca87b))
+
+### BREAKING CHANGES
+
+* a spec that writes `commandAuthorization` by hand writes
+`authorizationOf = (name: string) => …` instead; the PPX refuses the old name.
+
+
+
 # 3.0.0-alpha.282 (2026-10-10)
 
 ### Bug Fixes

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-local",
-  "version": "3.0.0-alpha.282",
+  "version": "3.0.0-alpha.283",
   "description": "Local platform for Reventless (in-memory or SQLite backend, for development and testing without AWS)",
   "license": "Apache-2.0",
   "bin": {
@@ -37,21 +37,21 @@
     "@reventlessdev/rescript-effect": "0.1.0-alpha.34",
     "@reventlessdev/rescript-graphql-yoga": "1.0.0-alpha.29",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.11",
-    "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.23",
     "@reventlessdev/rescript-node": "2.0.0-alpha.22",
+    "@reventlessdev/rescript-mcp-sdk": "1.0.0-alpha.23",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.23",
-    "@reventlessdev/reventless-core": "3.0.0-alpha.292",
-    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.140",
-    "@reventlessdev/reventless-gwt": "1.0.0-alpha.239",
+    "@reventlessdev/reventless-graphql-server": "1.0.0-alpha.141",
+    "@reventlessdev/reventless-core": "3.0.0-alpha.293",
+    "@reventlessdev/reventless-gwt": "1.0.0-alpha.240",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.190",
     "@reventlessdev/reventless-seed": "1.0.0-alpha.33",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.189",
-    "@reventlessdev/reventless-postgres": "3.0.0-alpha.156",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.161"
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.162",
+    "@reventlessdev/reventless-postgres": "3.0.0-alpha.157"
   },
   "devDependencies": {
     "rescript": "12.3.1",
     "sury-ppx": "11.0.0",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.98"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.99"
   },
   "peerDependencies": {
     "rescript": "^12.3.1"

package/src/Platform.res

@@ -290,14 +290,14 @@ module MakeWithConfig = (
     deployTarget: ref("Domain"),
     // Phase 1: register SDL + resolver stub synchronously.
     // Pass the resolved server so the correct target (domain or platform) receives the schema.
-    mutationResolverHook: (~kind, ~fields, ~commandSchema, ~commandAuthorization) => {
+    mutationResolverHook: (~kind, ~fields, ~commandSchema, ~authorizationOf) => {
       let server = resolveTargetGraphQL()
       switch kind {
       | ReventlessCore.Plugin_Helpers.Aggregate =>
         CommandGeneratorResolvers_GraphQL.register(
           ~fields,
           ~commandSchema,
-          ~commandAuthorization,
+          ~authorizationOf,
           ~server,
         )
       | Dcb =>
@@ -305,7 +305,7 @@ module MakeWithConfig = (
           CommandGeneratorResolvers_GraphQL.registerDcb(
             ~fieldName=field,
             ~commandSchema,
-            ~commandAuthorization,
+            ~authorizationOf,
             ~server,
           )
         )

package/src/Platform.res.mjs

@@ -225,12 +225,12 @@ function MakeWithConfig(Config) {
     }
   };
   let EventHistoryResolvers = EventHistoryResolvers_GraphQL$ReventlessLocal.Make(Bus);
-  let hooks_mutationResolverHook = (kind, fields, commandSchema, commandAuthorization) => {
+  let hooks_mutationResolverHook = (kind, fields, commandSchema, authorizationOf) => {
     let server = resolveTargetGraphQL();
     if (kind === "Aggregate") {
-      return CommandGeneratorResolvers_GraphQL$ReventlessLocal.register(fields, commandSchema, commandAuthorization, server);
+      return CommandGeneratorResolvers_GraphQL$ReventlessLocal.register(fields, commandSchema, authorizationOf, server);
     }
-    fields.forEach(field => CommandGeneratorResolvers_GraphQL$ReventlessLocal.registerDcb(field, commandSchema, commandAuthorization, server));
+    fields.forEach(field => CommandGeneratorResolvers_GraphQL$ReventlessLocal.registerDcb(field, commandSchema, authorizationOf, server));
   };
   let hooks_mutationBindHook = CommandGeneratorResolvers_GraphQL$ReventlessLocal.bindHandler;
   let hooks_inboundMutationResolverHook = (fieldName, externalInputSchema, permission) => InboundTranslationResolvers_GraphQL$ReventlessLocal.register(fieldName, externalInputSchema, permission, resolveTargetGraphQL());
@@ -649,7 +649,7 @@ function MakeWithConfig(Config) {
     errorSchema: UiFragmentRegistry$ReventlessCore.errorSchema,
     eventSchema: UiFragmentRegistry$ReventlessCore.eventSchema,
     commandSchema: UiFragmentRegistry$ReventlessCore.commandSchema,
-    commandAuthorization: UiFragmentRegistry$ReventlessCore.commandAuthorization,
+    authorizationOf: UiFragmentRegistry$ReventlessCore.authorizationOf,
     commandTransition: UiFragmentRegistry$ReventlessCore.commandTransition,
     traits: UiFragmentRegistry$ReventlessCore.traits,
     readConsistency: UiFragmentRegistry$ReventlessCore.readConsistency
@@ -761,7 +761,7 @@ function MakeWithConfig(Config) {
     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
   })({
@@ -1985,12 +1985,12 @@ function Make($star) {
     }
   };
   let EventHistoryResolvers = EventHistoryResolvers_GraphQL$ReventlessLocal.Make(Bus);
-  let hooks_mutationResolverHook = (kind, fields, commandSchema, commandAuthorization) => {
+  let hooks_mutationResolverHook = (kind, fields, commandSchema, authorizationOf) => {
     let server = resolveTargetGraphQL();
     if (kind === "Aggregate") {
-      return CommandGeneratorResolvers_GraphQL$ReventlessLocal.register(fields, commandSchema, commandAuthorization, server);
+      return CommandGeneratorResolvers_GraphQL$ReventlessLocal.register(fields, commandSchema, authorizationOf, server);
     }
-    fields.forEach(field => CommandGeneratorResolvers_GraphQL$ReventlessLocal.registerDcb(field, commandSchema, commandAuthorization, server));
+    fields.forEach(field => CommandGeneratorResolvers_GraphQL$ReventlessLocal.registerDcb(field, commandSchema, authorizationOf, server));
   };
   let hooks_mutationBindHook = CommandGeneratorResolvers_GraphQL$ReventlessLocal.bindHandler;
   let hooks_inboundMutationResolverHook = (fieldName, externalInputSchema, permission) => InboundTranslationResolvers_GraphQL$ReventlessLocal.register(fieldName, externalInputSchema, permission, resolveTargetGraphQL());
@@ -2409,7 +2409,7 @@ function Make($star) {
     errorSchema: UiFragmentRegistry$ReventlessCore.errorSchema,
     eventSchema: UiFragmentRegistry$ReventlessCore.eventSchema,
     commandSchema: UiFragmentRegistry$ReventlessCore.commandSchema,
-    commandAuthorization: UiFragmentRegistry$ReventlessCore.commandAuthorization,
+    authorizationOf: UiFragmentRegistry$ReventlessCore.authorizationOf,
     commandTransition: UiFragmentRegistry$ReventlessCore.commandTransition,
     traits: UiFragmentRegistry$ReventlessCore.traits,
     readConsistency: UiFragmentRegistry$ReventlessCore.readConsistency
@@ -2521,7 +2521,7 @@ function Make($star) {
     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/adapter/CommandGenerator/CommandGeneratorResolvers_GraphQL.res

@@ -83,17 +83,6 @@ let checkPluginStatus = (~field: string): option<JSON.t> =>
   | None => None
   }
 
-// Build a synthetic command value sufficient for evaluating
-// `commandAuthorization`. ReScript variants with record payloads compile to
-// `{TAG: cname, ...payload}` and the PPX-generated switch matches `Ctor(_)`
-// which only checks `command.TAG === cname`. Payload-less constructors
-// compile to bare string literals and the switch matches them with
-// `command === "Cname"`, so the synthetic value must be a bare string in
-// that case — otherwise the wildcard branch (file-level default) wins
-// instead of the per-constructor rule.
-let syntheticCommand = (cname: string, ~hasPayload: bool): unknown =>
-  hasPayload ? {"TAG": cname}->Obj.magic : cname->Obj.magic
-
 let capitalize = s => s->String.charAt(0)->String.toUpperCase ++ s->String.slice(~start=1)
 
 // -- CommandResult SDL types --------------------------------------------------
@@ -139,7 +128,7 @@ let extractVariantSchema = (commandSchema: S.t<unknown>, ~index=0) =>
 // stale `_0` payload arg into the SDL. Looking up by name avoids that.
 let variantIndexForField = (commandSchema: S.t<unknown>, ~field: string): int => {
   let cname = extractCommandName(field)
-  let allNames = Reventless.DcbTag.extractAllVariantNames(commandSchema->Obj.magic)
+  let allNames = Reventless.DcbTag.extractAllVariantNames(commandSchema)
   allNames->Array.indexOf(cname)
 }
 
@@ -188,7 +177,7 @@ let runCommand = async (
 let register = (
   ~fields: array<string>,
   ~commandSchema: S.t<unknown>,
-  ~commandAuthorization: unknown => Reventless.Authorization.permission,
+  ~authorizationOf: string => Reventless.Authorization.permission,
   ~server: ReventlessGraphqlServer.GraphQL_ServerInstance.t,
 ) => {
   ensureCommandResultTypes(server)
@@ -210,13 +199,6 @@ let register = (
   fields->Array.forEach(field => {
     let handlerRef = ref(None)
     handlerRefs->Dict.set(field, handlerRef)
-    // hasPayload is fixed per field — capture once at registration time so
-    // the resolver doesn't re-walk the schema per request.
-    let variantIndex = variantIndexForField(commandSchema, ~field)
-    let hasPayload = switch extractVariantSchema(commandSchema, ~index=variantIndex) {
-    | Object(_) => true
-    | _ => false
-    }
     let commandName = extractCommandName(field)
     let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (
       _root,
@@ -229,7 +211,7 @@ let register = (
         | Some(rejected) => rejected
         | None =>
           let identity = extractIdentity(ctx)
-          let rule = commandAuthorization(syntheticCommand(commandName, ~hasPayload))
+          let rule = authorizationOf(commandName)
           if !Reventless.Authorization.isAllowed(rule, identity) {
             rejectForbidden(~field)
           } else {
@@ -262,7 +244,7 @@ let register = (
 let registerDcb = (
   ~fieldName: string,
   ~commandSchema: S.t<unknown>,
-  ~commandAuthorization: unknown => Reventless.Authorization.permission,
+  ~authorizationOf: string => Reventless.Authorization.permission,
   ~server: ReventlessGraphqlServer.GraphQL_ServerInstance.t,
 ) => {
   ensureCommandResultTypes(server)
@@ -271,7 +253,7 @@ let registerDcb = (
   // constructor (slice name == constructor); a multi-command slice's `Plugin_Ctor`
   // resolves to `Ctor`. Position 0 was previously hardcoded, which dropped every
   // non-first constructor of a multi-command slice.
-  let constructorNames = Reventless.DcbTag.extractAllVariantNames(commandSchema->Obj.magic)
+  let constructorNames = Reventless.DcbTag.extractAllVariantNames(commandSchema)
   let variantIndex = variantIndexForField(commandSchema, ~field=fieldName)
   let variantSchema = extractVariantSchema(
     commandSchema,
@@ -284,7 +266,6 @@ let registerDcb = (
     (
       variantIndex >= 0 ? constructorNames->Array.get(variantIndex) : constructorNames->Array.get(0)
     )->Option.getOr(fieldName)
-  let hasPayload = Reventless.DcbTag.isVariantPayloadBearing(commandSchema->Obj.magic, tag)
 
   let handlerRef = ref(None)
   handlerRefs->Dict.set(fieldName, handlerRef)
@@ -300,7 +281,7 @@ let registerDcb = (
       | Some(rejected) => rejected
       | None =>
         let identity = extractIdentity(ctx)
-        let rule = commandAuthorization(syntheticCommand(tag, ~hasPayload))
+        let rule = authorizationOf(tag)
         if !Reventless.Authorization.isAllowed(rule, identity) {
           rejectForbidden(~field=fieldName)
         } else {

package/src/adapter/CommandGenerator/CommandGeneratorResolvers_GraphQL.res.mjs

@@ -93,16 +93,6 @@ function checkPluginStatus(field) {
   }
 }
 
-function syntheticCommand(cname, hasPayload) {
-  if (hasPayload) {
-    return {
-      TAG: cname
-    };
-  } else {
-    return cname;
-  }
-}
-
 function capitalize(s) {
   return s.charAt(0).toUpperCase() + s.slice(1);
 }
@@ -156,7 +146,7 @@ async function runCommand(generateCommand, payload) {
   }
 }
 
-function register(fields, commandSchema, commandAuthorization, server) {
+function register(fields, commandSchema, authorizationOf, server) {
   server.registerTypes([commandResultSdl]);
   let sdlFields = fields.map(field => {
     let variantIndex = variantIndexForField(commandSchema, field);
@@ -173,10 +163,6 @@ function register(fields, commandSchema, commandAuthorization, server) {
       contents: undefined
     };
     handlerRefs[field] = handlerRef;
-    let variantIndex = variantIndexForField(commandSchema, field);
-    let match = extractVariantSchema(commandSchema, variantIndex);
-    let hasPayload;
-    hasPayload = match.type === "object";
     let commandName = extractCommandName(field);
     let resolver = async (_root, args, ctx) => {
       let generateCommand = handlerRef.contents;
@@ -188,7 +174,7 @@ function register(fields, commandSchema, commandAuthorization, server) {
         return rejected;
       }
       let identity = extractIdentity(ctx);
-      let rule = commandAuthorization(syntheticCommand(commandName, hasPayload));
+      let rule = authorizationOf(commandName);
       if (!Authorization$Reventless.isAllowed(rule, identity)) {
         return rejectForbidden(field);
       }
@@ -210,14 +196,13 @@ function register(fields, commandSchema, commandAuthorization, server) {
   server.registerMutations(sdlFields, resolvers);
 }
 
-function registerDcb(fieldName, commandSchema, commandAuthorization, server) {
+function registerDcb(fieldName, commandSchema, authorizationOf, server) {
   server.registerTypes([commandResultSdl]);
   let constructorNames = DcbTag$Reventless.extractAllVariantNames(commandSchema);
   let variantIndex = variantIndexForField(commandSchema, fieldName);
   let variantSchema = extractVariantSchema(commandSchema, variantIndex >= 0 ? variantIndex : 0);
   let sdlFields = [deriveSdlField(fieldName, variantSchema)];
   let tag = Stdlib_Option.getOr(variantIndex >= 0 ? constructorNames[variantIndex] : constructorNames[0], fieldName);
-  let hasPayload = DcbTag$Reventless.isVariantPayloadBearing(commandSchema, tag);
   let handlerRef = {
     contents: undefined
   };
@@ -232,7 +217,7 @@ function registerDcb(fieldName, commandSchema, commandAuthorization, server) {
       return rejected;
     }
     let identity = extractIdentity(ctx);
-    let rule = commandAuthorization(syntheticCommand(tag, hasPayload));
+    let rule = authorizationOf(tag);
     if (!Authorization$Reventless.isAllowed(rule, identity)) {
       return rejectForbidden(fieldName);
     }
@@ -296,7 +281,6 @@ export {
   resetPluginStatusGate,
   rejectPluginStatus,
   checkPluginStatus,
-  syntheticCommand,
   capitalize,
   commandResultSdl,
   ensureCommandResultTypes,

package/src/adapter/PlatformGraphQL_Server.res

@@ -21,7 +21,7 @@
 // failure, and cannot afford to read it as a session that has ended.
 //
 // Mutations are wrapped (in addition to their per-command
-// `commandAuthorization` rule inside `CommandGeneratorResolvers_GraphQL.register`)
+// `authorizationOf` rule inside `CommandGeneratorResolvers_GraphQL.register`)
 // because the per-command rule defaults to `AllowAuthenticated` and the
 // in-memory adapter falls back to `defaultUser` on missing-bearer requests
 // — without the wrapper, anonymous callers could trigger admin mutations

package/tests/adapter/CommandAuthorizationTest.res

@@ -3,7 +3,7 @@
 // constructor `Add({name})` defaulting to AllowAuthenticated, plus a
 // payload-less `Archive` constrained to AllowRoles([Admin]).
 //
-// The PPX emits a `commandAuthorization` switch at compile time (see
+// The PPX emits an `authorizationOf` switch at compile time (see
 // examples/online-shop-hybrid/catalog/.../Category.res.mjs). This test hand-
 // writes an equivalent switch and feeds it through the live resolver path
 // (CommandGeneratorResolvers_GraphQL.register), so the test covers the same
@@ -25,11 +25,10 @@ type command =
 
 // Matches the shape the PPX emits for `@authorize(AllowRoles([Admin]))` on
 // the payload-less `Archive` constructor with a file-level default.
-let commandAuthorization = (cmd: unknown): Reventless.Authorization.permission =>
-  if (cmd->Obj.magic: 'a) === "Archive" {
-    AllowRoles([Reventless.Role.make("Admin")])
-  } else {
-    AllowAuthenticated
+let authorizationOf = (name: string): Reventless.Authorization.permission =>
+  switch name {
+  | "Archive" => AllowRoles([Reventless.Role.make("Admin")])
+  | _ => AllowAuthenticated
   }
 
 // ── Identity fixtures ────────────────────────────────────────────────────────
@@ -84,7 +83,7 @@ let buildFixture = (~namespace: string) => {
   CommandGeneratorResolvers_GraphQL.register(
     ~fields=[addField, renameField, archiveField],
     ~commandSchema=commandSchema->S.castToUnknown,
-    ~commandAuthorization,
+    ~authorizationOf,
     ~server,
   )
 
@@ -242,7 +241,7 @@ let failingFixture = (~namespace: string, ~failWith: unit => unit) => {
   CommandGeneratorResolvers_GraphQL.register(
     ~fields=[field],
     ~commandSchema=commandSchema->S.castToUnknown,
-    ~commandAuthorization,
+    ~authorizationOf,
     ~server,
   )
   let generateCommand: ReventlessCore.CommandGenerator.commandGenerator = _payload =>

package/tests/adapter/CommandAuthorizationTest.res.mjs

@@ -28,8 +28,8 @@ let commandSchema = Sury.union([
   Sury.literal("Archive")
 ]);
 
-function commandAuthorization(cmd) {
-  if (cmd === "Archive") {
+function authorizationOf(name) {
+  if (name === "Archive") {
     return {
       TAG: "AllowRoles",
       _0: ["Admin"]
@@ -91,7 +91,7 @@ function buildFixture(namespace) {
     addField,
     renameField,
     archiveField
-  ], commandSchema, commandAuthorization, DomainGraphQL_Server$ReventlessLocal.asInterface);
+  ], commandSchema, authorizationOf, DomainGraphQL_Server$ReventlessLocal.asInterface);
   let stubGenerateCommand = payload => Effect.promise(() => {
     calls.contents.push(payload.command);
     return Promise.resolve({
@@ -203,7 +203,7 @@ globalThis.describe("CommandGeneratorResolvers_GraphQL — per-constructor autho
 
 function failingFixture(namespace, failWith) {
   let field = namespace + `_Add`;
-  CommandGeneratorResolvers_GraphQL$ReventlessLocal.register([field], commandSchema, commandAuthorization, DomainGraphQL_Server$ReventlessLocal.asInterface);
+  CommandGeneratorResolvers_GraphQL$ReventlessLocal.register([field], commandSchema, authorizationOf, DomainGraphQL_Server$ReventlessLocal.asInterface);
   let generateCommand = _payload => Effect.promise(() => {
     failWith();
     return Promise.resolve({
@@ -260,7 +260,7 @@ globalThis.describe("CommandGeneratorResolvers_GraphQL — a failure the caller
 
 export {
   commandSchema,
-  commandAuthorization,
+  authorizationOf,
   adminIdentity,
   userIdentity,
   ctxFor,

package/tests/adapter/InboundTranslationMutationTest.res

@@ -190,7 +190,7 @@ describe("InboundTranslationSlice mutation — the door", () => {
       ~externalInputSchema=CatalogFeedSpec.externalInputSchema->S.castToUnknown,
       ~permission=?ReventlessCore.Dcb_Builder.inboundDoorPermission(
         CatalogFeedSpec.commandSchema,
-        CatalogFeedSpec.commandAuthorization,
+        CatalogFeedSpec.authorizationOf,
       ),
       ~server=DomainGraphQL_Server.asInterface,
     )

package/tests/adapter/InboundTranslationMutationTest.res.mjs

@@ -29,7 +29,7 @@ let Callback = InboundTranslationSlice_Callback$ReventlessCore.Make({
   commandSchema: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.commandSchema,
   targetName: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.targetName,
   externalSystem: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.externalSystem,
-  commandAuthorization: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.commandAuthorization
+  authorizationOf: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.authorizationOf
 })(PaymentWebhookTranslation);
 
 let scope = "Payments";
@@ -157,7 +157,7 @@ let CatalogFeedCallback = InboundTranslationSlice_Callback$ReventlessCore.Make({
   commandSchema: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandSchema,
   targetName: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.targetName,
   externalSystem: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.externalSystem,
-  commandAuthorization: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandAuthorization
+  authorizationOf: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.authorizationOf
 })(CatalogFeedTranslation);
 
 let feedField = "Catalog_CatalogFeed";
@@ -171,7 +171,7 @@ globalThis.describe("InboundTranslationSlice mutation — the door", () => {
     DomainGraphQL_Server$ReventlessLocal.asInterface.reset();
     published.contents = [];
     DomainGraphQL_Server$ReventlessLocal.setScope("Catalog");
-    InboundTranslationResolvers_GraphQL$ReventlessLocal.register(feedField, InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.externalInputSchema, Dcb_Builder$ReventlessCore.inboundDoorPermission(InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandSchema, InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandAuthorization), DomainGraphQL_Server$ReventlessLocal.asInterface);
+    InboundTranslationResolvers_GraphQL$ReventlessLocal.register(feedField, InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.externalInputSchema, Dcb_Builder$ReventlessCore.inboundDoorPermission(InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandSchema, InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.authorizationOf), DomainGraphQL_Server$ReventlessLocal.asInterface);
     DomainGraphQL_Server$ReventlessLocal.resetScope();
     InboundTranslationResolvers_GraphQL$ReventlessLocal.bindReceive(feedField, (inputJson, caller) => CatalogFeedCallback.receive(publishJsons, inputJson, caller));
   });

package/tests/components/aggregate/AggregateFixtures.res.mjs

@@ -23,7 +23,7 @@ let errorSchema = Sury.literal("AlreadyExists");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -40,7 +40,7 @@ let ItemSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -97,7 +97,7 @@ let ItemAgg = ItemAggregateMaker.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })(ItemBehavior)(NoEventMappings$ReventlessInfra.Make({

package/tests/components/aggregate/AggregateSelfMappingFixtures.res.mjs

@@ -25,7 +25,7 @@ let errorSchema = Sury.$unit;
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -42,7 +42,7 @@ let ShipmentSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -155,7 +155,7 @@ let ShipmentAgg = ShipmentAggregateMaker.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })(ShipmentBehavior)({

package/tests/components/automationslice/AutomationSliceFixtures.res.mjs

@@ -59,7 +59,7 @@ let commandSchema = Sury.$schema(s => ({
   orderId: s.m(DcbTag$Reventless.string)
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -77,7 +77,7 @@ let ShipOrderSpec = {
   maxRetries: 3,
   heartbeatInterval: 60,
   targetName: "CreateShipment",
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -90,7 +90,7 @@ let todoItemSchema$1 = Sury.$schema(s => ({
 
 let commandSchema$1 = Sury.literal("Noop");
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -108,7 +108,7 @@ let SkipProcessSpec = {
   maxRetries: 0,
   heartbeatInterval: 60,
   targetName: "Noop",
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 };

package/tests/components/automationslice/AutomationSliceSelfDeadlockFixtures.res.mjs

@@ -37,7 +37,7 @@ let commandSchema = Sury.$schema(s => ({
 
 let errorSchema = Sury.literal("AlreadyPlaced");
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -55,7 +55,7 @@ let PlaceSpec = {
   consumedEventSchema: consumedEventSchema,
   errorSchema: errorSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -116,7 +116,7 @@ let commandSchema$1 = Sury.$schema(s => ({
 
 let errorSchema$1 = Sury.literal("NotPlaced");
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -134,7 +134,7 @@ let ShipSpec = {
   consumedEventSchema: consumedEventSchema$1,
   errorSchema: errorSchema$1,
   commandSchema: commandSchema$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1,
   readConsistency: "EscalateOnRetry"
@@ -225,7 +225,7 @@ let commandSchema$2 = Sury.$schema(s => ({
   orderId: s.m(DcbTag$Reventless.string)
 }));
 
-function commandAuthorization$2(param) {
+function authorizationOf$2(param) {
   return "AllowAuthenticated";
 }
 
@@ -243,7 +243,7 @@ let AutoShipSpec = {
   maxRetries: 3,
   heartbeatInterval: 60,
   targetName: "Ship",
-  commandAuthorization: commandAuthorization$2,
+  authorizationOf: authorizationOf$2,
   commandTransition: commandTransition$2,
   traits: traits$2
 };
@@ -362,7 +362,7 @@ let PlaceMaker = StateChangeSlice_Builder$ReventlessLocal.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -382,7 +382,7 @@ let ShipMaker = StateChangeSlice_Builder$ReventlessLocal.Make({
   errorSchema: errorSchema$1,
   eventSchema: eventSchema$1,
   commandSchema: commandSchema$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1,
   readConsistency: "EscalateOnRetry"

package/tests/components/automationslice/MixedSourceAutomationSliceFixtures.res.mjs

@@ -64,7 +64,7 @@ let commandSchema = Sury.$schema(s => ({
   productId: s.m(DcbTag$Reventless.string)
 }));
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -82,7 +82,7 @@ let AutoFulfillSpec = {
   maxRetries: 3,
   heartbeatInterval: 60,
   targetName: "MarkFulfilled",
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/components/commandgenerator/CommandGeneratorFixtures.res.mjs

@@ -24,7 +24,7 @@ let errorSchema = Sury.literal("CGAlreadyExists");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -41,7 +41,7 @@ let CGSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -89,7 +89,7 @@ let CGMaker = CommandGenerator_Builder$ReventlessCore.Make({
   errorSchema: errorSchema,
   commandSchema: commandSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 })(LocalCommandGeneratorResolvers$ReventlessLocal);

package/tests/components/commandtopic/CommandTopicFixtures.res.mjs

@@ -29,7 +29,7 @@ let errorSchema = Sury.literal("AlreadyExists");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -46,7 +46,7 @@ let ItemSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/components/commandtopic/CommandTopicStreamFixtures.res.mjs

@@ -31,7 +31,7 @@ let errorSchema = Sury.literal("AlreadyExists");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -48,7 +48,7 @@ let ItemSpec = {
   eventSchema: eventSchema,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };

package/tests/components/dcb/DcbCrossPartitionFixtures.res.mjs

@@ -68,7 +68,7 @@ let errorSchema = Sury.union([
   Sury.literal("CategoryNotFound")
 ]);
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -86,7 +86,7 @@ let AddProductSpec = {
   consumedEventSchema: consumedEventSchema,
   errorSchema: errorSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -177,7 +177,7 @@ let AddProductMaker = StateChangeSlice_Builder$ReventlessLocal.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema$1,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"

package/tests/components/dcb/DcbFixtures.res.mjs

@@ -45,7 +45,7 @@ let commandSchema = Sury.$schema(s => ({
 
 let errorSchema = Sury.literal("ItemAlreadyExists");
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -63,7 +63,7 @@ let AddItemSpec = {
   consumedEventSchema: consumedEventSchema,
   errorSchema: errorSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -129,7 +129,7 @@ let AddItemMaker = StateChangeSlice_Builder$ReventlessLocal.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema$1,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"

package/tests/components/extensionpoint/ExtensionPointFixtures.res.mjs

@@ -25,7 +25,7 @@ let directiveSchema = Sury.literal("TEPNoDirective");
 
 let moduleUrl = import.meta.url;
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -41,7 +41,7 @@ let TestEPSpec = {
   eventSchema: eventSchema,
   directiveSchema: directiveSchema,
   moduleUrl: moduleUrl,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits
 };
@@ -62,7 +62,7 @@ let errorSchema = Sury.literal("TEAggNoError");
 
 let moduleUrl$1 = import.meta.url;
 
-function commandAuthorization$1(param) {
+function authorizationOf$1(param) {
   return "AllowAuthenticated";
 }
 
@@ -79,7 +79,7 @@ let DelegateAggSpec = {
   eventSchema: eventSchema$1,
   errorSchema: errorSchema,
   moduleUrl: moduleUrl$1,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   commandTransition: commandTransition$1,
   traits: traits$1
 };
@@ -137,7 +137,7 @@ let TestEPMapping1 = ExtensionPointMapping$ReventlessInfra.Make({
     errorSchema: errorSchema,
     commandSchema: commandSchema$1,
     moduleUrl: moduleUrl$1,
-    commandAuthorization: commandAuthorization$1,
+    authorizationOf: authorizationOf$1,
     commandTransition: commandTransition$1,
     traits: traits$1
   },

package/tests/components/inboundtranslationslice/InboundTranslationSliceCallbackTest.res

@@ -224,7 +224,7 @@ describe("InboundTranslationSlice Callback", () => {
 
           type role = Reventless.Role.name
 
-          let commandAuthorization = (_: command): Reventless.Authorization.rule<role> =>
+          let authorizationOf = (_: string): Reventless.Authorization.rule<role> =>
             AllowAuthenticated
         }
 
@@ -290,7 +290,7 @@ describe("InboundTranslationSlice Callback", () => {
 
           type role = Reventless.Role.name
 
-          let commandAuthorization = (_: command): Reventless.Authorization.rule<role> =>
+          let authorizationOf = (_: string): Reventless.Authorization.rule<role> =>
             AllowAuthenticated
         }
 

package/tests/components/inboundtranslationslice/InboundTranslationSliceCallbackTest.res.mjs

@@ -26,7 +26,7 @@ let Callback = InboundTranslationSlice_Callback$ReventlessCore.Make({
   commandSchema: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.commandSchema,
   targetName: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.targetName,
   externalSystem: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.externalSystem,
-  commandAuthorization: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.commandAuthorization
+  authorizationOf: InboundTranslationSliceFixtures$ReventlessLocal.PaymentWebhookSpec.authorizationOf
 })(PaymentWebhookTranslation);
 
 globalThis.describe("InboundTranslationSlice Callback", () => {
@@ -186,7 +186,7 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
           }
         ])
       });
-      let commandAuthorization = param => "AllowAuthenticated";
+      let authorizationOf = param => "AllowAuthenticated";
       let MultiTranslation = {
         translate: translate,
         moduleUrl: moduleUrl
@@ -198,7 +198,7 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
         commandSchema: commandSchema,
         targetName: "ConfirmPayment",
         externalSystem: undefined,
-        commandAuthorization: commandAuthorization
+        authorizationOf: authorizationOf
       })(MultiTranslation);
       let publishedCommands = {
         contents: []
@@ -248,7 +248,7 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
         TAG: "Ok",
         _0: []
       });
-      let commandAuthorization = param => "AllowAuthenticated";
+      let authorizationOf = param => "AllowAuthenticated";
       let EmptyTranslation = {
         translate: translate,
         moduleUrl: moduleUrl
@@ -260,7 +260,7 @@ globalThis.describe("InboundTranslationSlice Callback", () => {
         commandSchema: commandSchema,
         targetName: "ConfirmPayment",
         externalSystem: undefined,
-        commandAuthorization: commandAuthorization
+        authorizationOf: authorizationOf
       })(EmptyTranslation);
       let publishedCommands = {
         contents: []
@@ -300,7 +300,7 @@ let CatalogFeedCallback = InboundTranslationSlice_Callback$ReventlessCore.Make({
   commandSchema: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandSchema,
   targetName: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.targetName,
   externalSystem: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.externalSystem,
-  commandAuthorization: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.commandAuthorization
+  authorizationOf: InboundTranslationSliceFixtures$ReventlessLocal.CatalogFeedSpec.authorizationOf
 })(CatalogFeedTranslation);
 
 function caller(groups) {
@@ -396,7 +396,7 @@ let NoteFeedCallback = InboundTranslationSlice_Callback$ReventlessCore.Make({
   commandSchema: InboundTranslationSliceFixtures$ReventlessLocal.NoteFeedSpec.commandSchema,
   targetName: InboundTranslationSliceFixtures$ReventlessLocal.NoteFeedSpec.targetName,
   externalSystem: InboundTranslationSliceFixtures$ReventlessLocal.NoteFeedSpec.externalSystem,
-  commandAuthorization: InboundTranslationSliceFixtures$ReventlessLocal.NoteFeedSpec.commandAuthorization
+  authorizationOf: InboundTranslationSliceFixtures$ReventlessLocal.NoteFeedSpec.authorizationOf
 })(NoteFeedTranslation);
 
 globalThis.describe("receive encodes commands with their schema", () => {

package/tests/components/inboundtranslationslice/InboundTranslationSliceFixtures.res

@@ -56,10 +56,11 @@ module CatalogFeedSpec = {
   type role = Reventless.Role.name
   let merchandiser = Reventless.Role.make("Merchandiser")
   let admin = Reventless.Role.make("Admin")
-  let commandAuthorization = (command: command): Reventless.Authorization.rule<role> =>
-    switch command {
-    | AddProduct(_) => AllowRoles([merchandiser])
-    | AddCategory(_) => AllowRoles([admin])
+  let authorizationOf = (name: string): Reventless.Authorization.rule<role> =>
+    switch name {
+    | "AddProduct" => AllowRoles([merchandiser])
+    | "AddCategory" => AllowRoles([admin])
+    | _ => DenyAll
     }
 
   let translate = (input: externalInput) =>

package/tests/components/inboundtranslationslice/InboundTranslationSliceFixtures.res.mjs

@@ -52,7 +52,7 @@ function translate(input) {
   }
 }
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -66,7 +66,7 @@ let PaymentWebhookSpec = {
   targetName: "ConfirmPayment",
   externalSystem: undefined,
   translate: translate,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   traits: traits
 };
 
@@ -92,17 +92,20 @@ let merchandiser = "Merchandiser";
 
 let admin = "Admin";
 
-function commandAuthorization$1(command) {
-  if (command.TAG === "AddProduct") {
-    return {
-      TAG: "AllowRoles",
-      _0: [merchandiser]
-    };
-  } else {
-    return {
-      TAG: "AllowRoles",
-      _0: [admin]
-    };
+function authorizationOf$1(name) {
+  switch (name) {
+    case "AddCategory" :
+      return {
+        TAG: "AllowRoles",
+        _0: [admin]
+      };
+    case "AddProduct" :
+      return {
+        TAG: "AllowRoles",
+        _0: [merchandiser]
+      };
+    default:
+      return "DenyAll";
   }
 }
 
@@ -159,7 +162,7 @@ let CatalogFeedSpec = {
   externalSystem: undefined,
   merchandiser: merchandiser,
   admin: admin,
-  commandAuthorization: commandAuthorization$1,
+  authorizationOf: authorizationOf$1,
   translate: translate$1,
   traits: traits$1
 };
@@ -190,7 +193,7 @@ function translate$2(input) {
   };
 }
 
-function commandAuthorization$2(param) {
+function authorizationOf$2(param) {
   return "AllowAuthenticated";
 }
 
@@ -204,7 +207,7 @@ let NoteFeedSpec = {
   targetName: "Annotate",
   externalSystem: undefined,
   translate: translate$2,
-  commandAuthorization: commandAuthorization$2,
+  authorizationOf: authorizationOf$2,
   traits: traits$2
 };
 

package/tests/components/outboundtranslationslice/OutboundTranslationSlicePlatformFixtures.res.mjs

@@ -37,7 +37,7 @@ let commandSchema = Sury.$schema(s => ({
 
 let errorSchema = Sury.literal("AlreadyPlaced");
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -55,7 +55,7 @@ let PlaceSpec = {
   consumedEventSchema: consumedEventSchema,
   errorSchema: errorSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -222,7 +222,7 @@ let PlaceMaker = StateChangeSlice_Builder$ReventlessLocal.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"

package/tests/components/readmodel/DcbReadModelE2EFixtures.res.mjs

@@ -41,7 +41,7 @@ let commandSchema = Sury.$schema(s => ({
 
 let errorSchema = Sury.literal("ProductAlreadyExists");
 
-function commandAuthorization(param) {
+function authorizationOf(param) {
   return "AllowAuthenticated";
 }
 
@@ -59,7 +59,7 @@ let AddProductSpec = {
   consumedEventSchema: consumedEventSchema,
   errorSchema: errorSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"
@@ -195,7 +195,7 @@ let AddProductMaker = StateChangeSlice_Builder$ReventlessLocal.Make({
   errorSchema: errorSchema,
   eventSchema: eventSchema,
   commandSchema: commandSchema,
-  commandAuthorization: commandAuthorization,
+  authorizationOf: authorizationOf,
   commandTransition: commandTransition,
   traits: traits,
   readConsistency: "EscalateOnRetry"

package/tests/plugin/PluginBehavior_GWT.res.mjs

@@ -10,14 +10,14 @@ let PluginTest = Behavior_GWT$ReventlessGwt.MakeFromAggregate({
   commandSchema: PluginSpec$ReventlessCore.commandSchema,
   eventSchema: PluginSpec$ReventlessCore.eventSchema,
   errorSchema: PluginSpec$ReventlessCore.errorSchema,
-  commandAuthorization: PluginSpec$ReventlessCore.commandAuthorization
+  authorizationOf: PluginSpec$ReventlessCore.authorizationOf
 })({
   Spec: {
     name: PluginSpec$ReventlessCore.name,
     commandSchema: PluginSpec$ReventlessCore.commandSchema,
     eventSchema: PluginSpec$ReventlessCore.eventSchema,
     errorSchema: PluginSpec$ReventlessCore.errorSchema,
-    commandAuthorization: PluginSpec$ReventlessCore.commandAuthorization
+    authorizationOf: PluginSpec$ReventlessCore.authorizationOf
   },
   initialState: PluginBehavior$ReventlessCore.initialState,
   evolve: PluginBehavior$ReventlessCore.evolve,

package/tests/plugin/UiFragmentRegistry_GWT.res.mjs

@@ -11,7 +11,7 @@ let Test = Behavior_GWT$ReventlessGwt.Make({
   commandSchema: UiFragmentRegistry$ReventlessCore.commandSchema,
   errorSchema: UiFragmentRegistry$ReventlessCore.errorSchema,
   eventSchema: UiFragmentRegistry$ReventlessCore.eventSchema,
-  commandAuthorization: UiFragmentRegistry$ReventlessCore.commandAuthorization
+  authorizationOf: UiFragmentRegistry$ReventlessCore.authorizationOf
 })({
   initialState: undefined,
   evolve: UiFragmentRegistry_Behavior$ReventlessCore.evolve,