diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-08 15:54:14 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-08 15:54:14 -0400 |
commit | a78b0555e1d46c4548cda3aaa1709040f6fa7f33 (patch) | |
tree | 9313997b7a9e3758b27cf79c0319d730397421a4 /Command.hs | |
parent | 32b0e103909035ad0f25427c57a1ff504aefcada (diff) |
New migrate subcommand can be used to switch files to using a different backend, safely and with no duplication of content.
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 6 |
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 |