From 6eb8542ff4ba783ed641a26d63d01878d2278489 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 31 Jul 2022 22:06:09 +0100
Subject: Show the list of commands on help.

---
 app/Main.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'app')

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
-- 
cgit v1.2.3