dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-28 16:29:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
spaced4ndy
2026-07-09 14:00:35 +04:00
parent ef22d24204
commit 50f9c41e18
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Library/Internal.hs
+3 -2
View File
@@ -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