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 14:05:27 +03:00
parent 8bbc15bc5b
commit fb224635a5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-peer/app/PeerTypes.hs
View File

@ -289,7 +289,10 @@ addDownload h = do
wip <- asks (view blockWip) wip <- asks (view blockWip)
liftIO do liftIO do
atomically $ writeTQueue q h atomically $ do
modifyTVar tinq $ HashMap.insert h ()
writeTQueue q h
Cache.insert wip h () Cache.insert wip h ()
-- | False -> do -- not hasSize -> do -- | False -> do -- not hasSize -> do