AV
#
Size: a a a
AV
#
IR
#
AV
Ptr#
и у тебя между вызовами нет никаких boxed объектовAV
IR
Addr#
, да.AV
let addr = byteArrayContents# x
ffi 1 addr
AV
IR
let addr = byteArrayContents# x
ffi 1 addr
AV
IR
AV
AV
AV
AV
AV
IR
AV
AV
MK
AV
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