diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-17 13:41:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-17 13:41:13 -0400 |
| commit | 70cf66fded5af5dfd8e37857cf0c0da1361ed5e5 (patch) | |
| tree | ba6a429815b4d6fa7ce9b20d321a45a85ff33963 /Assistant/Threads/Transferrer.hs | |
| parent | f0b67b9eeef12997025d2ec0bb8b3030efd28429 (diff) | |
simplify
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" |