ihp-openai: Added missing assistantMessage

digitallyinduced · Mar 13, 2024 · 042b091 · 042b091
1 parent a9c1857
commit 042b091
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ihp-openai/IHP/OpenAI.hs b/ihp-openai/IHP/OpenAI.hs
@@ -62,6 +62,9 @@ userMessage content = Message { role = UserRole, content }
 systemMessage :: Text -> Message
 systemMessage content = Message { role = SystemRole, content }
 
+assistantMessage :: Text -> Message
+assistantMessage content = Message { role = AssistantRole, content }
+
 newCompletionRequest :: CompletionRequest
 newCompletionRequest = CompletionRequest
     { prompt = ""