diff options
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index a38fa2ccc..bd73d06d6 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -63,11 +63,10 @@ startTransfer st dstatus program t info = case (transferRemote info, associatedF (_, _, _, pid) <- createProcess (proc program $ toCommand params) { create_group = True } - ok <- (==) ExitSuccess <$> waitForProcess pid - when ok $ void $ + whenM ((==) ExitSuccess <$> waitForProcess pid) $ void $ addAlert dstatus $ - makeAlertFiller ok $ - transferFileAlert direction ok file + makeAlertFiller True $ + transferFileAlert direction True file where params = [ Param "transferkey" |