diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-19 18:33:39 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-19 18:33:39 -0400 |
commit | 6a2a17658c1d508cec022132768e9bc1957098d9 (patch) | |
tree | 0faef3f988c981d35796b6e6f1adfbbbee0e3fa9 /Version.hs | |
parent | 43b3675d4298ffe8cfaefed0d70f0ef1fce25e37 (diff) |
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.
Diffstat (limited to 'Version.hs')
-rw-r--r-- | Version.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Version.hs b/Version.hs index d4a58d77a..d061a2eab 100644 --- a/Version.hs +++ b/Version.hs @@ -8,6 +8,7 @@ module Version where import Control.Monad.State (liftIO) +import Control.Monad (unless) import System.Directory import Types @@ -23,6 +24,9 @@ defaultVersion = "2" supportedVersions :: [Version] supportedVersions = [defaultVersion] +upgradableVersions :: [Version] +upgradableVersions = ["0", "1"] + versionField :: String versionField = "annex.version" @@ -51,3 +55,15 @@ getVersion = do setVersion :: Annex () setVersion = Annex.setConfig versionField defaultVersion + +checkVersion :: Annex () +checkVersion = do + v <- getVersion + unless (v `elem` supportedVersions) $ do + error $ "Repository version " ++ v ++ + " is not supported. " ++ + msg v + where + msg v + | v `elem` upgradableVersions = "Upgrade this repository: git-annex upgrade" + | otherwise = "Upgrade git-annex." |