Fix tool call approval ignoring eca tools.

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Fix tool call approval ignoring eca tools.
+
 ## 0.73.3
 
 - Fix tool call approval ignoring configs for mcp servers.

src/eca/features/tools.clj

@@ -55,7 +55,7 @@
           (f.tools.custom/definitions config))))
 
 (defn native-tools [db config]
-  (mapv #(assoc % :server "eca") (vals (native-definitions db config))))
+  (mapv #(assoc % :server {:name "eca"}) (vals (native-definitions db config))))
 
 (defn all-tools
   "Returns all available tools, including both native ECA tools

test/eca/features/tools_test.clj

@@ -30,7 +30,7 @@
   (testing "Include enabled native tools"
     (is (match?
          (m/embeds [{:name "eca_directory_tree"
-                     :server "eca"
+                     :server {:name "eca"}
                      :description string?
                      :parameters some?
                      :origin :native}])

test/eca/handlers_test.clj

@@ -54,8 +54,10 @@
   (testing "Switching behavior updates tool status"
     (h/reset-components!)
     (h/config! {:behavior {"plan" {:disabledTools ["eca_edit_file" "eca_write_file"]}}})
-    (with-redefs [f.tools/native-tools (constantly [{:name "eca_edit_file"}
-                                                    {:name "eca_read_file"}])]
+    (with-redefs [f.tools/native-tools (constantly [{:name "eca_edit_file"
+                                                     :server {:name "eca"}}
+                                                    {:name "eca_read_file"
+                                                     :server {:name "eca"}}])]
       (handlers/chat-selected-behavior-changed (h/components)
                                                {:behavior "plan"})
       (is (match? {:tool-server-update [{:tools [{:name "eca_edit_file"