From b6376b90c713f8a20226ba2acdd4d9d6ea4fcb59 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Tue, 20 Oct 2026 19:26:06 +0400
Subject: [PATCH] fix compilation

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

diff --git a/apps/simplex-badge-service/src/BadgeService/Service.hs b/apps/simplex-badge-service/src/BadgeService/Service.hs
index 8f5c6bb945..17bb6b6c0f 100644
--- a/apps/simplex-badge-service/src/BadgeService/Service.hs
+++ b/apps/simplex-badge-service/src/BadgeService/Service.hs
@@ -661,7 +661,7 @@ firstChargeNotGranted provider = \case
 -- forger could iterate on. A test purchase is named, since the device that made it already knows.
 -- | What each request was answered, to pair with its command in a log. No payload: a credential,
 -- an invoice and a statement are the client's, and an error's message can quote what it refused.
-responseName :: BadgeServiceResponse -> Text
+responseName :: BadgeServiceResponse -> T.Text
 responseName = \case
   BSPBadgeCatalog {} -> "catalog"
   BSPBadgeInvoice {} -> "invoice"
@@ -672,7 +672,7 @@ responseName = \case
 
 -- | The command each request ran, so a log can be followed without the request ids. No payload:
 -- a payment holds a store receipt, and an upgrade a receipt code.
-commandName :: BadgeServiceCommand -> Text
+commandName :: BadgeServiceCommand -> T.Text
 commandName = \case
   BSCGetBadgeCatalog -> "getBadgeCatalog"
   BSCGetBadgeInvoice {} -> "getBadgeInvoice"