blade/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2024-12-17 17:20:21 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

remove local reactions

Browse Source
This commit is contained in:
IC Rainbow
2023-12-28 20:29:18 +02:00
parent 009772bdf8
commit 94fb992b4c
4 changed files with 4 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+1 -14
View File
@@ -936,20 +936,7 @@ processChatCommand' vr = \case
r = ACIReaction SCTGroup SMDSnd (GroupChat g) $ CIReaction CIGroupSnd ci' createdAt reaction
pure $ CRChatItemReaction user add r
_ -> throwChatError $ CECommandError "reaction not possible - no shared item ID"
CTLocal -> do
(nf, CChatItem md ci) <- withStore $ \db -> (,) <$> getNoteFolder db user chatId <*> getLocalChatItem db user chatId itemId
itemSharedMId <- case ci of
ChatItem {meta = CIMeta {itemSharedMsgId = Just itemSharedMId}} -> pure itemSharedMId
_ -> throwChatError $ CECommandError "reaction not possible - no shared item ID"
rs <- withStore' $ \db -> getLocalReactions db nf itemSharedMId True
checkReactionAllowed rs
createdAt <- liftIO getCurrentTime
reactions <- withStore' $ \db -> do
setLocalReaction db nf itemSharedMId reaction add createdAt
liftIO $ getLocalCIReactions db nf itemSharedMId
let ci' = CChatItem md ci {reactions}
r = ACIReaction SCTLocal SMDSnd (LocalChat nf) $ CIReaction CILocalSnd ci' createdAt reaction
pure $ CRChatItemReaction user add r
CTLocal -> pure $ chatCmdError (Just user) "not supported"
CTContactRequest -> pure $ chatCmdError (Just user) "not supported"
CTContactConnection -> pure $ chatCmdError (Just user) "not supported"
where