diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-07-31 22:06:09 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-07-31 22:06:09 +0100 |
| commit | 6eb8542ff4ba783ed641a26d63d01878d2278489 (patch) | |
| tree | 70f7156182358e9e017b230a70bc428ad6a13f68 /app | |
| parent | 258bb41798b72b5dec92c70535e9404e223d6cdc (diff) | |
| download | tomato-hs-6eb8542ff4ba783ed641a26d63d01878d2278489.tar.gz tomato-hs-6eb8542ff4ba783ed641a26d63d01878d2278489.zip | |
Show the list of commands on help.
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 10 |
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 |