dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-06-04 10:21:50 +00:00
Code Issues Packages Projects Releases Wiki Activity

prepare v1.1.0 (#259)

Browse Source
This commit is contained in:
Efim Poberezkin
2022-02-02 23:50:43 +04:00
committed by GitHub
parent 292c334460
commit 4724669bce
7 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+1 -2
View File
@@ -365,8 +365,7 @@ processChatCommand user@User {userId, profile} = \case
corrId <- liftIO $ SMP.CorrId <$> randomBytes gVar 8
void . forkIO $
withAgentLock a . withLock l $
atomically . writeTBQueue q
=<< (Just corrId,) <$> (action `catchError` (pure . CRChatError))
(atomically . writeTBQueue q) . (Just corrId,) =<< (action `catchError` (pure . CRChatError))
pure $ CRCmdAccepted corrId
-- use function below to make commands "synchronous"
-- procCmd :: m ChatResponse -> m ChatResponse