dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-10-02 19:19:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

badge service: say why store products are not in the seeded catalog

Browse Source
This commit is contained in:
spaced4ndy
2026-10-01 16:48:15 +04:00
parent 2f878af8a7
commit f495e8b8c0
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
apps/simplex-badge-service/src/BadgeService/Catalog.hs
+1
View File
@@ -144,6 +144,7 @@ data StoreProduct = StoreProduct
-- | A receipt proves only the product paid for, so the badge comes from here, never from the client.
-- Mirrors the one-time SKUs of BadgeStore.swift and .kt; subscriptions wait until renewals add months.
-- Not part of the seeded catalog above, which exists to pin prices this service sets: a store sets its own.
storeProduct :: PaymentProvider -> Text -> Maybe StoreProduct
storeProduct provider productId = case (provider, productId) of
(PPApple, "BADGE_SUPPORTER_01") -> Just $ StoreProduct BTSupporter 1