updated OpenAI model to gpt-4o

mark-watson · mark-watson · commit 43bfe5f9ea97 · 2024-06-17T10:33:39.000-07:00
diff --git a/OpenAiApiClient/GenText.hs b/OpenAiApiClient/GenText.hs
@@ -12,7 +12,7 @@ import qualified Data.Text as T
 
 request :: ChatCompletionRequest
 request = ChatCompletionRequest 
-         { chcrModel = ModelId "gpt-3.5-turbo"
+         { chcrModel = ModelId "gpt-4o"
          , chcrMessages = 
             [ChatMessage { chmContent = Just "Write a hello world program in Haskell"
                          , chmRole = "user"
