mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use keyLocations not loggedLocations

Browse source 
Skip dead remotes.
This commit is contained in:
Joey Hess 2016-09-06 11:21:59 -04:00
parent e9f7310a7d
commit eb469bd139
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/Sync.hs
View file

@ -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