bugfix to move --to
Due to recent changes, the remotes config was not read before the remote to act on was picked.
This commit is contained in:
parent
5e54eb79b8
commit
dee9655237
1 changed files with 1 additions and 1 deletions
|
@ -34,6 +34,7 @@ seek = [withFilesInGit $ start True]
|
|||
- moving data in the key-value backend. -}
|
||||
start :: Bool -> CommandStartString
|
||||
start move file = do
|
||||
Remotes.readConfigs
|
||||
to <- Annex.getState Annex.toremote
|
||||
from <- Annex.getState Annex.fromremote
|
||||
case (from, to) of
|
||||
|
@ -80,7 +81,6 @@ toStart dest move file = isAnnexed file $ \(key, _) -> do
|
|||
return $ Just $ toPerform dest move key
|
||||
toPerform :: Git.Repo -> Bool -> Key -> CommandPerform
|
||||
toPerform dest move key = do
|
||||
Remotes.readConfigs
|
||||
-- checking the remote is expensive, so not done in the start step
|
||||
isthere <- Remotes.inAnnex dest key
|
||||
case isthere of
|
||||
|
|
Loading…
Reference in a new issue