diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-27 14:25:49 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-27 14:25:49 -0400 |
| commit | c96dea4df695fb7516ea801ab7909da4bea29bcc (patch) | |
| tree | b993789e030d1e1b16a53c97c3b2764526f4c152 /Assistant/Sync.hs | |
| parent | 0739cf138ee74640a5fb7f68e024aa416a67da7b (diff) | |
avoid displaying alert when syncing only to removable drives and all not attached
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 1c8f84fcd..16a16276f 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -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 |