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

avoid version saving state

Browse source 
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
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Version.hs
View file

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