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

rpc-own-peer-key

This commit is contained in:
Dmitry Zuikov 2023-02-15 11:53:50 +03:00
parent 5be6292a76
commit 5f32229bef
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -636,11 +636,13 @@ withRPC saddr cmd = do
pingQ <- newTQueueIO pingQ <- newTQueueIO
pokeQ <- newTQueueIO
prpc <- async $ runRPC udp1 do prpc <- async $ runRPC udp1 do
env <- ask env <- ask
proto <- liftIO $ async $ continueWithRPC env $ do proto <- liftIO $ async $ continueWithRPC env $ do
runProto @UDP runProto @UDP
[ makeResponse (rpcHandler (adapter pingQ)) [ makeResponse (rpcHandler (adapter pingQ pokeQ))
] ]
request rpc cmd request rpc cmd