minor-fix

2023-02-26 13:57:30 +03:00 · 2023-02-26 13:57:30 +03:00 · 8bbc15bc5b
parent 179a0b49a3
commit 8bbc15bc5b
1 changed files with 3 additions and 3 deletions
--- 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