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

wip

Browse source
This commit is contained in:
Joey Hess 2015-07-09 16:05:45 -04:00
parent 8ad927dbc6
commit a7f58634b8
11 changed files with 109 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Command/Version.hs
View file

@ -44,9 +44,9 @@ start = do
liftIO $ do
showPackageVersion
info "local repository version" $ fromMaybe "unknown" v
info "supported repository version" supportedVersion
info "upgrade supported from repository versions" $
vinfo "local repository version" $ fromMaybe "unknown" v
vinfo "supported repository version" supportedVersion
vinfo "upgrade supported from repository versions" $
unwords upgradableVersions
stop
@ -55,10 +55,10 @@ startNoRepo _ = showPackageVersion
showPackageVersion :: IO ()
showPackageVersion = do
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
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
info :: String -> String -> IO ()
info k v = putStrLn $ k ++ ": " ++ v
vinfo :: String -> String -> IO ()
vinfo k v = putStrLn $ k ++ ": " ++ v