mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Moved list of backends and remote types from status to version command.

Browse source
This commit is contained in:
Joey Hess 2013-10-01 20:50:46 -04:00
parent a05b763b01
commit 29385dc393
3 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Command/Version.hs
View file

@ -12,6 +12,10 @@ 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
def :: [Command]
def = [noCommit $ noRepo showPackageVersion $ dontCheck repoExists $
@ -25,13 +29,20 @@ start = do
v <- getVersion
liftIO $ do
showPackageVersion
putStrLn $ "local repository version: " ++ fromMaybe "unknown" v
putStrLn $ "default repository version: " ++ defaultVersion
putStrLn $ "supported repository versions: " ++ unwords supportedVersions
putStrLn $ "upgrade supported from repository versions: " ++ unwords upgradableVersions
info "local repository version" $ fromMaybe "unknown" v
info "default repository version" defaultVersion
info "supported repository versions" $
unwords supportedVersions
info "upgrade supported from repository versions" $
unwords upgradableVersions
stop
showPackageVersion :: IO ()
showPackageVersion = do
putStrLn $ "git-annex version: " ++ SysConfig.packageversion
putStrLn $ "build flags: " ++ unwords buildFlags
info "git-annex version" SysConfig.packageversion
info "build flags" $ unwords buildFlags
info "key/value backends" $ unwords $ map B.name Backend.list
info "remote types" $ unwords $ map R.typename Remote.remoteTypes
info :: String -> String -> IO ()
info k v = putStrLn $ k ++ ": " ++ v