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
Show stats 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 failed <- a rs
let failed' = filter (not . Git.repoIsLocalUnknown . Remote.repo) failed let failed' = filter (not . Git.repoIsLocalUnknown . Remote.repo) failed
let succeeded = filter (`notElem` failed) nonxmppremotes let succeeded = filter (`notElem` failed) nonxmppremotes
updateAlertMap $ mergeAlert i $ if null succeeded && null failed'
syncResultAlert succeeded failed' then removeAlert i
else updateAlertMap $ mergeAlert i $
syncResultAlert succeeded failed'
return failed return failed
where where
nonxmppremotes = filter (not . isXMPPRemote) rs nonxmppremotes = filter (not . isXMPPRemote) rs

2
git-annex.cabal
View file

@ -1,5 +1,5 @@
Name: git-annex Name: git-annex
Version: 4.20130323 Version: 4.20130324
Cabal-Version: >= 1.8 Cabal-Version: >= 1.8
License: GPL License: GPL
Maintainer: Joey Hess <joey@kitenet.net> Maintainer: Joey Hess <joey@kitenet.net>