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

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.

package/src/adapter/DomainMCP_Server.res

@@ -91,6 +91,7 @@ let registerResourcesFromEntries = (
         ],
       }
     }
+
     // URIs with template parameters ({id}) go into resource templates;
     // fixed URIs (list endpoints) go into regular resources.
     if def.uriTemplate->String.includes("{") {
@@ -237,9 +238,7 @@ let createServerInstance = (identity: Reventless.Identity.t) => {
         }
         await handler(uri)
       | None => {
-          McpSdk.contents: [
-            {McpSdk.uri, text: `{"error": "Resource not found: ${uri}"}`},
-          ],
+          McpSdk.contents: [{McpSdk.uri, text: `{"error": "Resource not found: ${uri}"}`}],
         }
       }
     }
@@ -250,45 +249,47 @@ let createServerInstance = (identity: Reventless.Identity.t) => {
 
 let start = (~port: int=3001, ()) => {
   let httpServer = McpSdk.createHttpServer((req, res) => {
-    let _ = (async () => {
-      let reqMethod = req->McpSdk.method
-      let reqUrl = req->McpSdk.url
-
-      // CORS headers for browser-based clients (e.g. MCP Inspector)
-      res->McpSdk.setHeader("Access-Control-Allow-Origin", "*")
-      res->McpSdk.setHeader("Access-Control-Allow-Methods", "GET, POST, DELETE, OPTIONS")
-      res->McpSdk.setHeader("Access-Control-Allow-Headers", "Content-Type")
-
-      if reqUrl == "/mcp" || reqUrl->String.startsWith("/mcp?") {
-        switch reqMethod {
-        | "OPTIONS" =>
-          res->McpSdk.setStatusCode(204)
-          res->McpSdk.endResponseNoBody
-        | "POST" =>
-          let body = await McpSdk_Helpers.parseJsonBody(req)
-          let identity = extractIdentity(req)
-          // Stateless mode: fresh server + transport per request
-          let server = createServerInstance(identity)
-          let transport = McpSdk.newStreamableHTTPTransport({
-            enableJsonResponse: true,
-          })
-          let _ = await server->McpSdk.connect(transport)
-          let _ = await transport->McpSdk.handleRequest(req, res, body)
-        | "GET" =>
-          res->McpSdk.setHeader("Content-Type", "text/plain")
-          res->McpSdk.endResponse("MCP server running")
-        | "DELETE" =>
-          res->McpSdk.setStatusCode(200)
-          res->McpSdk.endResponseNoBody
-        | _ =>
-          res->McpSdk.setStatusCode(405)
-          res->McpSdk.endResponse("Method not allowed")
+    let _ = (
+      async () => {
+        let reqMethod = req->McpSdk.method
+        let reqUrl = req->McpSdk.url
+
+        // CORS headers for browser-based clients (e.g. MCP Inspector)
+        res->McpSdk.setHeader("Access-Control-Allow-Origin", "*")
+        res->McpSdk.setHeader("Access-Control-Allow-Methods", "GET, POST, DELETE, OPTIONS")
+        res->McpSdk.setHeader("Access-Control-Allow-Headers", "Content-Type")
+
+        if reqUrl == "/mcp" || reqUrl->String.startsWith("/mcp?") {
+          switch reqMethod {
+          | "OPTIONS" =>
+            res->McpSdk.setStatusCode(204)
+            res->McpSdk.endResponseNoBody
+          | "POST" =>
+            let body = await McpSdk_Helpers.parseJsonBody(req)
+            let identity = extractIdentity(req)
+            // Stateless mode: fresh server + transport per request
+            let server = createServerInstance(identity)
+            let transport = McpSdk.newStreamableHTTPTransport({
+              enableJsonResponse: true,
+            })
+            let _ = await server->McpSdk.connect(transport)
+            let _ = await transport->McpSdk.handleRequest(req, res, body)
+          | "GET" =>
+            res->McpSdk.setHeader("Content-Type", "text/plain")
+            res->McpSdk.endResponse("MCP server running")
+          | "DELETE" =>
+            res->McpSdk.setStatusCode(200)
+            res->McpSdk.endResponseNoBody
+          | _ =>
+            res->McpSdk.setStatusCode(405)
+            res->McpSdk.endResponse("Method not allowed")
+          }
+        } else {
+          res->McpSdk.setStatusCode(404)
+          res->McpSdk.endResponse("Not found")
         }
-      } else {
-        res->McpSdk.setStatusCode(404)
-        res->McpSdk.endResponse("Not found")
       }
-    })()
+    )()
   })
 
   httpServer->McpSdk.listen(port, () => {
@@ -301,7 +302,10 @@ let start = (~port: int=3001, ()) => {
       toolNames->Array.forEach(t => log.info(~comp="MCP:Domain", `  - ${t}`))
       log.info(~comp="MCP:Domain", `resources (${resourceNames->Array.length->Int.toString}):`)
       resourceNames->Array.forEach(r => log.info(~comp="MCP:Domain", `  - ${r}`))
-      log.info(~comp="MCP:Domain", `resource templates (${templateNames->Array.length->Int.toString}):`)
+      log.info(
+        ~comp="MCP:Domain",
+        `resource templates (${templateNames->Array.length->Int.toString}):`,
+      )
       templateNames->Array.forEach(r => log.info(~comp="MCP:Domain", `  - ${r}`))
     }
   })