From 8e61ee8ff2fd9a2cc14d7c33f7e6b852ea06ef12 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Mon, 5 Oct 2026 19:07:41 +0400
Subject: [PATCH] fix compilation

---
 src/Simplex/Chat/Library/Commands.hs | 4 ++--
 src/Simplex/Chat/Store/Badges.hs     | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs
index 6050b80276..085f9d5401 100644
--- a/src/Simplex/Chat/Library/Commands.hs
+++ b/src/Simplex/Chat/Library/Commands.hs
@@ -5490,8 +5490,8 @@ creditStoreReceipt userId HeldStoreReceipt {receiptId, stash = stash@BadgeStash
     defer failure retryAfter = do
       ri <- asks $ badgeRetryInterval . config
       now <- badgeNow
-      let (wait, retryDelay') = storeReceiptRetry ri failure retryAfter retryDelay
-      withStore' $ \db -> deferStoreReceipt db receiptId (wait `addUTCTime` now) retryDelay' failure
+      let (delay, retryDelay') = storeReceiptRetry ri failure retryAfter retryDelay
+      withStore' $ \db -> deferStoreReceipt db receiptId (delay `addUTCTime` now) retryDelay' failure
 
 -- | The service's retryAfter when given; otherwise a failure that can clear grows its own delay, and any
 -- other waits a day. Unlike a renewal, an answered internal grows too: a buyer is watching the purchase.
diff --git a/src/Simplex/Chat/Store/Badges.hs b/src/Simplex/Chat/Store/Badges.hs
index dd03a5ae55..8604ab1b60 100644
--- a/src/Simplex/Chat/Store/Badges.hs
+++ b/src/Simplex/Chat/Store/Badges.hs
@@ -150,7 +150,7 @@ holdStoreReceipt db g User {userId} invoiceId_ txRef@StoreTransactionRef {provid
   where
     paymentJSON = safeDecodeUtf8 . LB.toStrict $ J.encode payment
     insertReceipt = do
-      (purchaseKey, purchasePrivKey) <- atomically $ C.generateKeyPair g
+      (purchaseKey, purchasePrivKey) <- atomically (C.generateKeyPair g) :: IO C.KeyPairEd25519
       BadgeMasterKey mk <- generateMasterKey g
       -- an invoice id another record holds is not repeated: this record is then keyed by its transaction alone
       invoiceId' <- fmap join . forM invoiceId_ $ \invoiceId -> do
@@ -186,7 +186,7 @@ getStoreReceipt db StoreTransactionRef {provider, transactionRef} =
 -- | The record made when Buy is tapped, before any receipt: the store echoes its invoice id.
 createBadgeStoreReceipt :: DB.Connection -> TVar ChaChaDRG -> User -> Text -> UTCTime -> IO ()
 createBadgeStoreReceipt db g User {userId} invoiceId now = do
-  (purchaseKey, purchasePrivKey) <- atomically $ C.generateKeyPair g
+  (purchaseKey, purchasePrivKey) <- atomically (C.generateKeyPair g) :: IO C.KeyPairEd25519
   BadgeMasterKey mk <- generateMasterKey g
   DB.execute
     db