voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

minor-fix

This commit is contained in:
Dmitry Zuikov 2023-02-26 13:57:30 +03:00
parent 179a0b49a3
commit 8bbc15bc5b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-peer/app/BlockDownload.hs
View File

@ -46,9 +46,9 @@ getBlockForDownload = do
q <- asks (view downloadQ) q <- asks (view downloadQ)
inq <- asks (view blockInQ) inq <- asks (view blockInQ)
liftIO $ atomically $ do liftIO $ atomically $ do
h <- readTQueue q readTQueue q
modifyTVar inq (HashMap.delete h) -- modifyTVar inq (HashMap.delete h)
pure h -- pure h
withBlockForDownload :: (MonadIO m, MyPeer e, HasStorage m, HasPeerLocator e m) withBlockForDownload :: (MonadIO m, MyPeer e, HasStorage m, HasPeerLocator e m)
=> Peer e => Peer e