From d8b1937b7899a3459b88da254db7a1637fc77e04 Mon Sep 17 00:00:00 2001 From: Sergey Ivanov Date: Wed, 19 Jul 2023 00:15:12 +0400 Subject: [PATCH] Fix newPeerEnv: add _envEncryptionKeys --- hbs2-core/lib/HBS2/Actors/Peer.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs index fd61ae4c..2253e34c 100644 --- a/hbs2-core/lib/HBS2/Actors/Peer.hs +++ b/hbs2-core/lib/HBS2/Actors/Peer.hs @@ -157,7 +157,7 @@ data PeerEnv e = , _envReqMsgLimit :: Cache (Peer e, Integer, Encoded e) () , _envReqProtoLimit :: Cache (Peer e, Integer) () , _envAsymmetricKeyPair :: AsymmKeypair (Encryption e) - , _envEncryptionKeys :: TVar (HashMap (PeerData L4Proto) (CommonSecret (Encryption L4Proto))) + , _envEncryptionKeys :: TVar (HashMap (PeerData e) (CommonSecret (Encryption e))) } setEncryptionKey :: @@ -415,6 +415,8 @@ newPeerEnv :: forall e m . ( MonadIO m , Pretty (Peer e) , HasNonces () m , Asymm (Encryption e) + , Hashable (PubKey 'Sign (Encryption e)) + , Hashable PeerNonce ) => AnyStorage -> Fabriq e @@ -435,6 +437,7 @@ newPeerEnv s bus p = do _envReqMsgLimit <- liftIO (Cache.newCache (Just defRequestLimit)) _envReqProtoLimit <- liftIO (Cache.newCache (Just defRequestLimit)) _envAsymmetricKeyPair <- asymmNewKeypair @(Encryption e) + _envEncryptionKeys <- liftIO (newTVarIO mempty) pure PeerEnv {..} runPeerM :: forall e m . ( MonadIO m