Fix backwards compatibility for chat rollback

Author: ericdallo

docs/protocol.md

@@ -559,14 +559,15 @@ type ChatContent =
 /**
  * Simple text message from the LLM
  */
-interface ChatTextContent extends BaseChatContent {
+interface ChatTextContent {
     type: 'text';
 
     /**
      * The unique identifier of this content.
      * Mostly used to rollback messages.
+     * Current, only user messages contain this.
      */
-    contentId: string;
+    contentId?: string;
 
     /**
      * The text content

src/eca/features/chat.clj

@@ -1443,7 +1443,7 @@
   (let [include (if (seq include)
                   (set include)
                   ;; backwards compatibility
-                  ["messages" "tools"])
+                  #{"messages" "tools"})
         all-messages (get-in @db* [:chats chat-id :messages])
         tool-calls (get-in @db* [:chats chat-id :tool-calls])
         new-messages (when (contains? include "messages")