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

avoid displaying alert when syncing only to removable drives and all not attached

Browse source
This commit is contained in:
Joey Hess 2013-03-27 14:25:49 -04:00
parent f8707b6d3b
commit a87e046049
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Sync.hs
View file

@ -167,8 +167,10 @@ syncAction rs a
failed <- a rs
let failed' = filter (not . Git.repoIsLocalUnknown . Remote.repo) failed
let succeeded = filter (`notElem` failed) nonxmppremotes
updateAlertMap $ mergeAlert i $
syncResultAlert succeeded failed'
if null succeeded && null failed'
then removeAlert i
else updateAlertMap $ mergeAlert i $
syncResultAlert succeeded failed'
return failed
where
nonxmppremotes = filter (not . isXMPPRemote) rs