mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid failure alerts for temporary transfer failures

Browse source 
Since a failed transfer gets retried until it succeeds, no point in
bothering the user about them.
This commit is contained in:
Joey Hess 2012-08-29 12:58:29 -04:00
parent 38e2dbb1cb
commit dd697cbd3e
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/Threads/Transferrer.hs
View file

@ -86,9 +86,10 @@ doTransfer dstatus t info program = case (transferRemote info, associatedFile in
<- createProcess (proc program $ toCommand params) <- createProcess (proc program $ toCommand params)
{ create_group = True } { create_group = True }
ok <- (==) ExitSuccess <$> waitForProcess pid ok <- (==) ExitSuccess <$> waitForProcess pid
addAlert dstatus $ when ok $ void $
makeAlertFiller ok $ addAlert dstatus $
transferFileAlert direction ok file makeAlertFiller ok $
transferFileAlert direction ok file
where where
params = params =
[ Param "transferkey" [ Param "transferkey"