From 7e1c11505602c034bddc8dc301b140eabc20ea1f Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 18 Jul 2023 11:44:13 +0300 Subject: [PATCH] wip, debug --- 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 99f63b61..28179bed 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -364,7 +364,7 @@ refChanUpdateProto self pc adapter msg = do let h0 = hashObject @HbSync (serialise msg) - guard =<< liftIO (hasBlock sto h0 <&> isJust) + -- guard =<< liftIO (hasBlock sto h0 <&> isJust) debug $ "RefChanUpdate/ACCEPT" <+> pretty h0