module Database.PostgreSQL.PQTypes.Internal.State (
DBState(..)
) where
import Database.PostgreSQL.PQTypes.FromRow
import Database.PostgreSQL.PQTypes.Internal.Connection
import Database.PostgreSQL.PQTypes.Internal.QueryResult
import Database.PostgreSQL.PQTypes.SQL.Class
import Database.PostgreSQL.PQTypes.Transaction.Settings
data DBState m = DBState
{
forall (m :: * -> *). DBState m -> Connection
dbConnection :: !Connection
, forall (m :: * -> *). DBState m -> ConnectionSourceM m
dbConnectionSource :: !(ConnectionSourceM m)
, forall (m :: * -> *). DBState m -> TransactionSettings
dbTransactionSettings :: !TransactionSettings
, forall (m :: * -> *). DBState m -> SomeSQL
dbLastQuery :: !SomeSQL
, forall (m :: * -> *). DBState m -> Bool
dbRecordLastQuery :: !Bool
, forall (m :: * -> *).
DBState m -> forall row. FromRow row => Maybe (QueryResult row)
dbQueryResult :: !(forall row. FromRow row => Maybe (QueryResult row))
}