not in book: trying Alexander Thiemann's library for OpenAI

Author: mark-watson

OpenAiApiClient/GenText.hs

@@ -0,0 +1,42 @@
+-- Example from https://github.com/agrafix/openai-hs/tree/main/openai-hs
+-- code by Alexander Thiemann
+
+{-# LANGUAGE OverloadedStrings #-}
+import OpenAI.Client
+
+import Network.HTTP.Client
+import Network.HTTP.Client.TLS
+import System.Environment (getEnv)
+import qualified Data.Text as T
+
+request :: ChatCompletionRequest
+request = ChatCompletionRequest 
+         { chcrModel = ModelId "gpt-3.5-turbo"
+         , chcrMessages = 
+            [ChatMessage { chmContent = "Write a hello world program in Haskell"
+                         , chmRole = "user"
+                         }
+            ]
+         , chcrTemperature = Nothing
+         , chcrTopP = Nothing
+         , chcrN = Nothing
+         , chcrStream = Nothing
+         , chcrStop = Nothing
+         , chcrMaxTokens = Nothing
+         , chcrPresencePenalty = Nothing
+         , chcrFrequencyPenalty = Nothing
+         , chcrLogitBias = Nothing
+         , chcrUser = Nothing
+         }
+
+main :: IO ()
+main =
+  do manager <- newManager tlsManagerSettings
+     apiKey <- T.pack <$> getEnv "OPENAI_KEY"
+     -- create a openai client that automatically retries up to 4 times on network
+     -- errors
+     let client = makeOpenAIClient apiKey manager 4
+     result <- completeChat client request        
+     case result of
+       Left failure -> print failure
+       Right success -> print $ chrChoices success

OpenAiApiClient/OpenAiApiClient.cabal

@@ -0,0 +1,19 @@
+name:                OpenAiApiClient
+version:             0.1.0.0
+synopsis:            Simple project template from stack
+description:         Please see README.md
+homepage:            https://github.com/mark-watson/haskell_tutorial_cookbook_examples
+license:             Apache-2.0
+license-file:        ../APACHE_LICENSE-2.0.txt
+author:              Mark watson
+copyright:           2023 Mark Watson
+category:            Web
+build-type:          Simple
+cabal-version:       >=1.10
+
+executable GenText
+  hs-source-dirs:      .
+  main-is:             GenText.hs
+  default-language:    Haskell2010
+  build-depends:       base >= 4.7 && < 5, mtl >= 2.2.2, text
+

OpenAiApiClient/README.md

@@ -0,0 +1,5 @@
+# OpenAI APIs
+
+I am using the library written by Alexander Thiemann at:
+
+    https://github.com/agrafix/openai-hs/tree/main/openai-hs

OpenAiApiClient/stack.yaml

@@ -0,0 +1,9 @@
+resolver: lts-21.4
+
+# flags:
+extra-package-dbs: []
+packages:
+- '.'
+extra-deps:
+- openai-hs
+