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

wip, log merging, debug-11

This commit is contained in:
Dmitry Zuikov 2023-07-19 12:32:04 +03:00
parent 43139c44ea
commit 0e1bf90928
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -191,6 +191,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