fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avs: fradrive refuses to start with an incomplete avs configuration

Browse Source
This commit is contained in:
Steffen Jost 2022-09-02 15:12:32 +02:00
parent 7725e97280
commit d204d4313d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Application.hs
View File

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