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

wip,debug

This commit is contained in:
voidlizard 2024-10-13 11:49:02 +03:00
parent 21a6057b39
commit 62f66fdf03
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -657,10 +657,12 @@ mailboxProtoWorker readConf me@MailboxProtoWorker{..} = do
-- write-already-merged -- write-already-merged
Exists _ w -> do Exists _ w -> do
debug $ red ">>>" <+> blue "TX: Exists" <+> pretty w
msg' <- getBlock mpwStorage (coerce w) msg' <- getBlock mpwStorage (coerce w)
case msg' of case msg' of
Nothing -> do Nothing -> do
debug $ red "START DOWNLOAD" <+> pretty w
startDownloadStuff me h startDownloadStuff me h
atomically $ modifyTVar fails succ atomically $ modifyTVar fails succ
mzero mzero