make default model a property on the client class

Author: leafo

openai/init.lua

@@ -49,6 +49,7 @@ do
   local _class_0
   local _base_0 = {
     api_base = "https://api.openai.com/v1",
+    default_model = "gpt-4.1",
     new_chat_session = function(self, ...)
       return ChatSession(self, ...)
     end,
@@ -88,7 +89,7 @@ do
       local test_messages = types.array_of(test_message)
       assert(test_messages(messages))
       local payload = {
-        model = "gpt-3.5-turbo",
+        model = self.default_model,
         messages = messages
       }
       if opts then
@@ -198,6 +199,7 @@ do
       local create_response_stream_filter
       create_response_stream_filter = require("openai.responses").create_response_stream_filter
       local payload = {
+        model = self.default_model,
         input = input
       }
       if opts then

openai/init.moon

@@ -65,6 +65,7 @@ consume_json_head = do
 -- TODO: hadle appending the streaming response to the output
 class OpenAI
   api_base: "https://api.openai.com/v1"
+  default_model: "gpt-4.1"
 
   -- config: types.shape {
   --   http_provider: types.string\describe("HTTP module name used for requests") + types nil
@@ -116,7 +117,7 @@ class OpenAI
     assert test_messages messages
 
     payload = {
-      model: "gpt-3.5-turbo"
+      model: @default_model
       :messages
     }
 
@@ -237,7 +238,10 @@ class OpenAI
   create_response: (input, opts={}, stream_callback=nil) =>
     import create_response_stream_filter from require "openai.responses"
 
-    payload = { :input }
+    payload = {
+      model: @default_model
+      :input
+    }
 
     if opts
       for k, v in pairs opts

openai/responses.lua

@@ -1,7 +1,6 @@
 local cjson = require("cjson")
 local types
 types = require("tableshape").types
-local DEFAULT_RESPONSES_MODEL = "gpt-4.1-mini"
 local empty = (types["nil"] + types.literal(cjson.null)):describe("nullable")
 local input_format = types.string + types.array_of(types.partial({
   role = types.one_of({

openai/responses.moon

@@ -1,8 +1,6 @@
 cjson = require "cjson"
 import types from require "tableshape"
 
-DEFAULT_RESPONSES_MODEL = "gpt-4.1-mini"
-
 empty = (types.nil + types.literal(cjson.null))\describe "nullable"
 
 -- Schema for validating input parameter which can be string or array of messages