@@ -12,6 +12,7 @@ import Data.Text.Read (decimal)
12import Data.Time
12import Data.Time
13import Data.Yaml (decodeFileEither, encodeFile)
13import Data.Yaml (decodeFileEither, encodeFile)
14import Network.HTTP.Client
14import Network.HTTP.Client
15+import Network.HTTP.Client.TLS (tlsManagerSettings)
15import Stackage.BuildConstraints
16import Stackage.BuildConstraints
16import Stackage.BuildPlan
17import Stackage.BuildPlan
17import Stackage.CheckBuildPlan
18import Stackage.CheckBuildPlan
@@ -129,7 +130,7 @@ renderLTSVer lts = fpFromText $ concat
131completeBuild :: BuildType -> IO ()
132completeBuild :: BuildType -> IO ()
132−completeBuild buildType = withManager defaultManagerSettings $ \man -> do
133+completeBuild buildType = withManager tlsManagerSettings $ \man -> do
133 hSetBuffering stdout LineBuffering
134 hSetBuffering stdout LineBuffering
135 putStrLn $ "Loading settings for: " ++ tshow buildType
136 putStrLn $ "Loading settings for: " ++ tshow buildType