From da05bbe62df348c86cc0e1d1ab8b31b977c88b78 Mon Sep 17 00:00:00 2001 From: Marc Scholten Date: Wed, 13 Mar 2024 10:50:25 +0100 Subject: [PATCH] ihp-openai: Don't use deprecated prompt anymore, as we mostly use the chat API --- ihp-openai/IHP/OpenAI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ihp-openai/IHP/OpenAI.hs b/ihp-openai/IHP/OpenAI.hs index f5ba2daf1..5652a44db 100644 --- a/ihp-openai/IHP/OpenAI.hs +++ b/ihp-openai/IHP/OpenAI.hs @@ -19,7 +19,7 @@ import Control.Applicative ((<|>)) data CompletionRequest = CompletionRequest { messages :: ![Message] - , prompt :: !Text + , prompt :: !Text -- ^ Deprecated, use 'messages' instead , maxTokens :: !Int , temperature :: !Double , presencePenalty :: !Double @@ -39,7 +39,7 @@ instance ToJSON CompletionRequest where toJSON CompletionRequest { model, prompt, messages, maxTokens, temperature, presencePenalty, frequencePenalty, stream } = object [ "model" .= model - , "messages" .= (messages <> [userMessage prompt]) + , "messages" .= (messages <> (if not (Text.null prompt) then [userMessage prompt] else [])) , "max_tokens" .= maxTokens , "stream" .= stream , "temperature" .= temperature