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

wip, debug

This commit is contained in:
Dmitry Zuikov 2023-07-18 12:14:47 +03:00
parent 3c46a14aa5
commit 55679307f7
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -300,10 +300,7 @@ refChanUpdateProto self pc adapter msg = do
guard =<< lift (refChanSubscribed adapter chan) guard =<< lift (refChanSubscribed adapter chan)
let h0 = hashObject @HbSync (serialise msg) let h0 = hashObject @HbSync (serialise msg)
guard =<< liftIO (hasBlock sto h0 <&> isNothing)
done <- liftIO (hasBlock sto h0) <&> isJust
guard (not done)
debug $ "RefChanUpdate/Propose" <+> pretty h0 debug $ "RefChanUpdate/Propose" <+> pretty h0
@ -371,7 +368,7 @@ refChanUpdateProto self pc adapter msg = do
let h0 = hashObject @HbSync (serialise msg) let h0 = hashObject @HbSync (serialise msg)
-- guard =<< liftIO (hasBlock sto h0 <&> isJust) guard =<< liftIO (hasBlock sto h0 <&> isNothing)
debug $ "RefChanUpdate/ACCEPT" <+> pretty h0 debug $ "RefChanUpdate/ACCEPT" <+> pretty h0