Fix mcp servers default timeout from 20s -> 60s.

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,9 @@
 
 ## Unreleased
 
+- Bump mcp java sdk to 1.12.1.
+- Fix mcp servers default timeout from 20s -> 60s.
+
 ## 0.51.0
 
 - Support timeout on `eca_shell_command` with default to 1min.

deps.edn

@@ -3,7 +3,7 @@
         org.clojure/core.async {:mvn/version "1.8.741"}
         org.babashka/cli {:mvn/version "0.8.65"}
         com.github.clojure-lsp/lsp4clj {:mvn/version "1.13.1"}
-        io.modelcontextprotocol.sdk/mcp {:mvn/version "0.12.0"}
+        io.modelcontextprotocol.sdk/mcp {:mvn/version "0.12.1"}
         borkdude/dynaload {:mvn/version "0.3.5"}
         babashka/fs {:mvn/version "0.5.26"}
         babashka/process {:mvn/version "0.6.23"}

src/eca/features/tools/mcp.clj

@@ -68,15 +68,16 @@
       (getProcessBuilder [] (-> (ProcessBuilder. ^List pb-init-args)
                                 (.directory (io/file work-dir)))))))
 
-(defn ^:private ->client ^McpSyncClient [transport config workspaces]
+(defn ^:private ->client ^McpSyncClient [name transport config workspaces]
   (-> (McpClient/sync transport)
-      (.requestTimeout (Duration/ofSeconds (:mcpTimeoutSeconds config)))
+      (.requestTimeout (Duration/ofHours 10)) ;; required any value for initializationTimeout work
+      (.initializationTimeout (Duration/ofSeconds (:mcpTimeoutSeconds config)))
       (.capabilities (-> (McpSchema$ClientCapabilities/builder)
                          (.roots true)
                          (.build)))
       (.roots ^List (mapv #(McpSchema$Root. (:uri %) (:name %)) workspaces))
       (.loggingConsumer (fn [^McpSchema$LoggingMessageNotification notification]
-                          (logger/info logger-tag (.data notification))))
+                          (logger/info logger-tag (str "[MCP-" name "]") (.data notification))))
       (.build)))
 
 (defn ^:private ->server [mcp-name server-config status db]
@@ -154,7 +155,7 @@
         obj-mapper (ObjectMapper.)]
     (try
       (let [transport (->transport server-config workspaces)
-            client (->client transport config workspaces)]
+            client (->client name transport config workspaces)]
         (on-server-updated (->server name server-config :starting db))
         (swap! db* assoc-in [:mcp-clients name] {:client client :status :starting})
         (.initialize client)