diff options
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 |