diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-09 16:05:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-09 16:05:45 -0400 |
| commit | 525e04af35bb588b4f8a8721cfa77b2b285ac914 (patch) | |
| tree | 9d00a7d7066a8ad30c9e6313706d47de2609f82a /Command/Version.hs | |
| parent | 87896574f32be5aa1636facc494faeab34cd0845 (diff) | |
wip
Diffstat (limited to 'Command/Version.hs')
| -rw-r--r-- | Command/Version.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Command/Version.hs b/Command/Version.hs index 38c799675..9896f671e 100644 --- a/Command/Version.hs +++ b/Command/Version.hs @@ -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 |