From 0ec2cd6e3b16903e1132c78efaa1d188bf229de9 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 29 Mar 2023 10:06:18 +0300
Subject: [PATCH] wip

---
 hbs2-peer/app/PeerInfo.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hbs2-peer/app/PeerInfo.hs b/hbs2-peer/app/PeerInfo.hs
index c2a9aa53..d6f99c9a 100644
--- a/hbs2-peer/app/PeerInfo.hs
+++ b/hbs2-peer/app/PeerInfo.hs
@@ -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