feat: log full pg version to stderr on connection

This commit is contained in:
steve-chavez
2024-02-10 19:21:55 -05:00
committed by Steve Chavez
parent 410fa9508b
commit 21e8ca5051
3 changed files with 18 additions and 17 deletions
+2 -2
View File
@@ -75,8 +75,8 @@ queryPgVersion prepared = statement mempty $ pgVersionStatement prepared
pgVersionStatement :: Bool -> SQL.Statement () PgVersion
pgVersionStatement = SQL.Statement sql HE.noParams versionRow
where
sql = "SELECT current_setting('server_version_num')::integer, current_setting('server_version')"
versionRow = HD.singleRow $ PgVersion <$> column HD.int4 <*> column HD.text
sql = "SELECT current_setting('server_version_num')::integer, current_setting('server_version'), version()"
versionRow = HD.singleRow $ PgVersion <$> column HD.int4 <*> column HD.text <*> column HD.text
-- | Query the in-database configuration. The settings have the following priorities:
--