diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-15 15:10:14 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-15 15:10:14 -0400 |
| commit | 2ca0a77e228eccd2222fca191b07d62dc25d51ad (patch) | |
| tree | 20d443ad8ef824f9adf0436414a545af8cfd10a3 | |
| parent | 9dff858a97af7f97d1a37d16dae4267918d877e8 (diff) | |
improve layout and comment
| -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 ) |