voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ip, log merging, debug-30

This commit is contained in:
Dmitry Zuikov 2023-07-20 09:44:06 +03:00
parent 85f64cc801
commit 23500ed822
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
View File

@ -382,7 +382,7 @@ refChanUpdateProto self pc adapter msg = do
guard =<< lift (refChanSubscribed adapter (getRefChanId msg)) guard =<< lift (refChanSubscribed adapter (getRefChanId msg))
let h0 = hashObject @HbSync (serialise msg) let h0 = hashObject @HbSync (serialise msg)
-- guard =<< liftIO (hasBlock sto h0 <&> isNothing) guard =<< liftIO (hasBlock sto h0 <&> isNothing)
case msg of case msg of
Propose chan box -> do Propose chan box -> do