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
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 Annex.Content
import Command.Get (getKey') import Command.Get (getKey')
import qualified Command.Move import qualified Command.Move
import Logs.Location
import Annex.Drop import Annex.Drop
import Annex.UUID import Annex.UUID
import Logs.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 :: Either (Maybe (Bloom Key)) (Key -> Annex ()) -> [Remote] -> AssociatedFile -> Key -> Annex Bool
syncFile ebloom rs af k = do syncFile ebloom rs af k = do
locs <- loggedLocations k locs <- Remote.keyLocations k
let (have, lack) = partition (\r -> Remote.uuid r `elem` locs) rs let (have, lack) = partition (\r -> Remote.uuid r `elem` locs) rs
got <- anyM id =<< handleget have got <- anyM id =<< handleget have