Display helper message on sub commands

Author: HirotoShioi

src/CLI.hs

@@ -21,13 +21,13 @@ data CLI
 cmdProcessTicket :: Parser CLI
 cmdProcessTicket = ProcessTicket <$> argument auto
                        ( metavar "TICKET_ID"
-                      <> help "Specify ticket id to analyze")
+                      <> help "Ticket id to analyze")
 
 -- | Parser for RawRequest
 cmdRawRequest :: Parser CLI
 cmdRawRequest = RawRequest <$> strOption
                     ( metavar "URL"
-                   <> help "Specify url to request")
+                   <> help "Url to request")
 
 -- | Parser for CLI commands
 cli :: Parser CLI
@@ -37,9 +37,9 @@ cli = subparser $ mconcat
             (progDesc "Collect emails requested by single user"))
         , command "processTickets" (info (pure ProcessTickets)
             (progDesc "Process all the tickets i.e add comments, tags."))
-        , command "processTicket" (info cmdProcessTicket
-            (progDesc "Process Zendesk ticket of an given <TICKET_ID>"))
-        , command "rawRequest" (info cmdRawRequest
+        , command "processTicket" (info (cmdProcessTicket <**> helper)
+            (progDesc "Process Zendesk ticket of an given ticket id"))
+        , command "rawRequest" (info (cmdRawRequest <**> helper)
             (progDesc "Raw request to the given url"))
         , command "showStats" (info (pure ShowStatistics)
             (progDesc "Print list of ticket Ids that agent has been assigned"))