aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2022-07-31 22:06:09 +0100
committerJuan J. Martinez <jjm@usebox.net>2022-07-31 22:06:09 +0100
commit6eb8542ff4ba783ed641a26d63d01878d2278489 (patch)
tree70f7156182358e9e017b230a70bc428ad6a13f68 /app
parent258bb41798b72b5dec92c70535e9404e223d6cdc (diff)
downloadtomato-hs-6eb8542ff4ba783ed641a26d63d01878d2278489.tar.gz
tomato-hs-6eb8542ff4ba783ed641a26d63d01878d2278489.zip
Show the list of commands on help.
Diffstat (limited to 'app')
-rw-r--r--app/Main.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/app/Main.hs b/app/Main.hs
index d5df3d3..66cc811 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -58,11 +58,11 @@ options =
usage :: String -> [String] -> IO ()
usage progName errs
| null errs = do
- putStrLn helpText
- exitSuccess
+ putStrLn helpText
+ exitSuccess
| otherwise = do
- hPutStrLn stderr ("error: " ++ concat errs ++ "Try " ++ progName ++ " -h for more information.")
- exitFailure
+ hPutStrLn stderr ("error: " ++ concat errs ++ "Try " ++ progName ++ " -h for more information.")
+ exitFailure
where
header =
"Yet another simple pomodoro tool\n"
@@ -70,7 +70,7 @@ usage progName errs
++ progName
++ " [OPTION...] [command]"
helpText =
- usageInfo header options
+ usageInfo header options ++ "\nCommands are: start, show and stop.\n"
resolveEmoji :: NominalDiffTime -> String
resolveEmoji diff