diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-27 15:45:22 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-27 15:45:22 -0400 |
commit | dee9655237d753cfeffc5cb7ffccaa86b464dcc2 (patch) | |
tree | 96339d602398e12c77fde82e3620d9f2a75620cf | |
parent | 5e54eb79b8dbb58f9e772fc4c7c9fe900d045217 (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.hs | 2 |
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 |