don't show sync failure for drive that's not plugged in

This commit is contained in:
Joey Hess 2013-03-18 20:21:19 -04:00
parent c1e2448039
commit 4ce25e8986

View file

@ -165,9 +165,10 @@ syncAction rs a
| otherwise = do | otherwise = do
i <- addAlert $ syncAlert nonxmppremotes i <- addAlert $ syncAlert nonxmppremotes
failed <- a rs failed <- a rs
let failed' = filter (Git.repoIsLocalUnknown . Remote.repo) failed
let succeeded = filter (`notElem` failed) nonxmppremotes let succeeded = filter (`notElem` failed) nonxmppremotes
updateAlertMap $ mergeAlert i $ updateAlertMap $ mergeAlert i $
syncResultAlert succeeded failed syncResultAlert succeeded failed'
return failed return failed
where where
nonxmppremotes = filter (not . isXMPPRemote) rs nonxmppremotes = filter (not . isXMPPRemote) rs