From 50f9c41e18937bab191c4f68672e32d8a6984c4d Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Thu, 9 Jul 2026 14:00:35 +0400
Subject: [PATCH] wip

---
 src/Simplex/Chat/Library/Internal.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs
index 52b2824728..d7d5649ac7 100644
--- a/src/Simplex/Chat/Library/Internal.hs
+++ b/src/Simplex/Chat/Library/Internal.hs
@@ -398,8 +398,9 @@ xftpSndFileTransfer_ user file@(CryptoFile filePath cfArgs) fileSize n contactOr
   pure (fInv, ciFile, ft)
 
 cryptoFileDigest :: CryptoFile -> CM FD.FileDigest
-cryptoFileDigest file = do
-  r <- liftIO $ runExceptT $ CF.readFile file
+cryptoFileDigest (CryptoFile filePath cfArgs) = do
+  fsPath <- lift $ toFSFilePath filePath
+  r <- liftIO $ runExceptT $ CF.readFile (CryptoFile fsPath cfArgs)
   either (throwChatError . CEInternalError . show) (pure . FD.FileDigest . LC.sha512Hash) r
 
 xftpSndFileRedirect :: User -> FileTransferId -> ValidFileDescription 'FRecipient -> CM FileTransferMeta