dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-17 08:41:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix, tests

Browse Source
This commit is contained in:
spaced4ndy
2024-04-05 11:34:41 +04:00
parent 2b6b8f8a62
commit 5f0cbca2ba
4 changed files with 15 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+1 -1
View File
@@ -860,7 +860,7 @@ processChatCommand' vr = \case
throwChatError (CECommandError $ "reaction already " <> if add then "added" else "removed")
when (add && length rs >= maxMsgReactions) $
throwChatError (CECommandError "too many reactions")
APIForwardChatItem fromChatRef (ChatRef toCType toChatId) itemId -> withUser $ \user -> withChatLock "forwardChatItem" $ case toCType of
APIForwardChatItem fromChatRef (ChatRef toCType toChatId) itemId -> withUser $ \user -> case toCType of
CTDirect -> withContactLock "sendMessage" toChatId $ do
cm <- prepareForward user
sendContactContentMessage user toChatId False Nothing cm True