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