wip

hbs2-peer/app/PeerMain.hs

@@ -405,6 +405,10 @@ runPeer opts = Exception.handle myException $ do
                  let known = isJust pd && not banned
                  unless known $ sendPing pip
 
+              subscribe @e BlockAnnounceInfoKey $ \(BlockAnnounceEvent p bi no) -> do
+                 pa <- toPeerAddr p
+                 liftIO $ atomically $ writeTQueue rpcQ (CHECK no pa (view biHash bi))
+
               subscribe @e AnyKnownPeerEventKey $ \(KnownPeerEvent p d) -> do
 
                 let thatNonce = view peerOwnNonce d
@@ -599,7 +603,6 @@ runPeer opts = Exception.handle myException $ do
                    self <- ownPeer @e
 
                    subscribe @e BlockAnnounceInfoKey $ \(BlockAnnounceEvent p bi no) -> do
-                    debug "Peer announce wtf?"
                     unless (p == self) do
                       pa <- toPeerAddr p
                       liftIO $ atomically $ writeTQueue rpcQ (CHECK no pa (view biHash bi))

nix/peer/flake.lock

@@ -236,11 +236,11 @@
         "suckless-conf": "suckless-conf_2"
       },
       "locked": {
-        "lastModified": 1676454454,
-        "narHash": "sha256-d6SjaJIwYwuwsCh+Ed6Mjyx12LY48hRqbWkcXpyQ35w=",
+        "lastModified": 1676462171,
+        "narHash": "sha256-erKiiQmbFLnoDLCT3FckSIBTnLpdS8qbW+YhSG+9yYI=",
         "owner": "voidlizard",
         "repo": "hbs2",
-        "rev": "b6af96db6c41c5bec176e892a9716a4161c9049c",
+        "rev": "0bbe002fff364bf5cc4f8675c5c43b07833255f3",
         "type": "github"
       },
       "original": {

nix/peer/flake.nix

@@ -90,6 +90,7 @@ rpc    "127.0.0.1:13331"
 key    "./key"
 storage  "/root/hbs2"
 accept-block-announce "AAh9rjcgg2Zfmd9c8xAhVPBEmUCyYM7wHGxjjqYDZYRb"
+accept-block-announce "FA9ZptS3esbGYqrKTXJKTGbctGkQTSsz1ZePQHJzRAQ3"
 '';
 
               };