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