remove do

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