test: fix compilation in ghc8.10.7 (#7541)

Co-authored-by: Evgeny @ SimpleX Chat <259188159+evgeny-simplex@users.noreply.github.com>
This commit is contained in:
Evgeny
2026-09-19 08:43:49 +01:00
committed by GitHub
co-authored by Evgeny @ SimpleX Chat
parent 6f85f1d4f0
commit edd44c5d54
+2 -2
View File
@@ -920,8 +920,8 @@ testFileBadgeProofStatus ps = do
withNewTestChatCfg ps (badgeFileCfg pk) "alice" aliceProfile $ \alice -> do
now <- getCurrentTime
let ph = PHFileInv {chatBinding = "Dalice-binding", fileSize = 272376}
otherBinding = (ph :: ProofPresHeader) {chatBinding = "Dbob-binding"}
otherSize = (ph :: ProofPresHeader) {fileSize = 1}
otherBinding = PHFileInv {chatBinding = "Dbob-binding", fileSize = 272376}
otherSize = PHFileInv {chatBinding = "Dalice-binding", fileSize = 1}
proofFor expiry = do
cred <- issueTestBadge sk expiry
Right badge <- badgeProof pk cred ph