From 5f32229bef71e1bdf354d5065cb8c4859f17b424 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 15 Feb 2023 11:53:50 +0300 Subject: [PATCH] rpc-own-peer-key --- hbs2-peer/app/PeerMain.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index 99973df8..f9c521cc 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -636,11 +636,13 @@ withRPC saddr cmd = do pingQ <- newTQueueIO + pokeQ <- newTQueueIO + prpc <- async $ runRPC udp1 do env <- ask proto <- liftIO $ async $ continueWithRPC env $ do runProto @UDP - [ makeResponse (rpcHandler (adapter pingQ)) + [ makeResponse (rpcHandler (adapter pingQ pokeQ)) ] request rpc cmd