diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-07-26 23:15:38 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-07-26 23:22:22 +0100 |
| commit | 6097e2fcead490610e6bc78bd1af54700bd04466 (patch) | |
| tree | fb6dc4cc9a60f4ac141ecb8a43af9fc04dc60a86 | |
| parent | 91c02ee3009aa40f697f16a306d973296ae82e23 (diff) | |
| download | tomato-hs-6097e2fcead490610e6bc78bd1af54700bd04466.tar.gz tomato-hs-6097e2fcead490610e6bc78bd1af54700bd04466.zip | |
Actually, exit after displaying the version
| -rw-r--r-- | app/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs index 713d40f..d5df3d3 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -12,7 +12,7 @@ import System.Exit import System.IO import System.IO.Error -version = "0.1.0" +version = "0.1.1" tomatoState = "tomato.st" @@ -117,7 +117,7 @@ tomato progName argv state = (o, n, []) -> do when (optHelp opts) $ usage progName [] - when (optVersion opts) $ putStrLn (progName ++ " " ++ version) + when (optVersion opts) $ putStrLn (progName ++ " " ++ version) >> exitSuccess case n of [] -> doShow stateFile ["show"] -> doShow stateFile |