diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-20 23:24:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-20 23:24:48 -0400 |
| commit | 9f6b7935ddb3d5dcbe0b4b784dc8acd7288ddba6 (patch) | |
| tree | 8b87227689a603d09ad9fdfd010b2a3b648c1a2f /Command/Migrate.hs | |
| parent | 9d26192350b9c7b0402720f6f29c99c24748f364 (diff) | |
go go gadget hlint
Diffstat (limited to 'Command/Migrate.hs')
| -rw-r--r-- | Command/Migrate.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index 2be910851..054db6e27 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -12,6 +12,7 @@ import Control.Applicative import System.Posix.Files import System.Directory import System.FilePath +import Data.Maybe import Command import qualified Annex @@ -48,7 +49,7 @@ start (b, file) = isAnnexed file $ \(key, oldbackend) -> do {- Checks if a key is upgradable to a newer representation. -} {- Ideally, all keys have file size metadata. Old keys may not. -} upgradableKey :: Key -> Bool -upgradableKey key = Types.Key.keySize key == Nothing +upgradableKey key = isNothing $ Types.Key.keySize key perform :: FilePath -> Key -> Backend Annex -> CommandPerform perform file oldkey newbackend = do |