Merge branch 'stable'

This commit is contained in:
Evgeny Poberezkin
2024-08-31 08:18:09 +01:00
9 changed files with 146 additions and 142 deletions

View File

@@ -3660,7 +3660,7 @@ agentSubscriber = do
toView' $ CRChatError Nothing $ ChatErrorAgent (CRITICAL True $ "Message reception stopped: " <> show e) Nothing
E.throwIO e
where
process :: (ACorrId, EntityId, AEvt) -> CM' ()
process :: (ACorrId, AEntityId, AEvt) -> CM' ()
process (corrId, entId, AEvt e msg) = run $ case e of
SAENone -> processAgentMessageNoConn msg
SAEConn -> processAgentMessage corrId entId msg