help :: [Text] -> OutputResponse -> IO ()
help args resp = case args of
  []       -> say
  ["jira"] -> say
  _        -> pure ()
  where say = slackWriter resp $ QuotedSimpleMessage "!jira XYZ-123 <XYZ-234 XYZ-345…> :: Displays Jira entries"


help :: [Text] -> OutputResponse -> IO ()
help args resp = case args of
  []       -> say
  ["jira"] -> say
  _        -> pure ()
  where say = slackWriter resp $ QuotedSimpleMessage "!jira XYZ-123 <XYZ-234 XYZ-345…> :: Displays Jira entries"
help args resp = case args of
  []       -> say
  ["jira"] -> say
  _        -> pure ()
  where say = slackWriter resp $ QuotedSimpleMessage "!jira XYZ-123 <XYZ-234 XYZ-345…> :: Displays Jira entries"