Fix deepseek reasoner flow

- some messages weren't constructed correctly and API invalidated them and stopped the flow.

Author: zikajk

src/eca/llm_providers/openai_chat.clj

@@ -158,6 +158,7 @@
     "reason" (if (:delta-reasoning? content)
                ;; DeepSeek-style: reasoning_content must be passed back to API
                {:role "assistant"
+                :content ""
                 :reasoning_content (:text content)}
                ;; Fallback: wrap in thinking tags for models that use text-based reasoning
                {:role "assistant"
@@ -169,30 +170,41 @@
               :content (extract-content content supports-image?)}
     nil))
 
-(defn ^:private merge-reasoning-with-response
-  "Merge reasoning_content from prev with tool_calls/content from msg.
-   Required for DeepSeek which needs reasoning_content on same message as the response."
+(defn ^:private merge-assistant-messages
+  "Merge two assistant messages into one.
+   Concatenates contents and tool_calls, and preserves reasoning_content."
   [prev msg]
-  (cond-> {:role "assistant"
-           :reasoning_content (:reasoning_content prev)}
-    ;; content: from msg (DeepSeek's final answer)
-    (:content msg)
-    (assoc :content (:content msg))
-    ;; tool_calls: concatenate (prev may have some from earlier merge, msg adds more)
-    (or (:tool_calls prev) (:tool_calls msg))
-    (assoc :tool_calls (into (or (:tool_calls prev) []) (:tool_calls msg)))))
+  (let [prev-content (:content prev)
+        msg-content (:content msg)
+        combined-content (cond
+                           (and (string? prev-content) (string? msg-content))
+                           (str prev-content msg-content)
+
+                           (and (sequential? prev-content) (sequential? msg-content))
+                           (vec (concat prev-content msg-content))
+
+                           :else
+                           (or msg-content prev-content ""))]
+    (cond-> {:role "assistant"
+             :content combined-content}
+      (or (:reasoning_content prev) (:reasoning_content msg))
+      (assoc :reasoning_content (str (:reasoning_content prev) (:reasoning_content msg)))
+
+      (or (:tool_calls prev) (:tool_calls msg))
+      (assoc :tool_calls (vec (concat (:tool_calls prev)
+                                      (:tool_calls msg)))))))
 
 (defn ^:private merge-adjacent-assistants
-  "Merge adjacent assistant messages only when prev has reasoning_content.
-   This is required for DeepSeek which needs reasoning_content on same message as tool_calls/content."
+  "Merge all adjacent assistant messages.
+   This is required by many OpenAI-compatible APIs (including DeepSeek)
+   which do not allow multiple consecutive assistant messages."
   [messages]
   (reduce
    (fn [acc msg]
      (let [prev (peek acc)]
        (if (and (= "assistant" (:role prev))
-                (= "assistant" (:role msg))
-                (:reasoning_content prev))
-         (conj (pop acc) (merge-reasoning-with-response prev msg))
+                (= "assistant" (:role msg)))
+         (conj (pop acc) (merge-assistant-messages prev msg))
          (conj acc msg))))
    []
    messages))

test/eca/llm_providers/openai_chat_test.clj

@@ -8,11 +8,11 @@
 (def thinking-end-tag "</think>")
 
 (deftest normalize-messages-test
-  (testing "With tool_call history - tool calls stay separate from preceding assistant (no reasoning_content)"
+  (testing "With tool_call history - assistant text and tool calls are merged"
     (is (match?
          [{:role "user" :content [{:type "text" :text "List the files"}]}
-          {:role "assistant" :content [{:type "text" :text "I'll list the files for you"}]}
           {:role "assistant"
+           :content [{:type "text" :text "I'll list the files for you"}]
            :tool_calls [{:id "call-1"
                          :type "function"
                          :function {:name "eca__list_files"
@@ -36,11 +36,11 @@
           thinking-start-tag
           thinking-end-tag))))
 
-  (testing "Reason messages without reasoning-content use think tags, stay separate from following assistant"
+  (testing "Reason messages without reasoning-content use think tags, merged with following assistant"
     (is (match?
          [{:role "user" :content [{:type "text" :text "Hello"}]}
-          {:role "assistant" :content [{:type "text" :text "<think>Thinking...</think>"}]}
-          {:role "assistant" :content [{:type "text" :text "Hi"}]}]
+          {:role "assistant" :content [{:type "text" :text "<think>Thinking...</think>"}
+                                       {:type "text" :text "Hi"}]}]
          (#'llm-providers.openai-chat/normalize-messages
           [{:role "user" :content "Hello"}
            {:role "reason" :content {:text "Thinking..."}}
@@ -149,11 +149,13 @@
           thinking-end-tag)))))
 
 (deftest merge-adjacent-assistants-test
-  (testing "Without reasoning_content, adjacent assistants are NOT merged"
+  (testing "All adjacent assistant messages are merged (even without reasoning_content)"
     (is (match?
          [{:role "user" :content "What's the weather?"}
-          {:role "assistant" :tool_calls [{:id "call-1" :function {:name "get_weather"}}]}
-          {:role "assistant" :tool_calls [{:id "call-2" :function {:name "get_location"}}]}
+          {:role "assistant"
+           :content ""
+           :tool_calls [{:id "call-1" :function {:name "get_weather"}}
+                        {:id "call-2" :function {:name "get_location"}}]}
           {:role "user" :content "Thanks"}]
          (#'llm-providers.openai-chat/merge-adjacent-assistants
           [{:role "user" :content "What's the weather?"}