module Network.AWS.ServiceCatalog.Types.Sum where
import Network.AWS.Prelude
data AccessLevelFilterKey
= Account
| Role
| User
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText AccessLevelFilterKey where
parser = takeLowerText >>= \case
"account" -> pure Account
"role" -> pure Role
"user" -> pure User
e -> fromTextError $ "Failure parsing AccessLevelFilterKey from value: '" <> e
<> "'. Accepted values: account, role, user"
instance ToText AccessLevelFilterKey where
toText = \case
Account -> "Account"
Role -> "Role"
User -> "User"
instance Hashable AccessLevelFilterKey
instance NFData AccessLevelFilterKey
instance ToByteString AccessLevelFilterKey
instance ToQuery AccessLevelFilterKey
instance ToHeader AccessLevelFilterKey
instance ToJSON AccessLevelFilterKey where
toJSON = toJSONText
data CopyOption =
CopyTags
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText CopyOption where
parser = takeLowerText >>= \case
"copytags" -> pure CopyTags
e -> fromTextError $ "Failure parsing CopyOption from value: '" <> e
<> "'. Accepted values: copytags"
instance ToText CopyOption where
toText = \case
CopyTags -> "CopyTags"
instance Hashable CopyOption
instance NFData CopyOption
instance ToByteString CopyOption
instance ToQuery CopyOption
instance ToHeader CopyOption
instance ToJSON CopyOption where
toJSON = toJSONText
data CopyProductStatus
= CPSFailed
| CPSInProgress
| CPSSucceeded
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText CopyProductStatus where
parser = takeLowerText >>= \case
"failed" -> pure CPSFailed
"in_progress" -> pure CPSInProgress
"succeeded" -> pure CPSSucceeded
e -> fromTextError $ "Failure parsing CopyProductStatus from value: '" <> e
<> "'. Accepted values: failed, in_progress, succeeded"
instance ToText CopyProductStatus where
toText = \case
CPSFailed -> "FAILED"
CPSInProgress -> "IN_PROGRESS"
CPSSucceeded -> "SUCCEEDED"
instance Hashable CopyProductStatus
instance NFData CopyProductStatus
instance ToByteString CopyProductStatus
instance ToQuery CopyProductStatus
instance ToHeader CopyProductStatus
instance FromJSON CopyProductStatus where
parseJSON = parseJSONText "CopyProductStatus"
data PrincipalType =
IAM
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText PrincipalType where
parser = takeLowerText >>= \case
"iam" -> pure IAM
e -> fromTextError $ "Failure parsing PrincipalType from value: '" <> e
<> "'. Accepted values: iam"
instance ToText PrincipalType where
toText = \case
IAM -> "IAM"
instance Hashable PrincipalType
instance NFData PrincipalType
instance ToByteString PrincipalType
instance ToQuery PrincipalType
instance ToHeader PrincipalType
instance ToJSON PrincipalType where
toJSON = toJSONText
instance FromJSON PrincipalType where
parseJSON = parseJSONText "PrincipalType"
data ProductSource =
PSAccount
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProductSource where
parser = takeLowerText >>= \case
"account" -> pure PSAccount
e -> fromTextError $ "Failure parsing ProductSource from value: '" <> e
<> "'. Accepted values: account"
instance ToText ProductSource where
toText = \case
PSAccount -> "ACCOUNT"
instance Hashable ProductSource
instance NFData ProductSource
instance ToByteString ProductSource
instance ToQuery ProductSource
instance ToHeader ProductSource
instance ToJSON ProductSource where
toJSON = toJSONText
data ProductType
= CloudFormationTemplate
| Marketplace
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProductType where
parser = takeLowerText >>= \case
"cloud_formation_template" -> pure CloudFormationTemplate
"marketplace" -> pure Marketplace
e -> fromTextError $ "Failure parsing ProductType from value: '" <> e
<> "'. Accepted values: cloud_formation_template, marketplace"
instance ToText ProductType where
toText = \case
CloudFormationTemplate -> "CLOUD_FORMATION_TEMPLATE"
Marketplace -> "MARKETPLACE"
instance Hashable ProductType
instance NFData ProductType
instance ToByteString ProductType
instance ToQuery ProductType
instance ToHeader ProductType
instance ToJSON ProductType where
toJSON = toJSONText
instance FromJSON ProductType where
parseJSON = parseJSONText "ProductType"
data ProductViewFilterBy
= FullTextSearch
| Owner
| ProductType
| SourceProductId
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProductViewFilterBy where
parser = takeLowerText >>= \case
"fulltextsearch" -> pure FullTextSearch
"owner" -> pure Owner
"producttype" -> pure ProductType
"sourceproductid" -> pure SourceProductId
e -> fromTextError $ "Failure parsing ProductViewFilterBy from value: '" <> e
<> "'. Accepted values: fulltextsearch, owner, producttype, sourceproductid"
instance ToText ProductViewFilterBy where
toText = \case
FullTextSearch -> "FullTextSearch"
Owner -> "Owner"
ProductType -> "ProductType"
SourceProductId -> "SourceProductId"
instance Hashable ProductViewFilterBy
instance NFData ProductViewFilterBy
instance ToByteString ProductViewFilterBy
instance ToQuery ProductViewFilterBy
instance ToHeader ProductViewFilterBy
instance ToJSON ProductViewFilterBy where
toJSON = toJSONText
data ProductViewSortBy
= CreationDate
| Title
| VersionCount
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProductViewSortBy where
parser = takeLowerText >>= \case
"creationdate" -> pure CreationDate
"title" -> pure Title
"versioncount" -> pure VersionCount
e -> fromTextError $ "Failure parsing ProductViewSortBy from value: '" <> e
<> "'. Accepted values: creationdate, title, versioncount"
instance ToText ProductViewSortBy where
toText = \case
CreationDate -> "CreationDate"
Title -> "Title"
VersionCount -> "VersionCount"
instance Hashable ProductViewSortBy
instance NFData ProductViewSortBy
instance ToByteString ProductViewSortBy
instance ToQuery ProductViewSortBy
instance ToHeader ProductViewSortBy
instance ToJSON ProductViewSortBy where
toJSON = toJSONText
data ProvisionedProductStatus
= PPSAvailable
| PPSError'
| PPSTainted
| PPSUnderChange
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProvisionedProductStatus where
parser = takeLowerText >>= \case
"available" -> pure PPSAvailable
"error" -> pure PPSError'
"tainted" -> pure PPSTainted
"under_change" -> pure PPSUnderChange
e -> fromTextError $ "Failure parsing ProvisionedProductStatus from value: '" <> e
<> "'. Accepted values: available, error, tainted, under_change"
instance ToText ProvisionedProductStatus where
toText = \case
PPSAvailable -> "AVAILABLE"
PPSError' -> "ERROR"
PPSTainted -> "TAINTED"
PPSUnderChange -> "UNDER_CHANGE"
instance Hashable ProvisionedProductStatus
instance NFData ProvisionedProductStatus
instance ToByteString ProvisionedProductStatus
instance ToQuery ProvisionedProductStatus
instance ToHeader ProvisionedProductStatus
instance FromJSON ProvisionedProductStatus where
parseJSON = parseJSONText "ProvisionedProductStatus"
data ProvisioningArtifactPropertyName =
Id
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProvisioningArtifactPropertyName where
parser = takeLowerText >>= \case
"id" -> pure Id
e -> fromTextError $ "Failure parsing ProvisioningArtifactPropertyName from value: '" <> e
<> "'. Accepted values: id"
instance ToText ProvisioningArtifactPropertyName where
toText = \case
Id -> "Id"
instance Hashable ProvisioningArtifactPropertyName
instance NFData ProvisioningArtifactPropertyName
instance ToByteString ProvisioningArtifactPropertyName
instance ToQuery ProvisioningArtifactPropertyName
instance ToHeader ProvisioningArtifactPropertyName
instance ToJSON ProvisioningArtifactPropertyName where
toJSON = toJSONText
data ProvisioningArtifactType
= PATCloudFormationTemplate
| PATMarketplaceAMI
| PATMarketplaceCar
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ProvisioningArtifactType where
parser = takeLowerText >>= \case
"cloud_formation_template" -> pure PATCloudFormationTemplate
"marketplace_ami" -> pure PATMarketplaceAMI
"marketplace_car" -> pure PATMarketplaceCar
e -> fromTextError $ "Failure parsing ProvisioningArtifactType from value: '" <> e
<> "'. Accepted values: cloud_formation_template, marketplace_ami, marketplace_car"
instance ToText ProvisioningArtifactType where
toText = \case
PATCloudFormationTemplate -> "CLOUD_FORMATION_TEMPLATE"
PATMarketplaceAMI -> "MARKETPLACE_AMI"
PATMarketplaceCar -> "MARKETPLACE_CAR"
instance Hashable ProvisioningArtifactType
instance NFData ProvisioningArtifactType
instance ToByteString ProvisioningArtifactType
instance ToQuery ProvisioningArtifactType
instance ToHeader ProvisioningArtifactType
instance ToJSON ProvisioningArtifactType where
toJSON = toJSONText
instance FromJSON ProvisioningArtifactType where
parseJSON = parseJSONText "ProvisioningArtifactType"
data RecordStatus
= RSCreated
| RSFailed
| RSInProgress
| RSInProgressInError
| RSSucceeded
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText RecordStatus where
parser = takeLowerText >>= \case
"created" -> pure RSCreated
"failed" -> pure RSFailed
"in_progress" -> pure RSInProgress
"in_progress_in_error" -> pure RSInProgressInError
"succeeded" -> pure RSSucceeded
e -> fromTextError $ "Failure parsing RecordStatus from value: '" <> e
<> "'. Accepted values: created, failed, in_progress, in_progress_in_error, succeeded"
instance ToText RecordStatus where
toText = \case
RSCreated -> "CREATED"
RSFailed -> "FAILED"
RSInProgress -> "IN_PROGRESS"
RSInProgressInError -> "IN_PROGRESS_IN_ERROR"
RSSucceeded -> "SUCCEEDED"
instance Hashable RecordStatus
instance NFData RecordStatus
instance ToByteString RecordStatus
instance ToQuery RecordStatus
instance ToHeader RecordStatus
instance FromJSON RecordStatus where
parseJSON = parseJSONText "RecordStatus"
data RequestStatus
= Available
| Creating
| Failed
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText RequestStatus where
parser = takeLowerText >>= \case
"available" -> pure Available
"creating" -> pure Creating
"failed" -> pure Failed
e -> fromTextError $ "Failure parsing RequestStatus from value: '" <> e
<> "'. Accepted values: available, creating, failed"
instance ToText RequestStatus where
toText = \case
Available -> "AVAILABLE"
Creating -> "CREATING"
Failed -> "FAILED"
instance Hashable RequestStatus
instance NFData RequestStatus
instance ToByteString RequestStatus
instance ToQuery RequestStatus
instance ToHeader RequestStatus
instance FromJSON RequestStatus where
parseJSON = parseJSONText "RequestStatus"
data SortOrder
= Ascending
| Descending
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText SortOrder where
parser = takeLowerText >>= \case
"ascending" -> pure Ascending
"descending" -> pure Descending
e -> fromTextError $ "Failure parsing SortOrder from value: '" <> e
<> "'. Accepted values: ascending, descending"
instance ToText SortOrder where
toText = \case
Ascending -> "ASCENDING"
Descending -> "DESCENDING"
instance Hashable SortOrder
instance NFData SortOrder
instance ToByteString SortOrder
instance ToQuery SortOrder
instance ToHeader SortOrder
instance ToJSON SortOrder where
toJSON = toJSONText