postgres-haskell/postgres-wire
1
1
Fork 0
mirror of https://github.com/postgres-haskell/postgres-wire.git synced 2024-11-22 05:53:12 +03:00
Code Issues Projects Releases Wiki Activity

Functions retreiving information about connection

Browse Source
This commit is contained in:
VyacheslavHashov 2017-02-02 02:31:06 +03:00
parent 22f4d6f047
commit 45c8f03ebe
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Database/PostgreSQL/Driver/Connection.hs
View File

@ -50,7 +50,7 @@ data DataMessage = DataMessage [V.Vector B.ByteString]
-- | Parameters of the current connection.
-- We store only the parameters that cannot change after startup.
-- For more information about additional parameters see documentation.
-- For more information about additional parameters see PostgreSQL documentation.
data ConnectionParameters = ConnectionParameters
{ paramServerVersion :: ServerVersion
, paramServerEncoding :: B.ByteString -- ^ character set name
@ -332,3 +332,14 @@ withConnectionMode conn mode handler = do
where
ref = connMode conn
-- Information about connection
getServerVersion :: Connection -> ServerVersion
getServerVersion = paramServerVersion . connParameters
getServerEncoding :: Connection -> B.ByteString
getServerEncoding = paramServerEncoding . connParameters
getIntegerDatetimes :: Connection -> Bool
getIntegerDatetimes = paramIntegerDatetimes . connParameters