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 Common.Annex
import Annex.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 14:44:24 -04:00			`{- git-annex upgrade support`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Upgrade where`

rename 2011-10-05 16:02:51 -04:00			`import Common.Annex`
rename 2011-10-04 00:40:47 -04:00			`import Annex.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 01:23:20 -04:00			`import qualified Upgrade.V0`
			`import qualified Upgrade.V1`
stub in v2 upgrade 2011-06-22 17:51:48 -04:00			`import qualified Upgrade.V2`
move stuff out of Core 2010-11-14 14:44:24 -04: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 18:07:45 -04: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 18:33:39 -04:00			`_ -> return True`