From c0ddc43f70e8a3b2b809bfa05c901209c29b9e8e Mon Sep 17 00:00:00 2001
From: slycelote <slycelot@yandex.ru>
Date: Sat, 7 May 2022 15:29:35 -0700
Subject: [PATCH] Build fix

---
 libcaide/src/Caide/HttpClient.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/libcaide/src/Caide/HttpClient.hs b/libcaide/src/Caide/HttpClient.hs
index 5fb849b..8d799c5 100644
--- a/libcaide/src/Caide/HttpClient.hs
+++ b/libcaide/src/Caide/HttpClient.hs
@@ -34,8 +34,7 @@ import Network.HTTP.Client (HttpException(..), HttpExceptionContent(..), Request
 #ifdef VERSION_http_client_openssl
 import Network.HTTP.Client.OpenSSL (newOpenSSLManager, withOpenSSL)
 #else
-import Network.Connection (TLSSettings(TLSSettingsSimple))
-import Network.HTTP.Client.TLS (mkManagerSettings, newManager)
+import Network.HTTP.Client.TLS (newTlsManager)
 #endif
 import Network.HTTP.Types.Header (RequestHeaders)
 import Network.HTTP.Types.Status (statusCode, statusMessage)
@@ -82,8 +81,7 @@ newClient = liftIO $ do
 #ifdef VERSION_http_client_openssl
     manager <- withOpenSSL newOpenSSLManager
 #else
-    let tlsManagerSettings = mkManagerSettings (TLSSettingsSimple True False False) Nothing
-    manager <- newManager tlsManagerSettings
+    manager <- newTlsManager
 #endif
     return $ Client $ \request -> httpLbs request manager