From bff64c07cf886b5f8906e68f47abfbefeb2013d2 Mon Sep 17 00:00:00 2001
From: Narasimha-sc <166327228+Narasimha-sc@users.noreply.github.com>
Date: Thu, 2 Jul 2026 14:03:49 +0000
Subject: [PATCH 1/2] xftp: recreate work directory if missing before creating
 transfer prefix path

xftpSendFile', xftpSendDescription' and xftpReceiveFile' create their per-transfer
work directory with a non-recursive createDirectory on the path returned by
getPrefixPath, which assumes the configured XFTP work directory already exists. If
that directory is removed while the app is running (e.g. a temp/disk cleaner, profile
sync or manual deletion), every subsequent transfer fails with
"CreateDirectory ...: does not exist" and cannot recover until restart.

Ensure the work directory exists in getPrefixPath via createDirectoryIfMissing True,
covering all three entry points (and the chunk/tmp paths built from getXFTPWorkPath).
---
 src/Simplex/FileTransfer/Agent.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Simplex/FileTransfer/Agent.hs b/src/Simplex/FileTransfer/Agent.hs
index a8b220327c..c601e70473 100644
--- a/src/Simplex/FileTransfer/Agent.hs
+++ b/src/Simplex/FileTransfer/Agent.hs
@@ -159,6 +159,9 @@ downloadChunk _ _ = throwE $ INTERNAL "no replicas"
 getPrefixPath :: String -> AM' FilePath
 getPrefixPath suffix = do
   workPath <- getXFTPWorkPath
+  -- re-create the work directory if it was removed while the app was running,
+  -- otherwise the non-recursive createDirectory on the returned prefix path fails
+  createDirectoryIfMissing True workPath
   ts <- liftIO getCurrentTime
   let isoTime = formatTime defaultTimeLocale "%Y%m%d_%H%M%S_%6q" ts
   uniqueCombine workPath (isoTime <> "_" <> suffix)

From f7eabaed9ec0216ef5b0f895388a25921b9cc161 Mon Sep 17 00:00:00 2001
From: Narasimha-sc <166327228+Narasimha-sc@users.noreply.github.com>
Date: Thu, 2 Jul 2026 19:17:16 +0000
Subject: [PATCH 2/2] tests: add XFTP regression test for work directory
 removed while running

Sends a file after removing the agent work directory (simulating a temp/disk
cleaner, roaming-profile sync or manual deletion). Fails without the getPrefixPath
fix with "createDirectory ...: does not exist", passes with it.
---
 tests/XFTPAgent.hs | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/tests/XFTPAgent.hs b/tests/XFTPAgent.hs
index af1d2f5c24..29aa5a1ddb 100644
--- a/tests/XFTPAgent.hs
+++ b/tests/XFTPAgent.hs
@@ -42,7 +42,7 @@ import Simplex.Messaging.Encoding.String (StrEncoding (..))
 import Simplex.Messaging.Protocol (BasicAuth, NetworkError (..), ProtoServerWithAuth (..), ProtocolServer (..), XFTPServerWithAuth)
 import Simplex.Messaging.Server.Expiration (ExpirationConfig (..))
 import Simplex.Messaging.Util (tshow)
-import System.Directory (doesDirectoryExist, doesFileExist, getFileSize, listDirectory, removeFile)
+import System.Directory (createDirectoryIfMissing, doesDirectoryExist, doesFileExist, getFileSize, listDirectory, removeDirectoryRecursive, removeFile)
 import System.FilePath ((</>))
 import Test.Hspec hiding (fit, it)
 import UnliftIO
@@ -74,6 +74,7 @@ xftpAgentTests =
       it "should resume receiving file after restart" $ \_ -> testXFTPAgentReceiveRestore
       it "should cleanup rcv tmp path after permanent error" $ \_ -> testXFTPAgentReceiveCleanup
       it "should resume sending file after restart" $ \_ -> testXFTPAgentSendRestore
+      it "should recreate work directory removed while running before sending" $ withXFTPServer testXFTPAgentSendWorkDirRecreated
       xit'' "should cleanup snd prefix path after permanent error" $ \_ -> testXFTPAgentSendCleanup
       it "should delete sent file on server" testXFTPAgentDelete
       it "should resume deleting file after restart" $ \_ -> testXFTPAgentDeleteRestore
@@ -143,6 +144,23 @@ testXFTPAgentSendReceive = do
         rfId <- runRight $ testReceive rcp rfd originalFilePath
         xftpDeleteRcvFile rcp rfId
 
+-- regression test: the XFTP work directory can be removed while the app is running
+-- (temp/disk cleaner, roaming-profile sync, manual deletion). Sending a file must
+-- recreate the work directory instead of failing with "createDirectory ...: does not exist".
+testXFTPAgentSendWorkDirRecreated :: HasCallStack => IO ()
+testXFTPAgentSendWorkDirRecreated = do
+  filePath <- createRandomFile
+  let workDir = senderFiles </> "work"
+  withAgent 1 agentCfg initAgentServers testDB $ \sndr -> runRight_ $ do
+    liftIO $ createDirectoryIfMissing True workDir
+    xftpStartWorkers sndr (Just workDir)
+    -- remove the work directory after workers started, before sending
+    liftIO $ removeDirectoryRecursive workDir
+    sfId <- xftpSendFile sndr 1 (CF.plain filePath) 2
+    sfProgress sndr $ mb 18
+    ("", sfId', SFDONE _ _) <- sfGet sndr
+    liftIO $ sfId' `shouldBe` sfId
+
 testXFTPAgentSendReceiveEncrypted :: HasCallStack => AFStoreType -> IO ()
 testXFTPAgentSendReceiveEncrypted = withXFTPServer $ do
   g <- C.newRandom