From 7d82020fb2367c4edc0e2686c5178ca975bd48d2 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Tue, 9 Jun 2026 18:04:08 +0400
Subject: [PATCH] wip

---
 src/Simplex/Chat/Library/Internal.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs
index 1357bb6242..2205da567f 100644
--- a/src/Simplex/Chat/Library/Internal.hs
+++ b/src/Simplex/Chat/Library/Internal.hs
@@ -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 ()