diff options
Diffstat (limited to 'Command/Sync.hs')
| -rw-r--r-- | Command/Sync.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 49dfe811e..fffc113d2 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -153,11 +153,10 @@ syncBranch = Git.Ref.under "refs/heads/synced" . fromDirectBranch remoteBranch :: Remote -> Git.Ref -> Git.Ref remoteBranch remote = Git.Ref.underBase $ "refs/remotes/" ++ Remote.name remote +-- Do automatic initialization of remotes when possible when getting remote +-- list. syncRemotes :: [String] -> Annex [Remote] -syncRemotes ps = do - -- Get remote list first, doing automatic initialization - -- of remotes when possible. - syncRemotes' ps =<< Remote.remoteList' True +syncRemotes ps = syncRemotes' ps =<< Remote.remoteList' True syncRemotes' :: [String] -> [Remote] -> Annex [Remote] syncRemotes' ps remotelist = ifM (Annex.getState Annex.fast) ( nub <$> pickfast , wanted ) |