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

Instances for "Session"

Browse Source
This commit is contained in:
Nikita Volkov 2014-11-23 15:14:15 +03:00
parent 0492ab8546
commit 0c03eb32bc
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
library/Hasql.hs
View File

@ -65,7 +65,23 @@ import qualified Hasql.TH as THUtil
-- which executes transactions.
newtype Session b s m r =
Session (ReaderT (Pool.Pool (Backend.Connection b)) m r)
deriving (Functor, Applicative, Monad, MonadTrans)
deriving (Functor, Applicative, Monad, MonadTrans, MonadIO)
instance MonadTransControl (Session b s) where
newtype StT (Session b s) a = SessionStT a
liftWith onRunner =
Session $ ReaderT $ \e -> onRunner $ \(Session (ReaderT f)) -> liftM SessionStT $ f e
restoreT =
Session . ReaderT . const . liftM (\(SessionStT a) -> a)
instance (MonadBase IO m) => MonadBase IO (Session b s m) where
liftBase = Session . liftBase
instance (MonadBaseControl IO m) => MonadBaseControl IO (Session b s m) where
newtype StM (Session b s m) a = SessionStM (ComposeSt (Session b s) m a)
liftBaseWith = defaultLiftBaseWith SessionStM
restoreM = defaultRestoreM $ \(SessionStM x) -> x
-- |
-- Given backend settings, session settings, and a session monad transformer,