nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-12-28 04:57:14 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #55 from cocreature/libpq-access

Browse Source 
Expose access to raw libpq connection
This commit is contained in:
Nikita Volkov 2016-07-23 15:40:12 +03:00 committed by GitHub
commit 4542b52282
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/Hasql/Connection.hs
View File

@ -8,6 +8,7 @@ module Hasql.Connection
release, release,
Settings, Settings,
settings, settings,
withLibPQConnection
) )
where where

6
library/Hasql/Private/Connection.hs
View File

@ -42,3 +42,9 @@ release (Connection pqConnectionRef _ _) =
nullConnection <- LibPQ.newNullConnection nullConnection <- LibPQ.newNullConnection
pqConnection <- swapMVar pqConnectionRef nullConnection pqConnection <- swapMVar pqConnectionRef nullConnection
IO.releaseConnection pqConnection IO.releaseConnection pqConnection
-- | Execute an operation on the raw @libpq@ 'LibPQ.Connection'.
--
-- The access to the connection is exclusive.
withLibPQConnection :: Connection -> (LibPQ.Connection -> IO a) -> IO a
withLibPQConnection (Connection pqConnectionRef _ _) = withMVar pqConnectionRef