diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-23 17:57:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-23 17:57:10 -0400 |
| commit | 6246b807f7df32877a87d906cfbe1ae26c51dd8e (patch) | |
| tree | 00c38d74c2b4591ab0a68a807bb70c6044cde3f4 /Command/Migrate.hs | |
| parent | ad08273ac5118f1faac539b53f1fa63908dc5656 (diff) | |
migrate: Support migrating v1 SHA keys to v2 SHA keys with size information that can be used for free space checking.
Diffstat (limited to 'Command/Migrate.hs')
| -rw-r--r-- | Command/Migrate.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index a7014b9bc..0d21fcbdf 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -31,8 +31,8 @@ start :: CommandStartBackendFile start (file, b) = isAnnexed file $ \(key, oldbackend) -> do exists <- inAnnex key newbackend <- choosebackend b - force <- Annex.getState Annex.force - if (newbackend /= oldbackend || force) && exists + upgradable <- Backend.upgradableKey oldbackend key + if (newbackend /= oldbackend || upgradable) && exists then do showStart "migrate" file return $ Just $ perform file key newbackend |