module Hasql.Core.Model where
import Hasql.Prelude hiding (State, peek)
data Response =
DataRowResponse !ByteString |
CommandCompleteResponse !Int |
ReadyForQueryResponse !TransactionStatus |
ParseCompleteResponse |
BindCompleteResponse |
EmptyQueryResponse |
NotificationResponse !Word32 !ByteString !ByteString |
ErrorResponse !ByteString !ByteString |
AuthenticationResponse !AuthenticationStatus |
ParameterStatusResponse !ByteString !ByteString
deriving (Show)
data AuthenticationStatus =
NeedClearTextPasswordAuthenticationStatus |
NeedMD5PasswordAuthenticationStatus !ByteString |
OkAuthenticationStatus
deriving (Show)
data TransactionStatus =
IdleTransactionStatus |
ActiveTransactionStatus |
FailedTransactionStatus
deriving (Show)
data AuthenticationResult =
NeedClearTextPasswordAuthenticationResult |
NeedMD5PasswordAuthenticationResult !ByteString |
OkAuthenticationResult !Bool
data Notification = Notification !Word32 !ByteString !ByteString deriving (Show)
data Error =
BackendError !ByteString !ByteString |
DecodingError !Text |
TransportError !Text |
ProtocolError !Text
deriving (Show, Eq)