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