From 54ae7bc6e104920bff0160e880f54cdba57f14e6 Mon Sep 17 00:00:00 2001
From: Robert Vollmert <rob@vllmrt.net>
Date: Wed, 24 Aug 2022 14:36:29 +0200
Subject: [PATCH] appease hlint

---
 src/PostgREST/AppState.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/PostgREST/AppState.hs b/src/PostgREST/AppState.hs
index 91251ef615..0770f4eeae 100644
--- a/src/PostgREST/AppState.hs
+++ b/src/PostgREST/AppState.hs
@@ -101,7 +101,7 @@ initPool AppConfig{..} =
 
 -- | Run an action with a database connection.
 usePool :: AppState -> SQL.Session a -> IO (Either SQL.UsageError a)
-usePool AppState{..} session = SQL.use statePool session
+usePool AppState{..} = SQL.use statePool
 
 -- | Flush the connection pool so that any future use of the pool will
 -- use connections freshly established after this call.