Add error rewrite message content message.

Author: ericdallo

CHANGELOG.md

@@ -5,6 +5,7 @@
 - Prefix tool name with server to LLM: <server>__<toolname>. #196
 - Remove `eca_` prefix from eca tools, we already pass server prefix (eca) after #196.
 - Add `approval` arg to preToolCall hook input.
+- Add error rewrite message content message.
 
 ## 0.77.1
 

docs/protocol.md

@@ -1486,6 +1486,12 @@ interface RewriteTextContent {
     text: string;
 }
 
+interface RewriteErrorContent {
+    type: 'error';
+
+    message: string;
+}
+
 interface RewriteFinishedContent {
     type: 'finished';
 }
@@ -1494,6 +1500,7 @@ type RewriteContent =
     RewriteStartedContent
     | RewriteReasoningContent
     | RewriteTextContent
+    | RewriteErrorContent
     | RewriteFinishedContent;
 
 ```

src/eca/features/rewrite.clj

@@ -38,7 +38,9 @@
             :on-error (fn [error-msg]
                         (logger/error logger-tag (format "Auth token renew failed: %s" error-msg))
                         (throw (ex-info error-msg {:error-response {:message error-msg}})))}
-           ctx)]
+           ctx)
+        ;; get refreshed auth in case of token renew
+        provider-auth (get-in @db* [:auth provider])]
     (future* config
       (llm-api/sync-or-async-prompt!
        {:provider provider
@@ -48,7 +50,7 @@
         :config config
         :user-messages [{:role "user" :content [{:type :text :text prompt}]}]
         :past-messages []
-        :provider-auth (get-in db [:auth provider])
+        :provider-auth provider-auth
         :on-first-response-received (fn [& _]
                                       (send-content! ctx {:type :started}))
         :on-reason (fn [{:keys [status]}]
@@ -60,6 +62,9 @@
                                                            :text (:text msg)})
                                  :finish (send-content! ctx {:type :finished
                                                              :total-time-ms (- (System/currentTimeMillis) start-time)})
-                                 nil))}))
+                                 nil))
+        :on-error (fn [{:keys [message exception]}]
+                    (send-content! ctx {:type :error
+                                        :message (or message (str "Error: " (ex-message exception)))}))}))
     {:status "prompting"
      :model full-model}))