diff options
author | 2012-09-17 13:41:13 -0400 | |
---|---|---|
committer | 2012-09-17 13:41:13 -0400 | |
commit | 70cf66fded5af5dfd8e37857cf0c0da1361ed5e5 (patch) | |
tree | ba6a429815b4d6fa7ce9b20d321a45a85ff33963 | |
parent | f0b67b9eeef12997025d2ec0bb8b3030efd28429 (diff) |
simplify
-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" |