From 9404a3ab632689ff80d611d35d481a280b5788f4 Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Tue, 14 Jan 2025 10:46:27 +0000 Subject: [PATCH] xftp server: block stats --- src/Simplex/FileTransfer/Server/Stats.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Simplex/FileTransfer/Server/Stats.hs b/src/Simplex/FileTransfer/Server/Stats.hs index 2f38c7447..77c408884 100644 --- a/src/Simplex/FileTransfer/Server/Stats.hs +++ b/src/Simplex/FileTransfer/Server/Stats.hs @@ -116,10 +116,12 @@ instance StrEncoding FileServerStatsData where _filesUploaded <- "filesUploaded=" *> strP <* A.endOfLine _filesExpired <- "filesExpired=" *> strP <* A.endOfLine <|> pure 0 _filesDeleted <- "filesDeleted=" *> strP <* A.endOfLine - _filesBlocked <- "filesBlocked=" *> strP <* A.endOfLine + _filesBlocked <- opt "filesBlocked=" _filesCount <- "filesCount=" *> strP <* A.endOfLine <|> pure 0 _filesSize <- "filesSize=" *> strP <* A.endOfLine <|> pure 0 _filesDownloaded <- "filesDownloaded:" *> A.endOfLine *> strP <* A.endOfLine _fileDownloads <- "fileDownloads=" *> strP <* A.endOfLine _fileDownloadAcks <- "fileDownloadAcks=" *> strP <* A.endOfLine pure FileServerStatsData {_fromTime, _filesCreated, _fileRecipients, _filesUploaded, _filesExpired, _filesDeleted, _filesBlocked, _filesDownloaded, _fileDownloads, _fileDownloadAcks, _filesCount, _filesSize} + where + opt s = A.string s *> strP <* A.endOfLine <|> pure 0