From 0afeb53054b6323c833c4c04586cb0c6d1facbf6 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Fri, 14 Jul 2023 14:04:46 +0400
Subject: [PATCH] add delay

---
 tests/XFTPAgent.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/XFTPAgent.hs b/tests/XFTPAgent.hs
index dc77b09c3..0f1fa0c69 100644
--- a/tests/XFTPAgent.hs
+++ b/tests/XFTPAgent.hs
@@ -275,6 +275,7 @@ testXFTPAgentSendRestore = withGlobalLogging logCfgNoLogs $ do
     liftIO $ sfId' `shouldBe` sfId
 
     -- prefix path should be removed after sending file
+    threadDelay 100000
     liftIO $ print 21
     doesDirectoryExist prefixPath `shouldReturn` False
     liftIO $ print 22