hear :: BotResponse
hear (evt, resp) = do
  fetchShortIssues (T.words $ fullMessage evt) resp
hear :: BotResponse
hear (evt, resp) = do
  fetchShortIssues (T.words $ fullMessage evt) resp
hear (evt, resp) = do
  fetchShortIssues (T.words $ fullMessage evt) resp