log flushed pool retry

PostgREST · Aug 24, 2022 · e3726b0 · e3726b0
1 parent fcb3e5b
commit e3726b0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/PostgREST/AppState.hs b/src/PostgREST/AppState.hs
@@ -118,7 +118,9 @@ usePool appState@AppState{..} session = do
     Just p -> do
       res <- SQL.use p session
       case res of
-        Left SQL.PoolIsReleasedUsageError -> usePool appState session
+        Left SQL.PoolIsReleasedUsageError -> do
+          logWithZTime appState "Attempted to used flushed pool, retrying"
+          usePool appState session
         _                                 -> return res
 
 -- | Flush the connection pool so that any future use of the pool will