From 8b5d4522dad258e81781ef1841cddba39566218f Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 17 Jul 2023 13:38:54 +0300 Subject: [PATCH] wip, emitting accept message --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index fee70718..3c9e743d 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -258,8 +258,6 @@ refChanUpdateProto self pc adapter msg = do -- где-то тут мы разбираемся, что такое сообщеине -- уже отправляли и больше одного раза не реагируем - guard =<< lift (refChanHeadSubscribed adapter undefined) - case msg of Propose chan box -> do guard =<< lift (refChanHeadSubscribed adapter chan) @@ -332,19 +330,19 @@ refChanUpdateProto self pc adapter msg = do let pk = view peerSignPk pc let sk = view peerSignSk pc - -- генерируем Accept + -- -- генерируем Accept let accept = Accept chan (makeSignedBox @e pk sk tran) - -- и рассылаем всем + -- -- и рассылаем всем debug "GOSSIP ACCEPT TRANSACTION" lift $ gossip accept - -- рассылаем ли себе? что бы был хоть один accept + -- -- рассылаем ли себе? что бы был хоть один accept lift $ refChanUpdateProto True pc adapter accept Accept chan box -> do guard =<< lift (refChanHeadSubscribed adapter chan) - debug "RefChanUpdate/Propose" + debug "RefChanUpdate/ACCEPT" where proto = Proxy @(RefChanUpdate e)