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

wip

This commit is contained in:
Dmitry Zuikov 2023-07-18 09:25:34 +03:00
parent bb32e8b97c
commit f50aa24b4b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,6 +404,9 @@ refChanUpdateProto self pc adapter msg = do
(peerKey, ptran) <- MaybeT $ pure $ unboxSignedBox0 @(ProposeTran e) @e proposed (peerKey, ptran) <- MaybeT $ pure $ unboxSignedBox0 @(ProposeTran e) @e proposed
debug $ "ACCEPT FROM:" <+> pretty (AsBase58 peerKey)
-- compiler bug? -- compiler bug?
let (ProposeTran _ pbox) = ptran let (ProposeTran _ pbox) = ptran