aboutsummaryrefslogtreecommitdiff
path: root/Command/Version.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-02-14 10:59:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-02-14 10:59:48 -0400
commit2f1f1e6b136611d844caf5b304251b4f024ccde6 (patch)
treef05141aa629bc05756bff94ff6bf76675ca684f9 /Command/Version.hs
parent8f76d66f329a9bc431f0c16da529b9573756c755 (diff)
avoid version saving state
This is not the place to commit journal files.
Diffstat (limited to 'Command/Version.hs')
-rw-r--r--Command/Version.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Version.hs b/Command/Version.hs
index 9fb7fe5bd..8761d2a2e 100644
--- a/Command/Version.hs
+++ b/Command/Version.hs
@@ -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 " "