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

bugfix to move --to

Browse source 
Due to recent changes, the remotes config was not read before the remote
to act on was picked.
This commit is contained in:
Joey Hess 2011-01-27 15:45:22 -04:00
parent 5e54eb79b8
commit dee9655237
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Move.hs
View file

@ -34,6 +34,7 @@ seek = [withFilesInGit $ start True]
- moving data in the key-value backend. -} - moving data in the key-value backend. -}
start :: Bool -> CommandStartString start :: Bool -> CommandStartString
start move file = do start move file = do
Remotes.readConfigs
to <- Annex.getState Annex.toremote to <- Annex.getState Annex.toremote
from <- Annex.getState Annex.fromremote from <- Annex.getState Annex.fromremote
case (from, to) of case (from, to) of
@ -80,7 +81,6 @@ toStart dest move file = isAnnexed file $ \(key, _) -> do
return $ Just $ toPerform dest move key return $ Just $ toPerform dest move key
toPerform :: Git.Repo -> Bool -> Key -> CommandPerform toPerform :: Git.Repo -> Bool -> Key -> CommandPerform
toPerform dest move key = do toPerform dest move key = do
Remotes.readConfigs
-- checking the remote is expensive, so not done in the start step -- checking the remote is expensive, so not done in the start step
isthere <- Remotes.inAnnex dest key isthere <- Remotes.inAnnex dest key
case isthere of case isthere of