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

wip

This commit is contained in:
Dmitry Zuikov 2023-07-18 09:20:35 +03:00
parent 2d7a760a4c
commit ee934740ab
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
View File

@ -422,6 +422,8 @@ refChanUpdateProto self pc adapter msg = do
accepts <- atomically $ readTVar (view refChanRoundAccepts rcRound) <&> HashMap.size
debug $ "ACCEPTS" <+> pretty accepts
-- FIXME: round!
when (accepts > 2) do
debug $ "ROUND!" <+> pretty accepts <+> pretty hashRef