From 56e9212e654f4da63bba841e725848101070fe89 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 24 Feb 2021 10:12:48 +0100
Subject: [PATCH] chore: reduce logging

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

diff --git a/src/Application.hs b/src/Application.hs
index 0fde61416..18a0dc118 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -250,13 +250,13 @@ makeFoundation appSettings''@AppSettings{..} = do
               conn <- liftIO . PG.connectPostgreSQL $ pgConnStr appDatabaseConf
               backend <- liftIO $ openSimpleConn logFunc conn
               observeDatabaseConnectionOpened
-              $logInfoS "SqlPool" "Opened connection"
+              $logDebugS "SqlPool" "Opened connection"
               return backend
             destroy conn = do
               $logDebugS "SqlPool" "Closing connection..."
               liftIO $ connClose conn
               observeDatabaseConnectionClosed
-              $logInfoS "SqlPool" "Closed connection"
+              $logDebugS "SqlPool" "Closed connection"
          in Custom.createPool (liftIO . flip runLoggingT logFunc) create destroy (Just . fromIntegral $ pgPoolIdleTimeout appDatabaseConf) (Just $ pgPoolSize appDatabaseConf)
       let sqlPool :: forall m. MonadIO m => Custom.Pool m SqlBackend
           sqlPool = Custom.hoistPool (liftIO . flip runLoggingT logFunc) sqlPool'