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

wip, fix

This commit is contained in:
voidlizard 2024-10-14 08:47:26 +03:00
parent df970b8349
commit 0b9c1f3b4d
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -647,6 +647,7 @@ mailboxProtoWorker readConf me@MailboxProtoWorker{..} = do
Left{} -> do Left{} -> do
-- here, but lame -- here, but lame
err $ red "mailbox (invalid block)"
void $ putBlock sto (serialise (MergedEntry r th)) void $ putBlock sto (serialise (MergedEntry r th))
-- maybe to something more sophisticated -- maybe to something more sophisticated
@ -655,8 +656,14 @@ mailboxProtoWorker readConf me@MailboxProtoWorker{..} = do
Right (Deleted (ProofOfDelete{..}) _) -> do Right (Deleted (ProofOfDelete{..}) _) -> do
h <- toMPlus deleteMessage h <- toMPlus deleteMessage
box <- getBlock sto (coerce h) mbox <- getBlock sto (coerce h)
>>= toMPlus -- >>= toMPlus
when (isNothing mbox) do
startDownloadStuff me h
warn $ red "<<~~~>>" <+> "Proof not found!" <+> pretty h
box <- toMPlus mbox
<&> deserialiseOrFail @(SignedBox (DeleteMessagesPayload s) s) <&> deserialiseOrFail @(SignedBox (DeleteMessagesPayload s) s)
>>= toMPlus >>= toMPlus