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

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

@ -192,7 +192,7 @@ refChanWorker env brains = do
h <- liftIO $ getRef sto (RefChanLogKey @s chan) 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 refChanAddDownload env chan val $ \href -> do
debug $ "BLOCK DOWNLOADED" <+> pretty href debug $ "BLOCK DOWNLOADED" <+> pretty href