tweaks
This commit is contained in:
parent
16e7178f20
commit
abdacf58ed
8 changed files with 26 additions and 41 deletions
14
Upgrade.hs
14
Upgrade.hs
|
@ -13,12 +13,10 @@ 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
|
||||
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue