dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-09-29 08:59:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: verify the badge ledger sent by the service (#7480)

Browse Source
This commit is contained in:
spaced4ndy
2026-09-11 09:41:23 +00:00
committed by GitHub
parent db4b73962d
commit bd97e4df34
6 changed files with 302 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Store/Badges.hs
+3 -3
View File
@@ -273,9 +273,9 @@ clearShownBadge db User {userId} badgePurchaseId =
-- | Verbatim, entry_uuid and type included: the client authors no row, or the two sides stop
-- holding the same ledger. DO NOTHING makes a re-applied statement a no-op rather than a throw.
-- An entry whose balance does not follow from the one before it is stored and marked, not refused.
storeBadgeStatement :: DB.Connection -> Int64 -> Maybe StatementEntry -> [StatementEntry] -> UTCTime -> IO ()
storeBadgeStatement db badgePurchaseId tip entries now =
mapM_ storeEntry $ balanceChecked tip entries
storeBadgeStatement :: DB.Connection -> Int64 -> BadgeType -> Maybe StatementEntry -> [StatementEntry] -> UTCTime -> IO ()
storeBadgeStatement db badgePurchaseId badgeType tip entries now =
mapM_ storeEntry $ balanceChecked now badgeType tip entries
where
storeEntry (StatementEntry {entryId, changeMonths, balanceMonths, balanceStartTs, balanceAnchorTs, balanceBadgeType, wasPausedSince, createdAt, entryType}, checked) =
DB.execute