diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-20 16:36:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-20 16:36:33 -0400 |
| commit | 10c579282b4f0acc7f26d8084916f7d538a89bd8 (patch) | |
| tree | bc9e4a526b3bef0cb54b784cbe0d42a555a329db /Command/Migrate.hs | |
| parent | d115fb8d3418d494708390f8a74938d830c669b7 (diff) | |
remove 163 lines of code without changing anything except imports
Diffstat (limited to 'Command/Migrate.hs')
| -rw-r--r-- | Command/Migrate.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index f0100cdc2..0ae6f7d80 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -7,10 +7,8 @@ module Command.Migrate where -import Common.Annex import Command import Backend -import qualified Types.Key import Types.Backend (canUpgradeKey, fastMigrate) import Types.KeySource import Annex.Content @@ -55,7 +53,7 @@ start file key = do - - Something has changed in the backend, such as a bug fix. -} upgradableKey :: Backend -> Key -> Bool -upgradableKey backend key = isNothing (Types.Key.keySize key) || backendupgradable +upgradableKey backend key = isNothing (keySize key) || backendupgradable where backendupgradable = maybe False (\a -> a key) (canUpgradeKey backend) |