aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2022-07-26 23:15:38 +0100
committerJuan J. Martinez <jjm@usebox.net>2022-07-26 23:22:22 +0100
commit6097e2fcead490610e6bc78bd1af54700bd04466 (patch)
treefb6dc4cc9a60f4ac141ecb8a43af9fc04dc60a86 /app
parent91c02ee3009aa40f697f16a306d973296ae82e23 (diff)
downloadtomato-hs-6097e2fcead490610e6bc78bd1af54700bd04466.tar.gz
tomato-hs-6097e2fcead490610e6bc78bd1af54700bd04466.zip
Actually, exit after displaying the version
Diffstat (limited to 'app')
-rw-r--r--app/Main.hs4
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