From a632eea75b677cf2b146ad06ee875307d0321f23 Mon Sep 17 00:00:00 2001 From: Evgeny Date: Sun, 4 May 2025 21:11:06 +0100 Subject: [PATCH] protocol: parsing for UTCTime to stop on "," and ";" (#1532) --- src/Simplex/Messaging/Encoding/String.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Simplex/Messaging/Encoding/String.hs b/src/Simplex/Messaging/Encoding/String.hs index 97e7d087b..dc7b80b88 100644 --- a/src/Simplex/Messaging/Encoding/String.hs +++ b/src/Simplex/Messaging/Encoding/String.hs @@ -144,7 +144,7 @@ instance StrEncoding SystemTime where instance StrEncoding UTCTime where strEncode = B.pack . iso8601Show - strP = maybe (Left "bad UTCTime") Right . iso8601ParseM . B.unpack <$?> A.takeTill (\c -> c == ' ' || c == '\n') + strP = maybe (Left "bad UTCTime") Right . iso8601ParseM . B.unpack <$?> A.takeTill (\c -> c == ' ' || c == '\n' || c == ',' || c == ';') -- lists encode/parse as comma-separated strings strEncodeList :: StrEncoding a => [a] -> ByteString