module Network.AWS.CognitoIdentity.Types.Sum where
import Network.AWS.Prelude
data CognitoErrorCode
= AccessDenied
| InternalServerError
deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
instance FromText CognitoErrorCode where
parser = takeLowerText >>= \case
"accessdenied" -> pure AccessDenied
"internalservererror" -> pure InternalServerError
e -> fromTextError $ "Failure parsing CognitoErrorCode from value: '" <> e
<> "'. Accepted values: AccessDenied, InternalServerError"
instance ToText CognitoErrorCode where
toText = \case
AccessDenied -> "AccessDenied"
InternalServerError -> "InternalServerError"
instance Hashable CognitoErrorCode
instance NFData CognitoErrorCode
instance ToByteString CognitoErrorCode
instance ToQuery CognitoErrorCode
instance ToHeader CognitoErrorCode
instance FromJSON CognitoErrorCode where
parseJSON = parseJSONText "CognitoErrorCode"