856ce5cf5f
v10 will run 1 year after the upgrade to v9, to give time for any v8 processes to die. Until that point, the v10 upgrade will be tried by every process but deferred, so added support for deferring upgrades. The upgrade prevention lock file that will be used by v10 is not yet implemented, so it does not yet defer. Sponsored-by: Dartmouth College's Datalad project
22 lines
453 B
Haskell
22 lines
453 B
Haskell
{- git-annex v6 -> v7 upgrade support
|
|
-
|
|
- Copyright 2018 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Upgrade.V6 where
|
|
|
|
import Annex.Common
|
|
import Types.Upgrade
|
|
import Config
|
|
import Annex.Hook
|
|
|
|
upgrade :: Bool -> Annex UpgradeResult
|
|
upgrade automatic = do
|
|
unless automatic $
|
|
showAction "v6 to v7"
|
|
unlessM isBareRepo $ do
|
|
hookWrite postCheckoutHook
|
|
hookWrite postMergeHook
|
|
return UpgradeSuccess
|