I
Size: a a a
I
AV
MK
AV
AV
AV
MK
MK
AV
I
AV
AV
AV
I
AV
AV
connect
к мертвому хостуMK
MK
I
connectionLoop = do
conn <- withTimeout 1_SEC $ connect
case conn of
Just c -> return c
Nothing -> creationLoop
healthyAction conn action = do
withTimeout 1_SEC $ quickAction conn
action conn
p = createPool creationLoop ...
withResource p $ \c -> healthyAction c realAction
AV
connection = timeout 1_000_000_ connect