From 4ce25e89865323ae714cdaf971f5c69844828dfa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 18 Mar 2013 20:21:19 -0400 Subject: [PATCH] don't show sync failure for drive that's not plugged in --- Assistant/Sync.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 25fa44a692..54dcb42c2d 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