diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 729bf310..924b6c28 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -406,8 +406,6 @@ refChanUpdateProto self pc adapter msg = do -- -- рассылаем ли себе? что бы был хоть один accept lift $ refChanUpdateProto True pc adapter accept - pure () - Accept chan box -> deferred proto do guard =<< lift (refChanSubscribed adapter chan)