never pick special remotes in --fast

even if they have the lowest cost, we cannot use them

1 files changed, 3 insertions, 2 deletions

diff --git a/Command/Sync.hs b/Command/Sync.hs
index cd8ac389d..f3a83517c 100644
--- a/Command/Sync.hs
+++ b/Command/Sync.hs
@@ -56,13 +56,14 @@ syncRemotes rs = do
 		then nub <$> pickfast
 		else wanted
 	where
+		pickfast = (++) <$> listed <*> (fastest <$> available)
 		wanted
-			| null rs = filterM hasurl =<< Remote.enabledRemoteList
+			| null rs = available
 			| otherwise = listed
 		listed = mapM Remote.byName rs
+		available = filterM hasurl =<< Remote.enabledRemoteList
 		hasurl r = not . null <$> geturl r
 		geturl r = fromRepo $ Git.Config.get ("remote." ++ Remote.name r ++ ".url") ""
-		pickfast = (++) <$> listed <*> (fastest <$> Remote.enabledRemoteList)
 		fastest = fromMaybe [] . headMaybe .
 			map snd . sort . M.toList . costmap
 		costmap = M.fromListWith (++) . map costpair