diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-29 12:58:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-29 13:00:21 -0400 |
| commit | dd697cbd3e7aaf3a51e9e768a26a821ca18d75cd (patch) | |
| tree | 6d11791278326705880c4f7ad6f281ace7273d8d /Assistant/Threads | |
| parent | 38e2dbb1cb4a5fa84a8a345b175994fc6bedb2c8 (diff) | |
avoid failure alerts for temporary transfer failures
Since a failed transfer gets retried until it succeeds, no point in
bothering the user about them.
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index d4c00afd8..db147ee10 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -86,9 +86,10 @@ doTransfer dstatus t info program = case (transferRemote info, associatedFile in <- createProcess (proc program $ toCommand params) { create_group = True } ok <- (==) ExitSuccess <$> waitForProcess pid - addAlert dstatus $ - makeAlertFiller ok $ - transferFileAlert direction ok file + when ok $ void $ + addAlert dstatus $ + makeAlertFiller ok $ + transferFileAlert direction ok file where params = [ Param "transferkey" |