diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-09-06 11:21:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-06 11:57:45 -0400 |
| commit | 14c485bb43f071e8f7ff2614bf3eb3e7a7ab0065 (patch) | |
| tree | 3d836630bd8133935587d1c3104d2905cc53f3ea | |
| parent | c5e70fa5b5bf05c7b02b3faf5bcd0b579dc85ae6 (diff) | |
use keyLocations not loggedLocations
Skip dead remotes.
| -rw-r--r-- | Command/Sync.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |