dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-20 09:11:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
spaced4ndy
2026-06-09 18:04:08 +04:00
parent 7c729b7981
commit 7d82020fb2
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Library/Internal.hs
+4 -4
View File
@@ -1883,7 +1883,7 @@ cleanupGroupRosterFile User {userId} gInfo@GroupInfo {groupId} = do
info_ <- withStore' $ \db -> getGroupRosterFileInfo db userId groupId
forM_ info_ $ \(fileId, filePath_) -> do
lift $ closeFileHandle fileId rcvFiles
forM_ filePath_ removeRosterFsFile
forM_ filePath_ removeFsFile
withStore' $ \db -> do
deleteGroupRosterFile db userId groupId
clearRosterPending db gInfo
@@ -1893,7 +1893,7 @@ cleanupGroupRosterFile User {userId} gInfo@GroupInfo {groupId} = do
resetRosterPartialChunks :: RcvFileTransfer -> CM ()
resetRosterPartialChunks ft@RcvFileTransfer {fileId, fileStatus} = do
lift $ closeFileHandle fileId rcvFiles
forM_ (rcvFilePath fileStatus) removeRosterFsFile
forM_ (rcvFilePath fileStatus) removeFsFile
withStore' $ \db -> deleteRcvFileChunks db ft
where
rcvFilePath = \case
@@ -1901,8 +1901,8 @@ resetRosterPartialChunks ft@RcvFileTransfer {fileId, fileStatus} = do
RFSConnected p -> Just p
_ -> Nothing
removeRosterFsFile :: FilePath -> CM ()
removeRosterFsFile fp = do
removeFsFile :: FilePath -> CM ()
removeFsFile fp = do
p <- lift $ toFSFilePath fp
removeFile p `catchAllErrors` \_ -> pure ()