module Network.AWS.CognitoIdentity.Types.Sum where
import Network.AWS.Prelude
data AmbiguousRoleResolutionType
= AuthenticatedRole
| Deny
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText AmbiguousRoleResolutionType where
parser = takeLowerText >>= \case
"authenticatedrole" -> pure AuthenticatedRole
"deny" -> pure Deny
e -> fromTextError $ "Failure parsing AmbiguousRoleResolutionType from value: '" <> e
<> "'. Accepted values: authenticatedrole, deny"
instance ToText AmbiguousRoleResolutionType where
toText = \case
AuthenticatedRole -> "AuthenticatedRole"
Deny -> "Deny"
instance Hashable AmbiguousRoleResolutionType
instance NFData AmbiguousRoleResolutionType
instance ToByteString AmbiguousRoleResolutionType
instance ToQuery AmbiguousRoleResolutionType
instance ToHeader AmbiguousRoleResolutionType
instance ToJSON AmbiguousRoleResolutionType where
toJSON = toJSONText
instance FromJSON AmbiguousRoleResolutionType where
parseJSON = parseJSONText "AmbiguousRoleResolutionType"
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"
data MappingRuleMatchType
= Contains
| Equals
| NotEqual
| StartsWith
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText MappingRuleMatchType where
parser = takeLowerText >>= \case
"contains" -> pure Contains
"equals" -> pure Equals
"notequal" -> pure NotEqual
"startswith" -> pure StartsWith
e -> fromTextError $ "Failure parsing MappingRuleMatchType from value: '" <> e
<> "'. Accepted values: contains, equals, notequal, startswith"
instance ToText MappingRuleMatchType where
toText = \case
Contains -> "Contains"
Equals -> "Equals"
NotEqual -> "NotEqual"
StartsWith -> "StartsWith"
instance Hashable MappingRuleMatchType
instance NFData MappingRuleMatchType
instance ToByteString MappingRuleMatchType
instance ToQuery MappingRuleMatchType
instance ToHeader MappingRuleMatchType
instance ToJSON MappingRuleMatchType where
toJSON = toJSONText
instance FromJSON MappingRuleMatchType where
parseJSON = parseJSONText "MappingRuleMatchType"
data RoleMappingType
= Rules
| Token
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText RoleMappingType where
parser = takeLowerText >>= \case
"rules" -> pure Rules
"token" -> pure Token
e -> fromTextError $ "Failure parsing RoleMappingType from value: '" <> e
<> "'. Accepted values: rules, token"
instance ToText RoleMappingType where
toText = \case
Rules -> "Rules"
Token -> "Token"
instance Hashable RoleMappingType
instance NFData RoleMappingType
instance ToByteString RoleMappingType
instance ToQuery RoleMappingType
instance ToHeader RoleMappingType
instance ToJSON RoleMappingType where
toJSON = toJSONText
instance FromJSON RoleMappingType where
parseJSON = parseJSONText "RoleMappingType"