git-annex/Upgrade.hs

{- git-annex upgrade support
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Upgrade where

import Types
import Version
import qualified Upgrade.V0
import qualified Upgrade.V1
import qualified Upgrade.V2

{- Uses the annex.version git config setting to automate upgrades. -}
upgrade :: Annex Bool
upgrade = do
	version <- getVersion
	case version of
		Just "0" -> Upgrade.V0.upgrade
		Just "1" -> Upgrade.V1.upgrade
		Just "2" -> Upgrade.V2.upgrade
		_ -> return True
move stuff out of Core 2010-11-14 18:44:24 +00:00			`{- git-annex upgrade support`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Upgrade where`

			`import Types`
			`import Version`
upgrade groundwork pulled in old versions of functions for working with keys Wrote a parser from old key filenames to new keys. 2011-03-16 05:23:20 +00:00			`import qualified Upgrade.V0`
			`import qualified Upgrade.V1`
stub in v2 upgrade 2011-06-22 21:51:48 +00:00			`import qualified Upgrade.V2`
move stuff out of Core 2010-11-14 18:44:24 +00:00
			`{- Uses the annex.version git config setting to automate upgrades. -}`
			`upgrade :: Annex Bool`
			`upgrade = do`
			`version <- getVersion`
			`case version of`
improve version checking for v3 Do not set annex.version whenever any command is run. Just do it in init. This ensures that, if a repo has annex.version=3, it has a git-annex branch, so we don't have to run a command every time to check for the branch. Remove the old ad-hoc logic for v0 and v1, to simplify version checking. 2011-06-22 22:07:45 +00:00			`Just "0" -> Upgrade.V0.upgrade`
			`Just "1" -> Upgrade.V1.upgrade`
			`Just "2" -> Upgrade.V2.upgrade`
No longer auto-upgrade to repository format 2, to avoid accidental upgrades, etc. Use git-annex upgrade when you're ready to run this version. 2011-03-19 22:33:39 +00:00			`_ -> return True`