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/Add.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/Add.hs')
| -rw-r--r-- | Command/Add.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index bc869a67d..c74b726e3 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -42,11 +42,12 @@ perform (file, backend) = do stored <- Backend.storeFileKey file backend case stored of Nothing -> return Nothing - Just (key, _) -> return $ Just $ cleanup file key + Just (key, _) -> do + moveAnnex key file + return $ Just $ cleanup file key cleanup :: FilePath -> Key -> CommandCleanup cleanup file key = do - moveAnnex key file logStatus key ValuePresent link <- calcGitLink file key |