From 55679307f72d612d7366ec33f9d851d18fde2323 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 18 Jul 2023 12:14:47 +0300 Subject: [PATCH] wip, debug --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 2212f9aa..d84fe074 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -300,10 +300,7 @@ refChanUpdateProto self pc adapter msg = do guard =<< lift (refChanSubscribed adapter chan) let h0 = hashObject @HbSync (serialise msg) - - done <- liftIO (hasBlock sto h0) <&> isJust - - guard (not done) + guard =<< liftIO (hasBlock sto h0 <&> isNothing) debug $ "RefChanUpdate/Propose" <+> pretty h0 @@ -371,7 +368,7 @@ refChanUpdateProto self pc adapter msg = do let h0 = hashObject @HbSync (serialise msg) - -- guard =<< liftIO (hasBlock sto h0 <&> isJust) + guard =<< liftIO (hasBlock sto h0 <&> isNothing) debug $ "RefChanUpdate/ACCEPT" <+> pretty h0