ndle :: IssueResponseType -> Text -> Issue -> Status -> OutputMessage
handle respType issueName issue status
    | statusIsServerError status = showError issueName
    | statusIsClientError status = showNotFound issueName
    | otherwise = case respType of
        Full  -> showIssue issue
        Short -> showShortIssue issue


handle :: IssueResponseType -> Text -> Issue -> Status -> OutputMessage
handle respType issueName issue status
    | statusIsServerError status = showError issueName
    | statusIsClientError status = showNotFound issueName
    | otherwise = case respType of
        Full  -> showIssue issue
        Short -> showShortIssue issue
handle respType issueName issue status
    | statusIsServerError status = showError issueName
    | statusIsClientError status = showNotFound issueName
    | otherwise = case respType of
        Full  -> showIssue issue
        Short -> showShortIssue issue