From e143d0bbe1a24329e88bf28aec2488c4ccd13a7d Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Thu, 1 Oct 2026 18:05:29 +0400
Subject: [PATCH] badge service: say which payment funds no purchase when the
 claim is lost

---
 apps/simplex-badge-service/src/BadgeService/Service.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/apps/simplex-badge-service/src/BadgeService/Service.hs b/apps/simplex-badge-service/src/BadgeService/Service.hs
index 2b45e62512..02519095de 100644
--- a/apps/simplex-badge-service/src/BadgeService/Service.hs
+++ b/apps/simplex-badge-service/src/BadgeService/Service.hs
@@ -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