improve layout and comment

diff --git a/Command/Sync.hs b/Command/Sync.hs
index 49dfe811e06e684ca053250975f71e564fe3a001..fffc113d2df06f03255912792eb554510efecd28 100644 (file)
--- 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 )