assistant: Avoid syncing with annex-ignored remotes when reconnecting to the network, or connecting a drive.

This commit is contained in:
Joey Hess 2013-03-17 15:59:03 -04:00
parent 69cc00c5fc
commit 746ffa773a
3 changed files with 4 additions and 2 deletions

View file

@ -157,7 +157,7 @@ handleMount :: FilePath -> Assistant ()
handleMount dir = do
debug ["detected mount of", dir]
rs <- filter (Git.repoIsLocal . Remote.repo) <$> remotesUnder dir
reconnectRemotes True rs
reconnectRemotes True $ filter (not . remoteAnnexIgnore . Remote.gitconfig) rs
{- Finds remotes located underneath the mount point.
-

View file

@ -128,4 +128,4 @@ handleConnection = reconnectRemotes True =<< networkRemotes
{- Finds network remotes. -}
networkRemotes :: Assistant [Remote]
networkRemotes = liftAnnex $
filter (isNothing . Remote.localpath) <$> remoteList
filter (isNothing . Remote.localpath) <$> enabledRemoteList