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

package/src/adapter/CommandTopic/LocalCommandTopicChannel.res

@@ -32,17 +32,14 @@ module Make = (Bus: LocalBus.T) => {
   > = (~name, ~owner as _, ~opts as _=?) => {
     // Captured when handleChannelEvent is called; used by publishJsonsAndWait to
     // run the handler inline and collect typed outcomes without going through the bus.
-    let handleCmdsRef: ref<
-      option<ReventlessCore.CommandTopic.jsonCommandsHandler>,
-    > = ref(None)
+    let handleCmdsRef: ref<option<ReventlessCore.CommandTopic.jsonCommandsHandler>> = ref(None)
 
     let publishJsons: ReventlessInfra.CommandTopic.publishJsons = async jsons => {
-      let _ =
-        await jsons
-        ->Array.map(async (cmdJson: Reventless.Message.commandJson) => {
-          await Bus.dispatchCommand(name, ReventlessCore.CommandTopic.encodeCommandJson(cmdJson))
-        })
-        ->Promise.all
+      let _ = await jsons
+      ->Array.map(async (cmdJson: Reventless.Message.commandJson) => {
+        await Bus.dispatchCommand(name, ReventlessCore.CommandTopic.encodeCommandJson(cmdJson))
+      })
+      ->Promise.all
     }
 
     let publishJsonsStream: ReventlessInfra.CommandTopic.publishJsonsStream = stream =>
@@ -55,18 +52,20 @@ module Make = (Bus: LocalBus.T) => {
       | None =>
         // Handler not yet registered — fall back to fire-and-forget, return Pending
         let _ = await publishJsons(jsons)
-        jsons->Array.map(cmdJson =>
-          ReventlessCore.CommandTopic.Pending({msgId: cmdJson.meta.msgId})
-        )
-      | Some(handleCmds) =>
-        await ReventlessCore.CommandTopic.runInlineAndCollect(jsons, handleCmds)
+        jsons->Array.map(cmdJson => ReventlessCore.CommandTopic.Pending({
+          msgId: cmdJson.meta.msgId,
+        }))
+      | Some(handleCmds) => await ReventlessCore.CommandTopic.runInlineAndCollect(jsons, handleCmds)
       }
     }
 
     let handleChannelEvent = (
       handleCmds: ReventlessCore.CommandTopic.jsonCommandsHandler,
-    ): Pulumi.Output.t<ReventlessCore.Runtime.effectHandler<callbackEvent, 'context, unit, string>> => {
+    ): Pulumi.Output.t<
+      ReventlessCore.Runtime.effectHandler<callbackEvent, 'context, unit, string>,
+    > => {
       handleCmdsRef.contents = Some(handleCmds)
+
       (
         (fullBody: JSON.t, _ctx) => {
           // Pass the full body as `command` — that's what handleJsonCommands decodes
@@ -84,8 +83,7 @@ module Make = (Bus: LocalBus.T) => {
       runtimeParts,
     > = (~name as _, ~channel, ~runtime, ~resources as _, ~opts as _) => {
       Bus.registerCommandHandler(channel.parts.name, async (json, ctx) => {
-        let handler =
-          await runtime.parts.handlerDeferred->Deferred.await_->Effect.runPromise
+        let handler = await runtime.parts.handlerDeferred->Deferred.await_->Effect.runPromise
         await handler(json, ctx)
       })
       []

package/src/adapter/CommandTopic/LocalCommandTopicRemoteChannel.res

@@ -5,28 +5,24 @@ module Make = (Bus: LocalBus.T) => {
   let make: ReventlessCore.CommandTopic_Adapter.remoteChannelMaker = resources => {
     resources,
     remotePublish: async jsons => {
-      let _ =
-        await jsons
-        ->Array.map(async (cmdJson: Reventless.Message.commandJson) => {
-          // Encode the same way LocalCommandTopicChannel does
-          let body = JSON.Encode.object(
-            Dict.fromArray([
-              ("id", JSON.Encode.string(cmdJson.id)),
-              (
-                "meta",
-                cmdJson.meta->Reventless.Util_Sury.toJson(Reventless.Message.metaSchema),
-              ),
-              ("command", cmdJson.commandJson),
-            ]),
-          )
-          // Dispatch to the first resource's name (the channel name)
-          let channelName = switch resources {
-          | [] => ""
-          | resources => (resources->Array.getUnsafe(0)).name
-          }
-          await Bus.dispatchCommand(channelName, body)
-        })
-        ->Promise.all
+      let _ = await jsons
+      ->Array.map(async (cmdJson: Reventless.Message.commandJson) => {
+        // Encode the same way LocalCommandTopicChannel does
+        let body = JSON.Encode.object(
+          Dict.fromArray([
+            ("id", JSON.Encode.string(cmdJson.id)),
+            ("meta", cmdJson.meta->Reventless.Util_Sury.toJson(Reventless.Message.metaSchema)),
+            ("command", cmdJson.commandJson),
+          ]),
+        )
+        // Dispatch to the first resource's name (the channel name)
+        let channelName = switch resources {
+        | [] => ""
+        | resources => (resources->Array.getUnsafe(0)).name
+        }
+        await Bus.dispatchCommand(channelName, body)
+      })
+      ->Promise.all
     },
   }
 }

package/src/adapter/Counter/LocalCounterHandler.res

@@ -20,7 +20,7 @@ let make: Counter_Adapter.handlerMaker = (
   ~publishChannelId as _,
   ~opts as _,
 ) => {
-  addToCounterTarget: async ({ReventlessInfra.Counter.counterId, target, targetRef}) => {
+  addToCounterTarget: async ({ReventlessInfra.Counter.counterId: counterId, target, targetRef}) => {
     let refKey = counterId ++ ":" ++ targetRef
     switch targetRefStore.contents->Dict.get(refKey) {
     | Some(_) => () // Already counted this (counterId, targetRef) pair — skip

package/src/adapter/DcbEventLog/DcbEventLogStorage_InMemory.res

@@ -82,16 +82,18 @@ let makeStorage = (~name as _name, ~indexes as _, ~partitionTag as _, ~opts as _
       | Some(tags) if tags->Array.length > 0 =>
         // Events carrying ALL of the clause's tags = intersection of the tags'
         // posting lists; a missing tag ⇒ empty ⇒ this clause adds nothing.
-        let lists = tags->Array.map(t =>
-          byTag->Dict.get(tagPostingKey(t.key, t.value))->Option.getOr([])
-        )
+        let lists =
+          tags->Array.map(t => byTag->Dict.get(tagPostingKey(t.key, t.value))->Option.getOr([]))
         if lists->Array.some(l => l->Array.length == 0) {
           ()
         } else {
-          let sorted = lists->Array.toSorted((a, b) => Int.toFloat(a->Array.length - b->Array.length))
+          let sorted =
+            lists->Array.toSorted((a, b) => Int.toFloat(a->Array.length - b->Array.length))
           let acc0 = sorted->Array.getUnsafe(0)
           let folded =
-            sorted->Array.slice(~start=1, ~end=sorted->Array.length)->Array.reduce(acc0, intersectSorted)
+            sorted
+            ->Array.slice(~start=1, ~end=sorted->Array.length)
+            ->Array.reduce(acc0, intersectSorted)
           addAll(folded)
         }
       | _ =>
@@ -100,7 +102,8 @@ let makeStorage = (~name as _name, ~indexes as _, ~partitionTag as _, ~opts as _
         // clause is unconstrained and matches everything.
         switch clause.eventTypes {
         | Some(types) => types->Array.forEach(t => addAll(byType->Dict.get(t)->Option.getOr([])))
-        | None => events.contents->Array.forEachWithIndex((_, i) => acc->Dict.set(Int.toString(i), i))
+        | None =>
+          events.contents->Array.forEachWithIndex((_, i) => acc->Dict.set(Int.toString(i), i))
         }
       }
     })
@@ -147,21 +150,23 @@ let makeStorage = (~name as _name, ~indexes as _, ~partitionTag as _, ~opts as _
       Error(ReventlessInfra.DcbEventLog.Conflict)
     } else {
       let base = events.contents->Array.length
-      let storedEvents =
-        newEvents->Array.mapWithIndex((event: DcbEventLog_Adapter.rawStoredEvent, j) => {
-          position := position.contents + 1
-          let pos = position.contents->Int.toString
-          let stored: DcbEventLog_Adapter.rawSequencedEvent = {
-            position: pos,
-            eventType: event.eventType,
-            data: event.data,
-            tags: event.tags,
-            meta: event.meta,
-            recordedAt: Message.nowAsISOString(),
-          }
-          indexEvent(base + j, stored)
-          stored
-        })
+      let storedEvents = newEvents->Array.mapWithIndex((
+        event: DcbEventLog_Adapter.rawStoredEvent,
+        j,
+      ) => {
+        position := position.contents + 1
+        let pos = position.contents->Int.toString
+        let stored: DcbEventLog_Adapter.rawSequencedEvent = {
+          position: pos,
+          eventType: event.eventType,
+          data: event.data,
+          tags: event.tags,
+          meta: event.meta,
+          recordedAt: Message.nowAsISOString(),
+        }
+        indexEvent(base + j, stored)
+        stored
+      })
       events := events.contents->Array.concat(storedEvents)
       Ok(position.contents->Int.toString)
     }
@@ -191,7 +196,13 @@ let makeStorage = (~name as _name, ~indexes as _, ~partitionTag as _, ~opts as _
 // routing. The flag is accepted for interface parity and ignored.
 // Pure in-memory storageMaker (no BackendState dispatch, no Bus). Backend
 // selection lives in LocalDcbEventLogStorage.Make.
-let make: DcbEventLog_Adapter.storageMaker = (~name, ~indexes, ~partitionTag, ~crossPartitionTagKeys as _=?, ~opts) => {
+let make: DcbEventLog_Adapter.storageMaker = (
+  ~name,
+  ~indexes,
+  ~partitionTag,
+  ~crossPartitionTagKeys as _=?,
+  ~opts,
+) => {
   let (_, _, storage) = makeStorage(~name, ~indexes, ~partitionTag, ~opts)
   storage
 }

package/src/adapter/DcbEventLog/DcbEventLogStorage_Sqlite.res

@@ -37,9 +37,7 @@ let ensureSchema = (db: SqliteDriver.t) => {
   // Serves the per-position tag hydration (the `WHERE log_name = ? AND position
   // IN (...)` batch). The `_by_kv` index leads with tag_key/tag_value, so it
   // cannot answer a position lookup — without this the batch scanned dcb_tag.
-  db->SqliteDriver.exec(
-    "CREATE INDEX IF NOT EXISTS dcb_tag_by_pos ON dcb_tag(log_name, position)",
-  )
+  db->SqliteDriver.exec("CREATE INDEX IF NOT EXISTS dcb_tag_by_pos ON dcb_tag(log_name, position)")
 }
 
 let posToInt = (pos: string) => pos->Int.fromString->Option.getOr(0)
@@ -81,11 +79,10 @@ let sqlEscape = (s: string) => s->String.replaceAll("'", "''")
 // Build the WHERE clause and bound params for one query clause.
 // Returns (whereSql, params) where whereSql includes a leading `(`/trailing `)`
 // and uses `dcb_event` table aliases throughout.
-let buildClauseSql = (
-  ~logName: string,
-  ~clause: DcbTag.queryItem,
-  ~after: option<int>,
-): (string, array<JSON.t>) => {
+let buildClauseSql = (~logName: string, ~clause: DcbTag.queryItem, ~after: option<int>): (
+  string,
+  array<JSON.t>,
+) => {
   let parts = ref(["log_name = ?"])
   let params = ref([JSON.Encode.string(logName)])
 
@@ -126,11 +123,10 @@ let buildClauseSql = (
 // The WHERE expression (+ bound params) for a query — shared by the row-fetching
 // read path and the LIMIT-1 existence check the append-condition uses, so both
 // match the exact same rows.
-let buildQueryWhere = (
-  ~logName: string,
-  ~query: DcbTag.query,
-  ~after: option<int>,
-): (string, array<JSON.t>) => {
+let buildQueryWhere = (~logName: string, ~query: DcbTag.query, ~after: option<int>): (
+  string,
+  array<JSON.t>,
+) => {
   if query->Array.length == 0 {
     let baseWhere = switch after {
     | Some(_) => "log_name = ? AND position > ?"
@@ -150,11 +146,10 @@ let buildQueryWhere = (
   }
 }
 
-let buildQuerySql = (
-  ~logName: string,
-  ~query: DcbTag.query,
-  ~after: option<int>,
-): (string, array<JSON.t>) => {
+let buildQuerySql = (~logName: string, ~query: DcbTag.query, ~after: option<int>): (
+  string,
+  array<JSON.t>,
+) => {
   let (where, params) = buildQueryWhere(~logName, ~query, ~after)
   (
     `SELECT position, event_type, data, meta, recorded_at FROM dcb_event WHERE ${where} ORDER BY position ASC`,
@@ -171,19 +166,21 @@ let makeStorage = (
 ) => {
   ensureSchema(db)
 
-  let insertEventStmt = db->SqliteDriver.prepare(
-    "INSERT INTO dcb_event(log_name, position, event_type, data, meta, recorded_at) VALUES(?,?,?,?,?,?)",
-  )
+  let insertEventStmt =
+    db->SqliteDriver.prepare(
+      "INSERT INTO dcb_event(log_name, position, event_type, data, meta, recorded_at) VALUES(?,?,?,?,?,?)",
+    )
   let lastRowidStmt = db->SqliteDriver.prepare("SELECT last_insert_rowid() AS r")
-  let insertTagStmt = db->SqliteDriver.prepare(
-    "INSERT INTO dcb_tag(log_name, position, tag_key, tag_value) VALUES(?,?,?,?)",
-  )
-  let maxPositionStmt = db->SqliteDriver.prepare(
-    "SELECT COALESCE(MAX(position), 0) AS m FROM dcb_event WHERE log_name = ?",
-  )
-  let headPositionStmt = db->SqliteDriver.prepare(
-    "SELECT MAX(position) AS m FROM dcb_event WHERE log_name = ?",
-  )
+  let insertTagStmt =
+    db->SqliteDriver.prepare(
+      "INSERT INTO dcb_tag(log_name, position, tag_key, tag_value) VALUES(?,?,?,?)",
+    )
+  let maxPositionStmt =
+    db->SqliteDriver.prepare(
+      "SELECT COALESCE(MAX(position), 0) AS m FROM dcb_event WHERE log_name = ?",
+    )
+  let headPositionStmt =
+    db->SqliteDriver.prepare("SELECT MAX(position) AS m FROM dcb_event WHERE log_name = ?")
 
   // Prepared-statement cache keyed on SQL text. `runQuery`, the batched tag
   // hydration, and the conflict check all build SQL whose shape varies with the
@@ -218,8 +215,7 @@ let makeStorage = (
     if positions->Array.length > 0 {
       let placeholders = positions->Array.map(_ => "?")->Array.join(",")
       let sql = `SELECT position, tag_key, tag_value FROM dcb_tag WHERE log_name = ? AND position IN (${placeholders}) ORDER BY position ASC, rowid ASC`
-      let params =
-        [JSON.Encode.string(name)]->Array.concat(positions->Array.map(JSON.Encode.int))
+      let params = [JSON.Encode.string(name)]->Array.concat(positions->Array.map(JSON.Encode.int))
       preparedFor(sql)
       ->SqliteDriver.all(params)
       ->Array.forEach(row => {
@@ -249,7 +245,9 @@ let makeStorage = (
     byPos
   }
 
-  let runQuery = (~query: DcbTag.query, ~after: option<int>): array<DcbEventLog_Adapter.rawSequencedEvent> => {
+  let runQuery = (~query: DcbTag.query, ~after: option<int>): array<
+    DcbEventLog_Adapter.rawSequencedEvent,
+  > => {
     let (sql, params) = buildQuerySql(~logName=name, ~query, ~after)
     let rows = preparedFor(sql)->SqliteDriver.all(params)
     let positions = rows->Array.map(row =>
@@ -284,14 +282,17 @@ let makeStorage = (
       | Some(JSON.String(s)) => s
       | _ => ""
       }
-      ({
-        DcbEventLog_Adapter.position: Int.toString(position),
-        eventType,
-        data,
-        tags: tagsByPos->Dict.get(Int.toString(position))->Option.getOr([]),
-        meta,
-        recordedAt,
-      }: DcbEventLog_Adapter.rawSequencedEvent)
+
+      (
+        {
+          DcbEventLog_Adapter.position: Int.toString(position),
+          eventType,
+          data,
+          tags: tagsByPos->Dict.get(Int.toString(position))->Option.getOr([]),
+          meta,
+          recordedAt,
+        }: DcbEventLog_Adapter.rawSequencedEvent
+      )
     })
   }
 
@@ -305,10 +306,7 @@ let makeStorage = (
     ->Option.isSome
   }
 
-  let read = async (
-    ~query: DcbTag.query,
-    ~after=?,
-  ): DcbEventLog_Adapter.rawReadResult => {
+  let read = async (~query: DcbTag.query, ~after=?): DcbEventLog_Adapter.rawReadResult => {
     let afterInt = after->Option.map(posToInt)
     let events = runQuery(~query, ~after=afterInt)
     let head = currentMaxPosition()
@@ -319,10 +317,10 @@ let makeStorage = (
     }
   }
 
-  let append = async (
-    newEvents: array<DcbEventLog_Adapter.rawStoredEvent>,
-    ~condition=?,
-  ): result<DcbTag.sequencePosition, ReventlessInfra.DcbEventLog.appendError> => {
+  let append = async (newEvents: array<DcbEventLog_Adapter.rawStoredEvent>, ~condition=?): result<
+    DcbTag.sequencePosition,
+    ReventlessInfra.DcbEventLog.appendError,
+  > => {
     let result = ref(Ok(""))
     // (msgId, dcb_event rowid) per inserted event, for the projection
     // checkpoint's DCB-axis pending set. The rowid is read immediately after
@@ -363,14 +361,16 @@ let makeStorage = (
             }
           | None => ()
           }
-          event.tags->Array.forEach(tag => {
-            insertTagStmt->SqliteDriver.run([
-              JSON.Encode.string(name),
-              JSON.Encode.int(pos),
-              JSON.Encode.string(tag.key),
-              JSON.Encode.string(tag.value),
-            ])
-          })
+          event.tags->Array.forEach(
+            tag => {
+              insertTagStmt->SqliteDriver.run([
+                JSON.Encode.string(name),
+                JSON.Encode.int(pos),
+                JSON.Encode.string(tag.key),
+                JSON.Encode.string(tag.value),
+              ])
+            },
+          )
           lastPos := pos
         })
 

package/src/adapter/DomainGraphQL_Server.res

@@ -37,7 +37,6 @@ type nodeResponse
 // mangled by utf8 decoding (setEncoding is deliberately NOT called).
 @send external _onDataBuf: (nodeRequest, @as("data") _, NodeBuffer.t => unit) => unit = "on"
 
-
 let readBody = (req: nodeRequest, onBody: string => unit): unit => {
   let buf = ref("")
   req->_setEncoding("utf8")
@@ -65,10 +64,7 @@ type requestHandler = (nodeRequest, nodeResponse) => unit
 // -- /__inmemory/login + /logout handlers -----------------------------------
 
 let _writeJson = (res: nodeResponse, ~status: int, body: JSON.t): unit => {
-  res->writeHead(
-    status,
-    {"Content-Type": "application/json", "Access-Control-Allow-Origin": "*"},
-  )
+  res->writeHead(status, {"Content-Type": "application/json", "Access-Control-Allow-Origin": "*"})
   res->end_(body->JSON.stringify)
 }
 
@@ -109,16 +105,12 @@ let handleLogin = (req: nodeRequest, res: nodeResponse): unit =>
           | Some(i) => i
           | None => Reventless.Identity.anonymous
           }
-          let identityJson =
-            identity->Reventless.Util_Sury.toJson(Reventless.Identity.schema)
+          let identityJson = identity->Reventless.Util_Sury.toJson(Reventless.Identity.schema)
           _writeJson(
             res,
             ~status=200,
             JSON.Encode.object(
-              Dict.fromArray([
-                ("token", JSON.Encode.string(token)),
-                ("identity", identityJson),
-              ]),
+              Dict.fromArray([("token", JSON.Encode.string(token)), ("identity", identityJson)]),
             ),
           )
         }
@@ -169,10 +161,7 @@ let handleSwitchRole = (req: nodeRequest, res: nodeResponse): unit =>
           JSON.Encode.object(
             Dict.fromArray([
               ("token", JSON.Encode.string(newToken)),
-              (
-                "identity",
-                identity->Reventless.Util_Sury.toJson(Reventless.Identity.schema),
-              ),
+              ("identity", identity->Reventless.Util_Sury.toJson(Reventless.Identity.schema)),
             ]),
           ),
         )
@@ -205,8 +194,7 @@ let _corsWriteHeaders = {
 }
 
 let handleObjectPut = (req: nodeRequest, res: nodeResponse, ~key: string): unit => {
-  let contentType =
-    req.headers->Dict.get("content-type")->Option.getOr("application/octet-stream")
+  let contentType = req.headers->Dict.get("content-type")->Option.getOr("application/octet-stream")
   readBodyBuf(req, bytes => {
     LocalObjectStore.put(~key, ~bytes, ~contentType)
     res->writeHead(200, _corsWriteHeaders)
@@ -239,17 +227,22 @@ let handleObjectGet = (res: nodeResponse, ~key: string): unit =>
 let _isInvalidBearer = (req: nodeRequest): bool =>
   switch req.headers->Dict.get("authorization") {
   | Some(h) if String.startsWith(h, "Bearer ") =>
-    let token =
-      String.slice(h, ~start=7, ~end=String.length(h))->String.trim
+    let token = String.slice(h, ~start=7, ~end=String.length(h))->String.trim
     LocalAuth.Login.verifyAndDecode(token)->Option.isNone
   | _ => false
   }
 
 // Shared dispatch for start(). Order matters: built-in
 // endpoints win over the yoga catch-all so they aren't shadowed by graphql.
-let _dispatch = (req: nodeRequest, res: nodeResponse, yoga: YG.yoga, getSdl: unit => string): unit => {
+let _dispatch = (
+  req: nodeRequest,
+  res: nodeResponse,
+  yoga: YG.yoga,
+  getSdl: unit => string,
+): unit => {
   // Strip query string before path matching.
   let path = req.url->String.split("?")->Array.get(0)->Option.getOr(req.url)
+
   // /__inmemory/login is the path that *issues* tokens — it never carries
   // one. Every other path must reject an unverifiable Bearer with 401 so
   // the host-shell's `on401` logout path can fire on stale tokens.
@@ -257,9 +250,7 @@ let _dispatch = (req: nodeRequest, res: nodeResponse, yoga: YG.yoga, getSdl: uni
     _writeJson(
       res,
       ~status=401,
-      JSON.Encode.object(
-        Dict.fromArray([("error", JSON.Encode.string("Invalid bearer token"))]),
-      ),
+      JSON.Encode.object(Dict.fromArray([("error", JSON.Encode.string("Invalid bearer token"))])),
     )
   } else if path == "/sdl" {
     res->writeHead(200, {"Content-Type": "text/plain", "Access-Control-Allow-Origin": "*"})
@@ -429,8 +420,7 @@ let relabelScope = (~from: string, ~to_: string) =>
         ->Dict.toArray
         ->Array.forEach(((typeName, byField)) =>
           switch existing.fieldResolvers->Dict.get(typeName) {
-          | Some(target) =>
-            byField->Dict.toArray->Array.forEach(((k, v)) => target->Dict.set(k, v))
+          | Some(target) => byField->Dict.toArray->Array.forEach(((k, v)) => target->Dict.set(k, v))
           | None => existing.fieldResolvers->Dict.set(typeName, byField)
           }
         )
@@ -483,7 +473,9 @@ let registerFieldResolvers = (~typeName: string, ~resolvers: dict<resolverFn>) =
 let getFieldResolver = (~typeName: string, fieldName: string): option<resolverFn> =>
   buckets.contents
   ->Dict.valuesToArray
-  ->Array.findMap(b => b.fieldResolvers->Dict.get(typeName)->Option.flatMap(d => d->Dict.get(fieldName)))
+  ->Array.findMap(b =>
+    b.fieldResolvers->Dict.get(typeName)->Option.flatMap(d => d->Dict.get(fieldName))
+  )
 
 /** Look up a registered mutation resolver by field name (used by MCP_Server).
     Searches all scope buckets. */
@@ -575,8 +567,7 @@ let assembleBucketSdl = (
     sections->Array.push(typeDefinitions->Array.join("\n\n"))
   }
   if withRootDefaults || queryFields->Array.length > 0 {
-    let queries =
-      queryFields->Array.length > 0 ? queryFields->Array.join("\n") : "  _noop: String"
+    let queries = queryFields->Array.length > 0 ? queryFields->Array.join("\n") : "  _noop: String"
     sections->Array.push(`type Query {\n${queries}\n}`)
   }
   if withRootDefaults || mutationFields->Array.length > 0 {
@@ -737,8 +728,14 @@ let start = (~port: int=4000, ~contextFactory as _: option<YG.contextFactory>=?,
   // original Error even when the client response is masked — is never swallowed
   // again), while verbose debug/info stay gated on GRAPHQL_DEBUG.
   let yogaLogging: YG.yogaLogger = {
-    debug: a => if debug { log.debug(~comp="GraphQL:Domain", YG.logArgToString(a)) },
-    info: a => if debug { log.info(~comp="GraphQL:Domain", YG.logArgToString(a)) },
+    debug: a =>
+      if debug {
+        log.debug(~comp="GraphQL:Domain", YG.logArgToString(a))
+      },
+    info: a =>
+      if debug {
+        log.info(~comp="GraphQL:Domain", YG.logArgToString(a))
+      },
     warn: a => log.warn(~comp="GraphQL:Domain", YG.logArgToString(a)),
     error: a => log.error(~comp="GraphQL:Domain", YG.logArgToString(a)),
   }
@@ -760,15 +757,19 @@ let start = (~port: int=4000, ~contextFactory as _: option<YG.contextFactory>=?,
     let detail = err->JsExn.message->Option.getOr("unknown error")
     log.error(
       ~comp="GraphQL:Domain",
-      `failed to bind port ${port->Int.toString}: ${detail} — ` ++
-      `is another server (dev server, prior test) already listening there?`,
+      `failed to bind port ${port->Int.toString}: ${detail} — ` ++ `is another server (dev server, prior test) already listening there?`,
     )
     // Re-raise so the failure is loud instead of a silently-unbound server whose
     // requests fall through to whatever else holds the port.
-    JsError.throwWithMessage(`DomainGraphQL_Server could not bind port ${port->Int.toString}: ${detail}`)
+    JsError.throwWithMessage(
+      `DomainGraphQL_Server could not bind port ${port->Int.toString}: ${detail}`,
+    )
   })
   server->YG.listen(port, () =>
-    log.info(~comp="GraphQL:Domain", `listening on http://localhost:${port->Int.toString}/graphql (SDL: /sdl)`)
+    log.info(
+      ~comp="GraphQL:Domain",
+      `listening on http://localhost:${port->Int.toString}/graphql (SDL: /sdl)`,
+    )
   )
   // Local AppSync Events transport (subscribe WS). Attached here so every
   // start mode (split, unified, replay) carries it.