rpc-own-peer-key

2023-02-15 11:53:50 +03:00 · 2023-02-15 11:53:50 +03:00 · 5f32229bef
parent 5be6292a76
commit 5f32229bef
1 changed files with 3 additions and 1 deletions
--- 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