From f495e8b8c07ca2fc88cb1a91f388c67db9b83d03 Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Thu, 1 Oct 2026 16:48:15 +0400 Subject: [PATCH] badge service: say why store products are not in the seeded catalog --- apps/simplex-badge-service/src/BadgeService/Catalog.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/apps/simplex-badge-service/src/BadgeService/Catalog.hs b/apps/simplex-badge-service/src/BadgeService/Catalog.hs index 866ea5bc96..85b678d8d5 100644 --- a/apps/simplex-badge-service/src/BadgeService/Catalog.hs +++ b/apps/simplex-badge-service/src/BadgeService/Catalog.hs @@ -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