@reventlessdev/reventless-local 3.0.0-alpha.249 → 3.0.0-alpha.251

package/src/ShellConfig.res

@@ -41,11 +41,7 @@ let manifestUrlOf = (config: ReventlessInfra.Platform.bakedManifest): string =>
 // caller matching no declared group gets and what every existing deployment has.
 let journeyManifestsKey = "journeyManifestUrls"
 
-let computedKeys = [
-  "manifestUrl",
-  journeyManifestsKey,
-  ReventlessCore.Platform_UiSlots.configKey,
-]
+let computedKeys = ["manifestUrl", journeyManifestsKey, ReventlessCore.Platform_UiSlots.configKey]
 
 /**
  The overlay this platform puts on top of the shipped `config.json`.
@@ -96,8 +92,9 @@ let overlay = (
     if collisions->Array.length > 0 {
       JsError.throwWithMessage(
         "host UI config.json: shellConfig sets key(s) the platform already computes — " ++
-        collisions->Array.join(", ") ++
-        ". Remove them from shellConfig; a passthrough cannot redirect a computed key.",
+        collisions->Array.join(
+          ", ",
+        ) ++ ". Remove them from shellConfig; a passthrough cannot redirect a computed key.",
       )
     }
     extra->Dict.forEachWithKey((v, k) => out->Dict.set(k, v))
@@ -134,12 +131,10 @@ let emit = (
 ) => {
   let overlay = overlay(~bakedManifest, ~uiSlotsFile?, ~shellConfig)
 
-  switch (
-    switch dir {
-    | Some(_) as given => given
-    | None => HostShellDist.dir()
-    }
-  ) {
+  switch switch dir {
+  | Some(_) as given => given
+  | None => HostShellDist.dir()
+  } {
   | None =>
     // Nothing declared and no shell installed is the ordinary case for a
     // platform nobody points a browser at; only a declaration makes the missing
@@ -148,8 +143,7 @@ let emit = (
       JsError.throwWithMessage(
         `host UI config.json: cannot resolve ${HostShellDist.package} from ${NodeProcess.cwd()} — ` ++
         `the local shell reads its config from that package's dist/, so declaring shell ` ++
-        `config without the package installed would write nothing and leave the shell ` ++
-        `configured as it shipped.`,
+        `config without the package installed would write nothing and leave the shell ` ++ `configured as it shipped.`,
       )
     }
   | Some(dir) =>
@@ -163,8 +157,7 @@ let emit = (
       if !NodeFs.existsSync(path) {
         JsError.throwWithMessage(
           `host UI config.json: ${HostShellDist.package} ships no ${fileName} at ${dir} — ` ++
-          `there is no baseline to overlay, so the shell would boot with only the keys ` ++
-          `declared here and none of the ones it expects.`,
+          `there is no baseline to overlay, so the shell would boot with only the keys ` ++ `declared here and none of the ones it expects.`,
         )
       }
       NodeFs.writeFileSync(baselinePath, NodeFs.readFileSync(path))

package/src/UiHints.res

@@ -50,27 +50,23 @@ let emit = (
     | exception _ =>
       JsError.throwWithMessage(
         `host UI ${fileName}: cannot read the declared uiHintsFile at ${path} — ` ++
-        `the shell fetches this file at boot, so a declaration pointing nowhere ` ++
-        `applies no hints and says nothing about why.`,
+        `the shell fetches this file at boot, so a declaration pointing nowhere ` ++ `applies no hints and says nothing about why.`,
       )
     }
     switch source->JSON.parseOrThrow {
     | _ => ()
     | exception _ =>
       JsError.throwWithMessage(
-        `host UI ${fileName}: the declared uiHintsFile at ${path} is not JSON — ` ++
-        `the shell warns once and applies no hints, which reads as hints that do nothing.`,
+        `host UI ${fileName}: the declared uiHintsFile at ${path} is not JSON — ` ++ `the shell warns once and applies no hints, which reads as hints that do nothing.`,
       )
     }
     source
   })
 
-  switch (
-    switch dir {
-    | Some(_) as given => given
-    | None => HostShellDist.dir()
-    }
-  ) {
+  switch switch dir {
+  | Some(_) as given => given
+  | None => HostShellDist.dir()
+  } {
   | None =>
     // No shell installed is the ordinary case for a platform nobody points a
     // browser at; only a declaration makes the missing package an error.
@@ -78,8 +74,7 @@ let emit = (
       JsError.throwWithMessage(
         `host UI ${fileName}: cannot resolve ${HostShellDist.package} from ${NodeProcess.cwd()} — ` ++
         `the local shell reads its hints from that package's dist/, so declaring a ` ++
-        `uiHintsFile without the package installed would write nothing and leave the ` ++
-        `shell applying whatever the package shipped.`,
+        `uiHintsFile without the package installed would write nothing and leave the ` ++ `shell applying whatever the package shipped.`,
       )
     }
   | Some(dir) =>
@@ -148,8 +143,7 @@ let watch = (
       // away between the two — worth a line, not worth a throw.
       log.warn(
         ~comp="UiHints",
-        `not watching ${base}: ${sourceDir} does not exist, so changes to the declared ` ++
-        `uiHintsFile will need a restart`,
+        `not watching ${base}: ${sourceDir} does not exist, so changes to the declared ` ++ `uiHintsFile will need a restart`,
       )
       None
     } else {

package/src/UiSlots.res

@@ -66,18 +66,15 @@ let emit = (
     | exception _ =>
       JsError.throwWithMessage(
         `host UI ${fileName}: cannot read the declared uiSlotsFile at ${path} — ` ++
-        `the shell imports this file at boot, so a declaration pointing nowhere ` ++
-        `registers no renderers and says nothing about why.`,
+        `the shell imports this file at boot, so a declaration pointing nowhere ` ++ `registers no renderers and says nothing about why.`,
       )
     }
   )
 
-  switch (
-    switch dir {
-    | Some(_) as given => given
-    | None => HostShellDist.dir()
-    }
-  ) {
+  switch switch dir {
+  | Some(_) as given => given
+  | None => HostShellDist.dir()
+  } {
   | None =>
     // No shell installed is the ordinary case for a platform nobody points a
     // browser at; only a declaration makes the missing package an error.
@@ -85,8 +82,7 @@ let emit = (
       JsError.throwWithMessage(
         `host UI ${fileName}: cannot resolve ${HostShellDist.package} from ${NodeProcess.cwd()} — ` ++
         `the local shell imports its slot renderers from that package's dist/, so ` ++
-        `declaring a uiSlotsFile without the package installed would write nothing ` ++
-        `and leave every mode drawing its own regions.`,
+        `declaring a uiSlotsFile without the package installed would write nothing ` ++ `and leave every mode drawing its own regions.`,
       )
     }
   | Some(dir) =>
@@ -132,11 +128,9 @@ let emit = (
  `onReload` runs only after a re-copy actually succeeded, so a subscriber cannot
  be told to re-import a file that did not change.
  */
-let watch = (
-  ~uiSlotsFile: option<string>,
-  ~dir: option<string>=?,
-  ~onReload: unit => unit,
-): option<NodeFs.watcher> =>
+let watch = (~uiSlotsFile: option<string>, ~dir: option<string>=?, ~onReload: unit => unit): option<
+  NodeFs.watcher,
+> =>
   uiSlotsFile->Option.flatMap(path => {
     // Named apart from the `~dir` above, which is where the file is SERVED. This
     // is where it is AUTHORED, and the two are never the same place — letting
@@ -150,8 +144,7 @@ let watch = (
       // away between the two — worth a line, not worth a throw.
       log.warn(
         ~comp="UiSlots",
-        `not watching ${base}: ${sourceDir} does not exist, so changes to the declared ` ++
-        `uiSlotsFile will need a restart`,
+        `not watching ${base}: ${sourceDir} does not exist, so changes to the declared ` ++ `uiSlotsFile will need a restart`,
       )
       None
     } else {

package/src/adapter/Api/LocalEvents_Server.res

@@ -27,8 +27,7 @@ let log = ReventlessCore.Logger.fromEnv()
 
 // Mirrors AppSyncEventsSigner_Ops.pathSegment (aws) and the client's channel
 // normalizer: any char outside [A-Za-z0-9-] becomes `-`.
-let pathSegment = (s: string): string =>
-  s->String.replaceRegExp(/[^A-Za-z0-9-]/g, "-")
+let pathSegment = (s: string): string => s->String.replaceRegExp(/[^A-Za-z0-9-]/g, "-")
 
 let clientChannelPrefix = "/client/"
 
@@ -172,7 +171,10 @@ let broadcastStateChange = (~name: string, ~descriptor: JSON.t): unit => {
 // -- Inbound frames (subscribe side) -----------------------------------------
 
 let decodeStringField = (json: JSON.t, field: string): option<string> =>
-  json->JSON.Decode.object->Option.flatMap(o => o->Dict.get(field))->Option.flatMap(JSON.Decode.string)
+  json
+  ->JSON.Decode.object
+  ->Option.flatMap(o => o->Dict.get(field))
+  ->Option.flatMap(JSON.Decode.string)
 
 /** Handle one client→server text frame on an established connection. */
 let handleFrame = (conn: connection, text: string): unit => {

package/src/adapter/Api/LocalGraphQL_Adapter.res

@@ -7,10 +7,10 @@
 type api = unit
 type role = unit
 
-let makeApiResource = (
-  ~name as _: string,
-  ~opts as _: Pulumi.ComponentResource.options,
-): (Pulumi.Output.t<api>, Pulumi.Output.t<role>) => (Pulumi.Output.make(()), Pulumi.Output.make(()))
+let makeApiResource = (~name as _: string, ~opts as _: Pulumi.ComponentResource.options): (
+  Pulumi.Output.t<api>,
+  Pulumi.Output.t<role>,
+) => (Pulumi.Output.make(), Pulumi.Output.make())
 
 let generateFragment = (
   ~mutationEntries: array<ReventlessInfra.Api.mutationSchemaEntry>,

package/src/adapter/Auth/LocalAuth.res

@@ -24,7 +24,7 @@ let defaultUser: Identity.t = {
 let adminUser: Identity.t = {
   userId: "local-admin",
   username: "admin",
-  groups: ["Admin", "User"],
+  groups: [AdminGroup.name, "User"],
   provider: InMemory,
 }
 
@@ -33,8 +33,7 @@ let adminUser: Identity.t = {
 // A `dict<Identity.t>` keyed by `username`. A4 hydrates this from
 // `.reventless/users.yaml`; tests inject via `registerUser`.
 
-let initialUsers = () =>
-  Dict.fromArray([("user", defaultUser), ("admin", adminUser)])
+let initialUsers = () => Dict.fromArray([("user", defaultUser), ("admin", adminUser)])
 
 let users: ref<dict<Identity.t>> = ref(initialUsers())
 
@@ -43,8 +42,7 @@ let registerUser = (~username: string, ~identity: Identity.t): unit =>
 
 let resetUsers = (): unit => users := initialUsers()
 
-let lookupUser = (username: string): option<Identity.t> =>
-  users.contents->Dict.get(username)
+let lookupUser = (username: string): option<Identity.t> => users.contents->Dict.get(username)
 
 // ── Header parsing ────────────────────────────────────────────────────────
 
@@ -240,11 +238,10 @@ module Login = {
    `activeRole` narrows the minted token to one of the caller's own roles; unset
    mints exactly what it has always minted.
    */
-  let issue = async (
-    ~username: string,
-    ~password: string,
-    ~activeRole: option<string>=?,
-  ): result<string, string> =>
+  let issue = async (~username: string, ~password: string, ~activeRole: option<string>=?): result<
+    string,
+    string,
+  > =>
     switch store.contents->Dict.get(username) {
     | Some({password: stored, identity}) if stored === password =>
       switch switch activeRole {
@@ -340,7 +337,6 @@ module Login = {
         }
       }
     }
-
 }
 
 // ── Provider implementation ───────────────────────────────────────────────
@@ -354,9 +350,7 @@ let _bearerToken = (header: string): option<string> =>
     None
   }
 
-let authenticate = async (
-  ctx: ReventlessCore.Auth_Adapter.requestContext,
-): Identity.authResult => {
+let authenticate = async (ctx: ReventlessCore.Auth_Adapter.requestContext): Identity.authResult => {
   // Decoding order: Bearer (when signature valid) → X-User/X-Groups → default.
   // A *present* Bearer that fails verification is rejected (AuthError) rather
   // than falling through to defaultUser — otherwise a client whose token was
@@ -402,5 +396,7 @@ let authenticate = async (
   }
 }
 
-let make = (~name as _: string, ~opts as _: option<Pulumi.ComponentResource.options>=?): Pulumi.Output.t<authConfig> =>
-  Pulumi.Output.make()
+let make = (
+  ~name as _: string,
+  ~opts as _: option<Pulumi.ComponentResource.options>=?,
+): Pulumi.Output.t<authConfig> => Pulumi.Output.make()

package/src/adapter/Auth/LocalAuth.res.mjs

@@ -8,6 +8,7 @@ import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Pulumi from "@pulumi/pulumi";
 import * as Identity$Reventless from "@reventlessdev/reventless-spec/src/types/Identity.res.mjs";
 import * as Util_Sury$Reventless from "@reventlessdev/reventless-spec/src/util/Util_Sury.res.mjs";
+import * as AdminGroup$Reventless from "@reventlessdev/reventless-spec/src/types/AdminGroup.res.mjs";
 import * as Auth_ActiveRole$ReventlessCore from "@reventlessdev/reventless-core/src/adapter/Auth/Auth_ActiveRole.res.mjs";
 
 let defaultUser_groups = ["User"];
@@ -20,7 +21,7 @@ let defaultUser = {
 };
 
 let adminUser_groups = [
-  "Admin",
+  AdminGroup$Reventless.name,
   "User"
 ];
 

package/src/adapter/Auth/UserStore.res

@@ -14,40 +14,15 @@ open Reventless
 /**
  * One YAML entry. `groups` is required (use `[]` for an unprivileged user);
  * `userId` defaults to the username when omitted.
+ *
+ * The shape belongs to [AccountsManifest] rather than to this adapter: the AWS
+ * provisioning tool writes the same file, and two definitions of one file format
+ * is how a manifest starts working on one platform and failing on the other.
  */
-@schema
-type entry = {
-  username: string,
-  password: string,
-  groups: array<string>,
-  userId?: string,
-}
-
-// ── YAML parsing (eemeli/yaml) ──────────────────────────────────────────────
-
-@module("yaml") external _yamlParse: string => unknown = "parse"
-
-let _entriesSchema = S.array(entrySchema)
+type entry = AccountsManifest.entry
 
-/** Parses a YAML document string into entries (best-effort). */
-let parseString = (yamlText: string): result<array<entry>, string> =>
-  try {
-    let json = _yamlParse(yamlText)->Obj.magic
-    Ok(S.parseOrThrow(json, ~to=_entriesSchema))
-  } catch {
-  | JsExn(err) => Error(JsExn.message(err)->Option.getOr("YAML parse error"))
-  | _ => Error("YAML parse error")
-  }
-
-/** Reads + parses a YAML file. */
-let parseFile = (path: string): result<array<entry>, string> =>
-  try {
-    let text = NodeFs.readFileSync(path)
-    parseString(text)
-  } catch {
-  | JsExn(err) => Error(JsExn.message(err)->Option.getOr(`Cannot read ${path}`))
-  | _ => Error(`Cannot read ${path}`)
-  }
+let parseString = AccountsManifest.parseString
+let parseFile = AccountsManifest.parseFile
 
 // ── Resolution & loading ────────────────────────────────────────────────────
 
@@ -62,7 +37,7 @@ let _registerEntries = (entries: array<entry>): unit =>
     LocalAuth.Login.setCredentials(~username, ~password, ~identity=id)
   })
 
-let _defaultPath = (): string => NodePath.join([NodeProcess.cwd(), ".reventless/users.yaml"])
+let _defaultPath = AccountsManifest.defaultPath
 
 /**
  * Hydrates the Login store. Returns the resolution path actually used
@@ -83,11 +58,10 @@ let resolved: ref<bool> = ref(false)
 
 let resetResolution = (): unit => resolved := false
 
-let load = (
-  ~users: option<array<entry>>=?,
-  ~usersFile: option<string>=?,
-  (),
-): result<resolution, string> => {
+let load = (~users: option<array<entry>>=?, ~usersFile: option<string>=?, ()): result<
+  resolution,
+  string,
+> => {
   resolved := true
   switch users {
   | Some(entries) =>
@@ -109,8 +83,7 @@ let load = (
         })
       } else {
         Console.log(
-          "[LocalAuth] no users configured — POST /__inmemory/login will reject all. " ++
-          "Provide ~users / ~usersFile or create .reventless/users.yaml relative to cwd.",
+          "[LocalAuth] no users configured — POST /__inmemory/login will reject all. " ++ "Provide ~users / ~usersFile or create .reventless/users.yaml relative to cwd.",
         )
         Ok(Empty)
       }

package/src/adapter/Auth/UserStore.res.mjs

@@ -1,66 +1,10 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import * as S from "sury/src/S.res.mjs";
-import * as Sury from "sury";
-import * as Yaml from "yaml";
 import * as Nodefs from "node:fs";
-import * as Nodepath from "node:path";
-import * as Stdlib_JsExn from "@rescript/runtime/lib/es6/Stdlib_JsExn.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Stdlib_Result from "@rescript/runtime/lib/es6/Stdlib_Result.js";
-import * as Primitive_exceptions from "@rescript/runtime/lib/es6/Primitive_exceptions.js";
 import * as LocalAuth$ReventlessLocal from "./LocalAuth.res.mjs";
-
-let entrySchema = Sury.$schema(s => ({
-  username: s.m(Sury.string),
-  password: s.m(Sury.string),
-  groups: s.m(Sury.array(Sury.string)),
-  userId: s.m(Sury.$option(Sury.string))
-}));
-
-let _entriesSchema = Sury.array(entrySchema);
-
-function parseString(yamlText) {
-  try {
-    let json = Yaml.parse(yamlText);
-    return {
-      TAG: "Ok",
-      _0: S.parseOrThrow(json, _entriesSchema)
-    };
-  } catch (raw_err) {
-    let err = Primitive_exceptions.internalToException(raw_err);
-    if (err.RE_EXN_ID === "JsExn") {
-      return {
-        TAG: "Error",
-        _0: Stdlib_Option.getOr(Stdlib_JsExn.message(err._1), "YAML parse error")
-      };
-    } else {
-      return {
-        TAG: "Error",
-        _0: "YAML parse error"
-      };
-    }
-  }
-}
-
-function parseFile(path) {
-  try {
-    return parseString(Nodefs.readFileSync(path, "utf8"));
-  } catch (raw_err) {
-    let err = Primitive_exceptions.internalToException(raw_err);
-    if (err.RE_EXN_ID === "JsExn") {
-      return {
-        TAG: "Error",
-        _0: Stdlib_Option.getOr(Stdlib_JsExn.message(err._1), `Cannot read ` + path)
-      };
-    } else {
-      return {
-        TAG: "Error",
-        _0: `Cannot read ` + path
-      };
-    }
-  }
-}
+import * as AccountsManifest$Reventless from "@reventlessdev/reventless-spec/src/types/AccountsManifest.res.mjs";
 
 function _registerEntries(entries) {
   entries.forEach(param => {
@@ -77,10 +21,6 @@ function _registerEntries(entries) {
   });
 }
 
-function _defaultPath() {
-  return Nodepath.join(process.cwd(), ".reventless/users.yaml");
-}
-
 let resolved = {
   contents: false
 };
@@ -99,7 +39,7 @@ function load(users, usersFile, param) {
     };
   }
   if (usersFile !== undefined) {
-    return Stdlib_Result.map(parseFile(usersFile), entries => {
+    return Stdlib_Result.map(AccountsManifest$Reventless.parseFile(usersFile), entries => {
       _registerEntries(entries);
       return {
         TAG: "UsersFile",
@@ -107,9 +47,9 @@ function load(users, usersFile, param) {
       };
     });
   }
-  let defaultPath = _defaultPath();
+  let defaultPath = AccountsManifest$Reventless.defaultPath();
   if (Nodefs.existsSync(defaultPath)) {
-    return Stdlib_Result.map(parseFile(defaultPath), entries => {
+    return Stdlib_Result.map(AccountsManifest$Reventless.parseFile(defaultPath), entries => {
       _registerEntries(entries);
       return {
         TAG: "DefaultFile",
@@ -132,9 +72,13 @@ function autoLoadOnce() {
   }
 }
 
+let parseString = AccountsManifest$Reventless.parseString;
+
+let parseFile = AccountsManifest$Reventless.parseFile;
+
+let _defaultPath = AccountsManifest$Reventless.defaultPath;
+
 export {
-  entrySchema,
-  _entriesSchema,
   parseString,
   parseFile,
   _registerEntries,
@@ -144,4 +88,4 @@ export {
   load,
   autoLoadOnce,
 }
-/* entrySchema Not a pure module */
+/* node:fs Not a pure module */

package/src/adapter/Backend.res

@@ -30,11 +30,10 @@ let postgres = async (~connection, ~resetOnStart=false) => {
   }
   let initialCount =
     (await ReventlessPostgres.EventLogStorage_Postgres.countAll(pool)) +
-      (await ReventlessPostgres.DcbEventLogStorage_Postgres.countAll(pool))
+    (await ReventlessPostgres.DcbEventLogStorage_Postgres.countAll(pool))
   Postgres({pool, initialCount, connection})
 }
 
-
 // Deletes a file if it exists. No-op if the path is missing.
 
 let removeFileIfExists = (path: string) =>

package/src/adapter/CommandGenerator/CommandGeneratorResolvers_GraphQL.res

@@ -35,15 +35,14 @@ let extractIdentity = (ctx: JSON.t): Reventless.Identity.t => {
 // Returns a `CommandRejected` outcome with a fresh msgId so the GraphQL union
 // resolves consistently — matches the existing CommandResult contract.
 
-let rejectForbidden = (~field: string): JSON.t =>
-  JSON.Object(
-    Dict.fromArray([
-      ("__typename", JSON.String("CommandRejected")),
-      ("msgId", JSON.String(ReventlessCore.Message.uuid())),
-      ("errorCode", JSON.String("Forbidden")),
-      ("errorDetail", JSON.String(`Mutation.${field}: identity is not authorized`)),
-    ]),
-  )
+let rejectForbidden = (~field: string): JSON.t => JSON.Object(
+  Dict.fromArray([
+    ("__typename", JSON.String("CommandRejected")),
+    ("msgId", JSON.String(ReventlessCore.Message.uuid())),
+    ("errorCode", JSON.String("Forbidden")),
+    ("errorDetail", JSON.String(`Mutation.${field}: identity is not authorized`)),
+  ]),
+)
 
 // -- Plugin status gate -------------------------------------------------------
 // Set by the platform after Admin.construct to wire a per-mutation lookup against
@@ -61,15 +60,18 @@ let pluginStatusGate: ref<option<string => option<(string, string)>>> = ref(None
 let setPluginStatusGate = fn => pluginStatusGate := Some(fn)
 let resetPluginStatusGate = () => pluginStatusGate := None
 
-let rejectPluginStatus = (~field: string, ~errorCode: string, ~detail: string): JSON.t =>
-  JSON.Object(
-    Dict.fromArray([
-      ("__typename", JSON.String("CommandRejected")),
-      ("msgId", JSON.String(ReventlessCore.Message.uuid())),
-      ("errorCode", JSON.String(errorCode)),
-      ("errorDetail", JSON.String(`Mutation.${field}: ${detail}`)),
-    ]),
-  )
+let rejectPluginStatus = (
+  ~field: string,
+  ~errorCode: string,
+  ~detail: string,
+): JSON.t => JSON.Object(
+  Dict.fromArray([
+    ("__typename", JSON.String("CommandRejected")),
+    ("msgId", JSON.String(ReventlessCore.Message.uuid())),
+    ("errorCode", JSON.String(errorCode)),
+    ("errorDetail", JSON.String(`Mutation.${field}: ${detail}`)),
+  ]),
+)
 
 let checkPluginStatus = (~field: string): option<JSON.t> =>
   switch pluginStatusGate.contents {
@@ -92,8 +94,7 @@ let checkPluginStatus = (~field: string): option<JSON.t> =>
 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)
+let capitalize = s => s->String.charAt(0)->String.toUpperCase ++ s->String.slice(~start=1)
 
 // -- CommandResult SDL types --------------------------------------------------
 // Source of truth lives in GraphQL_FragmentGenerator.commandResultSdlTypes so
@@ -194,7 +195,10 @@ let register = (
   // Aggregate commands target a specific instance — prepend id: ID!
   let sdlFields = fields->Array.map(field => {
     let variantIndex = variantIndexForField(commandSchema, ~field)
-    let sdl = deriveSdlField(~fieldName=field, extractVariantSchema(commandSchema, ~index=variantIndex))
+    let sdl = deriveSdlField(
+      ~fieldName=field,
+      extractVariantSchema(commandSchema, ~index=variantIndex),
+    )
     if sdl->String.includes("(") {
       sdl->String.replace(`${field}(`, `${field}(id: ID!, `)
     } else {
@@ -214,7 +218,11 @@ let register = (
     | _ => false
     }
     let commandName = extractCommandName(field)
-    let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (_root, args, ctx) => {
+    let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (
+      _root,
+      args,
+      ctx,
+    ) => {
       switch handlerRef.contents {
       | Some(generateCommand) =>
         switch checkPluginStatus(~field) {
@@ -265,19 +273,27 @@ let registerDcb = (
   // non-first constructor of a multi-command slice.
   let constructorNames = Reventless.DcbTag.extractAllVariantNames(commandSchema->Obj.magic)
   let variantIndex = variantIndexForField(commandSchema, ~field=fieldName)
-  let variantSchema = extractVariantSchema(commandSchema, ~index=variantIndex >= 0 ? variantIndex : 0)
+  let variantSchema = extractVariantSchema(
+    commandSchema,
+    ~index=variantIndex >= 0 ? variantIndex : 0,
+  )
   let sdlFields = [deriveSdlField(~fieldName, variantSchema)]
 
   // Extract TAG (variant constructor name) for routing
   let tag =
-    (variantIndex >= 0 ? constructorNames->Array.get(variantIndex) : constructorNames->Array.get(0))
-    ->Option.getOr(fieldName)
+    (
+      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)
 
-  let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (_root, args, ctx) => {
+  let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (
+    _root,
+    args,
+    ctx,
+  ) => {
     switch handlerRef.contents {
     | Some(generateCommand) =>
       switch checkPluginStatus(~field=fieldName) {

package/src/adapter/CommandGenerator/InboundTranslationResolvers_GraphQL.res

@@ -25,7 +25,11 @@ let pendingQueueRegistry: dict<ref<array<pendingCall>>> = Dict.make()
 // Phase 1: Register SDL + resolver stub synchronously (before server starts).
 // Also pre-registers a queuing forwarder in receiveRegistry so callers can
 // invoke receive immediately; calls are parked until bindReceive drains them.
-let register = (~fieldName: string, ~externalInputSchema: S.t<unknown>, ~server: ReventlessGraphqlServer.GraphQL_ServerInstance.t) => {
+let register = (
+  ~fieldName: string,
+  ~externalInputSchema: S.t<unknown>,
+  ~server: ReventlessGraphqlServer.GraphQL_ServerInstance.t,
+) => {
   // The mutation field returns CommandResult, so its union members must exist in
   // this scope's document. Registered here rather than relying on a plugin's
   // command handlers having registered them first — a plugin whose only mutation
@@ -53,11 +57,17 @@ let register = (~fieldName: string, ~externalInputSchema: S.t<unknown>, ~server:
     })
   receiveRegistry->Dict.set(fieldName, queuingReceive)
 
-  let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (_root, args, _ctx) => {
+  let resolver: ReventlessGraphqlServer.GraphQL_ServerInstance.resolverFn = async (
+    _root,
+    args,
+    _ctx,
+  ) => {
     let inputJson: JSON.t = args->Obj.magic
     let receive = receiveRegistry->Dict.getUnsafe(fieldName)
     let result = await receive(inputJson)
-    result->InboundTranslationSlice_Callback.receiveResultToOutcome->CommandTopic.commandOutcomeToJson
+    result
+    ->InboundTranslationSlice_Callback.receiveResultToOutcome
+    ->CommandTopic.commandOutcomeToJson
   }
 
   let resolvers = Dict.make()