ensure all the examples work

Author: leafo

examples/example6.lua

@@ -7,14 +7,17 @@ local status, response = client:chat({
   {
     role = "user",
     content = {
-      { type = "image_url", image_url = "https://leafo.net/hi.png" },
+      { type = "image_url", image_url = { url = "https://leafo.net/hi.png" } },
       { type = "text", text = "Describe this image" }
     }
   }
 }, {
-  model = "gpt-4-vision-preview"
+  -- model = "gpt-4-vision-preview" -- not needed anymore, all modern models support vision
 })
 
 if status == 200 then
   print(response.choices[1].message.content)
+else
+  print("Got unexpected status:", status)
+  print(require("cjson").encode(response))
 end

openai/chat_completions.lua

@@ -9,7 +9,7 @@ local content_format = types.string + types.array_of(types.one_of({
   }),
   types.shape({
     type = "image_url",
-    image_url = types.string + types.partial({
+    image_url = types.partial({
       url = types.string
     })
   })
@@ -203,7 +203,14 @@ do
         return nil, err, response
       end
       if append_response then
-        self:append_message(out.message)
+        local message = {
+          role = out.message.role,
+          content = out.message.content
+        }
+        if out.message.function_call then
+          message.function_call = out.message.function_call
+        end
+        self:append_message(message)
       end
       return out.response or out.message
     end

openai/chat_completions.moon

@@ -7,7 +7,7 @@ empty = (types.nil + types.literal(cjson.null))\describe "nullable"
 
 content_format = types.string + types.array_of types.one_of {
   types.shape { type: "text", text: types.string }
-  types.shape { type: "image_url", image_url: types.string + types.partial {
+  types.shape { type: "image_url", image_url: types.partial {
     url: types.string
   }}
 }
@@ -232,7 +232,14 @@ class ChatSession
       return nil, err, response
 
     if append_response
-      @append_message out.message
+      -- only append the fields needed for chat history, not extra API fields like annotations
+      message = {
+        role: out.message.role
+        content: out.message.content
+      }
+      if out.message.function_call
+        message.function_call = out.message.function_call
+      @append_message message
 
     -- response is missing for function_calls, so we return the entire message object
     out.response or out.message