Messages.hs

module Web.GitHub.CLI.Messages
  (commandMessage) where

import Network.Octohat.Types

commandMessage :: GitHubReturnStatus -> String
commandMessage NotFound               = "Organization or Team not found"
commandMessage NotAllowed             = "Not authorized"
commandMessage RequiresAuthentication = "Credentials must be configured to use this function"
commandMessage _                      = "Internal application error"