From 6dc3fc91f575424b2d50c0f8f81ab20ae3dbdb7c Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 18 Jul 2023 16:16:04 +0300
Subject: [PATCH] wip, wtf 2

---
 hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 2 --
 1 file changed, 2 deletions(-)

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)