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

rename

Browse Source
This commit is contained in:
spaced4ndy
2023-12-13 22:00:45 +04:00
parent 73f75d3930
commit d341795a18
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Protocol.hs
+2 -2
View File
@@ -291,7 +291,7 @@ forwardedGroupMsg msg@ChatMessage {chatMsgEvent} = case encoding @e of
_ -> Nothing
msgIncludedInHistory :: forall e. MsgEncodingI e => ChatMessage e -> Set SharedMsgId -> Maybe (ChatMessage 'Json)
msgIncludedInHistory msg@ChatMessage {chatMsgEvent} accMsgIds = case encoding @e of
msgIncludedInHistory msg@ChatMessage {chatMsgEvent} refMsgIds = case encoding @e of
SJson -> case chatMsgEvent of
XMsgNew mc -> case mcExtMsgContent mc of
ExtMsgContent {file = Just FileInvitation {fileInline = Just _}} -> Nothing
@@ -304,7 +304,7 @@ msgIncludedInHistory msg@ChatMessage {chatMsgEvent} accMsgIds = case encoding @e
_ -> Nothing
where
refIncluded msgId
| msgId `elem` accMsgIds = Just msg
| msgId `elem` refMsgIds = Just msg
| otherwise = Nothing
_ -> Nothing