From b6af96db6c41c5bec176e892a9716a4161c9049c Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 15 Feb 2023 12:47:34 +0300 Subject: [PATCH] wip --- hbs2-peer/app/PeerMain.hs | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index f7601b6f..483ed2f2 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -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