mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove 163 lines of code without changing anything except imports

Browse source
This commit is contained in:
Joey Hess 2016-01-20 16:36:33 -04:00
parent 8dd5d180f1
commit 737e45156e
Failed to extract signature
259 changed files with 192 additions and 355 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Migrate.hs
View file

@ -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)