only sync with local repos that are currently available (and only fsck them too)

1 files changed, 10 insertions, 4 deletions

diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index fe4fda896..43f0309fe 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -51,10 +51,12 @@ import Control.Concurrent
 reconnectRemotes :: Bool -> [Remote] -> Assistant ()
 reconnectRemotes _ [] = noop
 reconnectRemotes notifypushes rs = void $ do
-	modifyDaemonStatus_ $ \s -> s
-		{ desynced = S.union (S.fromList $ map Remote.uuid xmppremotes) (desynced s) }
-	void $ syncAction rs (const go)
-	mapM_ signal rs
+	rs' <- filterM (checkavailable . Remote.repo) rs
+	unless (null rs') $ do
+		modifyDaemonStatus_ $ \s -> s
+			{ desynced = S.union (S.fromList $ map Remote.uuid xmppremotes) (desynced s) }
+		failedrs <- syncAction rs' (const go)
+		mapM_ signal $ filter (`notElem` failedrs) rs'
   where
 	gitremotes = filter (notspecialremote . Remote.repo) rs
 	(xmppremotes, nonxmppremotes) = partition isXMPPRemote rs
@@ -80,6 +82,10 @@ reconnectRemotes notifypushes rs = void $ do
 	signal r = liftIO . mapM_ (flip tryPutMVar ())
 		=<< fromMaybe [] . M.lookup (Remote.uuid r) . connectRemoteNotifiers
 			<$> getDaemonStatus
+	checkavailable r
+		| Git.repoIsLocal r || Git.repoIsLocalUnknown r =
+			liftIO $ doesDirectoryExist $ Git.repoPath r
+		| otherwise = return True
 
 {- Updates the local sync branch, then pushes it to all remotes, in
  - parallel, along with the git-annex branch. This is the same