diff options
Diffstat (limited to '')
| -rw-r--r-- | app/Main.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/app/Main.hs b/app/Main.hs index b684ac3..7ad73a1 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -29,7 +29,7 @@ import Data.Vector (Vector) import qualified Data.Vector as V import GHC.Base (Alternative ((<|>))) import qualified Network.HTTP.Client as Client -import qualified Network.HTTP.Client.OpenSSL as Client +import qualified Network.HTTP.Client.Rustls as Client import Network.HTTP.Types import Network.Wai import Network.Wai.Handler.Warp (run) @@ -311,7 +311,6 @@ main = do let cacheTime = 3600 * 24 * 7 -- one week platformCache <- newTVarIO mempty - Client.withOpenSSL $ do - clientManager <- Client.newOpenSSLManager - putStrLn "Starting Server" - run 8080 (logStdoutDev (app AppData{..})) + clientManager <- Client.newRustlsManager + putStrLn "Starting Server" + run 8080 (logStdoutDev (app AppData{..})) |