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-14 16:09:57 +03:00
parent 36a0282256
commit 208a2a0644
1 changed files with 15 additions and 8 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

@ -98,6 +98,13 @@ refChanHeadProto :: forall e s m . ( MonadIO m
refChanHeadProto self adapter msg = do refChanHeadProto self adapter msg = do
-- авторизовать пира -- авторизовать пира
peer <- thatPeer (Proxy @(RefChanHead e))
auth <- find (KnownPeerKey peer) id <&> isJust
guard (auth || self)
void $ runMaybeT do
case msg of case msg of
RefChanHead pkt _ -> do RefChanHead pkt _ -> do