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

Instances for PoolSettings

Browse Source
This commit is contained in:
Nikita Volkov 2014-12-29 11:54:31 +03:00
parent f3af81010f
commit 260425abed
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/Hasql.hs
View File

@ -67,6 +67,7 @@ import qualified Data.Vector as Vector
import qualified Data.Vector.Mutable as MVector
import qualified Language.Haskell.TH as TH
import qualified Language.Haskell.TH.Quote as TH
import qualified Language.Haskell.TH.Syntax as TH
import qualified Hasql.TH as THUtil
@ -115,6 +116,12 @@ releasePool (Pool p) =
-- Settings of a pool.
data PoolSettings =
PoolSettings !Int !Int
deriving (Show)
instance TH.Lift PoolSettings where
lift (PoolSettings a b) =
[|PoolSettings a b|]
-- |
-- A smart constructor for pool settings.