Only include parallel_tool_calls to openai-responses and openai-chat if true.

Related to #169

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Only include `parallel_tool_calls` to openai-responses and openai-chat if true. #169
+
 ## 0.72.0
 
 - Support clojureMCP dry-run flags for edit/write tools, being able to show preview of diffs before running tool.

src/eca/llm_api.clj

@@ -131,7 +131,8 @@
           :past-messages past-messages
           :tools tools
           :web-search web-search
-          :extra-payload extra-payload
+          :extra-payload (merge {:parallel_tool_calls true}
+                                extra-payload)
           :api-url api-url
           :api-key api-key
           :auth-type provider-auth-type}
@@ -164,9 +165,11 @@
           :supports-image? supports-image?
           :past-messages past-messages
           :tools tools
-          :extra-payload extra-payload
+          :extra-payload (merge {:parallel_tool_calls true}
+                                extra-payload)
           :api-url api-url
           :api-key api-key
+
           :extra-headers {"openai-intent" "conversation-panel"
                           "x-request-id" (str (random-uuid))
                           "vscode-sessionid" ""
@@ -186,11 +189,10 @@
           :past-messages past-messages
           :tools tools
           :thinking-tag "thought"
-          :extra-payload (merge {}
+          :extra-payload (merge {:parallel_tool_calls false}
                                 (when reason?
                                   {:extra_body {:google {:thinking_config {:include_thoughts true}}}})
                                 extra-payload)
-          :parallel-tool-calls? false
           :api-url api-url
           :api-key api-key}
          callbacks)

src/eca/llm_providers/openai.clj

@@ -107,23 +107,24 @@
         tools (cond-> tools
                 web-search (conj {:type "web_search_preview"}))
         body (deep-merge
-              {:model model
-               :input input
-               :prompt_cache_key (str (System/getProperty "user.name") "@ECA")
-               :parallel_tool_calls true
-               :instructions (if (= :auth/oauth auth-type)
-                               (str "You are Codex." instructions)
-                               instructions)
-               :tools tools
-               :include (when reason?
-                          ["reasoning.encrypted_content"])
-               :store false
-               :reasoning (when reason?
-                            {:effort "medium"
-                             :summary "detailed"})
-               :stream true
-                     ;; :verbosity "medium"
-               :max_output_tokens max-output-tokens}
+              (assoc-some
+               {:model model
+                :input input
+                :prompt_cache_key (str (System/getProperty "user.name") "@ECA")
+                :instructions (if (= :auth/oauth auth-type)
+                                (str "You are Codex." instructions)
+                                instructions)
+                :tools tools
+                :include (when reason?
+                           ["reasoning.encrypted_content"])
+                :store false
+                :reasoning (when reason?
+                             {:effort "medium"
+                              :summary "detailed"})
+                :stream true
+                  ;; :verbosity "medium"
+                :max_output_tokens max-output-tokens}
+               :parallel_tool_calls (:parallel_tool_calls extra-payload))
               extra-payload)
         tool-call-by-item-id* (atom {})
         on-response-fn

src/eca/llm_providers/openai_chat.clj

@@ -268,10 +268,9 @@
    and message normalization. Supports both single and parallel tool execution.
    Compatible with OpenRouter and other OpenAI-compatible providers."
   [{:keys [model user-messages instructions temperature api-key api-url url-relative-path
-           past-messages tools extra-payload extra-headers supports-image? parallel-tool-calls?
+           past-messages tools extra-payload extra-headers supports-image?
            thinking-tag]
     :or {temperature 1.0
-         parallel-tool-calls? true
          thinking-tag "think"}}
    {:keys [on-message-received on-error on-prepare-tool-call on-tools-called on-reason on-usage-updated]}]
   (let [thinking-start-tag (str "<" thinking-tag ">")
@@ -288,7 +287,7 @@
                 :temperature temperature
                 :stream true
                 :max_completion_tokens 32000}
-               :parallel_tool_calls (or parallel-tool-calls? (:parallel_tool_calls extra-payload))
+               :parallel_tool_calls (:parallel_tool_calls extra-payload)
                :tools (when (seq tools) (->tools tools)))
               extra-payload)