Merge branch 'stable'

src/Simplex/Chat/Controller.hs

@@ -169,6 +169,12 @@ data ChatConfig = ChatConfig
     chatHooks :: ChatHooks
   }
 
+-- | Builds the read-only context threaded through store functions from chat config.
+-- The single construction point, so new store-wide config (e.g. server keys) is added in one place.
+mkStoreCxt :: ChatConfig -> StoreCxt
+mkStoreCxt ChatConfig {chatVRange} = StoreCxt chatVRange
+{-# INLINE mkStoreCxt #-}
+
 data RandomAgentServers = RandomAgentServers
   { smpServers :: NonEmpty (ServerCfg 'PSMP),
     xftpServers :: NonEmpty (ServerCfg 'PXFTP)