git-annex-7.20190912: Command/Upgrade.hs

{- git-annex command
 -
 - Copyright 2011 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Command.Upgrade where

import Command
import Upgrade
import Annex.Version
import Annex.Init

cmd :: Command
cmd = dontCheck repoExists $
	-- ^ because an old version may not seem to exist
	-- and also, this avoids automatic silent upgrades before
	-- this command can start up.
	noDaemonRunning $
	-- ^ avoid upgrading repo out from under daemon
	command "upgrade" SectionMaintenance "upgrade repository"
		paramNothing (withParams seek)

seek :: CmdParams -> CommandSeek
seek = withNothing (commandAction start)

start :: CommandStart
start = starting "upgrade" (ActionItemOther Nothing) $ do
	whenM (isNothing <$> getVersion) $ do
		initialize Nothing Nothing
	r <- upgrade False latestVersion
	next $ return r