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

call setEncryptionKey .. (Just symmk) in considerPeerAsymmKey

This commit is contained in:
Sergey Ivanov 2023-07-19 01:23:29 +04:00
parent 15b9438406
commit 56537f0b68
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-peer/app/PeerMain.hs
View File

@ -698,9 +698,11 @@ runPeer opts = U.handle (\e -> myException e
case mpeerData of case mpeerData of
Nothing -> do Nothing -> do
-- insertPeerAsymmKey brains peer pk symmk -- insertPeerAsymmKey brains peer pk symmk
-- insertPeerAsymmKey' brains (show peer) pk symmk
trace $ "ENCRYPTION can not store key. No peerData" trace $ "ENCRYPTION can not store key. No peerData"
<+> pretty peer <+> viaShow mpeerData <+> pretty peer <+> viaShow mpeerData
Just peerData -> Just peerData -> do
liftIO $ setEncryptionKey penv peer peerData (Just symmk)
insertPeerAsymmKey' brains (show peerData) pk symmk insertPeerAsymmKey' brains (show peerData) pk symmk
} }