From 56537f0b68340ca0380edf4efdf7863ffaa63df0 Mon Sep 17 00:00:00 2001
From: Sergey Ivanov <ivanovs-4@yandex.ru>
Date: Wed, 19 Jul 2023 01:23:29 +0400
Subject: [PATCH] call setEncryptionKey .. (Just symmk) in considerPeerAsymmKey

---
 hbs2-peer/app/PeerMain.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index c8a38aaf..f627d415 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -698,9 +698,11 @@ runPeer opts = U.handle (\e -> myException e
                                   case mpeerData of
                                       Nothing -> do
                                           -- insertPeerAsymmKey brains peer pk symmk
+                                          -- insertPeerAsymmKey' brains (show peer) pk symmk
                                           trace $ "ENCRYPTION can not store key. No peerData"
                                               <+> pretty peer <+> viaShow mpeerData
-                                      Just peerData ->
+                                      Just peerData -> do
+                                          liftIO $ setEncryptionKey penv peer peerData (Just symmk)
                                           insertPeerAsymmKey' brains (show peerData) pk symmk
 
                     }