hpgsql-simple-compat-0.1.0.0: src/Database/PostgreSQL/LibPQ.hs

module Database.PostgreSQL.LibPQ (fname, transactionStatus, Column (..), Connection (..), ExecStatus (..), Format (..), Oid (..), Result (..), Row (..), TransactionStatus (..)) where

import Data.ByteString (ByteString)
import qualified Hpgsql
import Hpgsql.Transaction (TransactionStatus (..))
import qualified Hpgsql.Transaction
import Hpgsql.TypeInfo (Oid (..))

data Connection = Connection {hpgConn :: Hpgsql.HPgConnection}

data ExecStatus = FatalError
  deriving (Eq, Show)

data Result = Result

data Column = Column

data Row = Row

data Format = Text | Binary

fname :: Result -> Column -> IO (Maybe ByteString)
fname _ _ = pure Nothing

transactionStatus :: Connection -> IO TransactionStatus
transactionStatus conn = Hpgsql.Transaction.transactionStatus $ hpgConn conn