From 14c485bb43f071e8f7ff2614bf3eb3e7a7ab0065 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 6 Sep 2016 11:21:59 -0400 Subject: use keyLocations not loggedLocations Skip dead remotes. --- Command/Sync.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Command/Sync.hs') diff --git a/Command/Sync.hs b/Command/Sync.hs index 0626d14aa..fd9d0b278 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -43,7 +43,6 @@ import Annex.Wanted import Annex.Content import Command.Get (getKey') import qualified Command.Move -import Logs.Location import Annex.Drop import Annex.UUID import Logs.UUID @@ -470,7 +469,7 @@ seekSyncContent o rs = do -} syncFile :: Either (Maybe (Bloom Key)) (Key -> Annex ()) -> [Remote] -> AssociatedFile -> Key -> Annex Bool syncFile ebloom rs af k = do - locs <- loggedLocations k + locs <- Remote.keyLocations k let (have, lack) = partition (\r -> Remote.uuid r `elem` locs) rs got <- anyM id =<< handleget have -- cgit v1.2.3