summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-27 15:45:22 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-27 15:45:22 -0400
commitdee9655237d753cfeffc5cb7ffccaa86b464dcc2 (patch)
tree96339d602398e12c77fde82e3620d9f2a75620cf
parent5e54eb79b8dbb58f9e772fc4c7c9fe900d045217 (diff)
bugfix to move --to
Due to recent changes, the remotes config was not read before the remote to act on was picked.
-rw-r--r--Command/Move.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Move.hs b/Command/Move.hs
index 3eadf30c6..6dc2e4874 100644
--- a/Command/Move.hs
+++ b/Command/Move.hs
@@ -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