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

wip, emitting accept message

This commit is contained in:
Dmitry Zuikov 2023-07-17 13:38:54 +03:00
parent 2bb5b83eb9
commit 8b5d4522da
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -258,8 +258,6 @@ refChanUpdateProto self pc adapter msg = do
-- где-то тут мы разбираемся, что такое сообщеине -- где-то тут мы разбираемся, что такое сообщеине
-- уже отправляли и больше одного раза не реагируем -- уже отправляли и больше одного раза не реагируем
guard =<< lift (refChanHeadSubscribed adapter undefined)
case msg of case msg of
Propose chan box -> do Propose chan box -> do
guard =<< lift (refChanHeadSubscribed adapter chan) guard =<< lift (refChanHeadSubscribed adapter chan)
@ -332,19 +330,19 @@ refChanUpdateProto self pc adapter msg = do
let pk = view peerSignPk pc let pk = view peerSignPk pc
let sk = view peerSignSk pc let sk = view peerSignSk pc
-- генерируем Accept -- -- генерируем Accept
let accept = Accept chan (makeSignedBox @e pk sk tran) let accept = Accept chan (makeSignedBox @e pk sk tran)
-- и рассылаем всем -- -- и рассылаем всем
debug "GOSSIP ACCEPT TRANSACTION" debug "GOSSIP ACCEPT TRANSACTION"
lift $ gossip accept lift $ gossip accept
-- рассылаем ли себе? что бы был хоть один accept -- -- рассылаем ли себе? что бы был хоть один accept
lift $ refChanUpdateProto True pc adapter accept lift $ refChanUpdateProto True pc adapter accept
Accept chan box -> do Accept chan box -> do
guard =<< lift (refChanHeadSubscribed adapter chan) guard =<< lift (refChanHeadSubscribed adapter chan)
debug "RefChanUpdate/Propose" debug "RefChanUpdate/ACCEPT"
where where
proto = Proxy @(RefChanUpdate e) proto = Proxy @(RefChanUpdate e)