From ecc3878bf744b2f5bdbd67c725a579eeeb8250a1 Mon Sep 17 00:00:00 2001 From: Evan Czaplicki Date: Tue, 6 Sep 2022 10:26:57 +0200 Subject: [PATCH] switch (newManager tlsManagerSettings) to newTlsManager --- worker/src/Main.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/worker/src/Main.hs b/worker/src/Main.hs index 2e980b244..ed76866c7 100644 --- a/worker/src/Main.hs +++ b/worker/src/Main.hs @@ -8,8 +8,7 @@ module Main import Control.Monad (msum) import qualified Data.ByteString as BS -import Network.HTTP.Client (newManager) -import Network.HTTP.Client.TLS (tlsManagerSettings) +import Network.HTTP.Client.TLS (newTlsManager) import Snap.Core import Snap.Http.Server import qualified System.Environment as Env @@ -28,7 +27,7 @@ import qualified Endpoint.Slack as Slack main :: IO () main = - do manager <- newManager tlsManagerSettings + do manager <- newTlsManager slackToken <- Env.getEnv "SLACK_TOKEN" rArtifacts <- Artifacts.loadRepl cArtifacts <- Artifacts.loadCompile