respond :: BotResponse
respond (evt, resp) = maybe (pure ()) parseCmd (command evt)
  where
    parseCmd cmd = case trigger cmd of
      "jira" -> fetchIssues (arguments cmd) resp
      "help" -> help (arguments cmd) resp
      _      -> pure ()
respond :: BotResponse
respond (evt, resp) = maybe (pure ()) parseCmd (command evt)
  where
    parseCmd cmd = case trigger cmd of
      "jira" -> fetchIssues (arguments cmd) resp
      "help" -> help (arguments cmd) resp
      _      -> pure ()
respond (evt, resp) = maybe (pure ()) parseCmd (command evt)
  where
    parseCmd cmd = case trigger cmd of
      "jira" -> fetchIssues (arguments cmd) resp
      "help" -> help (arguments cmd) resp
      _      -> pure ()