broken code. TBD fix.

Author: mark-watson

OpenAiApiClient/GenText.hs

@@ -5,7 +5,8 @@
 import OpenAI.Client
 
 import Network.HTTP.Client
-import Network.HTTP.Client.TLS
+
+--import Network.HTTP.Client.TLS
 import System.Environment (getEnv)
 import qualified Data.Text as T
 
@@ -39,4 +40,4 @@ main =
      result <- completeChat client request        
      case result of
        Left failure -> print failure
-       Right success -> print $ chrChoices success
+       Right success -> print $ chrChoices success

OpenAiApiClient/OpenAiApiClient.cabal

@@ -15,5 +15,5 @@ executable GenText
   hs-source-dirs:      .
   main-is:             GenText.hs
   default-language:    Haskell2010
-  build-depends:       base >= 4.7 && < 5, mtl >= 2.2.2, text
+  build-depends:       base >= 4.7 && < 5, mtl >= 2.2.2, text, http-client >= 0.7.13.1
 

OpenAiApiClient/stack.yaml

@@ -5,5 +5,7 @@ extra-package-dbs: []
 packages:
 - '.'
 extra-deps:
-- openai-hs
+- http-client-0.7.13.1
+- openai-servant-0.2.3.0@sha256:b992ac6deb00249548a75b5176b24f3c51bde81c279330f607bd997da37df0be
+- openai-hs-0.3.0.1