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 11:50:18 +03:00
parent 7e1c115056
commit 73d0fc6162
1 changed files with 5 additions and 2 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

@ -299,7 +299,10 @@ refChanUpdateProto self pc adapter msg = do
Propose chan box -> do Propose chan box -> do
guard =<< lift (refChanSubscribed adapter chan) guard =<< lift (refChanSubscribed adapter chan)
debug "RefChanUpdate/Propose" let h0 = hashObject @HbSync (serialise msg)
debug $ "RefChanUpdate/Propose" <+> pretty h0
deferred proto do deferred proto do
-- проверили подпись пира -- проверили подпись пира
@ -389,7 +392,7 @@ refChanUpdateProto self pc adapter msg = do
(_, ptran) <- MaybeT $ pure $ unboxSignedBox0 @(ProposeTran e) @e proposed (_, ptran) <- MaybeT $ pure $ unboxSignedBox0 @(ProposeTran e) @e proposed
debug $ "ACCEPT FROM:" <+> pretty (AsBase58 peerKey) debug $ "ACCEPT FROM:" <+> pretty (AsBase58 peerKey) <+> pretty h0
-- compiler bug? -- compiler bug?
let (ProposeTran _ pbox) = ptran let (ProposeTran _ pbox) = ptran