Snap.Snaplet.Hasql

Documentation

class (Show (CxError db), Show (TxError db), CxTx db, Cx db) => HasPool s db | s -> db where

Methods

poolLens :: Lens' s (Pool db)

Instances

(Cx db, CxTx db, Show (CxError db), Show (TxError db)) => HasPool (Pool db) db

hasqlInit :: HasPool c db => CxSettings db -> PoolSettings -> SnapletInit c (Pool db)

session :: (HasPool v db, MonadReader v m) => Session db m r -> m r

Wrapper around session that just calls fail on failure, and uses the available poolLens. Most useful inside Handlers.

session' :: (HasPool v db, MonadReader v m) => Session db m r -> m (Either (SessionError db) r)

Wrapper around session.