From edcbdbbd763bd5eedc2b45078546b1552bc8e85c Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 14 Dec 2025 01:03:40 +0100
Subject: HsOpenSSL → Rustls

---
 app/Main.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'app/Main.hs')

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{..}))
-- 
cgit v1.2.3