nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-26 23:33:02 +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 Data.Vector.Mutable as MVector
import qualified Language.Haskell.TH as TH import qualified Language.Haskell.TH as TH
import qualified Language.Haskell.TH.Quote as TH import qualified Language.Haskell.TH.Quote as TH
import qualified Language.Haskell.TH.Syntax as TH
import qualified Hasql.TH as THUtil import qualified Hasql.TH as THUtil
@ -115,6 +116,12 @@ releasePool (Pool p) =
-- Settings of a pool. -- Settings of a pool.
data PoolSettings = data PoolSettings =
PoolSettings !Int !Int PoolSettings !Int !Int
deriving (Show)
instance TH.Lift PoolSettings where
lift (PoolSettings a b) =
[|PoolSettings a b|]
-- | -- |
-- A smart constructor for pool settings. -- A smart constructor for pool settings.