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

core: fix status parsing 2 (#2809)

Browse Source
This commit is contained in:
spaced4ndy
2023-07-31 15:52:42 +01:00
committed by Evgeny Poberezkin
parent a0a567f5f7
commit c935e8aff3
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Messages.hs
+4 -2
View File
@@ -553,7 +553,8 @@ instance MsgDirectionI d => StrEncoding (CIFileStatus d) where
instance StrEncoding ACIFileStatus where
strEncode (AFS _ s) = strEncode s
strP =
statusP <|> (AFS SMDSnd . CIFSInvalid . safeDecodeUtf8 <$> A.takeByteString)
(statusP <* A.endOfInput) -- endOfInput to make it fail on partial correct parse
<|> (AFS SMDSnd . CIFSInvalid . safeDecodeUtf8 <$> A.takeByteString)
where
statusP =
A.takeTill (== ' ') >>= \case
@@ -673,7 +674,8 @@ instance MsgDirectionI d => StrEncoding (CIStatus d) where
instance StrEncoding ACIStatus where
strEncode (ACIStatus _ s) = strEncode s
strP =
statusP <|> (ACIStatus SMDSnd . CISInvalid . safeDecodeUtf8 <$> A.takeByteString)
(statusP <* A.endOfInput) -- endOfInput to make it fail on partial correct parse, e.g. "snd_rcvd ok complete"
<|> (ACIStatus SMDSnd . CISInvalid . safeDecodeUtf8 <$> A.takeByteString)
where
statusP =
A.takeTill (== ' ') >>= \case