From 62f66fdf036b9fae139b67eb812e82970e9c0c0b Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sun, 13 Oct 2024 11:49:02 +0300 Subject: [PATCH] wip,debug --- hbs2-peer/app/MailboxProtoWorker.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hbs2-peer/app/MailboxProtoWorker.hs b/hbs2-peer/app/MailboxProtoWorker.hs index bfa273fd..966ff145 100644 --- a/hbs2-peer/app/MailboxProtoWorker.hs +++ b/hbs2-peer/app/MailboxProtoWorker.hs @@ -657,10 +657,12 @@ mailboxProtoWorker readConf me@MailboxProtoWorker{..} = do -- write-already-merged Exists _ w -> do + debug $ red ">>>" <+> blue "TX: Exists" <+> pretty w msg' <- getBlock mpwStorage (coerce w) case msg' of Nothing -> do + debug $ red "START DOWNLOAD" <+> pretty w startDownloadStuff me h atomically $ modifyTVar fails succ mzero