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

chore: reduce logging

Browse Source
This commit is contained in:
Gregor Kleen 2021-02-24 10:12:48 +01:00
parent 88a124e8c2
commit 56e9212e65
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Application.hs
View File

@ -250,13 +250,13 @@ makeFoundation appSettings''@AppSettings{..} = do
conn <- liftIO . PG.connectPostgreSQL $ pgConnStr appDatabaseConf conn <- liftIO . PG.connectPostgreSQL $ pgConnStr appDatabaseConf
backend <- liftIO $ openSimpleConn logFunc conn backend <- liftIO $ openSimpleConn logFunc conn
observeDatabaseConnectionOpened observeDatabaseConnectionOpened
$logInfoS "SqlPool" "Opened connection" $logDebugS "SqlPool" "Opened connection"
return backend return backend
destroy conn = do destroy conn = do
$logDebugS "SqlPool" "Closing connection..." $logDebugS "SqlPool" "Closing connection..."
liftIO $ connClose conn liftIO $ connClose conn
observeDatabaseConnectionClosed 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) 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 let sqlPool :: forall m. MonadIO m => Custom.Pool m SqlBackend
sqlPool = Custom.hoistPool (liftIO . flip runLoggingT logFunc) sqlPool' sqlPool = Custom.hoistPool (liftIO . flip runLoggingT logFunc) sqlPool'