From 7bd79453a6d5e23a7f85c6ee2752752a286788bd Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 18 Jul 2023 09:21:54 +0300 Subject: [PATCH] wip --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 2e396bf9..85b52c6e 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -422,7 +422,7 @@ refChanUpdateProto self pc adapter msg = do accepts <- atomically $ readTVar (view refChanRoundAccepts rcRound) <&> HashMap.size - debug $ "ACCEPTS" <+> pretty accepts + debug $ "ACCEPTS:" <+> pretty accepts -- FIXME: round! when (accepts > 2) do