From 421163dc756265c8fbac88acc22c949a5de581ca Mon Sep 17 00:00:00 2001
From: Robert Vollmert <rob@vllmrt.net>
Date: Mon, 1 Aug 2022 10:55:50 +0200
Subject: [PATCH] refactor: use AppState.releasePool everywhere

This prepares for wrapping the pool in a reference.
---
 src/PostgREST/CLI.hs     | 2 +-
 src/PostgREST/Workers.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/PostgREST/CLI.hs b/src/PostgREST/CLI.hs
index b296edd1c..95ae52231 100644
--- a/src/PostgREST/CLI.hs
+++ b/src/PostgREST/CLI.hs
@@ -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
diff --git a/src/PostgREST/Workers.hs b/src/PostgREST/Workers.hs
index 9f0597391..28a46f0eb 100644
--- a/src/PostgREST/Workers.hs
+++ b/src/PostgREST/Workers.hs
@@ -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