ccc49861ca
Since all places where a repo is used in direct mode need to have git-annex upgraded before the repo can safely be converted to v6, the upgrade needs to be manual for now. I suppose that at some point I'll want to drop all the direct mode support code. At that point, will stop supporting v5, and will need to auto-upgrade any remaining v5 repos. If possible, I'd like to carry the direct mode support for say, a year or so, to give people plenty of time to upgrade and avoid disruption.
71 lines
1.8 KiB
Haskell
71 lines
1.8 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2010 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.Version where
|
|
|
|
import Common.Annex
|
|
import Command
|
|
import qualified Build.SysConfig as SysConfig
|
|
import Annex.Version
|
|
import BuildFlags
|
|
import qualified Types.Backend as B
|
|
import qualified Types.Remote as R
|
|
import qualified Remote
|
|
import qualified Backend
|
|
|
|
cmd :: Command
|
|
cmd = dontCheck repoExists $ noCommit $
|
|
noRepo (seekNoRepo <$$> optParser) $
|
|
command "version" SectionQuery "show version info"
|
|
paramNothing (seek <$$> optParser)
|
|
|
|
data VersionOptions = VersionOptions
|
|
{ rawOption :: Bool
|
|
}
|
|
|
|
optParser :: CmdParamsDesc -> Parser VersionOptions
|
|
optParser _ = VersionOptions
|
|
<$> switch
|
|
( long "raw"
|
|
<> help "output only program version"
|
|
)
|
|
|
|
seek :: VersionOptions -> CommandSeek
|
|
seek o
|
|
| rawOption o = liftIO showRawVersion
|
|
| otherwise = showVersion
|
|
|
|
seekNoRepo :: VersionOptions -> IO ()
|
|
seekNoRepo o
|
|
| rawOption o = showRawVersion
|
|
| otherwise = showPackageVersion
|
|
|
|
showVersion :: Annex ()
|
|
showVersion = do
|
|
v <- getVersion
|
|
liftIO $ do
|
|
showPackageVersion
|
|
vinfo "local repository version" $ fromMaybe "unknown" v
|
|
vinfo "supported repository versions" $
|
|
unwords supportedVersions
|
|
vinfo "upgrade supported from repository versions" $
|
|
unwords upgradableVersions
|
|
|
|
showPackageVersion :: IO ()
|
|
showPackageVersion = do
|
|
vinfo "git-annex version" SysConfig.packageversion
|
|
vinfo "build flags" $ unwords buildFlags
|
|
vinfo "key/value backends" $ unwords $ map B.name Backend.list
|
|
vinfo "remote types" $ unwords $ map R.typename Remote.remoteTypes
|
|
|
|
showRawVersion :: IO ()
|
|
showRawVersion = do
|
|
putStr SysConfig.packageversion
|
|
hFlush stdout -- no newline, so flush
|
|
|
|
vinfo :: String -> String -> IO ()
|
|
vinfo k v = putStrLn $ k ++ ": " ++ v
|