From 2d1d5aec0351b4812d5bf80517ee6e1875a9a130 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 5 Feb 2023 07:31:14 +0300 Subject: [PATCH] wip --- hbs2-peer/app/BlockDownload.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index d0630d75..abdd4762 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -228,11 +228,11 @@ processBlock h = do here <- liftIO (hasBlock sto blk) <&> isJust if here then do + pure () -- debug $ "block" <+> pretty blk <+> "is already here" - processBlock blk -- NOTE: хуже не стало - -- FIXME: fugure out if it's really required - - pure () -- we don't need to recurse, cause walkMerkle is recursing for us + -- unless (h == blk) do + -- processBlock blk -- NOTE: хуже не стало + -- FIXME: fugure out if it's really required else do addDownload blk