2b014f1a8b
init: Avoid scanning for annexed files, which can be lengthy in a
large repository. Instead that scan is done on demand. This lets git-annex
init be run and some query commands be used in a repository without
waiting.
Note that autoinit already behaved this way, so while this will mean some
commands like git-annex get/unlock/add will do the scan the first time run,
that is not really a significant behavior change.
And, it's really better to have a consistent behavior. The reason for
the inconsistency was a strange bug discussed in
b3c4579c79. Avoiding reconcileStaged in
init will keep avoiding whatever that was.
Sponsored-by: Dartmouth College's DANDI project
50 lines
1.3 KiB
Haskell
50 lines
1.3 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2011-2020 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
|
|
-- because an old version may not seem to exist
|
|
-- and also, this avoids automatic silent upgrades before
|
|
-- this command can start up.
|
|
repoExists $
|
|
-- avoid upgrading repo out from under daemon
|
|
noDaemonRunning $
|
|
command "upgrade" SectionMaintenance "upgrade repository"
|
|
paramNothing (seek <$$> optParser)
|
|
|
|
data UpgradeOptions = UpgradeOptions
|
|
{ autoOnly :: Bool
|
|
}
|
|
|
|
optParser :: CmdParamsDesc -> Parser UpgradeOptions
|
|
optParser _ = UpgradeOptions
|
|
<$> switch
|
|
( long "autoonly"
|
|
<> help "only do automatic upgrades"
|
|
)
|
|
|
|
seek :: UpgradeOptions -> CommandSeek
|
|
seek o = commandAction (start o)
|
|
|
|
start :: UpgradeOptions -> CommandStart
|
|
start (UpgradeOptions { autoOnly = True }) =
|
|
starting "upgrade" (ActionItemOther Nothing) (SeekInput []) $ do
|
|
getVersion >>= maybe noop checkUpgrade
|
|
next $ return True
|
|
start _ =
|
|
starting "upgrade" (ActionItemOther Nothing) (SeekInput []) $ do
|
|
whenM (isNothing <$> getVersion) $ do
|
|
initialize Nothing Nothing
|
|
r <- upgrade False latestVersion
|
|
next $ return r
|