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

minor fix + todo

This commit is contained in:
Dmitry Zuikov 2023-10-19 10:57:01 +03:00
parent e13d208efc
commit 6336a69252
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
docs/todo/refchan.txt
View File

@ -215,7 +215,14 @@ NOTE: refchan-log-syncronization-1
что мы уже обработали, это должно быть достаточно что мы уже обработали, это должно быть достаточно
безвредно, если не очень часто. безвредно, если не очень часто.
TODO: dont-spam-with-notifications
Не рассылать нотификации, если контрагент отказывается их принимать.
Для этого: сделать протокол (?) отказа (?) от рассылки --- допустим,
из одной команды: RejectNotification Key ?
И в госсипе (?) или рефчане/рефлоге с одной стороны --- присылать команду,
что бы заткнулся, с другой стороны -- какой-то кэш устанавливать, и если ключ
не истёк -- то не рассылать сообщения в эту ссылку.
Потребует модификации gossip/broadcast

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

@ -803,8 +803,6 @@ refChanNotifyProto self adapter msg@(Notify rchan box) = do
peer <- thatPeer proto peer <- thatPeer proto
debug $ "&&& refChanNotifyProto" <+> pretty self
let h0 = hashObject @HbSync (serialise msg) let h0 = hashObject @HbSync (serialise msg)
auth <- find (KnownPeerKey peer) id <&> isJust auth <- find (KnownPeerKey peer) id <&> isJust
@ -815,6 +813,8 @@ refChanNotifyProto self adapter msg@(Notify rchan box) = do
guard (self || auth) guard (self || auth)
debug $ "&&& refChanNotifyProto" <+> pretty self
deferred proto do deferred proto do
guard =<< liftIO (hasBlock sto h0 <&> isNothing) guard =<< liftIO (hasBlock sto h0 <&> isNothing)