avs: fradrive refuses to start with an incomplete avs configuration
This commit is contained in:
parent
7725e97280
commit
d204d4313d
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user