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

badge service: say which payment funds no purchase when the claim is lost

Browse Source
This commit is contained in:
spaced4ndy
2026-10-01 18:05:29 +04:00
parent 84c6397175
commit e143d0bbe1
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
apps/simplex-badge-service/src/BadgeService/Service.hs
+1 -1
View File
@@ -494,7 +494,7 @@ purchaseWithReceipt key cc purchaseKey masterKey StoreReceipt {txRef = StoreTran
Nothing ->
liftIO (getStorePaymentCredit db provider providerRef >>= creditedResponse db BSEReceiptUsed purchaseKey) >>= \case
Left resp -> pure resp
Right () -> logError "badge service: claiming a store payment failed, but it funds no purchase" $> errorResponse BSEInternal
Right () -> logError ("badge service: a payment for " <> providerRef <> " exists but funds no purchase") $> errorResponse BSEInternal
Just purchaseId -> liftIO $ firstMonthResponse db purchaseId (Just paymentId) firstMonth
pure $ fromRight (errorResponse BSEInternal) r