summaryrefslogtreecommitdiff
path: root/Upgrade.hs
blob: 705b190d85800e50282ca05e0d59e1ef2c1ceb47 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{- 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

upgrade :: Annex Bool
upgrade = go =<< getVersion
  where
	go (Just "0") = Upgrade.V0.upgrade
	go (Just "1") = Upgrade.V1.upgrade
	go (Just "2") = Upgrade.V2.upgrade
	go _ = return True