remove do

This commit is contained in:
spaced4ndy committed 2023-07-14 14:23:15 +04:00
1 parent f1843db462
commit d4b758a171
1 file changed
+1 -1
+1 -1
View File
@@ -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 ()