summaryrefslogtreecommitdiff
path: root/Command/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-09-06 11:21:59 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-09-06 11:57:45 -0400
commit14c485bb43f071e8f7ff2614bf3eb3e7a7ab0065 (patch)
tree3d836630bd8133935587d1c3104d2905cc53f3ea /Command/Sync.hs
parentc5e70fa5b5bf05c7b02b3faf5bcd0b579dc85ae6 (diff)
use keyLocations not loggedLocations
Skip dead remotes.
Diffstat (limited to 'Command/Sync.hs')
-rw-r--r--Command/Sync.hs3
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