avoid version saving state

This is not the place to commit journal files.
This commit is contained in:
Joey Hess 2012-02-14 10:59:48 -04:00
parent 8f76d66f32
commit 2f1f1e6b13

View file

@ -11,6 +11,7 @@ import Common.Annex
import Command
import qualified Build.SysConfig as SysConfig
import Annex.Version
import CmdLine
def :: [Command]
def = [noRepo showPackageVersion $ dontCheck repoExists $
@ -28,7 +29,9 @@ start = do
putStrLn $ "default repository version: " ++ defaultVersion
putStrLn $ "supported repository versions: " ++ vs supportedVersions
putStrLn $ "upgrade supported from repository versions: " ++ vs upgradableVersions
stop
-- avoid normal cleanup
_ <- shutdown True
liftIO exitSuccess
where
vs = join " "