Add modifyThread function

Author: adinapoli

openai-api-servant/src/OpenAI/Api.hs

@@ -148,6 +148,10 @@ type ThreadsApi =
          OpenAIAuth :> AzureAPIVer
                     :> ReqBody '[JSON] ThreadCreate
                     :> Post '[JSON] Thread
+    :<|> OpenAIAuth :> AzureAPIVer
+                    :> Capture "thread_id" ThreadId
+                    :> ReqBody '[JSON] ThreadCreate
+                    :> Post '[JSON] Thread
     :<|> OpenAIAuth :> "runs"
                     :> AzureAPIVer
                     :> ReqBody '[JSON] ThreadAndRunCreate

openai-api/src/OpenAI/Client.hs

@@ -123,6 +123,7 @@ module OpenAI.Client
     ThreadCreate(..),
     ThreadId(..),
     createThread,
+    modifyThread,
     deleteThread,
 
     -- * Messages (BETA)
@@ -341,6 +342,7 @@ EP5 (listAssistants, Maybe String, Maybe Int, Maybe Order, Maybe AssistantId, Ma
 EP2 (deleteAssistant, Maybe String, AssistantId, DeleteConfirmation)
 
 EP2 (createThread, Maybe String, ThreadCreate, Thread)
+EP3 (modifyThread, Maybe String, ThreadId, ThreadCreate, Thread)
 EP2 (deleteThread, Maybe String, ThreadId, DeleteConfirmation)
 
 EP6 (getMessages, Maybe String, ThreadId, Maybe Int, Maybe Order, Maybe MessageId, Maybe MessageId, (OpenAIList Message))
@@ -387,6 +389,7 @@ completeChatStreaming' :: Token -> ChatCompletionRequest -> Maybe String -> Clie
              :<|> deleteAssistant'
            )
     :<|> ( createThread'
+            :<|> modifyThread'
             :<|> createThreadAndRun'
             :<|> getRun'
             :<|> submitToolOutputs'