From d4b758a1710bd3f89c5ada2e0deadd3b5ee6b18a Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Fri, 14 Jul 2023 14:23:15 +0400
Subject: [PATCH] remove do

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

diff --git a/tests/XFTPAgent.hs b/tests/XFTPAgent.hs
index 5639ab771..a8b2e9c81 100644
--- a/tests/XFTPAgent.hs
+++ b/tests/XFTPAgent.hs
@@ -261,7 +261,7 @@ testXFTPAgentSendRestore = withGlobalLogging logCfgNoLogs $ do
 
     -- receive file
     rcp <- getSMPAgentClient' agentCfg initAgentServers testDB
-    runRight_ $ do
+    runRight_ $
       void $ testReceive rcp rfd1 filePath
 
 testXFTPAgentSendCleanup :: IO ()