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

only send sendBeginEncryptionExchange when key is absent

This commit is contained in:
Sergey Ivanov 2023-07-18 23:57:40 +04:00
parent 21e5f4ac59
commit 6d60fa3425
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-peer/app/EncryptionKeys.hs
View File

@ -73,5 +73,10 @@ encryptionHandshakeWorker pconf penv creds EncryptionHandshakeAdapter{..} = do
peers <- knownPeers @e pl peers <- knownPeers @e pl
forM_ peers \peer -> do forM_ peers \peer -> do
-- TODO: Только если ещё не знаем ключ ноды -- Только если ещё не знаем ключ ноды
sendBeginEncryptionExchange @e creds ourpubkey peer mpeerData <- find (KnownPeerKey peer) id
mkey <- liftIO do
join <$> forM mpeerData \peerData -> getEncryptionKey penv peerData
case mkey of
Just _ -> pure ()
Nothing -> sendBeginEncryptionExchange @e creds ourpubkey peer