diff --git a/src/PaymentServer/Persistence.hs b/src/PaymentServer/Persistence.hs index 65650ad18c835db14c9f7473cbe4e2a44adbe4c4..84d15c609044c91e0e54ee6426b546258dca260e 100644 --- a/src/PaymentServer/Persistence.hs +++ b/src/PaymentServer/Persistence.hs @@ -304,14 +304,14 @@ redeemVoucherHelper isVoucherPaid lookupFingerprint lookupVoucherCounter markVou metricName :: Text -> Text -metricName name = mappend "redemption_" name +metricName name = mappend "payment_redemption_" name voucherRedeemed :: P.Counter voucherRedeemed = P.unsafeRegister $ P.counter - $ P.Info (metricName "voucher_redeemed") + $ P.Info (metricName "vouchers_redeemed") "The number of unique (voucher, counter) pairs which have been redeemed." diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs index 5816a4eed3cb6f7f218b63f8d593d7c50eb4a8ea..4dc1ad9fa2fbb7fe7a6326a7104f20c9c785efb3 100644 --- a/src/PaymentServer/Processors/Stripe.hs +++ b/src/PaymentServer/Processors/Stripe.hs @@ -121,7 +121,7 @@ instance FromJSON Charges where metricName :: Text -> Text -metricName name = mappend ("processors_stripe_charge_") name +metricName name = mappend ("payment_processors_stripe_charge_") name chargeAttempts :: P.Counter chargeAttempts diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs index 6b5a738ae1ae80af9a08a0cc803e48fd495dc5a6..12a53b682093811d944164efd33e4142725a34be 100644 --- a/src/PaymentServer/Redemption.hs +++ b/src/PaymentServer/Redemption.hs @@ -274,7 +274,7 @@ redeem (RedemptionConfig numGroups tokensPerVoucher issue) database (Redeem vouc metricName :: Text -> Text -metricName name = mappend "redemption_" name +metricName name = mappend "payment_redemption_" name signaturesIssued :: P.Counter