aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-18 20:21:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-18 20:21:19 -0400
commitf4bb9f0168e8318f78069406b98b3fca10839242 (patch)
treef2f0787a569243ca194a47134e6d6e93700b655f /Assistant/Sync.hs
parente143759fc983569eb368bfc356716f1b20ea66ad (diff)
don't show sync failure for drive that's not plugged in
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r--Assistant/Sync.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index 25fa44a69..54dcb42c2 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -165,9 +165,10 @@ syncAction rs a
| otherwise = do
i <- addAlert $ syncAlert nonxmppremotes
failed <- a rs
+ let failed' = filter (Git.repoIsLocalUnknown . Remote.repo) failed
let succeeded = filter (`notElem` failed) nonxmppremotes
updateAlertMap $ mergeAlert i $
- syncResultAlert succeeded failed
+ syncResultAlert succeeded failed'
return failed
where
nonxmppremotes = filter (not . isXMPPRemote) rs