Moved list of backends and remote types from status to version command.
This commit is contained in:
parent
a05b763b01
commit
29385dc393
3 changed files with 20 additions and 20 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue