blob: 44ca6323eb9ed4a6b6ca23270e6033c34c88c9e4 (
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
|
