module Hasql.Pool.Observation where
import Hasql.Pool.Prelude
data Observation
=
ConnectionObservation
UUID
ConnectionStatus
deriving (Int -> Observation -> ShowS
[Observation] -> ShowS
Observation -> String
(Int -> Observation -> ShowS)
-> (Observation -> String)
-> ([Observation] -> ShowS)
-> Show Observation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Observation -> ShowS
showsPrec :: Int -> Observation -> ShowS
$cshow :: Observation -> String
show :: Observation -> String
$cshowList :: [Observation] -> ShowS
showList :: [Observation] -> ShowS
Show, Observation -> Observation -> Bool
(Observation -> Observation -> Bool)
-> (Observation -> Observation -> Bool) -> Eq Observation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Observation -> Observation -> Bool
== :: Observation -> Observation -> Bool
$c/= :: Observation -> Observation -> Bool
/= :: Observation -> Observation -> Bool
Eq)
data ConnectionStatus
=
ConnectingConnectionStatus
|
ReadyForUseConnectionStatus
|
InUseConnectionStatus
|
TerminatedConnectionStatus ConnectionTerminationReason
deriving (Int -> ConnectionStatus -> ShowS
[ConnectionStatus] -> ShowS
ConnectionStatus -> String
(Int -> ConnectionStatus -> ShowS)
-> (ConnectionStatus -> String)
-> ([ConnectionStatus] -> ShowS)
-> Show ConnectionStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ConnectionStatus -> ShowS
showsPrec :: Int -> ConnectionStatus -> ShowS
$cshow :: ConnectionStatus -> String
show :: ConnectionStatus -> String
$cshowList :: [ConnectionStatus] -> ShowS
showList :: [ConnectionStatus] -> ShowS
Show, ConnectionStatus -> ConnectionStatus -> Bool
(ConnectionStatus -> ConnectionStatus -> Bool)
-> (ConnectionStatus -> ConnectionStatus -> Bool)
-> Eq ConnectionStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ConnectionStatus -> ConnectionStatus -> Bool
== :: ConnectionStatus -> ConnectionStatus -> Bool
$c/= :: ConnectionStatus -> ConnectionStatus -> Bool
/= :: ConnectionStatus -> ConnectionStatus -> Bool
Eq)
data ConnectionTerminationReason
=
AgingConnectionTerminationReason
|
IdlenessConnectionTerminationReason
|
NetworkErrorConnectionTerminationReason (Maybe Text)
|
ReleaseConnectionTerminationReason
deriving (Int -> ConnectionTerminationReason -> ShowS
[ConnectionTerminationReason] -> ShowS
ConnectionTerminationReason -> String
(Int -> ConnectionTerminationReason -> ShowS)
-> (ConnectionTerminationReason -> String)
-> ([ConnectionTerminationReason] -> ShowS)
-> Show ConnectionTerminationReason
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ConnectionTerminationReason -> ShowS
showsPrec :: Int -> ConnectionTerminationReason -> ShowS
$cshow :: ConnectionTerminationReason -> String
show :: ConnectionTerminationReason -> String
$cshowList :: [ConnectionTerminationReason] -> ShowS
showList :: [ConnectionTerminationReason] -> ShowS
Show, ConnectionTerminationReason -> ConnectionTerminationReason -> Bool
(ConnectionTerminationReason
-> ConnectionTerminationReason -> Bool)
-> (ConnectionTerminationReason
-> ConnectionTerminationReason -> Bool)
-> Eq ConnectionTerminationReason
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ConnectionTerminationReason -> ConnectionTerminationReason -> Bool
== :: ConnectionTerminationReason -> ConnectionTerminationReason -> Bool
$c/= :: ConnectionTerminationReason -> ConnectionTerminationReason -> Bool
/= :: ConnectionTerminationReason -> ConnectionTerminationReason -> Bool
Eq)