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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-09-15 16:57:02 -04:00
parent 35145202d2
commit 5ff04bf2af
7 changed files with 18 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Migrate.hs
View file

@ -23,6 +23,7 @@ import Content
import Messages
import Utility.Conditional
import qualified Command.Add
import Backend
command :: [Command]
command = [repoCommand "migrate" paramPaths seek
@ -32,7 +33,7 @@ seek :: [CommandSeek]
seek = [withBackendFilesInGit start]
start :: BackendFile -> CommandStart
start (file, b) = isAnnexed file $ \(key, oldbackend) -> do
start (b, file) = isAnnexed file $ \(key, oldbackend) -> do
exists <- inAnnex key
newbackend <- choosebackend b
if (newbackend /= oldbackend || upgradableKey key) && exists