diff --git a/ihp-openai/IHP/OpenAI.hs b/ihp-openai/IHP/OpenAI.hs
index 5652a44db..69f23f94d 100644
--- 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 = ""