fix: Restore showing LISTEN pgrst in pg_stat_activity

This commit is contained in:
Michal Kleczek
2026-05-04 22:08:06 +05:00
committed by Taimoor Zaeem
parent 9baf17aed0
commit a62b6de1d0
3 changed files with 36 additions and 1 deletions
+1 -1
View File
@@ -68,9 +68,9 @@ retryingListen appState = do
-- use connection
\case
Right db -> do
SQL.listen db $ SQL.toPgIdentifier dbChannel
(pqHost, pqPort) <- SQL.withLibPQConnection db $ bisequence . (LibPQ.host &&& LibPQ.port)
pgFullName <- SQL.run (queryPgVersion False) db >>= either throwIO (pure . pgvFullName)
SQL.listen db $ SQL.toPgIdentifier dbChannel
AppState.putIsListenerOn appState True