mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-09-27 11:29:26 +00:00
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:
co-authored by
Evgeny @ SimpleX Chat
parent
6f85f1d4f0
commit
edd44c5d54
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user