From 23500ed822324ca89cdfde6f3a18999793d8b728 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 20 Jul 2023 09:44:06 +0300 Subject: [PATCH] ip, log merging, debug-30 --- 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 350bb7df..009d4c08 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -382,7 +382,7 @@ refChanUpdateProto self pc adapter msg = do guard =<< lift (refChanSubscribed adapter (getRefChanId msg)) let h0 = hashObject @HbSync (serialise msg) - -- guard =<< liftIO (hasBlock sto h0 <&> isNothing) + guard =<< liftIO (hasBlock sto h0 <&> isNothing) case msg of Propose chan box -> do