refactor: use AppState.releasePool everywhere
This prepares for wrapping the pool in a reference.
This commit is contained in:
@@ -55,7 +55,7 @@ dumpSchema appState = do
|
||||
(toList configDbSchemas)
|
||||
configDbExtraSearchPath
|
||||
configDbPreparedStatements
|
||||
SQL.release $ AppState.getPool appState
|
||||
AppState.releasePool appState
|
||||
case result of
|
||||
Left e -> do
|
||||
hPutStrLn stderr $ "An error ocurred when loading the schema cache:\n" <> show e
|
||||
|
||||
@@ -110,7 +110,7 @@ connectionWorker appState = do
|
||||
connectionStatus :: AppState -> IO ConnectionStatus
|
||||
connectionStatus appState =
|
||||
retrying retrySettings shouldRetry $
|
||||
const $ SQL.release pool >> getConnectionStatus
|
||||
const $ AppState.releasePool appState >> getConnectionStatus
|
||||
where
|
||||
pool = AppState.getPool appState
|
||||
retrySettings = capDelay delayMicroseconds $ exponentialBackoff backoffMicroseconds
|
||||
|
||||
Reference in New Issue
Block a user