From dee9655237d753cfeffc5cb7ffccaa86b464dcc2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 27 Jan 2011 15:45:22 -0400 Subject: bugfix to move --to Due to recent changes, the remotes config was not read before the remote to act on was picked. --- Command/Move.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Move.hs') 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 -- cgit v1.2.3