dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-05-14 21:15:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

test

Browse Source
This commit is contained in:
spaced4ndy
2024-04-03 20:32:55 +04:00
parent 61d5567005
commit 29d8ebbb32
7 changed files with 55 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/View.hs
+2 -2
View File
@@ -795,8 +795,8 @@ groupQuote g CIQuote {content = qmc, chatDir = quoteDir} = quoteText qmc . ttyQu
forwardedFrom :: CIForwardedFrom -> [StyledString]
forwardedFrom = \case
CIFFUnknown -> ["-> forwarded"]
CIFFContact c _ -> ["-> forwarded from " <> ttyContact c]
CIFFGroup g _ -> ["-> forwarded from " <> ttyGroup g]
CIFFContact c _ -> ["-> from conversation: " <> ttyContact c]
CIFFGroup g _ -> ["-> from conversation: " <> ttyGroup g]
CIFFNoteFolder _ _ -> ["-> forwarded from notes"]
sentByMember :: GroupInfo -> CIQDirection 'CTGroup -> Maybe GroupMember