From 8bbc15bc5b675798ba5320928c8da3e8045042a2 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 26 Feb 2023 13:57:30 +0300 Subject: [PATCH] minor-fix --- hbs2-peer/app/BlockDownload.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index 146b0b8a..7a628961 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -46,9 +46,9 @@ getBlockForDownload = do q <- asks (view downloadQ) inq <- asks (view blockInQ) liftIO $ atomically $ do - h <- readTQueue q - modifyTVar inq (HashMap.delete h) - pure h + readTQueue q + -- modifyTVar inq (HashMap.delete h) + -- pure h withBlockForDownload :: (MonadIO m, MyPeer e, HasStorage m, HasPeerLocator e m) => Peer e