dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-13 05:08:55 +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/Terminal/Input.hs
+2
View File
@@ -86,7 +86,9 @@ runInputLoop ct@ChatTerminal {termState, liveMessageState} cc = forever $ do
Right SendLiveMessage {} -> True
Right SendFile {} -> True
Right SendMessageQuote {} -> True
Right ForwardMessage {} -> True
Right SendGroupMessageQuote {} -> True
Right ForwardGroupMessage {} -> True
Right SendMessageBroadcast {} -> True
_ -> False
startLiveMessage :: Either a ChatCommand -> ChatResponse -> IO ()
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