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
{
DBState m -> Connection
dbConnection :: !Connection
, DBState m -> ConnectionSourceM m
dbConnectionSource :: !(ConnectionSourceM m)
, DBState m -> TransactionSettings
dbTransactionSettings :: !TransactionSettings
, DBState m -> SomeSQL
dbLastQuery :: !SomeSQL
, DBState m -> Bool
dbRecordLastQuery :: !Bool
, DBState m -> forall row. FromRow row => Maybe (QueryResult row)
dbQueryResult :: !(forall row. FromRow row => Maybe (QueryResult row))
}