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

bare repo upgrade support

Browse source
This commit is contained in:
Joey Hess 2011-03-16 13:16:52 -04:00
parent 1443fcfe02
commit a4bc3d6f38
1 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Upgrade/V1.hs
View file

@ -57,17 +57,21 @@ upgrade :: Annex Bool
upgrade = do upgrade = do
showSideAction "Upgrading object directory layout v1 to v2..." showSideAction "Upgrading object directory layout v1 to v2..."
g <- Annex.gitRepo
if Git.repoIsLocalBare g
then do
moveContent
else do
moveContent moveContent
updateSymlinks updateSymlinks
moveLocationLogs moveLocationLogs
setVersion
-- add new line to auto-merge hashed location logs -- add new line to auto-merge hashed location logs
-- this commits, so has to come after the upgrade -- this commits, so has to come after the upgrade
g <- Annex.gitRepo g <- Annex.gitRepo
liftIO $ Command.Init.gitAttributesWrite g liftIO $ Command.Init.gitAttributesWrite g
setVersion
return True return True
moveContent :: Annex () moveContent :: Annex ()