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

wip

This commit is contained in:
Dmitry Zuikov 2023-02-15 12:47:34 +03:00
parent a5946eb81d
commit b6af96db6c
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hbs2-peer/app/PeerMain.hs
View File

@ -485,15 +485,17 @@ runPeer opts = Exception.handle myException $ do
maybe1 mbsize (pure ()) $ \size -> do
debug "send multicast announce"
let ann = BlockAnnounceInfo 0 NoBlockInfoMeta size h
no <- peerNonce @e
request localMulticast (BlockAnnounce @e no ann)
let annInfo = BlockAnnounceInfo 0 NoBlockInfoMeta size h
let announce = BlockAnnounce @e no annInfo
-- withKnownPeers $ \p -> do
-- let ann = BlockAnnounceInfo 0 NoBlockInfoMeta size h
-- no <- peerNonce @e
-- request p (BlockAnnounce @e ann)
request localMulticast announce
liftIO $ withPeerM env do
debug "send single-cast announces"
forKnownPeers $ \p _ -> do
request @e p announce
CHECK nonce pa h -> do
pip <- fromPeerAddr @e pa