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

minor fix

This commit is contained in:
Dmitry Zuikov 2023-02-13 11:59:32 +03:00
parent 9377bf14f0
commit d9e5046a6a
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hbs2-core/lib/HBS2/Net/Proto/Peer.hs
View File

@ -94,18 +94,18 @@ peerHandShakeProto =
\case \case
PeerPing nonce -> do PeerPing nonce -> do
pip <- thatPeer proto pip <- thatPeer proto
-- TODO: взять свои ключи -- взять свои ключи
creds <- getCredentials @e creds <- getCredentials @e
-- TODO: подписать нонс -- подписать нонс
let sign = makeSign @e (view peerSignSk creds) nonce let sign = makeSign @e (view peerSignSk creds) nonce
own <- peerNonce @e own <- peerNonce @e
-- TODO: отправить обратно вместе с публичным ключом -- отправить обратно вместе с публичным ключом
response (PeerPong @e nonce sign (PeerData (view peerSignPk creds) own)) response (PeerPong @e nonce sign (PeerData (view peerSignPk creds) own))
-- TODO: да и пингануть того самим -- да и пингануть того самим
se <- find (KnownPeerKey pip) id <&> isJust se <- find (KnownPeerKey pip) id <&> isJust
@ -127,10 +127,6 @@ peerHandShakeProto =
expire (PeerHandshakeKey (nonce0,pip)) expire (PeerHandshakeKey (nonce0,pip))
-- FIXME: check if peer is blacklisted
-- right here
update d (KnownPeerKey pip) id
emit AnyKnownPeerEventKey (KnownPeerEvent pip d) emit AnyKnownPeerEventKey (KnownPeerEvent pip d)
emit (ConcretePeerKey pip) (ConcretePeerData pip d) emit (ConcretePeerKey pip) (ConcretePeerData pip d)