sign server responses

src/Simplex/Messaging/Server/Env/STM.hs

@@ -59,7 +59,7 @@ data Client = Client
   { subscriptions :: TVar (Map RecipientId Sub),
     ntfSubscriptions :: TVar (Map NotifierId ()),
     rcvQ :: TBQueue (Transmission ClientCmd),
-    sndQ :: TBQueue BrokerTransmission,
+    sndQ :: TBQueue (Maybe ClientParty, BrokerTransmission),
     sndSessionId :: SessionId
   }
 

src/Simplex/Messaging/Server/QueueStore.hs

@@ -22,7 +22,7 @@ data QueueStatus = QueueActive | QueueOff deriving (Eq)
 
 class MonadQueueStore s m where
   addQueue :: s -> QueueRec -> m (Either ErrorType ())
-  getQueue :: s -> SParty (a :: Party) -> QueueId -> m (Either ErrorType QueueRec)
+  getQueue :: s -> ClientParty -> QueueId -> m (Either ErrorType QueueRec)
   secureQueue :: s -> RecipientId -> SndPublicVerifyKey -> m (Either ErrorType ())
   addQueueNotifier :: s -> RecipientId -> NotifierId -> NtfPublicVerifyKey -> m (Either ErrorType ())
   suspendQueue :: s -> RecipientId -> m (Either ErrorType ())

src/Simplex/Messaging/Server/QueueStore/STM.hs

@@ -42,14 +42,13 @@ instance MonadQueueStore QueueStore STM where
             }
         return $ Right ()
 
-  getQueue :: QueueStore -> SParty (p :: Party) -> QueueId -> STM (Either ErrorType QueueRec)
-  getQueue st party qId = do
+  getQueue :: QueueStore -> ClientParty -> QueueId -> STM (Either ErrorType QueueRec)
+  getQueue st (CP party) qId = do
     cs <- readTVar st
     pure $ case party of
       SRecipient -> getRcpQueue cs qId
       SSender -> getPartyQueue cs senders
       SNotifier -> getPartyQueue cs notifiers
-      SBroker -> Left INTERNAL
     where
       getPartyQueue ::
         QueueStoreData ->