diff options
| -rw-r--r-- | app/Main.hs | 9 | ||||
| -rw-r--r-- | bahnhof-name.cabal | 2 |
2 files changed, 5 insertions, 6 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{..})) diff --git a/bahnhof-name.cabal b/bahnhof-name.cabal index 52c514b..02a7344 100644 --- a/bahnhof-name.cabal +++ b/bahnhof-name.cabal @@ -34,7 +34,7 @@ executable bahnhof-name , http-types , containers , http-client - , http-client-openssl + , http-client-rustls , stm , time default-language: GHC2021 |