refactor: use AppState.releasePool everywhere

This prepares for wrapping the pool in a reference.
2022-08-02 09:24:14 +02:00
parent eae169ca67
commit 421163dc75
2 changed files with 2 additions and 2 deletions
@@ -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