diff --git a/src/Application.hs b/src/Application.hs index 475f04ec6..749937ffb 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -352,8 +352,7 @@ makeFoundation appSettings''@AppSettings{..} = do -- return Nothing error "AvsConfig is empty, i.e. invalid AVS configuration settings." - Just avsConf -> do - -- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup! + Just avsConf -> do manager <- newManagerSettings $ mkManagerSettings (def { settingDisableCertificateValidation = True }) Nothing let avsServer = BaseUrl { baseUrlScheme = Https