diff options
author | 2011-10-31 16:46:51 -0400 | |
---|---|---|
committer | 2011-10-31 17:22:55 -0400 | |
commit | 3d2a9f84051e9dc705ba4bb4828af691e479ae0e (patch) | |
tree | f99ff17d8fa860d1dcf2c8ebd8552e1e80bda8b3 /Command/Version.hs | |
parent | 00988bcf369671bdc3b78e95e3c2ae43f4835b1c (diff) |
cleanup
Diffstat (limited to 'Command/Version.hs')
-rw-r--r-- | Command/Version.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/Version.hs b/Command/Version.hs index 5a45fd77f..a58426482 100644 --- a/Command/Version.hs +++ b/Command/Version.hs @@ -21,12 +21,13 @@ seek = [withNothing start] start :: CommandStart start = do - liftIO $ putStrLn $ "git-annex version: " ++ SysConfig.packageversion v <- getVersion - liftIO $ putStrLn $ "local repository version: " ++ fromMaybe "unknown" v - liftIO $ putStrLn $ "default repository version: " ++ defaultVersion - liftIO $ putStrLn $ "supported repository versions: " ++ vs supportedVersions - liftIO $ putStrLn $ "upgrade supported from repository versions: " ++ vs upgradableVersions + liftIO $ do + putStrLn $ "git-annex version: " ++ SysConfig.packageversion + putStrLn $ "local repository version: " ++ fromMaybe "unknown" v + putStrLn $ "default repository version: " ++ defaultVersion + putStrLn $ "supported repository versions: " ++ vs supportedVersions + putStrLn $ "upgrade supported from repository versions: " ++ vs upgradableVersions stop where vs = join " " |