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