diff options
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 25227ae16..6ad7e239c 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -8,6 +8,7 @@ module Command.Migrate where import Control.Monad.State (liftIO) +import Control.Applicative import System.Posix.Files import System.Directory import System.FilePath @@ -39,7 +40,7 @@ start (file, b) = isAnnexed file $ \(key, oldbackend) -> do next $ perform file key newbackend else stop where - choosebackend Nothing = return . head =<< Backend.orderedList + choosebackend Nothing = head <$> Backend.orderedList choosebackend (Just backend) = return backend {- Checks if a key is upgradable to a newer representation. -} |