mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
2b71b27dca
commit
0ec2cd6e3b
|
@ -171,6 +171,8 @@ peerPingLoop cfg = do
|
|||
let pfails = view peerPingFailed pinfo
|
||||
let pdownfails = view peerDownloadFail pinfo
|
||||
|
||||
-- FIXME: seems-like-a-bad-idea
|
||||
-- Кажется, вызывает гонки
|
||||
liftIO $ atomically $ modifyTVar pfails succ
|
||||
|
||||
sendPing @e p
|
||||
|
|
Loading…
Reference in New Issue