voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2023-03-29 10:06:18 +03:00
parent 2b71b27dca
commit 0ec2cd6e3b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/PeerInfo.hs
View File

@ -171,6 +171,8 @@ peerPingLoop cfg = do
let pfails = view peerPingFailed pinfo let pfails = view peerPingFailed pinfo
let pdownfails = view peerDownloadFail pinfo let pdownfails = view peerDownloadFail pinfo
-- FIXME: seems-like-a-bad-idea
-- Кажется, вызывает гонки
liftIO $ atomically $ modifyTVar pfails succ liftIO $ atomically $ modifyTVar pfails succ
sendPing @e p sendPing @e p