From b2fd91610a887b8829fc7c772cc83d3c5e3b8786 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sat, 25 Feb 2023 16:26:45 +0300 Subject: [PATCH] wip --- hbs2-peer/app/BlockDownload.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index 7ec7062b..69184c2d 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -577,7 +577,7 @@ peerDownloadLoop peer = do seenTimes <- liftIO $ readTVarIO seenBlocks <&> fromMaybe 0 . HashMap.lookup h - when ( seenTimes > 5 ) do + when ( seenTimes > 50 ) do trace $ "ban block" <+> pretty h <+> "for a while" <+> parens (pretty seenTimes) liftIO $ atomically $ modifyTVar seenBlocks (HashMap.delete h) liftIO $ Cache.insert bannedBlocks h ()