From 2f1f1e6b136611d844caf5b304251b4f024ccde6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 14 Feb 2012 10:59:48 -0400 Subject: avoid version saving state This is not the place to commit journal files. --- Command/Version.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 " " -- cgit v1.2.3