diff options
| author | stuebinm | 2025-12-14 01:03:40 +0100 |
|---|---|---|
| committer | stuebinm | 2025-12-14 01:04:05 +0100 |
| commit | edcbdbbd763bd5eedc2b45078546b1552bc8e85c (patch) | |
| tree | e0facb75254b4dea48810432dbc648e1342585dc /app/Main.hs | |
| parent | 2dd565d546ef7cba05846e90d79ae4a15a193f41 (diff) | |
Diffstat (limited to 'app/Main.hs')
| -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{..})) |