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

chore: hlint

Browse Source
This commit is contained in:
Sarah Vaupel 2022-06-28 22:20:56 +02:00
parent 3de3c03fa1
commit e03282fedd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Application.hs
View File

@ -349,7 +349,7 @@ makeFoundation appSettings''@AppSettings{..} = do
manager <- newManagerSettings $ mkManagerSettings (def { settingDisableCertificateValidation = True }) Nothing manager <- newManagerSettings $ mkManagerSettings (def { settingDisableCertificateValidation = True }) Nothing
case appAvsConf of case appAvsConf of
Nothing -> do Nothing -> do
$logErrorS "avsPrepare" $ "appAvsConfig is empty, i.e. invalid AVS configuration settings." $logErrorS "avsPrepare" "appAvsConfig is empty, i.e. invalid AVS configuration settings."
liftIO exitFailure liftIO exitFailure
Just avsConf -> do Just avsConf -> do
-- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup! -- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup!
@ -366,8 +366,8 @@ makeFoundation appSettings''@AppSettings{..} = do
(avsPersonSearch :<|> avsPersonStatus) = client avsApi avsAuth (avsPersonSearch :<|> avsPersonStatus) = client avsApi avsAuth
runQuery query = runClientM query $ mkClientEnv manager avsServer runQuery query = runClientM query $ mkClientEnv manager avsServer
return AvsQuery return AvsQuery
{ avsQueryPerson = \query -> liftIO . runQuery $ avsPersonSearch query { avsQueryPerson = liftIO . runQuery . avsPersonSearch
, avsQueryStatus = \query -> liftIO . runQuery $ avsPersonStatus query , avsQueryStatus = liftIO . runQuery . avsPersonStatus
} }
$logDebugS "Runtime configuration" $ tshow appSettings' $logDebugS "Runtime configuration" $ tshow appSettings'