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'