AV
Size: a a a
AV
MK
AV
MK
acquire' = loop (fromMaybe 1 configConnectRetries) where
loop n = HC.acquire cfg >>= \case
Left e ->
if n <= 0
then error (show e)
else loop (n-1)
Right x -> pure x
AV
MK
MK
AV
5432/db?connect_timeout=1&application_name=app&keepalives_idle=5
AV
Tagged '[x] ByteString
MK
AV
AV
MP
MK
MK
LO
MP
MK
LO
MP