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.