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

ip, log merging, debug-27

This commit is contained in:
Dmitry Zuikov 2023-07-20 09:14:00 +03:00
parent 8ebcb91946
commit 237732e25e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-peer/app/RefChan.hs
View File

@ -192,11 +192,11 @@ refChanWorker env brains = do
h <- liftIO $ getRef sto (RefChanLogKey @s chan)
-- игнорируем, если синхронно
-- unless ((HashRef <$> h) == Just val) do
unless ((HashRef <$> h) == Just val) do
refChanAddDownload env chan val $ \href -> do
debug $ "BLOCK DOWNLOADED" <+> pretty href
atomically $ writeTQueue mergeQ (chan, href)
refChanAddDownload env chan val $ \href -> do
debug $ "BLOCK DOWNLOADED" <+> pretty href
atomically $ writeTQueue mergeQ (chan, href)
atomically $ writeTQueue mergeQ (chan, val)