From 1f65de4085ad4c63ac48e1bbce3741b01423b4a7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 15 Oct 2015 15:10:14 -0400 Subject: [PATCH] improve layout and comment --- Command/Sync.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Command/Sync.hs b/Command/Sync.hs index 49dfe811e0..fffc113d2d 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 )