address linter complaints

PostgREST · Aug 4, 2022 · 8ae478e · 8ae478e
1 parent f5766ca
commit 8ae478e
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/src/PostgREST/AppState.hs b/src/PostgREST/AppState.hs
@@ -136,17 +136,12 @@ flushPool appState@AppState{..} = do
     case old of
       Nothing -> (Nothing, old)
       _       -> (Just newPool, old)
-  case oldPool of
-    Nothing  -> return ()
-    Just old -> SQL.release old
+  mapM_ SQL.release oldPool
 
 -- | Destroy the pool on shutdown.
 destroyPool :: AppState -> IO ()
-destroyPool AppState{..} = do
-  pool <- readIORef statePool
-  case pool of
-    Nothing -> return ()
-    Just p  -> SQL.release p
+destroyPool AppState{..} =
+  readIORef statePool >>= mapM_ SQL.release
 
 getPgVersion :: AppState -> IO PgVersion
 getPgVersion = readIORef . statePgVersion