From 121628a39b70175518cfdfa758a5e32cf733521b Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Thu, 27 Aug 2026 21:07:44 +0100 Subject: [PATCH] simplify --- src/Simplex/Messaging/Agent/Client.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Messaging/Agent/Client.hs b/src/Simplex/Messaging/Agent/Client.hs index 8bf16ac36..682cfd999 100644 --- a/src/Simplex/Messaging/Agent/Client.hs +++ b/src/Simplex/Messaging/Agent/Client.hs @@ -2201,8 +2201,10 @@ agentXFTPNewChunk c SndFileChunk {userId, chunkSpec = XFTPChunkSpec {chunkSize}, pure NewSndChunkReplica {server = srv, replicaId = ChunkReplicaId sndId, replicaKey, rcvIdsKeys = L.toList $ xftpRcvIdsKeys rIds rKeys} where mkEntitlementProof sessId sndKey = - pure (credential >>= \cred@EntitlementCredential {issuerKeyIdx} -> (cred,) <$> M.lookup issuerKeyIdx entitlementIssuerKeys) $>>= \(cred, pk) -> - generateEntitlementProof pk cred (xftpNewProofHeader sessId sndKey chunkDigest) >>= \case + pure credential + $>>= \cred -> pure (M.lookup (issuerKeyIdx cred) entitlementIssuerKeys) + $>>= \pk -> generateEntitlementProof pk cred (xftpNewProofHeader sessId sndKey chunkDigest) + >>= \case Right p -> pure $ Just p Left e -> Nothing <$ logError ("entitlement proof error: " <> tshow e)