{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.AppStream.Types.Sum where
import Network.AWS.Prelude
data AuthenticationType
= API
| Saml
| Userpool
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText AuthenticationType where
parser = takeLowerText >>= \case
"api" -> pure API
"saml" -> pure Saml
"userpool" -> pure Userpool
e -> fromTextError $ "Failure parsing AuthenticationType from value: '" <> e
<> "'. Accepted values: api, saml, userpool"
instance ToText AuthenticationType where
toText = \case
API -> "API"
Saml -> "SAML"
Userpool -> "USERPOOL"
instance Hashable AuthenticationType
instance NFData AuthenticationType
instance ToByteString AuthenticationType
instance ToQuery AuthenticationType
instance ToHeader AuthenticationType
instance ToJSON AuthenticationType where
toJSON = toJSONText
instance FromJSON AuthenticationType where
parseJSON = parseJSONText "AuthenticationType"
data FleetAttribute
= DomainJoinInfo
| VPCConfiguration
| VPCConfigurationSecurityGroupIds
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText FleetAttribute where
parser = takeLowerText >>= \case
"domain_join_info" -> pure DomainJoinInfo
"vpc_configuration" -> pure VPCConfiguration
"vpc_configuration_security_group_ids" -> pure VPCConfigurationSecurityGroupIds
e -> fromTextError $ "Failure parsing FleetAttribute from value: '" <> e
<> "'. Accepted values: domain_join_info, vpc_configuration, vpc_configuration_security_group_ids"
instance ToText FleetAttribute where
toText = \case
DomainJoinInfo -> "DOMAIN_JOIN_INFO"
VPCConfiguration -> "VPC_CONFIGURATION"
VPCConfigurationSecurityGroupIds -> "VPC_CONFIGURATION_SECURITY_GROUP_IDS"
instance Hashable FleetAttribute
instance NFData FleetAttribute
instance ToByteString FleetAttribute
instance ToQuery FleetAttribute
instance ToHeader FleetAttribute
instance ToJSON FleetAttribute where
toJSON = toJSONText
data FleetErrorCode
= DomainJoinErrorAccessDenied
| DomainJoinErrorDsMachineAccountQuotaExceeded
| DomainJoinErrorFileNotFound
| DomainJoinErrorInvalidParameter
| DomainJoinErrorLogonFailure
| DomainJoinErrorMoreData
| DomainJoinErrorNoSuchDomain
| DomainJoinErrorNotSupported
| DomainJoinInternalServiceError
| DomainJoinNerrInvalidWorkgroupName
| DomainJoinNerrPasswordExpired
| DomainJoinNerrWorkstationNotStarted
| IAMServiceRoleIsMissing
| IAMServiceRoleMissingDescribeSecurityGroupsAction
| IAMServiceRoleMissingDescribeSubnetAction
| IAMServiceRoleMissingEniCreateAction
| IAMServiceRoleMissingEniDeleteAction
| IAMServiceRoleMissingEniDescribeAction
| IgwNotAttached
| ImageNotFound
| InternalServiceError
| InvalidSubnetConfiguration
| NetworkInterfaceLimitExceeded
| SecurityGroupsNotFound
| SubnetHasInsufficientIPAddresses
| SubnetNotFound
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText FleetErrorCode where
parser = takeLowerText >>= \case
"domain_join_error_access_denied" -> pure DomainJoinErrorAccessDenied
"domain_join_error_ds_machine_account_quota_exceeded" -> pure DomainJoinErrorDsMachineAccountQuotaExceeded
"domain_join_error_file_not_found" -> pure DomainJoinErrorFileNotFound
"domain_join_error_invalid_parameter" -> pure DomainJoinErrorInvalidParameter
"domain_join_error_logon_failure" -> pure DomainJoinErrorLogonFailure
"domain_join_error_more_data" -> pure DomainJoinErrorMoreData
"domain_join_error_no_such_domain" -> pure DomainJoinErrorNoSuchDomain
"domain_join_error_not_supported" -> pure DomainJoinErrorNotSupported
"domain_join_internal_service_error" -> pure DomainJoinInternalServiceError
"domain_join_nerr_invalid_workgroup_name" -> pure DomainJoinNerrInvalidWorkgroupName
"domain_join_nerr_password_expired" -> pure DomainJoinNerrPasswordExpired
"domain_join_nerr_workstation_not_started" -> pure DomainJoinNerrWorkstationNotStarted
"iam_service_role_is_missing" -> pure IAMServiceRoleIsMissing
"iam_service_role_missing_describe_security_groups_action" -> pure IAMServiceRoleMissingDescribeSecurityGroupsAction
"iam_service_role_missing_describe_subnet_action" -> pure IAMServiceRoleMissingDescribeSubnetAction
"iam_service_role_missing_eni_create_action" -> pure IAMServiceRoleMissingEniCreateAction
"iam_service_role_missing_eni_delete_action" -> pure IAMServiceRoleMissingEniDeleteAction
"iam_service_role_missing_eni_describe_action" -> pure IAMServiceRoleMissingEniDescribeAction
"igw_not_attached" -> pure IgwNotAttached
"image_not_found" -> pure ImageNotFound
"internal_service_error" -> pure InternalServiceError
"invalid_subnet_configuration" -> pure InvalidSubnetConfiguration
"network_interface_limit_exceeded" -> pure NetworkInterfaceLimitExceeded
"security_groups_not_found" -> pure SecurityGroupsNotFound
"subnet_has_insufficient_ip_addresses" -> pure SubnetHasInsufficientIPAddresses
"subnet_not_found" -> pure SubnetNotFound
e -> fromTextError $ "Failure parsing FleetErrorCode from value: '" <> e
<> "'. Accepted values: domain_join_error_access_denied, domain_join_error_ds_machine_account_quota_exceeded, domain_join_error_file_not_found, domain_join_error_invalid_parameter, domain_join_error_logon_failure, domain_join_error_more_data, domain_join_error_no_such_domain, domain_join_error_not_supported, domain_join_internal_service_error, domain_join_nerr_invalid_workgroup_name, domain_join_nerr_password_expired, domain_join_nerr_workstation_not_started, iam_service_role_is_missing, iam_service_role_missing_describe_security_groups_action, iam_service_role_missing_describe_subnet_action, iam_service_role_missing_eni_create_action, iam_service_role_missing_eni_delete_action, iam_service_role_missing_eni_describe_action, igw_not_attached, image_not_found, internal_service_error, invalid_subnet_configuration, network_interface_limit_exceeded, security_groups_not_found, subnet_has_insufficient_ip_addresses, subnet_not_found"
instance ToText FleetErrorCode where
toText = \case
DomainJoinErrorAccessDenied -> "DOMAIN_JOIN_ERROR_ACCESS_DENIED"
DomainJoinErrorDsMachineAccountQuotaExceeded -> "DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED"
DomainJoinErrorFileNotFound -> "DOMAIN_JOIN_ERROR_FILE_NOT_FOUND"
DomainJoinErrorInvalidParameter -> "DOMAIN_JOIN_ERROR_INVALID_PARAMETER"
DomainJoinErrorLogonFailure -> "DOMAIN_JOIN_ERROR_LOGON_FAILURE"
DomainJoinErrorMoreData -> "DOMAIN_JOIN_ERROR_MORE_DATA"
DomainJoinErrorNoSuchDomain -> "DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN"
DomainJoinErrorNotSupported -> "DOMAIN_JOIN_ERROR_NOT_SUPPORTED"
DomainJoinInternalServiceError -> "DOMAIN_JOIN_INTERNAL_SERVICE_ERROR"
DomainJoinNerrInvalidWorkgroupName -> "DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME"
DomainJoinNerrPasswordExpired -> "DOMAIN_JOIN_NERR_PASSWORD_EXPIRED"
DomainJoinNerrWorkstationNotStarted -> "DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED"
IAMServiceRoleIsMissing -> "IAM_SERVICE_ROLE_IS_MISSING"
IAMServiceRoleMissingDescribeSecurityGroupsAction -> "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION"
IAMServiceRoleMissingDescribeSubnetAction -> "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION"
IAMServiceRoleMissingEniCreateAction -> "IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION"
IAMServiceRoleMissingEniDeleteAction -> "IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION"
IAMServiceRoleMissingEniDescribeAction -> "IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION"
IgwNotAttached -> "IGW_NOT_ATTACHED"
ImageNotFound -> "IMAGE_NOT_FOUND"
InternalServiceError -> "INTERNAL_SERVICE_ERROR"
InvalidSubnetConfiguration -> "INVALID_SUBNET_CONFIGURATION"
NetworkInterfaceLimitExceeded -> "NETWORK_INTERFACE_LIMIT_EXCEEDED"
SecurityGroupsNotFound -> "SECURITY_GROUPS_NOT_FOUND"
SubnetHasInsufficientIPAddresses -> "SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES"
SubnetNotFound -> "SUBNET_NOT_FOUND"
instance Hashable FleetErrorCode
instance NFData FleetErrorCode
instance ToByteString FleetErrorCode
instance ToQuery FleetErrorCode
instance ToHeader FleetErrorCode
instance FromJSON FleetErrorCode where
parseJSON = parseJSONText "FleetErrorCode"
data FleetState
= Running
| Starting
| Stopped
| Stopping
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText FleetState where
parser = takeLowerText >>= \case
"running" -> pure Running
"starting" -> pure Starting
"stopped" -> pure Stopped
"stopping" -> pure Stopping
e -> fromTextError $ "Failure parsing FleetState from value: '" <> e
<> "'. Accepted values: running, starting, stopped, stopping"
instance ToText FleetState where
toText = \case
Running -> "RUNNING"
Starting -> "STARTING"
Stopped -> "STOPPED"
Stopping -> "STOPPING"
instance Hashable FleetState
instance NFData FleetState
instance ToByteString FleetState
instance ToQuery FleetState
instance ToHeader FleetState
instance FromJSON FleetState where
parseJSON = parseJSONText "FleetState"
data FleetType
= AlwaysOn
| OnDemand
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText FleetType where
parser = takeLowerText >>= \case
"always_on" -> pure AlwaysOn
"on_demand" -> pure OnDemand
e -> fromTextError $ "Failure parsing FleetType from value: '" <> e
<> "'. Accepted values: always_on, on_demand"
instance ToText FleetType where
toText = \case
AlwaysOn -> "ALWAYS_ON"
OnDemand -> "ON_DEMAND"
instance Hashable FleetType
instance NFData FleetType
instance ToByteString FleetType
instance ToQuery FleetType
instance ToHeader FleetType
instance ToJSON FleetType where
toJSON = toJSONText
instance FromJSON FleetType where
parseJSON = parseJSONText "FleetType"
data ImageBuilderState
= IBSDeleting
| IBSFailed
| IBSPending
| IBSRebooting
| IBSRunning
| IBSSnapshotting
| IBSStopped
| IBSStopping
| IBSUpdatingAgent
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ImageBuilderState where
parser = takeLowerText >>= \case
"deleting" -> pure IBSDeleting
"failed" -> pure IBSFailed
"pending" -> pure IBSPending
"rebooting" -> pure IBSRebooting
"running" -> pure IBSRunning
"snapshotting" -> pure IBSSnapshotting
"stopped" -> pure IBSStopped
"stopping" -> pure IBSStopping
"updating_agent" -> pure IBSUpdatingAgent
e -> fromTextError $ "Failure parsing ImageBuilderState from value: '" <> e
<> "'. Accepted values: deleting, failed, pending, rebooting, running, snapshotting, stopped, stopping, updating_agent"
instance ToText ImageBuilderState where
toText = \case
IBSDeleting -> "DELETING"
IBSFailed -> "FAILED"
IBSPending -> "PENDING"
IBSRebooting -> "REBOOTING"
IBSRunning -> "RUNNING"
IBSSnapshotting -> "SNAPSHOTTING"
IBSStopped -> "STOPPED"
IBSStopping -> "STOPPING"
IBSUpdatingAgent -> "UPDATING_AGENT"
instance Hashable ImageBuilderState
instance NFData ImageBuilderState
instance ToByteString ImageBuilderState
instance ToQuery ImageBuilderState
instance ToHeader ImageBuilderState
instance FromJSON ImageBuilderState where
parseJSON = parseJSONText "ImageBuilderState"
data ImageBuilderStateChangeReasonCode
= ImageUnavailable
| InternalError
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ImageBuilderStateChangeReasonCode where
parser = takeLowerText >>= \case
"image_unavailable" -> pure ImageUnavailable
"internal_error" -> pure InternalError
e -> fromTextError $ "Failure parsing ImageBuilderStateChangeReasonCode from value: '" <> e
<> "'. Accepted values: image_unavailable, internal_error"
instance ToText ImageBuilderStateChangeReasonCode where
toText = \case
ImageUnavailable -> "IMAGE_UNAVAILABLE"
InternalError -> "INTERNAL_ERROR"
instance Hashable ImageBuilderStateChangeReasonCode
instance NFData ImageBuilderStateChangeReasonCode
instance ToByteString ImageBuilderStateChangeReasonCode
instance ToQuery ImageBuilderStateChangeReasonCode
instance ToHeader ImageBuilderStateChangeReasonCode
instance FromJSON ImageBuilderStateChangeReasonCode where
parseJSON = parseJSONText "ImageBuilderStateChangeReasonCode"
data ImageState
= ISAvailable
| ISCopying
| ISDeleting
| ISFailed
| ISPending
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ImageState where
parser = takeLowerText >>= \case
"available" -> pure ISAvailable
"copying" -> pure ISCopying
"deleting" -> pure ISDeleting
"failed" -> pure ISFailed
"pending" -> pure ISPending
e -> fromTextError $ "Failure parsing ImageState from value: '" <> e
<> "'. Accepted values: available, copying, deleting, failed, pending"
instance ToText ImageState where
toText = \case
ISAvailable -> "AVAILABLE"
ISCopying -> "COPYING"
ISDeleting -> "DELETING"
ISFailed -> "FAILED"
ISPending -> "PENDING"
instance Hashable ImageState
instance NFData ImageState
instance ToByteString ImageState
instance ToQuery ImageState
instance ToHeader ImageState
instance FromJSON ImageState where
parseJSON = parseJSONText "ImageState"
data ImageStateChangeReasonCode
= ISCRCImageBuilderNotAvailable
| ISCRCImageCopyFailure
| ISCRCInternalError
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ImageStateChangeReasonCode where
parser = takeLowerText >>= \case
"image_builder_not_available" -> pure ISCRCImageBuilderNotAvailable
"image_copy_failure" -> pure ISCRCImageCopyFailure
"internal_error" -> pure ISCRCInternalError
e -> fromTextError $ "Failure parsing ImageStateChangeReasonCode from value: '" <> e
<> "'. Accepted values: image_builder_not_available, image_copy_failure, internal_error"
instance ToText ImageStateChangeReasonCode where
toText = \case
ISCRCImageBuilderNotAvailable -> "IMAGE_BUILDER_NOT_AVAILABLE"
ISCRCImageCopyFailure -> "IMAGE_COPY_FAILURE"
ISCRCInternalError -> "INTERNAL_ERROR"
instance Hashable ImageStateChangeReasonCode
instance NFData ImageStateChangeReasonCode
instance ToByteString ImageStateChangeReasonCode
instance ToQuery ImageStateChangeReasonCode
instance ToHeader ImageStateChangeReasonCode
instance FromJSON ImageStateChangeReasonCode where
parseJSON = parseJSONText "ImageStateChangeReasonCode"
data PlatformType =
Windows
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText PlatformType where
parser = takeLowerText >>= \case
"windows" -> pure Windows
e -> fromTextError $ "Failure parsing PlatformType from value: '" <> e
<> "'. Accepted values: windows"
instance ToText PlatformType where
toText = \case
Windows -> "WINDOWS"
instance Hashable PlatformType
instance NFData PlatformType
instance ToByteString PlatformType
instance ToQuery PlatformType
instance ToHeader PlatformType
instance FromJSON PlatformType where
parseJSON = parseJSONText "PlatformType"
data SessionState
= Active
| Expired
| Pending
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText SessionState where
parser = takeLowerText >>= \case
"active" -> pure Active
"expired" -> pure Expired
"pending" -> pure Pending
e -> fromTextError $ "Failure parsing SessionState from value: '" <> e
<> "'. Accepted values: active, expired, pending"
instance ToText SessionState where
toText = \case
Active -> "ACTIVE"
Expired -> "EXPIRED"
Pending -> "PENDING"
instance Hashable SessionState
instance NFData SessionState
instance ToByteString SessionState
instance ToQuery SessionState
instance ToHeader SessionState
instance FromJSON SessionState where
parseJSON = parseJSONText "SessionState"
data StackAttribute
= FeedbackURL
| RedirectURL
| StorageConnectors
| ThemeName
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText StackAttribute where
parser = takeLowerText >>= \case
"feedback_url" -> pure FeedbackURL
"redirect_url" -> pure RedirectURL
"storage_connectors" -> pure StorageConnectors
"theme_name" -> pure ThemeName
e -> fromTextError $ "Failure parsing StackAttribute from value: '" <> e
<> "'. Accepted values: feedback_url, redirect_url, storage_connectors, theme_name"
instance ToText StackAttribute where
toText = \case
FeedbackURL -> "FEEDBACK_URL"
RedirectURL -> "REDIRECT_URL"
StorageConnectors -> "STORAGE_CONNECTORS"
ThemeName -> "THEME_NAME"
instance Hashable StackAttribute
instance NFData StackAttribute
instance ToByteString StackAttribute
instance ToQuery StackAttribute
instance ToHeader StackAttribute
instance ToJSON StackAttribute where
toJSON = toJSONText
data StackErrorCode
= SECInternalServiceError
| SECStorageConnectorError
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText StackErrorCode where
parser = takeLowerText >>= \case
"internal_service_error" -> pure SECInternalServiceError
"storage_connector_error" -> pure SECStorageConnectorError
e -> fromTextError $ "Failure parsing StackErrorCode from value: '" <> e
<> "'. Accepted values: internal_service_error, storage_connector_error"
instance ToText StackErrorCode where
toText = \case
SECInternalServiceError -> "INTERNAL_SERVICE_ERROR"
SECStorageConnectorError -> "STORAGE_CONNECTOR_ERROR"
instance Hashable StackErrorCode
instance NFData StackErrorCode
instance ToByteString StackErrorCode
instance ToQuery StackErrorCode
instance ToHeader StackErrorCode
instance FromJSON StackErrorCode where
parseJSON = parseJSONText "StackErrorCode"
data StorageConnectorType =
Homefolders
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText StorageConnectorType where
parser = takeLowerText >>= \case
"homefolders" -> pure Homefolders
e -> fromTextError $ "Failure parsing StorageConnectorType from value: '" <> e
<> "'. Accepted values: homefolders"
instance ToText StorageConnectorType where
toText = \case
Homefolders -> "HOMEFOLDERS"
instance Hashable StorageConnectorType
instance NFData StorageConnectorType
instance ToByteString StorageConnectorType
instance ToQuery StorageConnectorType
instance ToHeader StorageConnectorType
instance ToJSON StorageConnectorType where
toJSON = toJSONText
instance FromJSON StorageConnectorType where
parseJSON = parseJSONText "StorageConnectorType"
data VisibilityType
= Private
| Public
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText VisibilityType where
parser = takeLowerText >>= \case
"private" -> pure Private
"public" -> pure Public
e -> fromTextError $ "Failure parsing VisibilityType from value: '" <> e
<> "'. Accepted values: private, public"
instance ToText VisibilityType where
toText = \case
Private -> "PRIVATE"
Public -> "PUBLIC"
instance Hashable VisibilityType
instance NFData VisibilityType
instance ToByteString VisibilityType
instance ToQuery VisibilityType
instance ToHeader VisibilityType
instance FromJSON VisibilityType where
parseJSON = parseJSONText "VisibilityType"