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

wip, fix

This commit is contained in:
Dmitry Zuikov 2024-03-17 04:58:38 +03:00
parent 319658b84d
commit c869bd58f2
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/RPC2/Poll.hs
View File

@ -24,7 +24,9 @@ instance (MonadIO m, HasRpcContext PeerAPI RPC2Context m) => HandleMethod m RpcP
handleMethod (r,t,i) = do handleMethod (r,t,i) = do
brains <- getRpcContext @PeerAPI <&> rpcBrains brains <- getRpcContext @PeerAPI <&> rpcBrains
debug $ "rpc.pollAdd" debug $ "rpc.pollAdd"
addPolledRef @L4Proto brains r t i polled <- isPolledRef @L4Proto brains t r
unless polled do
addPolledRef @L4Proto brains r t i
instance (MonadIO m, HasRpcContext PeerAPI RPC2Context m) => HandleMethod m RpcPollDel where instance (MonadIO m, HasRpcContext PeerAPI RPC2Context m) => HandleMethod m RpcPollDel where