@reventlessdev/reventless-core 3.0.0-alpha.260 → 3.0.0-alpha.262

package/src/adapter/Runtime/EventCollectorRuntime_Builder_Single.res

@@ -83,6 +83,7 @@ module Make = (
 
   let validateParent = (parent: Pulumi.Resource.t) => {
     let parentName = parent.name->Option.getOr("UnnamedParent")
+
     // Set grandParent synchronously so finish() can create resources
     // during the same build phase. Type validation defers to Output.apply.
     if grandParent.contents == None {
@@ -96,10 +97,12 @@ module Make = (
           parts->Array.getUnsafe(parts->Array.length - 1)
         })
         ->Option.getOr("Unknown")
-      log.debug(~comp="EventCollectorRuntime", `validateParent: parent ${parentName} type: ${pulumiType}`)
-      switch (parentType.contents) {
-      | None =>
-        parentType := Some(pulumiType)
+      log.debug(
+        ~comp="EventCollectorRuntime",
+        `validateParent: parent ${parentName} type: ${pulumiType}`,
+      )
+      switch parentType.contents {
+      | None => parentType := Some(pulumiType)
       | Some(existingType) if existingType != pulumiType =>
         JsError.throwWithMessage(
           `registerRuntimeSpec: parent ${parentName} has different type ${pulumiType} than ${existingType}`,
@@ -177,7 +180,9 @@ module Make = (
             let handlers = eventCollectorHandlers->Dict.get(urn)->Option.getOr([])
             eventCollectorHandlers->Dict.set(
               urn,
-              handlers->Array.concat([{comp, handler: handler->RuntimeEnvironment.asEffectHandler}]),
+              handlers->Array.concat([
+                {comp, handler: handler->RuntimeEnvironment.asEffectHandler},
+              ]),
             )
           })
         })
@@ -206,8 +211,7 @@ module Make = (
         let opts = {Pulumi.ComponentResource.parent: grandParent}
 
         let _connectResources = EventCollectorChannel.connect(~name, ~channelSpecs, ~runtime, ~opts)
-      | _ =>
-        // grandParent/parentType not set — either no handlers were registered
+      | _ => // grandParent/parentType not set — either no handlers were registered
         // (e.g. all StateViewSlices went through Bundled path) or Pulumi outputs
         // haven't resolved yet. Skip silently.
         ()

package/src/adapter/Runtime/PluginRuntime_Builder_Micro.res

@@ -70,13 +70,7 @@ module Make = (
 
   let registerPluginName = (_: string) => ()
 
-  let forDcbCommandTopic = (
-    ~handler,
-    ~connect,
-    ~memorySize=1024,
-    ~timeout=30,
-    dcbCommandTopic,
-  ) => {
+  let forDcbCommandTopic = (~handler, ~connect, ~memorySize=1024, ~timeout=30, dcbCommandTopic) => {
     let resource = dcbCommandTopic->Component.toPulumiResource
     let name = resource.name->ComponentType.nameOpt(CommandTopic.componentType)
     let runtime = RuntimeEnvironment.make(

package/src/adapter/Runtime/PluginRuntime_Builder_Single.res

@@ -70,13 +70,7 @@ module Make = (
 
   let registerPluginName = (_: string) => ()
 
-  let forDcbCommandTopic = (
-    ~handler,
-    ~connect,
-    ~memorySize=1024,
-    ~timeout=30,
-    dcbCommandTopic,
-  ) => {
+  let forDcbCommandTopic = (~handler, ~connect, ~memorySize=1024, ~timeout=30, dcbCommandTopic) => {
     let resource = dcbCommandTopic->Component.toPulumiResource
     let name = resource.name->ComponentType.nameOpt(CommandTopic.componentType)
     let runtime = RuntimeEnvironment.make(

package/src/adapter/RuntimeExtension/RuntimeExtension.res

@@ -26,7 +26,6 @@ listener.
 
 See `docs/plans/done/runtime-extension-seam.md`.
 */
-
 /**
 What every registered extension is handed at cold start. Kept to the runtime's
 IDENTITY on purpose: an extension registering a command interceptor needs to know

package/src/adapter/Secrets/Secrets_Node_Backend.res

@@ -0,0 +1,60 @@
+// The secret source both platforms use: `node:crypto`, which AWS Lambda and the
+// local runtime both have. One implementation rather than two, for the same
+// reason the log messaging transport is shared — a second copy is one edit away
+// from differing on the part that matters.
+
+let _bytes = (count: int): array<int> => {
+  // Read back as hex and re-split, because the binding treats a Buffer as opaque
+  // — it is only ever stringified or fed to an HMAC. Two hex characters is one
+  // byte, so this is a decode rather than a reinterpretation.
+  let hex = NodeCrypto.randomBytes(count)->NodeCrypto.bufferToString("hex")
+  Array.fromInitializer(~length=count, i =>
+    hex->String.substring(~start=i * 2, ~end=i * 2 + 2)->Int.fromString(~radix=16)->Option.getOr(0)
+  )
+}
+
+/**
+Whether a random byte may be folded into an alphabet of `size`, or must be drawn
+again.
+
+🚨 **`byte % size` is not uniform, and this predicate is the whole defence.** 256
+is not a multiple of 10, so bytes 250–255 fold onto digits 0–5 and make those six
+about four percent likelier each than the other four. An attacker guessing a
+numeric code guesses the likelier half first. Discarding everything at or above
+the largest whole multiple of `size` costs a few extra draws and makes every
+character equally likely.
+
+Separate and named because the skew it prevents is far too small to catch by
+sampling the output — it is checked directly, over every byte value.
+*/
+let accepts = (~byte: int, ~size: int): bool => byte < 256 - mod(256, size)
+
+let _draw = (~length: int, ~from: string): string => {
+  let size = from->String.length
+  let out = []
+  while out->Array.length < length {
+    // Over-draw: most bytes are kept, so one round is nearly always enough, and
+    // a short round simply goes again.
+    _bytes((length - out->Array.length) * 2 + 8)->Array.forEach(byte =>
+      if accepts(~byte, ~size) && out->Array.length < length {
+        out->Array.push(from->String.charAt(mod(byte, size)))
+      }
+    )
+  }
+  out->Array.join("")
+}
+
+/**
+The provider both platforms pass.
+
+`length` is refused rather than clamped when it is not positive: a caller asking
+for a zero-length token has a bug, and answering `""` would hand back something
+that compares equal to nothing and settles every challenge.
+*/
+let provider: Reventless.Secrets.t = {
+  randomToken: (~length, ~alphabet) =>
+    length <= 0
+      ? Error(Unavailable(`a token needs a positive length, not ${length->Int.toString}`))
+      : Ok(_draw(~length, ~from=Reventless.Secrets.characters(alphabet))),
+  hash: input => Ok(NodeCrypto.sha256Hex(input)),
+}

package/src/adapter/Secrets/Secrets_Node_Backend.res.mjs

@@ -0,0 +1,69 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as NodeCrypto from "@reventlessdev/rescript-node/src/NodeCrypto.res.mjs";
+import * as Stdlib_Int from "@rescript/runtime/lib/es6/Stdlib_Int.js";
+import * as Nodecrypto from "node:crypto";
+import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
+import * as Primitive_int from "@rescript/runtime/lib/es6/Primitive_int.js";
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Secrets$Reventless from "@reventlessdev/reventless-spec/src/semantic/Secrets.res.mjs";
+
+function _bytes(count) {
+  let hex = Nodecrypto.randomBytes(count).toString("hex");
+  return Stdlib_Array.fromInitializer(count, i => Stdlib_Option.getOr(Stdlib_Int.fromString(hex.substring((i << 1), (i << 1) + 2 | 0), 16), 0));
+}
+
+function accepts(byte, size) {
+  return byte < (256 - Primitive_int.mod_(256, size) | 0);
+}
+
+function _draw(length, from) {
+  let size = from.length;
+  let out = [];
+  while (out.length < length) {
+    _bytes(((length - out.length | 0) << 1) + 8 | 0).forEach(byte => {
+      if (accepts(byte, size) && out.length < length) {
+        out.push(from.charAt(Primitive_int.mod_(byte, size)));
+        return;
+      }
+    });
+  };
+  return out.join("");
+}
+
+function provider_randomToken(length, alphabet) {
+  if (length <= 0) {
+    return {
+      TAG: "Error",
+      _0: {
+        TAG: "Unavailable",
+        _0: `a token needs a positive length, not ` + length.toString()
+      }
+    };
+  } else {
+    return {
+      TAG: "Ok",
+      _0: _draw(length, Secrets$Reventless.characters(alphabet))
+    };
+  }
+}
+
+function provider_hash(input) {
+  return {
+    TAG: "Ok",
+    _0: NodeCrypto.sha256Hex(input)
+  };
+}
+
+let provider = {
+  randomToken: provider_randomToken,
+  hash: provider_hash
+};
+
+export {
+  _bytes,
+  accepts,
+  _draw,
+  provider,
+}
+/* NodeCrypto Not a pure module */

package/src/admin/Platform_Admin.res

@@ -53,7 +53,12 @@ module Make = (
   ) => {
     module PlatformEventCollector = EventCollector_Builder.Make(RE, ECC)
     let make = (~name, ~eventTopics, ~opts) => {
-      let eventCollector = PlatformEventCollector.make(~name, ~eventTopics, ~owner={kind: ComponentType.Plugin, name}, ~opts)
+      let eventCollector = PlatformEventCollector.make(
+        ~name,
+        ~eventTopics,
+        ~owner={kind: ComponentType.Plugin, name},
+        ~opts,
+      )
       let eventCollectorOutputs = eventCollector->Component.outputs
       (eventCollector, eventCollectorOutputs)
     }
@@ -94,7 +99,9 @@ module Make = (
     ~version as _,
     ~extensionPoints: array<module(ReventlessInfra.ExtensionPoint.T)>,
     ~aggregates: array<module(ReventlessInfra.Aggregate.T with type api = api)>,
-    ~readModels: array<module(ReventlessInfra.ReadModel.T with type api = api and type role = 'role)>,
+    ~readModels: array<
+      module(ReventlessInfra.ReadModel.T with type api = api and type role = 'role),
+    >,
     ~scheduler: Pulumi.Output.t<Scheduler.operations>,
     ~resourceNaming: ReventlessInfra.ResourceNaming.operations,
     ~api: ClonerRunner.api,
@@ -266,7 +273,13 @@ module Make = (
     })
 
     let readModelsOutputs =
-      readModels->createReadModels(~api, ~apiRole, ~componentRuntime=Dict.make(), allEventTopics, opts)
+      readModels->createReadModels(
+        ~api,
+        ~apiRole,
+        ~componentRuntime=Dict.make(),
+        allEventTopics,
+        opts,
+      )
 
     let allQueryDbs = readModelsOutputs->ReadModel.allQueryDbs
     // Merge DCB StateViewSlice / InboundTranslation QueryDbs into allQueryDbs so the
@@ -349,9 +362,7 @@ module Make = (
     | Some(push) => push(~adminBarrier)
     | None => Pulumi.Output.make()
     }
-    let _resolvers = adminSchemaPushed->Pulumi.Output.apply(() =>
-      allQueryDbs->createResolvers
-    )
+    let _resolvers = adminSchemaPushed->Pulumi.Output.apply(() => allQueryDbs->createResolvers)
 
     let extensionPointsOutputs =
       (

package/src/admin/Platform_AdminApi.res

@@ -142,9 +142,7 @@ let activeRoleTypes = [
   `type Platform_ActiveRole {\n  activeRole: String\n  availableRoles: [String!]!\n}`,
 ]
 
-let activeRoleMutationFields = [
-  `  Platform_SetActiveRole(activeRole: String): Platform_ActiveRole`,
-]
+let activeRoleMutationFields = [`  Platform_SetActiveRole(activeRole: String): Platform_ActiveRole`]
 
 let baseFragment = (~cloner: bool) => {
   let base = GraphQL_FragmentGenerator.generate(
@@ -156,8 +154,12 @@ let baseFragment = (~cloner: bool) => {
   // The standard auto-resolver flow (CommandGeneratorResolvers_AppSync.make)
   // always creates a Subscription.onX resolver per mutation field; without the
   // matching SDL fields, AppSync's CreateResolver fails with "Type not found".
-  let (pluginAggregateSubscriptionFields, pluginAggregateSubscriptionSources) =
-    Plugin_SubscriptionSchema.sourceCFields(~mutationEntries=PluginBaseFragment.pluginAggregateMutationEntries)
+  let (
+    pluginAggregateSubscriptionFields,
+    pluginAggregateSubscriptionSources,
+  ) = Plugin_SubscriptionSchema.sourceCFields(
+    ~mutationEntries=PluginBaseFragment.pluginAggregateMutationEntries,
+  )
   GraphQL_Stitcher.encode({
     types: parts.types
     ->Array.concat(uiFragmentSubscriptionTypes)
@@ -176,9 +178,12 @@ let baseFragment = (~cloner: bool) => {
     mutations: parts.mutations
     ->Array.concat(uiFragmentMutationFields)
     ->Array.concat(pluginStatusMutationFields),
-    subscriptions: [uiFragmentSubscriptionField, pluginStatusSubscriptionField]
-    ->Array.concat(pluginAggregateSubscriptionFields),
-    subscriptionSources: [uiFragmentSubscriptionSource, pluginStatusSubscriptionSource]
-    ->Array.concat(pluginAggregateSubscriptionSources),
+    subscriptions: [uiFragmentSubscriptionField, pluginStatusSubscriptionField]->Array.concat(
+      pluginAggregateSubscriptionFields,
+    ),
+    subscriptionSources: [
+      uiFragmentSubscriptionSource,
+      pluginStatusSubscriptionSource,
+    ]->Array.concat(pluginAggregateSubscriptionSources),
   })
 }

package/src/admin/Platform_Admin_Callback.res

@@ -20,7 +20,7 @@ module Make = (Spec: Spec): T => {
             Effect.promise(() => handleEvent(eventJson', Spec.pluginDefinition))
           ),
           {"concurrency": "unbounded"},
-        )->Effect.map(_ => ())
+        )->Effect.map(_ => ()),
       )
     )
     ->Stream.runDrain

package/src/admin/Platform_BakedManifest.res

@@ -40,8 +40,7 @@ let derivedKinds = ["dashboard", "lifecycles", "canvas", "scheduler"]
 let describe = (e: error): string =>
   switch e {
   | UnknownPlugin(plugin) => `baked manifest: no registered plugin named "${plugin}"`
-  | UnknownView({plugin, view}) =>
-    `baked manifest: plugin "${plugin}" has no view named "${view}"`
+  | UnknownView({plugin, view}) => `baked manifest: plugin "${plugin}" has no view named "${view}"`
   | UnknownCommand({plugin, command}) =>
     `baked manifest: plugin "${plugin}" has no command named "${command}"`
   | UnknownDerived({plugin, kind}) =>
@@ -128,16 +127,18 @@ let referencedEntities = (~pluginName: string, kept: array<writableDef>): array<
     }
   )
 
-let curateStructure = (
-  ~pluginId: string,
-  ~def: pluginStructure,
-  sel: selection,
-): result<pluginStructure, error> =>
+let curateStructure = (~pluginId: string, ~def: pluginStructure, sel: selection): result<
+  pluginStructure,
+  error,
+> =>
   validate(~def, sel)->Result.map(() => {
     let pluginName = Plugin.name(pluginId)
     let keepCommands = (ws: array<writableDef>) =>
       ws
-      ->Array.map(w => {...w, commands: w.commands->Array.filter(c => sel.commands->isSelected(c.name))})
+      ->Array.map(w => {
+        ...w,
+        commands: w.commands->Array.filter(c => sel.commands->isSelected(c.name)),
+      })
       // A write side left with no command contributes no surface. Dropping it
       // keeps the curated entry a description of what the app offers rather than
       // a list of components whose commands were all removed.
@@ -145,10 +146,7 @@ let curateStructure = (
 
     let stateChangeSlices = def.stateChangeSlices->keepCommands
     let aggregates = def.aggregates->keepCommands
-    let referenced = referencedEntities(
-      ~pluginName,
-      Array.concat(stateChangeSlices, aggregates),
-    )
+    let referenced = referencedEntities(~pluginName, Array.concat(stateChangeSlices, aggregates))
     let keepViews = (qs: array<queryableDef>) =>
       qs->Array.filter(q =>
         if Platform_ComponentDefinitionsApi.isPublicQueryable(q) {
@@ -245,12 +243,10 @@ let journeyFiles = (~config: ReventlessInfra.Platform.bakedManifest): array<jour
  derived twice is a shop whose file is written where nothing fetches it, and the
  symptom is an empty menu rather than a missing file.
  */
-let files = (
-  ~config: ReventlessInfra.Platform.bakedManifest,
-): array<(string, array<selection>)> =>
-  [
-    (config.key->Option.getOr(defaultKey), config.components->Array.map(toSelection)),
-  ]->Array.concat(journeyFiles(~config)->Array.map(j => (j.key, j.selections)))
+let files = (~config: ReventlessInfra.Platform.bakedManifest): array<(string, array<selection>)> =>
+  [(config.key->Option.getOr(defaultKey), config.components->Array.map(toSelection))]->Array.concat(
+    journeyFiles(~config)->Array.map(j => (j.key, j.selections)),
+  )
 
 /** Each declared journey's group and the URL a shell fetches its file from. */
 let journeyUrls = (~config: ReventlessInfra.Platform.bakedManifest): array<(string, string)> =>
@@ -258,25 +254,29 @@ let journeyUrls = (~config: ReventlessInfra.Platform.bakedManifest): array<(stri
 
 // The whole file: one entry per selection, in the order the deployment declared
 // them, so the include-list also states the order a consumer reads plugins in.
-let curate = (
-  ~structures: array<(string, pluginStructure)>,
-  ~selections: array<selection>,
-): result<JSON.t, error> =>
-  selections->Array.reduce(Ok([]), (acc, sel) =>
+let curate = (~structures: array<(string, pluginStructure)>, ~selections: array<selection>): result<
+  JSON.t,
+  error,
+> =>
+  selections
+  ->Array.reduce(Ok([]), (acc, sel) =>
     acc->Result.flatMap(entries =>
       switch structures->Array.find(((pluginId, _)) => Plugin.name(pluginId) === sel.plugin) {
       | None => Error(UnknownPlugin(sel.plugin))
       | Some((pluginId, def)) =>
-        curateStructure(~pluginId, ~def, sel)->Result.map(curated => {
-          entries->Array.push(
-            Platform_ComponentDefinitionsApi.encodePluginStructureEntry(
-              ~pluginId,
-              ~derived=?sel.derived,
-              curated,
-            ),
-          )
-          entries
-        })
+        curateStructure(~pluginId, ~def, sel)->Result.map(
+          curated => {
+            entries->Array.push(
+              Platform_ComponentDefinitionsApi.encodePluginStructureEntry(
+                ~pluginId,
+                ~derived=?sel.derived,
+                curated,
+              ),
+            )
+            entries
+          },
+        )
       }
     )
-  )->Result.map(JSON.Encode.array)
+  )
+  ->Result.map(JSON.Encode.array)

package/src/admin/Platform_ComponentDefinitionsApi.res

@@ -73,16 +73,10 @@ let encodeCommandDef = (c: commandDef): JSON.t =>
         },
       ),
     ),
-    (
-      "aggregateIdField",
-      c.aggregateIdField->Option.mapOr(JSON.Encode.null, JSON.Encode.string),
-    ),
+    ("aggregateIdField", c.aggregateIdField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("mutationField", JSON.Encode.string(c.mutationField)),
     ("references", c.references->Array.map(encodeFieldReference)->JSON.Encode.array),
-    (
-      "allowedStates",
-      c.allowedStates->Option.mapOr(JSON.Encode.null, encodeStrings),
-    ),
+    ("allowedStates", c.allowedStates->Option.mapOr(JSON.Encode.null, encodeStrings)),
     ("targetState", c.targetState->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     (
       "allowedStatesSource",
@@ -117,10 +111,7 @@ let encodeQueryableDef = (r: queryableDef): JSON.t =>
     ("linkedWriteSide", encodeStrings(r.linkedWriteSide)),
     ("labelField", JSON.Encode.string(r.labelField)),
     ("searchableFields", encodeStrings(r.searchableFields)),
-    (
-      "labelFieldSource",
-      r.labelFieldSource->Option.mapOr(JSON.Encode.null, JSON.Encode.string),
-    ),
+    ("labelFieldSource", r.labelFieldSource->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("lifecycleField", r.lifecycleField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     // Carried rather than only filtered on: a tooling consumer reading the
     // unfiltered structure needs to know WHICH components are Internal, and a
@@ -128,10 +119,7 @@ let encodeQueryableDef = (r: queryableDef): JSON.t =>
     // survives the filter anyway.
     ("visibility", r.visibility->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("chapter", r.chapter->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
-    (
-      "singleQueryField",
-      r.singleQueryField->Option.mapOr(JSON.Encode.null, JSON.Encode.string),
-    ),
+    ("singleQueryField", r.singleQueryField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("idField", r.idField->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("idFieldSource", r.idFieldSource->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("requiredAccess", r.requiredAccess->Option.mapOr(JSON.Encode.null, encodeStrings)),
@@ -160,10 +148,7 @@ let encodeWritableDef = (w: writableDef): JSON.t =>
     ("name", JSON.Encode.string(w.name)),
     ("commands", w.commands->Array.map(encodeCommandDef)->JSON.Encode.array),
     ("linkedViews", encodeStrings(w.linkedViews)),
-    (
-      "consistencyRead",
-      w.consistencyRead->Option.mapOr(JSON.Encode.null, JSON.Encode.string),
-    ),
+    ("consistencyRead", w.consistencyRead->Option.mapOr(JSON.Encode.null, JSON.Encode.string)),
     ("producedEventTypes", encodeStrings(w.producedEventTypes)),
     ("consumedEventTypes", encodeStrings(w.consumedEventTypes)),
     // Phase 6.3: emitted-event field schemas (None → [] on the wire).
@@ -266,7 +251,10 @@ let encodePluginStructureEntry = (
     ("pluginId", JSON.Encode.string(Plugin.name(pluginId))),
     (
       "readModels",
-      def.readModels->Array.filter(isPublicQueryable)->Array.map(encodeQueryableDef)->JSON.Encode.array,
+      def.readModels
+      ->Array.filter(isPublicQueryable)
+      ->Array.map(encodeQueryableDef)
+      ->JSON.Encode.array,
     ),
     (
       "stateViewSlices",

package/src/admin/Platform_PluginStructuresApi.res

@@ -72,7 +72,10 @@ let encodeExtensionPointDef = (e: extensionPointDef): JSON.t =>
     ("sourceEventTypes", Platform_ComponentDefinitionsApi.encodeStrings(e.sourceEventTypes)),
     (
       "commandTypes",
-      e.commandTypes->Option.mapOr(JSON.Encode.null, Platform_ComponentDefinitionsApi.encodeStrings),
+      e.commandTypes->Option.mapOr(
+        JSON.Encode.null,
+        Platform_ComponentDefinitionsApi.encodeStrings,
+      ),
     ),
     (
       "publishedEvents",
@@ -81,10 +84,7 @@ let encodeExtensionPointDef = (e: extensionPointDef): JSON.t =>
         ->Array.map(p =>
           Dict.fromArray([
             ("name", JSON.Encode.string(p.name)),
-            (
-              "fromEventTypes",
-              Platform_ComponentDefinitionsApi.encodeStrings(p.fromEventTypes),
-            ),
+            ("fromEventTypes", Platform_ComponentDefinitionsApi.encodeStrings(p.fromEventTypes)),
           ])->JSON.Encode.object
         )
         ->JSON.Encode.array
@@ -97,10 +97,7 @@ let encodeExtensionPointDef = (e: extensionPointDef): JSON.t =>
         ->Array.map(a =>
           Dict.fromArray([
             ("name", JSON.Encode.string(a.name)),
-            (
-              "toCommandTypes",
-              Platform_ComponentDefinitionsApi.encodeStrings(a.toCommandTypes),
-            ),
+            ("toCommandTypes", Platform_ComponentDefinitionsApi.encodeStrings(a.toCommandTypes)),
           ])->JSON.Encode.object
         )
         ->JSON.Encode.array
@@ -130,7 +127,9 @@ let encodePluginStructureEntry = (~pluginId: string, def: pluginStructure): JSON
     ("pluginId", JSON.Encode.string(Plugin.name(pluginId))),
     (
       "readModels",
-      def.readModels->Array.map(Platform_ComponentDefinitionsApi.encodeQueryableDef)->JSON.Encode.array,
+      def.readModels
+      ->Array.map(Platform_ComponentDefinitionsApi.encodeQueryableDef)
+      ->JSON.Encode.array,
     ),
     (
       "stateViewSlices",
@@ -146,7 +145,9 @@ let encodePluginStructureEntry = (~pluginId: string, def: pluginStructure): JSON
     ),
     (
       "aggregates",
-      def.aggregates->Array.map(Platform_ComponentDefinitionsApi.encodeWritableDef)->JSON.Encode.array,
+      def.aggregates
+      ->Array.map(Platform_ComponentDefinitionsApi.encodeWritableDef)
+      ->JSON.Encode.array,
     ),
     (
       "automationSlices",
@@ -168,7 +169,9 @@ let encodePluginStructureEntry = (~pluginId: string, def: pluginStructure): JSON
     ),
     (
       "extensions",
-      def.extensions->Array.map(Platform_ComponentDefinitionsApi.encodeExtensionDef)->JSON.Encode.array,
+      def.extensions
+      ->Array.map(Platform_ComponentDefinitionsApi.encodeExtensionDef)
+      ->JSON.Encode.array,
     ),
     (
       "extensionPoints",

package/src/admin/UiFragmentRegistry/StateChange/UiFragmentRegistry.res

@@ -31,7 +31,7 @@ type command =
 
 // The registry never rejects (idempotent register/deregister); this variant is never returned.
 @schema
-type error = | RegistryError
+type error = RegistryError
 
 @schema
 type event =

package/src/components/Aggregate/Aggregate.res

@@ -26,11 +26,13 @@ let filterEventTopics = (allAggregates, aggregateNames) =>
   )
   ->Dict.fromArray
 
-let toResolvedOutputs = (
-  outputs: outputs,
-): Pulumi.Output.t<ReventlessInterop.Aggregate.resolvedOutputs> => {
+let toResolvedOutputs = (outputs: outputs): Pulumi.Output.t<
+  ReventlessInterop.Aggregate.resolvedOutputs,
+> => {
   let commandGeneratorResolved =
-    outputs.commandGenerator->Pulumi.Output.flatMap((cg: ReventlessInfra.CommandGenerator.outputs) =>
+    outputs.commandGenerator->Pulumi.Output.flatMap((
+      cg: ReventlessInfra.CommandGenerator.outputs,
+    ) =>
       cg.resources
       ->Adapter.resourcesToInterop
       ->Pulumi.Output.apply(resources => {
@@ -50,18 +52,17 @@ let toResolvedOutputs = (
     ->Pulumi.Output.all2
     ->Pulumi.Output.apply(((resources, eventTopicResources)) => {
       let resolved: ReventlessInterop.EventLog.resolvedOutputs = {
-        resources: resources,
+        resources,
         eventTopic: {resources: eventTopicResources},
       }
       resolved
     })
-  let eventMapperResolved =
-    outputs.eventMapper->Pulumi.Output.flatMap(em =>
-      switch em {
-      | Some(em) => em->EventMapper.toResolvedOutputs->Pulumi.Output.apply(r => Some(r))
-      | None => Pulumi.Output.make(None)
-      }
-    )
+  let eventMapperResolved = outputs.eventMapper->Pulumi.Output.flatMap(em =>
+    switch em {
+    | Some(em) => em->EventMapper.toResolvedOutputs->Pulumi.Output.apply(r => Some(r))
+    | None => Pulumi.Output.make(None)
+    }
+  )
   (commandGeneratorResolved, commandTopicResolved, eventLogResolved, eventMapperResolved)
   ->Pulumi.Output.all4
   ->Pulumi.Output.apply(((commandGenerator, commandTopic, eventLog, eventMapper)) =>