dandri/simplexmq
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-10-22 21:52:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

do not show warning on server restart when restoring "quota" message and quota is exceeded (#603)

Browse Source 
* do not show warning on server restart when restoring "quota" message and quota is exceeded

* complete case

* line break
This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2023-01-12 23:26:21 +00:00
1 parent 36bf92e54f
commit 5e31c60c35
3 files changed
+38 -27
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/Simplex/Messaging/Server.hs
+4 -1
View File
@@ -726,7 +726,10 @@ restoreServerMessages = asks (storeMsgsFile . config) >>= mapM_ restoreMessages
full <- atomically $ do
q <- getMsgQueue ms rId quota
isNothing <$> writeMsg q msg
when full . logError . decodeLatin1 $ "message queue " <> strEncode rId <> " is full, message not restored: " <> strEncode (msgId (msg :: Message))
case msg of
Message {} ->
when full . logError . decodeLatin1 $ "message queue " <> strEncode rId <> " is full, message not restored: " <> strEncode (msgId (msg :: Message))
MessageQuota {} -> pure ()
updateMsgV1toV3 QueueRec {rcvDhSecret} RcvMessage {msgId, msgTs, msgFlags, msgBody = EncRcvMsgBody body} = do
let nonce = C.cbNonce msgId
msgBody <- liftEither . first (msgErr "v1 message decryption") $ C.maxLenBS =<< C.cbDecrypt rcvDhSecret nonce body