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 => Session db IO r -> Handler b v r

Wrapper around session that calls fail on failure.

session' :: HasPool v db => Session db IO r -> Handler b v (Either (SessionError db) r)

Wrapper around session.