module Hpgsql.TransactionStatusInternal (TransactionStatus (..)) where

data TransactionStatus
  = -- | A command is in progress
    TransActive
  | -- | Not inside a transaction
    TransIdle
  | -- | Inside a transaction, but no command running
    TransInTrans
  | TransInError
  deriving stock (TransactionStatus -> TransactionStatus -> Bool
(TransactionStatus -> TransactionStatus -> Bool)
-> (TransactionStatus -> TransactionStatus -> Bool)
-> Eq TransactionStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TransactionStatus -> TransactionStatus -> Bool
== :: TransactionStatus -> TransactionStatus -> Bool
$c/= :: TransactionStatus -> TransactionStatus -> Bool
/= :: TransactionStatus -> TransactionStatus -> Bool
Eq, Int -> TransactionStatus -> ShowS
[TransactionStatus] -> ShowS
TransactionStatus -> String
(Int -> TransactionStatus -> ShowS)
-> (TransactionStatus -> String)
-> ([TransactionStatus] -> ShowS)
-> Show TransactionStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TransactionStatus -> ShowS
showsPrec :: Int -> TransactionStatus -> ShowS
$cshow :: TransactionStatus -> String
show :: TransactionStatus -> String
$cshowList :: [TransactionStatus] -> ShowS
showList :: [TransactionStatus] -> ShowS
Show)