-- | Definition of internal DBT state.
{-# LANGUAGE RankNTypes #-}
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

-- | Internal DB state.
data DBState = DBState {
-- | Active connection.
  dbConnection          :: !Connection
-- | Supplied connection source.
, dbConnectionSource    :: !ConnectionSource
-- | Current transaction settings.
, dbTransactionSettings :: !TransactionSettings
-- | Last SQL query that was executed.
, dbLastQuery           :: !SomeSQL
-- | Current query result.
, dbQueryResult         :: !(FromRow row => Maybe (QueryResult row))
}