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 ()