@reventlessdev/reventless-core 3.0.0-alpha.139 → 3.0.0-alpha.141

package/CHANGELOG.md

@@ -3,6 +3,21 @@
 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.141 (2026-07-05)
+
+### Features
+
+* @[@reventless](https://github.com/reventless).systemCallable slice opt-in for deploy-time system callers ([c5ed537](https://github.com/ReventlessDev/reventless-core/commit/c5ed537309f8e4b7d4a4d4af1ed1ec83d060aea3))
+
+
+# 3.0.0-alpha.140 (2026-07-05)
+
+**Note:** Version bump only for package @reventlessdev/reventless-core
+
+
+
+
+
 # 3.0.0-alpha.139 (2026-07-05)
 
 ### Features

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@reventlessdev/reventless-core",
-  "version": "3.0.0-alpha.139",
+  "version": "3.0.0-alpha.141",
   "description": "Core package for Reventless framework",
   "license": "Apache-2.0",
   "jest": {
@@ -30,20 +30,20 @@
     "uuid": "^13.0.0",
     "@reventlessdev/rescript-effect": "0.1.0-alpha.24",
     "@reventlessdev/rescript-fast-csv": "1.2.0-alpha.11",
+    "@reventlessdev/rescript-hash-object": "1.2.0-alpha.10",
     "@reventlessdev/rescript-jest": "1.0.0-alpha.5",
     "@reventlessdev/rescript-node-streams": "1.1.0-alpha.10",
-    "@reventlessdev/rescript-hash-object": "1.2.0-alpha.10",
     "@reventlessdev/rescript-pulumi-pulumi": "2.3.0-alpha.14",
-    "@reventlessdev/rescript-uuid": "1.1.0-alpha.13",
     "@reventlessdev/rescript-ssh2": "1.1.0-alpha.11",
+    "@reventlessdev/rescript-uuid": "1.1.0-alpha.13",
     "@reventlessdev/reventless-interop": "3.0.0-alpha.23",
-    "@reventlessdev/reventless-spec": "3.0.0-alpha.64",
-    "@reventlessdev/reventless-infra": "3.0.0-alpha.85"
+    "@reventlessdev/reventless-spec": "3.0.0-alpha.65",
+    "@reventlessdev/reventless-infra": "3.0.0-alpha.87"
   },
   "devDependencies": {
     "rescript": "^12.3.0",
     "sury-ppx": "11.0.0-alpha.2",
-    "@reventlessdev/reventless-ppx": "1.0.0-alpha.50"
+    "@reventlessdev/reventless-ppx": "1.0.0-alpha.51"
   },
   "peerDependencies": {
     "rescript": "^12.3.0"

package/src/admin/Platform_Admin.res.mjs

@@ -71,7 +71,7 @@ function Make(RuntimeEnvironment) {
       let aggregatesWithoutEventMappers = Builder_Helpers$ReventlessCore.createAggregatesWithoutEventMappers(aggregates, api, opts);
       let aggregateEventTopics = Aggregate$ReventlessCore.allEventTopics(aggregatesWithoutEventMappers);
       Plugin_Helpers$ReventlessCore.registerAdminAggregateMutations(aggregates, Config.hooks);
-      let dcbResult = DcbBuilder.construct(name, name, undefined, undefined, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, undefined, opts);
+      let dcbResult = DcbBuilder.construct(name, name, undefined, undefined, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, undefined, undefined, opts);
       let adminMutationEntries = AdminApi$ReventlessCore.mutationEntries(Config.cloner);
       let allMutationEntries = adminMutationEntries.concat(dcbResult.mutationEntries);
       let allQueryEntries = AdminApi$ReventlessCore.queryEntries.concat(dcbResult.queryEntries);

package/src/components/Dcb/Dcb_Builder.res

@@ -76,6 +76,10 @@ module Make = (
     ~automationSlices: array<module(AutomationSlice.T)>,
     ~outboundTranslationSlices: array<module(OutboundTranslationSlice.T)>,
     ~inboundTranslationSlices: array<module(InboundTranslationSlice.T)>,
+    // Spec names of slices whose GraphQL fields a deploy-time system caller
+    // (machine credentials — IAM/SigV4 on AWS) must invoke — sets
+    // `systemCallable` on the matching mutation / state-view query schema entries.
+    ~systemCallableComponents: array<string>=[],
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>=?,
     ~opts: Pulumi.ComponentResource.options,
   ): dcbResult => {
@@ -818,6 +822,7 @@ module Make = (
                 ReventlessInfra.Api.fieldNames: [fieldName],
                 commandSchema,
                 fieldPermissions,
+                systemCallable: systemCallableComponents->Array.includes(S.Spec.name),
                 linkedViews: ?sliceDef->Option.map(d => d.linkedViews),
                 consistencyRead: ?sliceDef->Option.flatMap(d => d.consistencyRead),
               })
@@ -858,6 +863,7 @@ module Make = (
             stateSchema: V.Spec.stateSchema->Reventless.DcbTag.toUnknownSchema,
             authorization: None,
             permission: V.Spec.authorization,
+            systemCallable: systemCallableComponents->Array.includes(V.Spec.name),
             includeIdParam: qn.includeIdParam,
             connectionSpec: true,
             subIdField: ?subIdField,

package/src/components/Dcb/Dcb_Builder.res.mjs

@@ -78,10 +78,11 @@ let emptyResult = {
 
 function Make(DcbEventLogStorage) {
   return DcbEventTopicPublisher => (DcbCommandTopicChannel => (DcbCommandTopicChannelAsync => (RuntimeBuilder => (HooksConfig => {
-    let construct = (name, childName, environmentOpt, platformNameOpt, aggregateEventTopicsOpt, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, pluginStructure, opts) => {
+    let construct = (name, childName, environmentOpt, platformNameOpt, aggregateEventTopicsOpt, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, systemCallableComponentsOpt, pluginStructure, opts) => {
       let environment = environmentOpt !== undefined ? environmentOpt : "";
       let platformName = platformNameOpt !== undefined ? platformNameOpt : "";
       let aggregateEventTopics = aggregateEventTopicsOpt !== undefined ? aggregateEventTopicsOpt : ({});
+      let systemCallableComponents = systemCallableComponentsOpt !== undefined ? systemCallableComponentsOpt : [];
       let hasDcb = stateChangeSlices.length !== 0;
       if (!hasDcb) {
         return emptyResult;
@@ -466,6 +467,7 @@ function Make(DcbEventLogStorage) {
           fieldNames: [fieldName],
           commandSchema: commandSchema,
           fieldPermissions: fieldPermissions,
+          systemCallable: systemCallableComponents.includes(S.Spec.name),
           linkedViews: Stdlib_Option.map(sliceDef, d => d.linkedViews),
           consistencyRead: Stdlib_Option.flatMap(sliceDef, d => d.consistencyRead)
         };
@@ -495,6 +497,7 @@ function Make(DcbEventLogStorage) {
           stateSchema: V.Spec.stateSchema,
           authorization: undefined,
           permission: V.Spec.authorization,
+          systemCallable: systemCallableComponents.includes(V.Spec.name),
           includeIdParam: qn.includeIdParam,
           connectionSpec: true,
           subIdField: subIdField,

package/src/plugin/component/Plugin.res

@@ -23,6 +23,7 @@ module type T = {
     ~automationSlices: array<module(ReventlessInfra.AutomationSlice.T)>=?,
     ~outboundTranslationSlices: array<module(ReventlessInfra.OutboundTranslationSlice.T)>=?,
     ~inboundTranslationSlices: array<module(ReventlessInfra.InboundTranslationSlice.T)>=?,
+    ~systemCallableComponents: array<string>=?,
     ~uiFragments: Reventless.Plugin.uiFragmentManifest=?,
     ~pluginStructure: Reventless.Plugin.pluginStructure=?,
     ~opts: Pulumi.ComponentResource.options=?,

package/src/plugin/component/Plugin_Builder.res

@@ -55,6 +55,7 @@ module Make = (
     ~automationSlices: array<module(ReventlessInfra.AutomationSlice.T)>,
     ~outboundTranslationSlices: array<module(ReventlessInfra.OutboundTranslationSlice.T)>,
     ~inboundTranslationSlices: array<module(ReventlessInfra.InboundTranslationSlice.T)>,
+    ~systemCallableComponents: array<string>,
     ~uiFragments: option<Reventless.Plugin.uiFragmentManifest>,
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>,
     self,
@@ -155,6 +156,7 @@ module Make = (
       ~automationSlices,
       ~outboundTranslationSlices,
       ~inboundTranslationSlices,
+      ~systemCallableComponents,
       ~pluginStructure?,
       ~opts,
     )
@@ -985,6 +987,7 @@ module Make = (
     ~automationSlices=[],
     ~outboundTranslationSlices=[],
     ~inboundTranslationSlices=[],
+    ~systemCallableComponents=[],
     ~uiFragments: option<Reventless.Plugin.uiFragmentManifest>=?,
     ~pluginStructure: option<Reventless.Plugin.pluginStructure>=?,
     ~opts=?,
@@ -1007,6 +1010,7 @@ module Make = (
         ~automationSlices,
         ~outboundTranslationSlices,
         ~inboundTranslationSlices,
+        ~systemCallableComponents,
         ~uiFragments,
         ~pluginStructure,
         ...

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

@@ -101,7 +101,7 @@ function Make(Spec) {
       let extensionPoints = extensionPointsOpt !== undefined ? extensionPointsOpt : [];
       return Plugin_Structure$ReventlessCore.make(name, aggregates, readModels, stateViewSlices, stateChangeSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, extensions, extensionPoints);
     };
-    let make = (name, heartbeatInterval, extensionPointsOpt, extensionsOpt, aggregatesOpt, readModelsOpt, tasksOpt, stateChangeSlicesOpt, stateViewSlicesOpt, automationSlicesOpt, outboundTranslationSlicesOpt, inboundTranslationSlicesOpt, uiFragments, pluginStructure, opts) => {
+    let make = (name, heartbeatInterval, extensionPointsOpt, extensionsOpt, aggregatesOpt, readModelsOpt, tasksOpt, stateChangeSlicesOpt, stateViewSlicesOpt, automationSlicesOpt, outboundTranslationSlicesOpt, inboundTranslationSlicesOpt, systemCallableComponentsOpt, uiFragments, pluginStructure, opts) => {
       let extensionPoints = extensionPointsOpt !== undefined ? extensionPointsOpt : [];
       let extensions = extensionsOpt !== undefined ? extensionsOpt : [];
       let aggregates = aggregatesOpt !== undefined ? aggregatesOpt : [];
@@ -112,6 +112,7 @@ function Make(Spec) {
       let automationSlices = automationSlicesOpt !== undefined ? automationSlicesOpt : [];
       let outboundTranslationSlices = outboundTranslationSlicesOpt !== undefined ? outboundTranslationSlicesOpt : [];
       let inboundTranslationSlices = inboundTranslationSlicesOpt !== undefined ? inboundTranslationSlicesOpt : [];
+      let systemCallableComponents = systemCallableComponentsOpt !== undefined ? systemCallableComponentsOpt : [];
       PluginRuntimeBuilder.registerPluginName(name);
       let version = PackageVersion$Reventless.fromCaller();
       return Component$ReventlessCore.make(ComponentType$ReventlessCore.toString(Plugin$ReventlessCore.componentType), name, (extra, extra$1) => {
@@ -144,7 +145,7 @@ function Make(Spec) {
         let DcbBuilder = Dcb_Builder$ReventlessCore.Make(DcbEventLogStorage)(DcbEventTopicPublisher)(DcbCommandTopicChannel)(DcbCommandTopicChannelAsync)(PluginRuntimeBuilder)({
           hooks: Spec.hooks
         });
-        let dcbResult = DcbBuilder.construct(extra$1, childName, Spec.environment, Spec.platformName, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, pluginStructure, opts);
+        let dcbResult = DcbBuilder.construct(extra$1, childName, Spec.environment, Spec.platformName, aggregateEventTopics, stateChangeSlices, stateViewSlices, automationSlices, outboundTranslationSlices, inboundTranslationSlices, systemCallableComponents, pluginStructure, opts);
         let mutationEntriesFromAggregates = aggregates.flatMap(M => {
           let commandSchema = M.Spec.commandSchema;
           if (ApiNoApiHelpers$ReventlessCore.isNoApi(commandSchema)) {