From 6097e2fcead490610e6bc78bd1af54700bd04466 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Tue, 26 Jul 2022 23:15:38 +0100 Subject: Actually, exit after displaying the version --- app/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Main.hs') 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 -- cgit v1.2.3