Improve debug log for openai

Author: ericdallo

src/eca/config.clj

@@ -18,7 +18,7 @@
   {:openaiApiKey nil
    :anthropicApiKey nil
    :rules []
-   :mcpTimeoutSeconds 10
+   :mcpTimeoutSeconds 30
    :mcpServers []
    :ollama {:host "http://localhost"
             :port 11434

src/eca/llm_api.clj

@@ -31,7 +31,7 @@
                                         (apply on-first-message-received args))
                                       (apply on-message-received args))
         tools (when (:mcp-tools model-config)
-                (map mcp-tool->llm-tool mcp-tools))
+                (mapv mcp-tool->llm-tool mcp-tools))
         web-search (:web-search model-config)]
     (cond
       (contains? #{"o4-mini"

src/eca/llm_providers/openai.clj

@@ -22,6 +22,10 @@
 (defn ^:private base-completion-request! [{:keys [body api-key on-error on-response]}]
   (let [api-key (or api-key
                     (System/getenv "OPENAI_API_KEY"))]
+    (logger/debug logger-tag (format "Sending input: '%s' instructions: '%s' tools: '%s'"
+                                     (:input body)
+                                     (:instructions body)
+                                     (:tools body)))
     (http/post
      (url responses-path)
      {:headers {"Authorization" (str "Bearer " api-key)
@@ -48,14 +52,14 @@
                     :or {temperature 1.0}}
                    {:keys [on-message-received on-error on-tool-called]}]
   (let [input (conj past-messages {:role "user" :content user-prompt})
-        _ (logger/debug logger-tag (format "Sending input: '%s' instructions: '%s'" input context))
+        tools (cond-> tools
+                web-search (conj {:type "web_search_preview"}))
         body {:model model
               :input input
               :user (str (System/getProperty "user.name") "@ECA")
               :instructions context
               :temperature temperature
-              :tools (cond-> tools
-                       web-search (conj {:type "web_search_preview"}))
+              :tools tools
               :stream true}
         on-response-fn (fn handle-response [event data]
                          (llm-util/log-response logger-tag event data)