Add input logs to llm

Author: ericdallo

src/eca/llm_providers/anthropic.clj

@@ -61,6 +61,7 @@
          temperature 1.0}}
    {:keys [on-message-received on-error on-tool-called]}]
   (let [messages (conj past-messages {:role "user" :content user-prompt})
+        _ (logger/debug logger-tag (format "Sending messages: '%s' system: '%s'" messages context))
         body {:model model
               :messages messages
               :max_tokens max-tokens

src/eca/llm_providers/ollama.clj

@@ -66,11 +66,12 @@
 
 (defn completion! [{:keys [model user-prompt context host port past-messages tools]}
                    {:keys [on-message-received on-error _on-tool-called]}]
-  (let [messagess (if (empty? past-messages)
-                    [{:role "user" :content (->message-with-context context user-prompt)}]
-                    (conj past-messages {:role "user" :content user-prompt}))
+  (let [messages (if (empty? past-messages)
+                   [{:role "user" :content (->message-with-context context user-prompt)}]
+                   (conj past-messages {:role "user" :content user-prompt}))
+        _ (logger/debug logger-tag "Sending messages:" messages)
         body {:model model
-              :messages messagess
+              :messages messages
               :tools (->tools tools)
               :stream true}
         url (format chat-url (base-url host port))

src/eca/llm_providers/openai.clj

@@ -48,6 +48,7 @@
                     :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))
         body {:model model
               :input input
               :user (str (System/getProperty "user.name") "@ECA")