From e03282feddaa40b407096ec84932d9f344bcae69 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 28 Jun 2022 22:20:56 +0200
Subject: [PATCH] chore: hlint

---
 src/Application.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index 2364b1237..3edcea9f2 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -349,7 +349,7 @@ makeFoundation appSettings''@AppSettings{..} = do
         manager <- newManagerSettings $ mkManagerSettings (def { settingDisableCertificateValidation = True }) Nothing
         case appAvsConf of 
           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
           Just avsConf -> do
             -- 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
                 runQuery query = runClientM query $ mkClientEnv manager avsServer
             return AvsQuery
-              { avsQueryPerson = \query -> liftIO . runQuery $ avsPersonSearch query
-              , avsQueryStatus = \query -> liftIO . runQuery $ avsPersonStatus query
+              { avsQueryPerson = liftIO . runQuery . avsPersonSearch
+              , avsQueryStatus = liftIO . runQuery . avsPersonStatus
               }
 
       $logDebugS "Runtime configuration" $ tshow appSettings'