IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
spaced4ndy 2023-12-20 22:42:12 +04:00
parent 14184971f7
commit 4723849d22
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Simplex/Chat.hs
View File

@ -5673,14 +5673,19 @@ batchChatMessages = reverse . mkBatch []
where
SndMessage {msgBody} = msg
cnt' = cnt + 1
len'
| cnt' == 1 = LB.length msgBody -- initially len = 0
| cnt' == 2 = len + LB.length msgBody + 2 -- for opening bracket "[" and comma ","
| otherwise = len + LB.length msgBody + 1 -- for comma ","
builder'
| cnt' == 1 = Builder.lazyByteString msgBody
| cnt' == 2 = "[" <> builder <> "," <> Builder.lazyByteString msgBody
| otherwise = builder <> "," <> Builder.lazyByteString msgBody
(len', builder')
| cnt' == 1 =
( LB.length msgBody, -- initially len = 0
Builder.lazyByteString msgBody
)
| cnt' == 2 =
( len + LB.length msgBody + 2, -- for opening bracket "[" and comma ","
"[" <> builder <> "," <> Builder.lazyByteString msgBody
)
| otherwise =
( len + LB.length msgBody + 1, -- for comma ","
builder <> "," <> Builder.lazyByteString msgBody
)
maxSize'
| cnt' == 1 = maxChatMsgSize
| otherwise = maxChatMsgSize - 1 -- for closing bracket "]"