avs: fradrive refuses to start with an incomplete avs configuration

This commit is contained in:
Steffen Jost 2022-09-02 15:12:32 +02:00
parent 7725e97280
commit d204d4313d

View File

@ -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