New migrate subcommand can be used to switch files to using a different backend, safely and with no duplication of content.

1 files changed, 6 insertions, 0 deletions

diff --git a/Command.hs b/Command.hs
index 690dd20ec..b83e640b9 100644
--- a/Command.hs
+++ b/Command.hs
@@ -117,6 +117,12 @@ withAttrFilesInGit attr a params = do
 	files' <- filterFiles files
 	pairs <- liftIO $ Git.checkAttr repo attr files'
 	return $ map a pairs
+withBackendFilesInGit :: CommandSeekBackendFiles
+withBackendFilesInGit a params = do
+	repo <- Annex.gitRepo
+	files <- liftIO $ Git.inRepo repo params
+	files' <- filterFiles files
+	backendPairs a files'
 withFilesMissing :: CommandSeekStrings
 withFilesMissing a params = do
 	files <- liftIO $ filterM missing params