{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.Redshift.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Redshift.Internal
import Network.AWS.Redshift.Types.Sum
data AccountWithRestoreAccess = AccountWithRestoreAccess'
{ _awraAccountAlias :: !(Maybe Text)
, _awraAccountId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
accountWithRestoreAccess
:: AccountWithRestoreAccess
accountWithRestoreAccess =
AccountWithRestoreAccess'
{_awraAccountAlias = Nothing, _awraAccountId = Nothing}
awraAccountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)
awraAccountAlias = lens _awraAccountAlias (\ s a -> s{_awraAccountAlias = a})
awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)
awraAccountId = lens _awraAccountId (\ s a -> s{_awraAccountId = a})
instance FromXML AccountWithRestoreAccess where
parseXML x
= AccountWithRestoreAccess' <$>
(x .@? "AccountAlias") <*> (x .@? "AccountId")
instance Hashable AccountWithRestoreAccess where
instance NFData AccountWithRestoreAccess where
data AvailabilityZone = AvailabilityZone'
{ _azName :: !(Maybe Text)
, _azSupportedPlatforms :: !(Maybe [SupportedPlatform])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
availabilityZone
:: AvailabilityZone
availabilityZone =
AvailabilityZone' {_azName = Nothing, _azSupportedPlatforms = Nothing}
azName :: Lens' AvailabilityZone (Maybe Text)
azName = lens _azName (\ s a -> s{_azName = a})
azSupportedPlatforms :: Lens' AvailabilityZone [SupportedPlatform]
azSupportedPlatforms = lens _azSupportedPlatforms (\ s a -> s{_azSupportedPlatforms = a}) . _Default . _Coerce
instance FromXML AvailabilityZone where
parseXML x
= AvailabilityZone' <$>
(x .@? "Name") <*>
(x .@? "SupportedPlatforms" .!@ mempty >>=
may (parseXMLList "SupportedPlatform"))
instance Hashable AvailabilityZone where
instance NFData AvailabilityZone where
data Cluster = Cluster'
{ _cRestoreStatus :: !(Maybe RestoreStatus)
, _cEnhancedVPCRouting :: !(Maybe Bool)
, _cClusterSnapshotCopyStatus :: !(Maybe ClusterSnapshotCopyStatus)
, _cClusterRevisionNumber :: !(Maybe Text)
, _cPubliclyAccessible :: !(Maybe Bool)
, _cMasterUsername :: !(Maybe Text)
, _cVPCId :: !(Maybe Text)
, _cClusterSecurityGroups :: !(Maybe [ClusterSecurityGroupMembership])
, _cAutomatedSnapshotRetentionPeriod :: !(Maybe Int)
, _cEncrypted :: !(Maybe Bool)
, _cClusterSubnetGroupName :: !(Maybe Text)
, _cClusterIdentifier :: !(Maybe Text)
, _cNumberOfNodes :: !(Maybe Int)
, _cClusterPublicKey :: !(Maybe Text)
, _cPreferredMaintenanceWindow :: !(Maybe Text)
, _cModifyStatus :: !(Maybe Text)
, _cKMSKeyId :: !(Maybe Text)
, _cClusterParameterGroups :: !(Maybe [ClusterParameterGroupStatus])
, _cAvailabilityZone :: !(Maybe Text)
, _cVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])
, _cHSMStatus :: !(Maybe HSMStatus)
, _cIAMRoles :: !(Maybe [ClusterIAMRole])
, _cElasticIPStatus :: !(Maybe ElasticIPStatus)
, _cClusterVersion :: !(Maybe Text)
, _cNodeType :: !(Maybe Text)
, _cClusterCreateTime :: !(Maybe ISO8601)
, _cEndpoint :: !(Maybe Endpoint)
, _cAllowVersionUpgrade :: !(Maybe Bool)
, _cClusterStatus :: !(Maybe Text)
, _cPendingModifiedValues :: !(Maybe PendingModifiedValues)
, _cTags :: !(Maybe [Tag])
, _cClusterNodes :: !(Maybe [ClusterNode])
, _cDBName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
cluster
:: Cluster
cluster =
Cluster'
{ _cRestoreStatus = Nothing
, _cEnhancedVPCRouting = Nothing
, _cClusterSnapshotCopyStatus = Nothing
, _cClusterRevisionNumber = Nothing
, _cPubliclyAccessible = Nothing
, _cMasterUsername = Nothing
, _cVPCId = Nothing
, _cClusterSecurityGroups = Nothing
, _cAutomatedSnapshotRetentionPeriod = Nothing
, _cEncrypted = Nothing
, _cClusterSubnetGroupName = Nothing
, _cClusterIdentifier = Nothing
, _cNumberOfNodes = Nothing
, _cClusterPublicKey = Nothing
, _cPreferredMaintenanceWindow = Nothing
, _cModifyStatus = Nothing
, _cKMSKeyId = Nothing
, _cClusterParameterGroups = Nothing
, _cAvailabilityZone = Nothing
, _cVPCSecurityGroups = Nothing
, _cHSMStatus = Nothing
, _cIAMRoles = Nothing
, _cElasticIPStatus = Nothing
, _cClusterVersion = Nothing
, _cNodeType = Nothing
, _cClusterCreateTime = Nothing
, _cEndpoint = Nothing
, _cAllowVersionUpgrade = Nothing
, _cClusterStatus = Nothing
, _cPendingModifiedValues = Nothing
, _cTags = Nothing
, _cClusterNodes = Nothing
, _cDBName = Nothing
}
cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)
cRestoreStatus = lens _cRestoreStatus (\ s a -> s{_cRestoreStatus = a})
cEnhancedVPCRouting :: Lens' Cluster (Maybe Bool)
cEnhancedVPCRouting = lens _cEnhancedVPCRouting (\ s a -> s{_cEnhancedVPCRouting = a})
cClusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)
cClusterSnapshotCopyStatus = lens _cClusterSnapshotCopyStatus (\ s a -> s{_cClusterSnapshotCopyStatus = a})
cClusterRevisionNumber :: Lens' Cluster (Maybe Text)
cClusterRevisionNumber = lens _cClusterRevisionNumber (\ s a -> s{_cClusterRevisionNumber = a})
cPubliclyAccessible :: Lens' Cluster (Maybe Bool)
cPubliclyAccessible = lens _cPubliclyAccessible (\ s a -> s{_cPubliclyAccessible = a})
cMasterUsername :: Lens' Cluster (Maybe Text)
cMasterUsername = lens _cMasterUsername (\ s a -> s{_cMasterUsername = a})
cVPCId :: Lens' Cluster (Maybe Text)
cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a})
cClusterSecurityGroups :: Lens' Cluster [ClusterSecurityGroupMembership]
cClusterSecurityGroups = lens _cClusterSecurityGroups (\ s a -> s{_cClusterSecurityGroups = a}) . _Default . _Coerce
cAutomatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)
cAutomatedSnapshotRetentionPeriod = lens _cAutomatedSnapshotRetentionPeriod (\ s a -> s{_cAutomatedSnapshotRetentionPeriod = a})
cEncrypted :: Lens' Cluster (Maybe Bool)
cEncrypted = lens _cEncrypted (\ s a -> s{_cEncrypted = a})
cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)
cClusterSubnetGroupName = lens _cClusterSubnetGroupName (\ s a -> s{_cClusterSubnetGroupName = a})
cClusterIdentifier :: Lens' Cluster (Maybe Text)
cClusterIdentifier = lens _cClusterIdentifier (\ s a -> s{_cClusterIdentifier = a})
cNumberOfNodes :: Lens' Cluster (Maybe Int)
cNumberOfNodes = lens _cNumberOfNodes (\ s a -> s{_cNumberOfNodes = a})
cClusterPublicKey :: Lens' Cluster (Maybe Text)
cClusterPublicKey = lens _cClusterPublicKey (\ s a -> s{_cClusterPublicKey = a})
cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)
cPreferredMaintenanceWindow = lens _cPreferredMaintenanceWindow (\ s a -> s{_cPreferredMaintenanceWindow = a})
cModifyStatus :: Lens' Cluster (Maybe Text)
cModifyStatus = lens _cModifyStatus (\ s a -> s{_cModifyStatus = a})
cKMSKeyId :: Lens' Cluster (Maybe Text)
cKMSKeyId = lens _cKMSKeyId (\ s a -> s{_cKMSKeyId = a})
cClusterParameterGroups :: Lens' Cluster [ClusterParameterGroupStatus]
cClusterParameterGroups = lens _cClusterParameterGroups (\ s a -> s{_cClusterParameterGroups = a}) . _Default . _Coerce
cAvailabilityZone :: Lens' Cluster (Maybe Text)
cAvailabilityZone = lens _cAvailabilityZone (\ s a -> s{_cAvailabilityZone = a})
cVPCSecurityGroups :: Lens' Cluster [VPCSecurityGroupMembership]
cVPCSecurityGroups = lens _cVPCSecurityGroups (\ s a -> s{_cVPCSecurityGroups = a}) . _Default . _Coerce
cHSMStatus :: Lens' Cluster (Maybe HSMStatus)
cHSMStatus = lens _cHSMStatus (\ s a -> s{_cHSMStatus = a})
cIAMRoles :: Lens' Cluster [ClusterIAMRole]
cIAMRoles = lens _cIAMRoles (\ s a -> s{_cIAMRoles = a}) . _Default . _Coerce
cElasticIPStatus :: Lens' Cluster (Maybe ElasticIPStatus)
cElasticIPStatus = lens _cElasticIPStatus (\ s a -> s{_cElasticIPStatus = a})
cClusterVersion :: Lens' Cluster (Maybe Text)
cClusterVersion = lens _cClusterVersion (\ s a -> s{_cClusterVersion = a})
cNodeType :: Lens' Cluster (Maybe Text)
cNodeType = lens _cNodeType (\ s a -> s{_cNodeType = a})
cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)
cClusterCreateTime = lens _cClusterCreateTime (\ s a -> s{_cClusterCreateTime = a}) . mapping _Time
cEndpoint :: Lens' Cluster (Maybe Endpoint)
cEndpoint = lens _cEndpoint (\ s a -> s{_cEndpoint = a})
cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)
cAllowVersionUpgrade = lens _cAllowVersionUpgrade (\ s a -> s{_cAllowVersionUpgrade = a})
cClusterStatus :: Lens' Cluster (Maybe Text)
cClusterStatus = lens _cClusterStatus (\ s a -> s{_cClusterStatus = a})
cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
cPendingModifiedValues = lens _cPendingModifiedValues (\ s a -> s{_cPendingModifiedValues = a})
cTags :: Lens' Cluster [Tag]
cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce
cClusterNodes :: Lens' Cluster [ClusterNode]
cClusterNodes = lens _cClusterNodes (\ s a -> s{_cClusterNodes = a}) . _Default . _Coerce
cDBName :: Lens' Cluster (Maybe Text)
cDBName = lens _cDBName (\ s a -> s{_cDBName = a})
instance FromXML Cluster where
parseXML x
= Cluster' <$>
(x .@? "RestoreStatus") <*>
(x .@? "EnhancedVpcRouting")
<*> (x .@? "ClusterSnapshotCopyStatus")
<*> (x .@? "ClusterRevisionNumber")
<*> (x .@? "PubliclyAccessible")
<*> (x .@? "MasterUsername")
<*> (x .@? "VpcId")
<*>
(x .@? "ClusterSecurityGroups" .!@ mempty >>=
may (parseXMLList "ClusterSecurityGroup"))
<*> (x .@? "AutomatedSnapshotRetentionPeriod")
<*> (x .@? "Encrypted")
<*> (x .@? "ClusterSubnetGroupName")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "NumberOfNodes")
<*> (x .@? "ClusterPublicKey")
<*> (x .@? "PreferredMaintenanceWindow")
<*> (x .@? "ModifyStatus")
<*> (x .@? "KmsKeyId")
<*>
(x .@? "ClusterParameterGroups" .!@ mempty >>=
may (parseXMLList "ClusterParameterGroup"))
<*> (x .@? "AvailabilityZone")
<*>
(x .@? "VpcSecurityGroups" .!@ mempty >>=
may (parseXMLList "VpcSecurityGroup"))
<*> (x .@? "HsmStatus")
<*>
(x .@? "IamRoles" .!@ mempty >>=
may (parseXMLList "ClusterIamRole"))
<*> (x .@? "ElasticIpStatus")
<*> (x .@? "ClusterVersion")
<*> (x .@? "NodeType")
<*> (x .@? "ClusterCreateTime")
<*> (x .@? "Endpoint")
<*> (x .@? "AllowVersionUpgrade")
<*> (x .@? "ClusterStatus")
<*> (x .@? "PendingModifiedValues")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*>
(x .@? "ClusterNodes" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "DBName")
instance Hashable Cluster where
instance NFData Cluster where
data ClusterIAMRole = ClusterIAMRole'
{ _cirIAMRoleARN :: !(Maybe Text)
, _cirApplyStatus :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterIAMRole
:: ClusterIAMRole
clusterIAMRole =
ClusterIAMRole' {_cirIAMRoleARN = Nothing, _cirApplyStatus = Nothing}
cirIAMRoleARN :: Lens' ClusterIAMRole (Maybe Text)
cirIAMRoleARN = lens _cirIAMRoleARN (\ s a -> s{_cirIAMRoleARN = a})
cirApplyStatus :: Lens' ClusterIAMRole (Maybe Text)
cirApplyStatus = lens _cirApplyStatus (\ s a -> s{_cirApplyStatus = a})
instance FromXML ClusterIAMRole where
parseXML x
= ClusterIAMRole' <$>
(x .@? "IamRoleArn") <*> (x .@? "ApplyStatus")
instance Hashable ClusterIAMRole where
instance NFData ClusterIAMRole where
data ClusterNode = ClusterNode'
{ _cnNodeRole :: !(Maybe Text)
, _cnPrivateIPAddress :: !(Maybe Text)
, _cnPublicIPAddress :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterNode
:: ClusterNode
clusterNode =
ClusterNode'
{ _cnNodeRole = Nothing
, _cnPrivateIPAddress = Nothing
, _cnPublicIPAddress = Nothing
}
cnNodeRole :: Lens' ClusterNode (Maybe Text)
cnNodeRole = lens _cnNodeRole (\ s a -> s{_cnNodeRole = a})
cnPrivateIPAddress :: Lens' ClusterNode (Maybe Text)
cnPrivateIPAddress = lens _cnPrivateIPAddress (\ s a -> s{_cnPrivateIPAddress = a})
cnPublicIPAddress :: Lens' ClusterNode (Maybe Text)
cnPublicIPAddress = lens _cnPublicIPAddress (\ s a -> s{_cnPublicIPAddress = a})
instance FromXML ClusterNode where
parseXML x
= ClusterNode' <$>
(x .@? "NodeRole") <*> (x .@? "PrivateIPAddress") <*>
(x .@? "PublicIPAddress")
instance Hashable ClusterNode where
instance NFData ClusterNode where
data ClusterParameterGroup = ClusterParameterGroup'
{ _cpgParameterGroupFamily :: !(Maybe Text)
, _cpgDescription :: !(Maybe Text)
, _cpgTags :: !(Maybe [Tag])
, _cpgParameterGroupName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterParameterGroup
:: ClusterParameterGroup
clusterParameterGroup =
ClusterParameterGroup'
{ _cpgParameterGroupFamily = Nothing
, _cpgDescription = Nothing
, _cpgTags = Nothing
, _cpgParameterGroupName = Nothing
}
cpgParameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)
cpgParameterGroupFamily = lens _cpgParameterGroupFamily (\ s a -> s{_cpgParameterGroupFamily = a})
cpgDescription :: Lens' ClusterParameterGroup (Maybe Text)
cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a})
cpgTags :: Lens' ClusterParameterGroup [Tag]
cpgTags = lens _cpgTags (\ s a -> s{_cpgTags = a}) . _Default . _Coerce
cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a})
instance FromXML ClusterParameterGroup where
parseXML x
= ClusterParameterGroup' <$>
(x .@? "ParameterGroupFamily") <*>
(x .@? "Description")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*> (x .@? "ParameterGroupName")
instance Hashable ClusterParameterGroup where
instance NFData ClusterParameterGroup where
data ClusterParameterGroupNameMessage = ClusterParameterGroupNameMessage'
{ _cpgnmParameterGroupStatus :: !(Maybe Text)
, _cpgnmParameterGroupName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterParameterGroupNameMessage
:: ClusterParameterGroupNameMessage
clusterParameterGroupNameMessage =
ClusterParameterGroupNameMessage'
{_cpgnmParameterGroupStatus = Nothing, _cpgnmParameterGroupName = Nothing}
cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
cpgnmParameterGroupStatus = lens _cpgnmParameterGroupStatus (\ s a -> s{_cpgnmParameterGroupStatus = a})
cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)
cpgnmParameterGroupName = lens _cpgnmParameterGroupName (\ s a -> s{_cpgnmParameterGroupName = a})
instance FromXML ClusterParameterGroupNameMessage
where
parseXML x
= ClusterParameterGroupNameMessage' <$>
(x .@? "ParameterGroupStatus") <*>
(x .@? "ParameterGroupName")
instance Hashable ClusterParameterGroupNameMessage
where
instance NFData ClusterParameterGroupNameMessage
where
data ClusterParameterGroupStatus = ClusterParameterGroupStatus'
{ _cpgsClusterParameterStatusList :: !(Maybe [ClusterParameterStatus])
, _cpgsParameterApplyStatus :: !(Maybe Text)
, _cpgsParameterGroupName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterParameterGroupStatus
:: ClusterParameterGroupStatus
clusterParameterGroupStatus =
ClusterParameterGroupStatus'
{ _cpgsClusterParameterStatusList = Nothing
, _cpgsParameterApplyStatus = Nothing
, _cpgsParameterGroupName = Nothing
}
cpgsClusterParameterStatusList :: Lens' ClusterParameterGroupStatus [ClusterParameterStatus]
cpgsClusterParameterStatusList = lens _cpgsClusterParameterStatusList (\ s a -> s{_cpgsClusterParameterStatusList = a}) . _Default . _Coerce
cpgsParameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)
cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a})
cpgsParameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)
cpgsParameterGroupName = lens _cpgsParameterGroupName (\ s a -> s{_cpgsParameterGroupName = a})
instance FromXML ClusterParameterGroupStatus where
parseXML x
= ClusterParameterGroupStatus' <$>
(x .@? "ClusterParameterStatusList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "ParameterApplyStatus")
<*> (x .@? "ParameterGroupName")
instance Hashable ClusterParameterGroupStatus where
instance NFData ClusterParameterGroupStatus where
data ClusterParameterStatus = ClusterParameterStatus'
{ _cpsParameterApplyErrorDescription :: !(Maybe Text)
, _cpsParameterName :: !(Maybe Text)
, _cpsParameterApplyStatus :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterParameterStatus
:: ClusterParameterStatus
clusterParameterStatus =
ClusterParameterStatus'
{ _cpsParameterApplyErrorDescription = Nothing
, _cpsParameterName = Nothing
, _cpsParameterApplyStatus = Nothing
}
cpsParameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)
cpsParameterApplyErrorDescription = lens _cpsParameterApplyErrorDescription (\ s a -> s{_cpsParameterApplyErrorDescription = a})
cpsParameterName :: Lens' ClusterParameterStatus (Maybe Text)
cpsParameterName = lens _cpsParameterName (\ s a -> s{_cpsParameterName = a})
cpsParameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)
cpsParameterApplyStatus = lens _cpsParameterApplyStatus (\ s a -> s{_cpsParameterApplyStatus = a})
instance FromXML ClusterParameterStatus where
parseXML x
= ClusterParameterStatus' <$>
(x .@? "ParameterApplyErrorDescription") <*>
(x .@? "ParameterName")
<*> (x .@? "ParameterApplyStatus")
instance Hashable ClusterParameterStatus where
instance NFData ClusterParameterStatus where
data ClusterSecurityGroup = ClusterSecurityGroup'
{ _cluClusterSecurityGroupName :: !(Maybe Text)
, _cluIPRanges :: !(Maybe [IPRange])
, _cluEC2SecurityGroups :: !(Maybe [EC2SecurityGroup])
, _cluDescription :: !(Maybe Text)
, _cluTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterSecurityGroup
:: ClusterSecurityGroup
clusterSecurityGroup =
ClusterSecurityGroup'
{ _cluClusterSecurityGroupName = Nothing
, _cluIPRanges = Nothing
, _cluEC2SecurityGroups = Nothing
, _cluDescription = Nothing
, _cluTags = Nothing
}
cluClusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)
cluClusterSecurityGroupName = lens _cluClusterSecurityGroupName (\ s a -> s{_cluClusterSecurityGroupName = a})
cluIPRanges :: Lens' ClusterSecurityGroup [IPRange]
cluIPRanges = lens _cluIPRanges (\ s a -> s{_cluIPRanges = a}) . _Default . _Coerce
cluEC2SecurityGroups :: Lens' ClusterSecurityGroup [EC2SecurityGroup]
cluEC2SecurityGroups = lens _cluEC2SecurityGroups (\ s a -> s{_cluEC2SecurityGroups = a}) . _Default . _Coerce
cluDescription :: Lens' ClusterSecurityGroup (Maybe Text)
cluDescription = lens _cluDescription (\ s a -> s{_cluDescription = a})
cluTags :: Lens' ClusterSecurityGroup [Tag]
cluTags = lens _cluTags (\ s a -> s{_cluTags = a}) . _Default . _Coerce
instance FromXML ClusterSecurityGroup where
parseXML x
= ClusterSecurityGroup' <$>
(x .@? "ClusterSecurityGroupName") <*>
(x .@? "IPRanges" .!@ mempty >>=
may (parseXMLList "IPRange"))
<*>
(x .@? "EC2SecurityGroups" .!@ mempty >>=
may (parseXMLList "EC2SecurityGroup"))
<*> (x .@? "Description")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
instance Hashable ClusterSecurityGroup where
instance NFData ClusterSecurityGroup where
data ClusterSecurityGroupMembership = ClusterSecurityGroupMembership'
{ _csgmStatus :: !(Maybe Text)
, _csgmClusterSecurityGroupName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterSecurityGroupMembership
:: ClusterSecurityGroupMembership
clusterSecurityGroupMembership =
ClusterSecurityGroupMembership'
{_csgmStatus = Nothing, _csgmClusterSecurityGroupName = Nothing}
csgmStatus :: Lens' ClusterSecurityGroupMembership (Maybe Text)
csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a})
csgmClusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)
csgmClusterSecurityGroupName = lens _csgmClusterSecurityGroupName (\ s a -> s{_csgmClusterSecurityGroupName = a})
instance FromXML ClusterSecurityGroupMembership where
parseXML x
= ClusterSecurityGroupMembership' <$>
(x .@? "Status") <*>
(x .@? "ClusterSecurityGroupName")
instance Hashable ClusterSecurityGroupMembership
where
instance NFData ClusterSecurityGroupMembership where
data ClusterSnapshotCopyStatus = ClusterSnapshotCopyStatus'
{ _cscsRetentionPeriod :: !(Maybe Integer)
, _cscsDestinationRegion :: !(Maybe Text)
, _cscsSnapshotCopyGrantName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterSnapshotCopyStatus
:: ClusterSnapshotCopyStatus
clusterSnapshotCopyStatus =
ClusterSnapshotCopyStatus'
{ _cscsRetentionPeriod = Nothing
, _cscsDestinationRegion = Nothing
, _cscsSnapshotCopyGrantName = Nothing
}
cscsRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)
cscsRetentionPeriod = lens _cscsRetentionPeriod (\ s a -> s{_cscsRetentionPeriod = a})
cscsDestinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
cscsDestinationRegion = lens _cscsDestinationRegion (\ s a -> s{_cscsDestinationRegion = a})
cscsSnapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)
cscsSnapshotCopyGrantName = lens _cscsSnapshotCopyGrantName (\ s a -> s{_cscsSnapshotCopyGrantName = a})
instance FromXML ClusterSnapshotCopyStatus where
parseXML x
= ClusterSnapshotCopyStatus' <$>
(x .@? "RetentionPeriod") <*>
(x .@? "DestinationRegion")
<*> (x .@? "SnapshotCopyGrantName")
instance Hashable ClusterSnapshotCopyStatus where
instance NFData ClusterSnapshotCopyStatus where
data ClusterSubnetGroup = ClusterSubnetGroup'
{ _csgVPCId :: !(Maybe Text)
, _csgSubnets :: !(Maybe [Subnet])
, _csgClusterSubnetGroupName :: !(Maybe Text)
, _csgSubnetGroupStatus :: !(Maybe Text)
, _csgDescription :: !(Maybe Text)
, _csgTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterSubnetGroup
:: ClusterSubnetGroup
clusterSubnetGroup =
ClusterSubnetGroup'
{ _csgVPCId = Nothing
, _csgSubnets = Nothing
, _csgClusterSubnetGroupName = Nothing
, _csgSubnetGroupStatus = Nothing
, _csgDescription = Nothing
, _csgTags = Nothing
}
csgVPCId :: Lens' ClusterSubnetGroup (Maybe Text)
csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a})
csgSubnets :: Lens' ClusterSubnetGroup [Subnet]
csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce
csgClusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)
csgClusterSubnetGroupName = lens _csgClusterSubnetGroupName (\ s a -> s{_csgClusterSubnetGroupName = a})
csgSubnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)
csgSubnetGroupStatus = lens _csgSubnetGroupStatus (\ s a -> s{_csgSubnetGroupStatus = a})
csgDescription :: Lens' ClusterSubnetGroup (Maybe Text)
csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a})
csgTags :: Lens' ClusterSubnetGroup [Tag]
csgTags = lens _csgTags (\ s a -> s{_csgTags = a}) . _Default . _Coerce
instance FromXML ClusterSubnetGroup where
parseXML x
= ClusterSubnetGroup' <$>
(x .@? "VpcId") <*>
(x .@? "Subnets" .!@ mempty >>=
may (parseXMLList "Subnet"))
<*> (x .@? "ClusterSubnetGroupName")
<*> (x .@? "SubnetGroupStatus")
<*> (x .@? "Description")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
instance Hashable ClusterSubnetGroup where
instance NFData ClusterSubnetGroup where
data ClusterVersion = ClusterVersion'
{ _cvClusterParameterGroupFamily :: !(Maybe Text)
, _cvClusterVersion :: !(Maybe Text)
, _cvDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clusterVersion
:: ClusterVersion
clusterVersion =
ClusterVersion'
{ _cvClusterParameterGroupFamily = Nothing
, _cvClusterVersion = Nothing
, _cvDescription = Nothing
}
cvClusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)
cvClusterParameterGroupFamily = lens _cvClusterParameterGroupFamily (\ s a -> s{_cvClusterParameterGroupFamily = a})
cvClusterVersion :: Lens' ClusterVersion (Maybe Text)
cvClusterVersion = lens _cvClusterVersion (\ s a -> s{_cvClusterVersion = a})
cvDescription :: Lens' ClusterVersion (Maybe Text)
cvDescription = lens _cvDescription (\ s a -> s{_cvDescription = a})
instance FromXML ClusterVersion where
parseXML x
= ClusterVersion' <$>
(x .@? "ClusterParameterGroupFamily") <*>
(x .@? "ClusterVersion")
<*> (x .@? "Description")
instance Hashable ClusterVersion where
instance NFData ClusterVersion where
data DefaultClusterParameters = DefaultClusterParameters'
{ _dcpMarker :: !(Maybe Text)
, _dcpParameters :: !(Maybe [Parameter])
, _dcpParameterGroupFamily :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
defaultClusterParameters
:: DefaultClusterParameters
defaultClusterParameters =
DefaultClusterParameters'
{ _dcpMarker = Nothing
, _dcpParameters = Nothing
, _dcpParameterGroupFamily = Nothing
}
dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)
dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a})
dcpParameters :: Lens' DefaultClusterParameters [Parameter]
dcpParameters = lens _dcpParameters (\ s a -> s{_dcpParameters = a}) . _Default . _Coerce
dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
dcpParameterGroupFamily = lens _dcpParameterGroupFamily (\ s a -> s{_dcpParameterGroupFamily = a})
instance FromXML DefaultClusterParameters where
parseXML x
= DefaultClusterParameters' <$>
(x .@? "Marker") <*>
(x .@? "Parameters" .!@ mempty >>=
may (parseXMLList "Parameter"))
<*> (x .@? "ParameterGroupFamily")
instance Hashable DefaultClusterParameters where
instance NFData DefaultClusterParameters where
data EC2SecurityGroup = EC2SecurityGroup'
{ _esgStatus :: !(Maybe Text)
, _esgEC2SecurityGroupOwnerId :: !(Maybe Text)
, _esgEC2SecurityGroupName :: !(Maybe Text)
, _esgTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
ec2SecurityGroup
:: EC2SecurityGroup
ec2SecurityGroup =
EC2SecurityGroup'
{ _esgStatus = Nothing
, _esgEC2SecurityGroupOwnerId = Nothing
, _esgEC2SecurityGroupName = Nothing
, _esgTags = Nothing
}
esgStatus :: Lens' EC2SecurityGroup (Maybe Text)
esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a})
esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)
esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a})
esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)
esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a})
esgTags :: Lens' EC2SecurityGroup [Tag]
esgTags = lens _esgTags (\ s a -> s{_esgTags = a}) . _Default . _Coerce
instance FromXML EC2SecurityGroup where
parseXML x
= EC2SecurityGroup' <$>
(x .@? "Status") <*>
(x .@? "EC2SecurityGroupOwnerId")
<*> (x .@? "EC2SecurityGroupName")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
instance Hashable EC2SecurityGroup where
instance NFData EC2SecurityGroup where
data ElasticIPStatus = ElasticIPStatus'
{ _eisStatus :: !(Maybe Text)
, _eisElasticIP :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
elasticIPStatus
:: ElasticIPStatus
elasticIPStatus =
ElasticIPStatus' {_eisStatus = Nothing, _eisElasticIP = Nothing}
eisStatus :: Lens' ElasticIPStatus (Maybe Text)
eisStatus = lens _eisStatus (\ s a -> s{_eisStatus = a})
eisElasticIP :: Lens' ElasticIPStatus (Maybe Text)
eisElasticIP = lens _eisElasticIP (\ s a -> s{_eisElasticIP = a})
instance FromXML ElasticIPStatus where
parseXML x
= ElasticIPStatus' <$>
(x .@? "Status") <*> (x .@? "ElasticIp")
instance Hashable ElasticIPStatus where
instance NFData ElasticIPStatus where
data Endpoint = Endpoint'
{ _eAddress :: !(Maybe Text)
, _ePort :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
endpoint
:: Endpoint
endpoint = Endpoint' {_eAddress = Nothing, _ePort = Nothing}
eAddress :: Lens' Endpoint (Maybe Text)
eAddress = lens _eAddress (\ s a -> s{_eAddress = a})
ePort :: Lens' Endpoint (Maybe Int)
ePort = lens _ePort (\ s a -> s{_ePort = a})
instance FromXML Endpoint where
parseXML x
= Endpoint' <$> (x .@? "Address") <*> (x .@? "Port")
instance Hashable Endpoint where
instance NFData Endpoint where
data Event = Event'
{ _eSourceType :: !(Maybe SourceType)
, _eSeverity :: !(Maybe Text)
, _eSourceIdentifier :: !(Maybe Text)
, _eDate :: !(Maybe ISO8601)
, _eEventCategories :: !(Maybe [Text])
, _eMessage :: !(Maybe Text)
, _eEventId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
event
:: Event
event =
Event'
{ _eSourceType = Nothing
, _eSeverity = Nothing
, _eSourceIdentifier = Nothing
, _eDate = Nothing
, _eEventCategories = Nothing
, _eMessage = Nothing
, _eEventId = Nothing
}
eSourceType :: Lens' Event (Maybe SourceType)
eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a})
eSeverity :: Lens' Event (Maybe Text)
eSeverity = lens _eSeverity (\ s a -> s{_eSeverity = a})
eSourceIdentifier :: Lens' Event (Maybe Text)
eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a})
eDate :: Lens' Event (Maybe UTCTime)
eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time
eEventCategories :: Lens' Event [Text]
eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce
eMessage :: Lens' Event (Maybe Text)
eMessage = lens _eMessage (\ s a -> s{_eMessage = a})
eEventId :: Lens' Event (Maybe Text)
eEventId = lens _eEventId (\ s a -> s{_eEventId = a})
instance FromXML Event where
parseXML x
= Event' <$>
(x .@? "SourceType") <*> (x .@? "Severity") <*>
(x .@? "SourceIdentifier")
<*> (x .@? "Date")
<*>
(x .@? "EventCategories" .!@ mempty >>=
may (parseXMLList "EventCategory"))
<*> (x .@? "Message")
<*> (x .@? "EventId")
instance Hashable Event where
instance NFData Event where
data EventCategoriesMap = EventCategoriesMap'
{ _ecmSourceType :: !(Maybe Text)
, _ecmEvents :: !(Maybe [EventInfoMap])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventCategoriesMap
:: EventCategoriesMap
eventCategoriesMap =
EventCategoriesMap' {_ecmSourceType = Nothing, _ecmEvents = Nothing}
ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)
ecmSourceType = lens _ecmSourceType (\ s a -> s{_ecmSourceType = a})
ecmEvents :: Lens' EventCategoriesMap [EventInfoMap]
ecmEvents = lens _ecmEvents (\ s a -> s{_ecmEvents = a}) . _Default . _Coerce
instance FromXML EventCategoriesMap where
parseXML x
= EventCategoriesMap' <$>
(x .@? "SourceType") <*>
(x .@? "Events" .!@ mempty >>=
may (parseXMLList "EventInfoMap"))
instance Hashable EventCategoriesMap where
instance NFData EventCategoriesMap where
data EventInfoMap = EventInfoMap'
{ _eimEventDescription :: !(Maybe Text)
, _eimSeverity :: !(Maybe Text)
, _eimEventCategories :: !(Maybe [Text])
, _eimEventId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventInfoMap
:: EventInfoMap
eventInfoMap =
EventInfoMap'
{ _eimEventDescription = Nothing
, _eimSeverity = Nothing
, _eimEventCategories = Nothing
, _eimEventId = Nothing
}
eimEventDescription :: Lens' EventInfoMap (Maybe Text)
eimEventDescription = lens _eimEventDescription (\ s a -> s{_eimEventDescription = a})
eimSeverity :: Lens' EventInfoMap (Maybe Text)
eimSeverity = lens _eimSeverity (\ s a -> s{_eimSeverity = a})
eimEventCategories :: Lens' EventInfoMap [Text]
eimEventCategories = lens _eimEventCategories (\ s a -> s{_eimEventCategories = a}) . _Default . _Coerce
eimEventId :: Lens' EventInfoMap (Maybe Text)
eimEventId = lens _eimEventId (\ s a -> s{_eimEventId = a})
instance FromXML EventInfoMap where
parseXML x
= EventInfoMap' <$>
(x .@? "EventDescription") <*> (x .@? "Severity") <*>
(x .@? "EventCategories" .!@ mempty >>=
may (parseXMLList "EventCategory"))
<*> (x .@? "EventId")
instance Hashable EventInfoMap where
instance NFData EventInfoMap where
data EventSubscription = EventSubscription'
{ _esStatus :: !(Maybe Text)
, _esCustomerAWSId :: !(Maybe Text)
, _esCustSubscriptionId :: !(Maybe Text)
, _esSNSTopicARN :: !(Maybe Text)
, _esEnabled :: !(Maybe Bool)
, _esSourceType :: !(Maybe Text)
, _esSeverity :: !(Maybe Text)
, _esSubscriptionCreationTime :: !(Maybe ISO8601)
, _esEventCategoriesList :: !(Maybe [Text])
, _esTags :: !(Maybe [Tag])
, _esSourceIdsList :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventSubscription
:: EventSubscription
eventSubscription =
EventSubscription'
{ _esStatus = Nothing
, _esCustomerAWSId = Nothing
, _esCustSubscriptionId = Nothing
, _esSNSTopicARN = Nothing
, _esEnabled = Nothing
, _esSourceType = Nothing
, _esSeverity = Nothing
, _esSubscriptionCreationTime = Nothing
, _esEventCategoriesList = Nothing
, _esTags = Nothing
, _esSourceIdsList = Nothing
}
esStatus :: Lens' EventSubscription (Maybe Text)
esStatus = lens _esStatus (\ s a -> s{_esStatus = a})
esCustomerAWSId :: Lens' EventSubscription (Maybe Text)
esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a})
esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)
esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a})
esSNSTopicARN :: Lens' EventSubscription (Maybe Text)
esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a})
esEnabled :: Lens' EventSubscription (Maybe Bool)
esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a})
esSourceType :: Lens' EventSubscription (Maybe Text)
esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a})
esSeverity :: Lens' EventSubscription (Maybe Text)
esSeverity = lens _esSeverity (\ s a -> s{_esSeverity = a})
esSubscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)
esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a}) . mapping _Time
esEventCategoriesList :: Lens' EventSubscription [Text]
esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce
esTags :: Lens' EventSubscription [Tag]
esTags = lens _esTags (\ s a -> s{_esTags = a}) . _Default . _Coerce
esSourceIdsList :: Lens' EventSubscription [Text]
esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce
instance FromXML EventSubscription where
parseXML x
= EventSubscription' <$>
(x .@? "Status") <*> (x .@? "CustomerAwsId") <*>
(x .@? "CustSubscriptionId")
<*> (x .@? "SnsTopicArn")
<*> (x .@? "Enabled")
<*> (x .@? "SourceType")
<*> (x .@? "Severity")
<*> (x .@? "SubscriptionCreationTime")
<*>
(x .@? "EventCategoriesList" .!@ mempty >>=
may (parseXMLList "EventCategory"))
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*>
(x .@? "SourceIdsList" .!@ mempty >>=
may (parseXMLList "SourceId"))
instance Hashable EventSubscription where
instance NFData EventSubscription where
data HSMClientCertificate = HSMClientCertificate'
{ _hccHSMClientCertificateIdentifier :: !(Maybe Text)
, _hccHSMClientCertificatePublicKey :: !(Maybe Text)
, _hccTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
hsmClientCertificate
:: HSMClientCertificate
hsmClientCertificate =
HSMClientCertificate'
{ _hccHSMClientCertificateIdentifier = Nothing
, _hccHSMClientCertificatePublicKey = Nothing
, _hccTags = Nothing
}
hccHSMClientCertificateIdentifier :: Lens' HSMClientCertificate (Maybe Text)
hccHSMClientCertificateIdentifier = lens _hccHSMClientCertificateIdentifier (\ s a -> s{_hccHSMClientCertificateIdentifier = a})
hccHSMClientCertificatePublicKey :: Lens' HSMClientCertificate (Maybe Text)
hccHSMClientCertificatePublicKey = lens _hccHSMClientCertificatePublicKey (\ s a -> s{_hccHSMClientCertificatePublicKey = a})
hccTags :: Lens' HSMClientCertificate [Tag]
hccTags = lens _hccTags (\ s a -> s{_hccTags = a}) . _Default . _Coerce
instance FromXML HSMClientCertificate where
parseXML x
= HSMClientCertificate' <$>
(x .@? "HsmClientCertificateIdentifier") <*>
(x .@? "HsmClientCertificatePublicKey")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
instance Hashable HSMClientCertificate where
instance NFData HSMClientCertificate where
data HSMConfiguration = HSMConfiguration'
{ _hcHSMConfigurationIdentifier :: !(Maybe Text)
, _hcHSMPartitionName :: !(Maybe Text)
, _hcDescription :: !(Maybe Text)
, _hcTags :: !(Maybe [Tag])
, _hcHSMIPAddress :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
hsmConfiguration
:: HSMConfiguration
hsmConfiguration =
HSMConfiguration'
{ _hcHSMConfigurationIdentifier = Nothing
, _hcHSMPartitionName = Nothing
, _hcDescription = Nothing
, _hcTags = Nothing
, _hcHSMIPAddress = Nothing
}
hcHSMConfigurationIdentifier :: Lens' HSMConfiguration (Maybe Text)
hcHSMConfigurationIdentifier = lens _hcHSMConfigurationIdentifier (\ s a -> s{_hcHSMConfigurationIdentifier = a})
hcHSMPartitionName :: Lens' HSMConfiguration (Maybe Text)
hcHSMPartitionName = lens _hcHSMPartitionName (\ s a -> s{_hcHSMPartitionName = a})
hcDescription :: Lens' HSMConfiguration (Maybe Text)
hcDescription = lens _hcDescription (\ s a -> s{_hcDescription = a})
hcTags :: Lens' HSMConfiguration [Tag]
hcTags = lens _hcTags (\ s a -> s{_hcTags = a}) . _Default . _Coerce
hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)
hcHSMIPAddress = lens _hcHSMIPAddress (\ s a -> s{_hcHSMIPAddress = a})
instance FromXML HSMConfiguration where
parseXML x
= HSMConfiguration' <$>
(x .@? "HsmConfigurationIdentifier") <*>
(x .@? "HsmPartitionName")
<*> (x .@? "Description")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*> (x .@? "HsmIpAddress")
instance Hashable HSMConfiguration where
instance NFData HSMConfiguration where
data HSMStatus = HSMStatus'
{ _hsStatus :: !(Maybe Text)
, _hsHSMConfigurationIdentifier :: !(Maybe Text)
, _hsHSMClientCertificateIdentifier :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
hsmStatus
:: HSMStatus
hsmStatus =
HSMStatus'
{ _hsStatus = Nothing
, _hsHSMConfigurationIdentifier = Nothing
, _hsHSMClientCertificateIdentifier = Nothing
}
hsStatus :: Lens' HSMStatus (Maybe Text)
hsStatus = lens _hsStatus (\ s a -> s{_hsStatus = a})
hsHSMConfigurationIdentifier :: Lens' HSMStatus (Maybe Text)
hsHSMConfigurationIdentifier = lens _hsHSMConfigurationIdentifier (\ s a -> s{_hsHSMConfigurationIdentifier = a})
hsHSMClientCertificateIdentifier :: Lens' HSMStatus (Maybe Text)
hsHSMClientCertificateIdentifier = lens _hsHSMClientCertificateIdentifier (\ s a -> s{_hsHSMClientCertificateIdentifier = a})
instance FromXML HSMStatus where
parseXML x
= HSMStatus' <$>
(x .@? "Status") <*>
(x .@? "HsmConfigurationIdentifier")
<*> (x .@? "HsmClientCertificateIdentifier")
instance Hashable HSMStatus where
instance NFData HSMStatus where
data IPRange = IPRange'
{ _irStatus :: !(Maybe Text)
, _irCIdRIP :: !(Maybe Text)
, _irTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
ipRange
:: IPRange
ipRange = IPRange' {_irStatus = Nothing, _irCIdRIP = Nothing, _irTags = Nothing}
irStatus :: Lens' IPRange (Maybe Text)
irStatus = lens _irStatus (\ s a -> s{_irStatus = a})
irCIdRIP :: Lens' IPRange (Maybe Text)
irCIdRIP = lens _irCIdRIP (\ s a -> s{_irCIdRIP = a})
irTags :: Lens' IPRange [Tag]
irTags = lens _irTags (\ s a -> s{_irTags = a}) . _Default . _Coerce
instance FromXML IPRange where
parseXML x
= IPRange' <$>
(x .@? "Status") <*> (x .@? "CIDRIP") <*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
instance Hashable IPRange where
instance NFData IPRange where
data LoggingStatus = LoggingStatus'
{ _lsLastFailureTime :: !(Maybe ISO8601)
, _lsLastSuccessfulDeliveryTime :: !(Maybe ISO8601)
, _lsS3KeyPrefix :: !(Maybe Text)
, _lsBucketName :: !(Maybe Text)
, _lsLoggingEnabled :: !(Maybe Bool)
, _lsLastFailureMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
loggingStatus
:: LoggingStatus
loggingStatus =
LoggingStatus'
{ _lsLastFailureTime = Nothing
, _lsLastSuccessfulDeliveryTime = Nothing
, _lsS3KeyPrefix = Nothing
, _lsBucketName = Nothing
, _lsLoggingEnabled = Nothing
, _lsLastFailureMessage = Nothing
}
lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
lsLastFailureTime = lens _lsLastFailureTime (\ s a -> s{_lsLastFailureTime = a}) . mapping _Time
lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
lsLastSuccessfulDeliveryTime = lens _lsLastSuccessfulDeliveryTime (\ s a -> s{_lsLastSuccessfulDeliveryTime = a}) . mapping _Time
lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)
lsS3KeyPrefix = lens _lsS3KeyPrefix (\ s a -> s{_lsS3KeyPrefix = a})
lsBucketName :: Lens' LoggingStatus (Maybe Text)
lsBucketName = lens _lsBucketName (\ s a -> s{_lsBucketName = a})
lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)
lsLoggingEnabled = lens _lsLoggingEnabled (\ s a -> s{_lsLoggingEnabled = a})
lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)
lsLastFailureMessage = lens _lsLastFailureMessage (\ s a -> s{_lsLastFailureMessage = a})
instance FromXML LoggingStatus where
parseXML x
= LoggingStatus' <$>
(x .@? "LastFailureTime") <*>
(x .@? "LastSuccessfulDeliveryTime")
<*> (x .@? "S3KeyPrefix")
<*> (x .@? "BucketName")
<*> (x .@? "LoggingEnabled")
<*> (x .@? "LastFailureMessage")
instance Hashable LoggingStatus where
instance NFData LoggingStatus where
data OrderableClusterOption = OrderableClusterOption'
{ _ocoAvailabilityZones :: !(Maybe [AvailabilityZone])
, _ocoClusterType :: !(Maybe Text)
, _ocoClusterVersion :: !(Maybe Text)
, _ocoNodeType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
orderableClusterOption
:: OrderableClusterOption
orderableClusterOption =
OrderableClusterOption'
{ _ocoAvailabilityZones = Nothing
, _ocoClusterType = Nothing
, _ocoClusterVersion = Nothing
, _ocoNodeType = Nothing
}
ocoAvailabilityZones :: Lens' OrderableClusterOption [AvailabilityZone]
ocoAvailabilityZones = lens _ocoAvailabilityZones (\ s a -> s{_ocoAvailabilityZones = a}) . _Default . _Coerce
ocoClusterType :: Lens' OrderableClusterOption (Maybe Text)
ocoClusterType = lens _ocoClusterType (\ s a -> s{_ocoClusterType = a})
ocoClusterVersion :: Lens' OrderableClusterOption (Maybe Text)
ocoClusterVersion = lens _ocoClusterVersion (\ s a -> s{_ocoClusterVersion = a})
ocoNodeType :: Lens' OrderableClusterOption (Maybe Text)
ocoNodeType = lens _ocoNodeType (\ s a -> s{_ocoNodeType = a})
instance FromXML OrderableClusterOption where
parseXML x
= OrderableClusterOption' <$>
(x .@? "AvailabilityZones" .!@ mempty >>=
may (parseXMLList "AvailabilityZone"))
<*> (x .@? "ClusterType")
<*> (x .@? "ClusterVersion")
<*> (x .@? "NodeType")
instance Hashable OrderableClusterOption where
instance NFData OrderableClusterOption where
data Parameter = Parameter'
{ _pApplyType :: !(Maybe ParameterApplyType)
, _pParameterValue :: !(Maybe Text)
, _pMinimumEngineVersion :: !(Maybe Text)
, _pSource :: !(Maybe Text)
, _pIsModifiable :: !(Maybe Bool)
, _pDataType :: !(Maybe Text)
, _pAllowedValues :: !(Maybe Text)
, _pParameterName :: !(Maybe Text)
, _pDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parameter
:: Parameter
parameter =
Parameter'
{ _pApplyType = Nothing
, _pParameterValue = Nothing
, _pMinimumEngineVersion = Nothing
, _pSource = Nothing
, _pIsModifiable = Nothing
, _pDataType = Nothing
, _pAllowedValues = Nothing
, _pParameterName = Nothing
, _pDescription = Nothing
}
pApplyType :: Lens' Parameter (Maybe ParameterApplyType)
pApplyType = lens _pApplyType (\ s a -> s{_pApplyType = a})
pParameterValue :: Lens' Parameter (Maybe Text)
pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a})
pMinimumEngineVersion :: Lens' Parameter (Maybe Text)
pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a})
pSource :: Lens' Parameter (Maybe Text)
pSource = lens _pSource (\ s a -> s{_pSource = a})
pIsModifiable :: Lens' Parameter (Maybe Bool)
pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a})
pDataType :: Lens' Parameter (Maybe Text)
pDataType = lens _pDataType (\ s a -> s{_pDataType = a})
pAllowedValues :: Lens' Parameter (Maybe Text)
pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a})
pParameterName :: Lens' Parameter (Maybe Text)
pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a})
pDescription :: Lens' Parameter (Maybe Text)
pDescription = lens _pDescription (\ s a -> s{_pDescription = a})
instance FromXML Parameter where
parseXML x
= Parameter' <$>
(x .@? "ApplyType") <*> (x .@? "ParameterValue") <*>
(x .@? "MinimumEngineVersion")
<*> (x .@? "Source")
<*> (x .@? "IsModifiable")
<*> (x .@? "DataType")
<*> (x .@? "AllowedValues")
<*> (x .@? "ParameterName")
<*> (x .@? "Description")
instance Hashable Parameter where
instance NFData Parameter where
instance ToQuery Parameter where
toQuery Parameter'{..}
= mconcat
["ApplyType" =: _pApplyType,
"ParameterValue" =: _pParameterValue,
"MinimumEngineVersion" =: _pMinimumEngineVersion,
"Source" =: _pSource,
"IsModifiable" =: _pIsModifiable,
"DataType" =: _pDataType,
"AllowedValues" =: _pAllowedValues,
"ParameterName" =: _pParameterName,
"Description" =: _pDescription]
data PendingModifiedValues = PendingModifiedValues'
{ _pmvEnhancedVPCRouting :: !(Maybe Bool)
, _pmvMasterUserPassword :: !(Maybe Text)
, _pmvPubliclyAccessible :: !(Maybe Bool)
, _pmvAutomatedSnapshotRetentionPeriod :: !(Maybe Int)
, _pmvClusterIdentifier :: !(Maybe Text)
, _pmvNumberOfNodes :: !(Maybe Int)
, _pmvClusterType :: !(Maybe Text)
, _pmvClusterVersion :: !(Maybe Text)
, _pmvNodeType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
pendingModifiedValues
:: PendingModifiedValues
pendingModifiedValues =
PendingModifiedValues'
{ _pmvEnhancedVPCRouting = Nothing
, _pmvMasterUserPassword = Nothing
, _pmvPubliclyAccessible = Nothing
, _pmvAutomatedSnapshotRetentionPeriod = Nothing
, _pmvClusterIdentifier = Nothing
, _pmvNumberOfNodes = Nothing
, _pmvClusterType = Nothing
, _pmvClusterVersion = Nothing
, _pmvNodeType = Nothing
}
pmvEnhancedVPCRouting :: Lens' PendingModifiedValues (Maybe Bool)
pmvEnhancedVPCRouting = lens _pmvEnhancedVPCRouting (\ s a -> s{_pmvEnhancedVPCRouting = a})
pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
pmvMasterUserPassword = lens _pmvMasterUserPassword (\ s a -> s{_pmvMasterUserPassword = a})
pmvPubliclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)
pmvPubliclyAccessible = lens _pmvPubliclyAccessible (\ s a -> s{_pmvPubliclyAccessible = a})
pmvAutomatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)
pmvAutomatedSnapshotRetentionPeriod = lens _pmvAutomatedSnapshotRetentionPeriod (\ s a -> s{_pmvAutomatedSnapshotRetentionPeriod = a})
pmvClusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)
pmvClusterIdentifier = lens _pmvClusterIdentifier (\ s a -> s{_pmvClusterIdentifier = a})
pmvNumberOfNodes :: Lens' PendingModifiedValues (Maybe Int)
pmvNumberOfNodes = lens _pmvNumberOfNodes (\ s a -> s{_pmvNumberOfNodes = a})
pmvClusterType :: Lens' PendingModifiedValues (Maybe Text)
pmvClusterType = lens _pmvClusterType (\ s a -> s{_pmvClusterType = a})
pmvClusterVersion :: Lens' PendingModifiedValues (Maybe Text)
pmvClusterVersion = lens _pmvClusterVersion (\ s a -> s{_pmvClusterVersion = a})
pmvNodeType :: Lens' PendingModifiedValues (Maybe Text)
pmvNodeType = lens _pmvNodeType (\ s a -> s{_pmvNodeType = a})
instance FromXML PendingModifiedValues where
parseXML x
= PendingModifiedValues' <$>
(x .@? "EnhancedVpcRouting") <*>
(x .@? "MasterUserPassword")
<*> (x .@? "PubliclyAccessible")
<*> (x .@? "AutomatedSnapshotRetentionPeriod")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "NumberOfNodes")
<*> (x .@? "ClusterType")
<*> (x .@? "ClusterVersion")
<*> (x .@? "NodeType")
instance Hashable PendingModifiedValues where
instance NFData PendingModifiedValues where
data RecurringCharge = RecurringCharge'
{ _rcRecurringChargeFrequency :: !(Maybe Text)
, _rcRecurringChargeAmount :: !(Maybe Double)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
recurringCharge
:: RecurringCharge
recurringCharge =
RecurringCharge'
{_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}
rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)
rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a})
rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)
rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a})
instance FromXML RecurringCharge where
parseXML x
= RecurringCharge' <$>
(x .@? "RecurringChargeFrequency") <*>
(x .@? "RecurringChargeAmount")
instance Hashable RecurringCharge where
instance NFData RecurringCharge where
data ReservedNode = ReservedNode'
{ _rnReservedNodeOfferingType :: !(Maybe ReservedNodeOfferingType)
, _rnState :: !(Maybe Text)
, _rnCurrencyCode :: !(Maybe Text)
, _rnStartTime :: !(Maybe ISO8601)
, _rnNodeCount :: !(Maybe Int)
, _rnReservedNodeId :: !(Maybe Text)
, _rnReservedNodeOfferingId :: !(Maybe Text)
, _rnRecurringCharges :: !(Maybe [RecurringCharge])
, _rnOfferingType :: !(Maybe Text)
, _rnUsagePrice :: !(Maybe Double)
, _rnNodeType :: !(Maybe Text)
, _rnFixedPrice :: !(Maybe Double)
, _rnDuration :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
reservedNode
:: ReservedNode
reservedNode =
ReservedNode'
{ _rnReservedNodeOfferingType = Nothing
, _rnState = Nothing
, _rnCurrencyCode = Nothing
, _rnStartTime = Nothing
, _rnNodeCount = Nothing
, _rnReservedNodeId = Nothing
, _rnReservedNodeOfferingId = Nothing
, _rnRecurringCharges = Nothing
, _rnOfferingType = Nothing
, _rnUsagePrice = Nothing
, _rnNodeType = Nothing
, _rnFixedPrice = Nothing
, _rnDuration = Nothing
}
rnReservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)
rnReservedNodeOfferingType = lens _rnReservedNodeOfferingType (\ s a -> s{_rnReservedNodeOfferingType = a})
rnState :: Lens' ReservedNode (Maybe Text)
rnState = lens _rnState (\ s a -> s{_rnState = a})
rnCurrencyCode :: Lens' ReservedNode (Maybe Text)
rnCurrencyCode = lens _rnCurrencyCode (\ s a -> s{_rnCurrencyCode = a})
rnStartTime :: Lens' ReservedNode (Maybe UTCTime)
rnStartTime = lens _rnStartTime (\ s a -> s{_rnStartTime = a}) . mapping _Time
rnNodeCount :: Lens' ReservedNode (Maybe Int)
rnNodeCount = lens _rnNodeCount (\ s a -> s{_rnNodeCount = a})
rnReservedNodeId :: Lens' ReservedNode (Maybe Text)
rnReservedNodeId = lens _rnReservedNodeId (\ s a -> s{_rnReservedNodeId = a})
rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
rnReservedNodeOfferingId = lens _rnReservedNodeOfferingId (\ s a -> s{_rnReservedNodeOfferingId = a})
rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]
rnRecurringCharges = lens _rnRecurringCharges (\ s a -> s{_rnRecurringCharges = a}) . _Default . _Coerce
rnOfferingType :: Lens' ReservedNode (Maybe Text)
rnOfferingType = lens _rnOfferingType (\ s a -> s{_rnOfferingType = a})
rnUsagePrice :: Lens' ReservedNode (Maybe Double)
rnUsagePrice = lens _rnUsagePrice (\ s a -> s{_rnUsagePrice = a})
rnNodeType :: Lens' ReservedNode (Maybe Text)
rnNodeType = lens _rnNodeType (\ s a -> s{_rnNodeType = a})
rnFixedPrice :: Lens' ReservedNode (Maybe Double)
rnFixedPrice = lens _rnFixedPrice (\ s a -> s{_rnFixedPrice = a})
rnDuration :: Lens' ReservedNode (Maybe Int)
rnDuration = lens _rnDuration (\ s a -> s{_rnDuration = a})
instance FromXML ReservedNode where
parseXML x
= ReservedNode' <$>
(x .@? "ReservedNodeOfferingType") <*>
(x .@? "State")
<*> (x .@? "CurrencyCode")
<*> (x .@? "StartTime")
<*> (x .@? "NodeCount")
<*> (x .@? "ReservedNodeId")
<*> (x .@? "ReservedNodeOfferingId")
<*>
(x .@? "RecurringCharges" .!@ mempty >>=
may (parseXMLList "RecurringCharge"))
<*> (x .@? "OfferingType")
<*> (x .@? "UsagePrice")
<*> (x .@? "NodeType")
<*> (x .@? "FixedPrice")
<*> (x .@? "Duration")
instance Hashable ReservedNode where
instance NFData ReservedNode where
data ReservedNodeOffering = ReservedNodeOffering'
{ _rnoReservedNodeOfferingType :: !(Maybe ReservedNodeOfferingType)
, _rnoCurrencyCode :: !(Maybe Text)
, _rnoReservedNodeOfferingId :: !(Maybe Text)
, _rnoRecurringCharges :: !(Maybe [RecurringCharge])
, _rnoOfferingType :: !(Maybe Text)
, _rnoUsagePrice :: !(Maybe Double)
, _rnoNodeType :: !(Maybe Text)
, _rnoFixedPrice :: !(Maybe Double)
, _rnoDuration :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
reservedNodeOffering
:: ReservedNodeOffering
reservedNodeOffering =
ReservedNodeOffering'
{ _rnoReservedNodeOfferingType = Nothing
, _rnoCurrencyCode = Nothing
, _rnoReservedNodeOfferingId = Nothing
, _rnoRecurringCharges = Nothing
, _rnoOfferingType = Nothing
, _rnoUsagePrice = Nothing
, _rnoNodeType = Nothing
, _rnoFixedPrice = Nothing
, _rnoDuration = Nothing
}
rnoReservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)
rnoReservedNodeOfferingType = lens _rnoReservedNodeOfferingType (\ s a -> s{_rnoReservedNodeOfferingType = a})
rnoCurrencyCode :: Lens' ReservedNodeOffering (Maybe Text)
rnoCurrencyCode = lens _rnoCurrencyCode (\ s a -> s{_rnoCurrencyCode = a})
rnoReservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)
rnoReservedNodeOfferingId = lens _rnoReservedNodeOfferingId (\ s a -> s{_rnoReservedNodeOfferingId = a})
rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]
rnoRecurringCharges = lens _rnoRecurringCharges (\ s a -> s{_rnoRecurringCharges = a}) . _Default . _Coerce
rnoOfferingType :: Lens' ReservedNodeOffering (Maybe Text)
rnoOfferingType = lens _rnoOfferingType (\ s a -> s{_rnoOfferingType = a})
rnoUsagePrice :: Lens' ReservedNodeOffering (Maybe Double)
rnoUsagePrice = lens _rnoUsagePrice (\ s a -> s{_rnoUsagePrice = a})
rnoNodeType :: Lens' ReservedNodeOffering (Maybe Text)
rnoNodeType = lens _rnoNodeType (\ s a -> s{_rnoNodeType = a})
rnoFixedPrice :: Lens' ReservedNodeOffering (Maybe Double)
rnoFixedPrice = lens _rnoFixedPrice (\ s a -> s{_rnoFixedPrice = a})
rnoDuration :: Lens' ReservedNodeOffering (Maybe Int)
rnoDuration = lens _rnoDuration (\ s a -> s{_rnoDuration = a})
instance FromXML ReservedNodeOffering where
parseXML x
= ReservedNodeOffering' <$>
(x .@? "ReservedNodeOfferingType") <*>
(x .@? "CurrencyCode")
<*> (x .@? "ReservedNodeOfferingId")
<*>
(x .@? "RecurringCharges" .!@ mempty >>=
may (parseXMLList "RecurringCharge"))
<*> (x .@? "OfferingType")
<*> (x .@? "UsagePrice")
<*> (x .@? "NodeType")
<*> (x .@? "FixedPrice")
<*> (x .@? "Duration")
instance Hashable ReservedNodeOffering where
instance NFData ReservedNodeOffering where
data RestoreStatus = RestoreStatus'
{ _rsStatus :: !(Maybe Text)
, _rsEstimatedTimeToCompletionInSeconds :: !(Maybe Integer)
, _rsCurrentRestoreRateInMegaBytesPerSecond :: !(Maybe Double)
, _rsProgressInMegaBytes :: !(Maybe Integer)
, _rsElapsedTimeInSeconds :: !(Maybe Integer)
, _rsSnapshotSizeInMegaBytes :: !(Maybe Integer)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
restoreStatus
:: RestoreStatus
restoreStatus =
RestoreStatus'
{ _rsStatus = Nothing
, _rsEstimatedTimeToCompletionInSeconds = Nothing
, _rsCurrentRestoreRateInMegaBytesPerSecond = Nothing
, _rsProgressInMegaBytes = Nothing
, _rsElapsedTimeInSeconds = Nothing
, _rsSnapshotSizeInMegaBytes = Nothing
}
rsStatus :: Lens' RestoreStatus (Maybe Text)
rsStatus = lens _rsStatus (\ s a -> s{_rsStatus = a})
rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
rsEstimatedTimeToCompletionInSeconds = lens _rsEstimatedTimeToCompletionInSeconds (\ s a -> s{_rsEstimatedTimeToCompletionInSeconds = a})
rsCurrentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)
rsCurrentRestoreRateInMegaBytesPerSecond = lens _rsCurrentRestoreRateInMegaBytesPerSecond (\ s a -> s{_rsCurrentRestoreRateInMegaBytesPerSecond = a})
rsProgressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
rsProgressInMegaBytes = lens _rsProgressInMegaBytes (\ s a -> s{_rsProgressInMegaBytes = a})
rsElapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)
rsElapsedTimeInSeconds = lens _rsElapsedTimeInSeconds (\ s a -> s{_rsElapsedTimeInSeconds = a})
rsSnapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)
rsSnapshotSizeInMegaBytes = lens _rsSnapshotSizeInMegaBytes (\ s a -> s{_rsSnapshotSizeInMegaBytes = a})
instance FromXML RestoreStatus where
parseXML x
= RestoreStatus' <$>
(x .@? "Status") <*>
(x .@? "EstimatedTimeToCompletionInSeconds")
<*> (x .@? "CurrentRestoreRateInMegaBytesPerSecond")
<*> (x .@? "ProgressInMegaBytes")
<*> (x .@? "ElapsedTimeInSeconds")
<*> (x .@? "SnapshotSizeInMegaBytes")
instance Hashable RestoreStatus where
instance NFData RestoreStatus where
data Snapshot = Snapshot'
{ _sStatus :: !(Maybe Text)
, _sRestorableNodeTypes :: !(Maybe [Text])
, _sAccountsWithRestoreAccess :: !(Maybe [AccountWithRestoreAccess])
, _sEnhancedVPCRouting :: !(Maybe Bool)
, _sSnapshotIdentifier :: !(Maybe Text)
, _sEncryptedWithHSM :: !(Maybe Bool)
, _sMasterUsername :: !(Maybe Text)
, _sSourceRegion :: !(Maybe Text)
, _sVPCId :: !(Maybe Text)
, _sBackupProgressInMegaBytes :: !(Maybe Double)
, _sEncrypted :: !(Maybe Bool)
, _sClusterIdentifier :: !(Maybe Text)
, _sNumberOfNodes :: !(Maybe Int)
, _sSnapshotType :: !(Maybe Text)
, _sKMSKeyId :: !(Maybe Text)
, _sAvailabilityZone :: !(Maybe Text)
, _sCurrentBackupRateInMegaBytesPerSecond :: !(Maybe Double)
, _sSnapshotCreateTime :: !(Maybe ISO8601)
, _sClusterVersion :: !(Maybe Text)
, _sOwnerAccount :: !(Maybe Text)
, _sNodeType :: !(Maybe Text)
, _sElapsedTimeInSeconds :: !(Maybe Integer)
, _sClusterCreateTime :: !(Maybe ISO8601)
, _sEstimatedSecondsToCompletion :: !(Maybe Integer)
, _sActualIncrementalBackupSizeInMegaBytes :: !(Maybe Double)
, _sTags :: !(Maybe [Tag])
, _sPort :: !(Maybe Int)
, _sTotalBackupSizeInMegaBytes :: !(Maybe Double)
, _sDBName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
snapshot
:: Snapshot
snapshot =
Snapshot'
{ _sStatus = Nothing
, _sRestorableNodeTypes = Nothing
, _sAccountsWithRestoreAccess = Nothing
, _sEnhancedVPCRouting = Nothing
, _sSnapshotIdentifier = Nothing
, _sEncryptedWithHSM = Nothing
, _sMasterUsername = Nothing
, _sSourceRegion = Nothing
, _sVPCId = Nothing
, _sBackupProgressInMegaBytes = Nothing
, _sEncrypted = Nothing
, _sClusterIdentifier = Nothing
, _sNumberOfNodes = Nothing
, _sSnapshotType = Nothing
, _sKMSKeyId = Nothing
, _sAvailabilityZone = Nothing
, _sCurrentBackupRateInMegaBytesPerSecond = Nothing
, _sSnapshotCreateTime = Nothing
, _sClusterVersion = Nothing
, _sOwnerAccount = Nothing
, _sNodeType = Nothing
, _sElapsedTimeInSeconds = Nothing
, _sClusterCreateTime = Nothing
, _sEstimatedSecondsToCompletion = Nothing
, _sActualIncrementalBackupSizeInMegaBytes = Nothing
, _sTags = Nothing
, _sPort = Nothing
, _sTotalBackupSizeInMegaBytes = Nothing
, _sDBName = Nothing
}
sStatus :: Lens' Snapshot (Maybe Text)
sStatus = lens _sStatus (\ s a -> s{_sStatus = a})
sRestorableNodeTypes :: Lens' Snapshot [Text]
sRestorableNodeTypes = lens _sRestorableNodeTypes (\ s a -> s{_sRestorableNodeTypes = a}) . _Default . _Coerce
sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]
sAccountsWithRestoreAccess = lens _sAccountsWithRestoreAccess (\ s a -> s{_sAccountsWithRestoreAccess = a}) . _Default . _Coerce
sEnhancedVPCRouting :: Lens' Snapshot (Maybe Bool)
sEnhancedVPCRouting = lens _sEnhancedVPCRouting (\ s a -> s{_sEnhancedVPCRouting = a})
sSnapshotIdentifier :: Lens' Snapshot (Maybe Text)
sSnapshotIdentifier = lens _sSnapshotIdentifier (\ s a -> s{_sSnapshotIdentifier = a})
sEncryptedWithHSM :: Lens' Snapshot (Maybe Bool)
sEncryptedWithHSM = lens _sEncryptedWithHSM (\ s a -> s{_sEncryptedWithHSM = a})
sMasterUsername :: Lens' Snapshot (Maybe Text)
sMasterUsername = lens _sMasterUsername (\ s a -> s{_sMasterUsername = a})
sSourceRegion :: Lens' Snapshot (Maybe Text)
sSourceRegion = lens _sSourceRegion (\ s a -> s{_sSourceRegion = a})
sVPCId :: Lens' Snapshot (Maybe Text)
sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a})
sBackupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)
sBackupProgressInMegaBytes = lens _sBackupProgressInMegaBytes (\ s a -> s{_sBackupProgressInMegaBytes = a})
sEncrypted :: Lens' Snapshot (Maybe Bool)
sEncrypted = lens _sEncrypted (\ s a -> s{_sEncrypted = a})
sClusterIdentifier :: Lens' Snapshot (Maybe Text)
sClusterIdentifier = lens _sClusterIdentifier (\ s a -> s{_sClusterIdentifier = a})
sNumberOfNodes :: Lens' Snapshot (Maybe Int)
sNumberOfNodes = lens _sNumberOfNodes (\ s a -> s{_sNumberOfNodes = a})
sSnapshotType :: Lens' Snapshot (Maybe Text)
sSnapshotType = lens _sSnapshotType (\ s a -> s{_sSnapshotType = a})
sKMSKeyId :: Lens' Snapshot (Maybe Text)
sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = a})
sAvailabilityZone :: Lens' Snapshot (Maybe Text)
sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a})
sCurrentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)
sCurrentBackupRateInMegaBytesPerSecond = lens _sCurrentBackupRateInMegaBytesPerSecond (\ s a -> s{_sCurrentBackupRateInMegaBytesPerSecond = a})
sSnapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)
sSnapshotCreateTime = lens _sSnapshotCreateTime (\ s a -> s{_sSnapshotCreateTime = a}) . mapping _Time
sClusterVersion :: Lens' Snapshot (Maybe Text)
sClusterVersion = lens _sClusterVersion (\ s a -> s{_sClusterVersion = a})
sOwnerAccount :: Lens' Snapshot (Maybe Text)
sOwnerAccount = lens _sOwnerAccount (\ s a -> s{_sOwnerAccount = a})
sNodeType :: Lens' Snapshot (Maybe Text)
sNodeType = lens _sNodeType (\ s a -> s{_sNodeType = a})
sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
sElapsedTimeInSeconds = lens _sElapsedTimeInSeconds (\ s a -> s{_sElapsedTimeInSeconds = a})
sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
sClusterCreateTime = lens _sClusterCreateTime (\ s a -> s{_sClusterCreateTime = a}) . mapping _Time
sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
sEstimatedSecondsToCompletion = lens _sEstimatedSecondsToCompletion (\ s a -> s{_sEstimatedSecondsToCompletion = a})
sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
sActualIncrementalBackupSizeInMegaBytes = lens _sActualIncrementalBackupSizeInMegaBytes (\ s a -> s{_sActualIncrementalBackupSizeInMegaBytes = a})
sTags :: Lens' Snapshot [Tag]
sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce
sPort :: Lens' Snapshot (Maybe Int)
sPort = lens _sPort (\ s a -> s{_sPort = a})
sTotalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
sTotalBackupSizeInMegaBytes = lens _sTotalBackupSizeInMegaBytes (\ s a -> s{_sTotalBackupSizeInMegaBytes = a})
sDBName :: Lens' Snapshot (Maybe Text)
sDBName = lens _sDBName (\ s a -> s{_sDBName = a})
instance FromXML Snapshot where
parseXML x
= Snapshot' <$>
(x .@? "Status") <*>
(x .@? "RestorableNodeTypes" .!@ mempty >>=
may (parseXMLList "NodeType"))
<*>
(x .@? "AccountsWithRestoreAccess" .!@ mempty >>=
may (parseXMLList "AccountWithRestoreAccess"))
<*> (x .@? "EnhancedVpcRouting")
<*> (x .@? "SnapshotIdentifier")
<*> (x .@? "EncryptedWithHSM")
<*> (x .@? "MasterUsername")
<*> (x .@? "SourceRegion")
<*> (x .@? "VpcId")
<*> (x .@? "BackupProgressInMegaBytes")
<*> (x .@? "Encrypted")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "NumberOfNodes")
<*> (x .@? "SnapshotType")
<*> (x .@? "KmsKeyId")
<*> (x .@? "AvailabilityZone")
<*> (x .@? "CurrentBackupRateInMegaBytesPerSecond")
<*> (x .@? "SnapshotCreateTime")
<*> (x .@? "ClusterVersion")
<*> (x .@? "OwnerAccount")
<*> (x .@? "NodeType")
<*> (x .@? "ElapsedTimeInSeconds")
<*> (x .@? "ClusterCreateTime")
<*> (x .@? "EstimatedSecondsToCompletion")
<*> (x .@? "ActualIncrementalBackupSizeInMegaBytes")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*> (x .@? "Port")
<*> (x .@? "TotalBackupSizeInMegaBytes")
<*> (x .@? "DBName")
instance Hashable Snapshot where
instance NFData Snapshot where
data SnapshotCopyGrant = SnapshotCopyGrant'
{ _scgKMSKeyId :: !(Maybe Text)
, _scgSnapshotCopyGrantName :: !(Maybe Text)
, _scgTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
snapshotCopyGrant
:: SnapshotCopyGrant
snapshotCopyGrant =
SnapshotCopyGrant'
{ _scgKMSKeyId = Nothing
, _scgSnapshotCopyGrantName = Nothing
, _scgTags = Nothing
}
scgKMSKeyId :: Lens' SnapshotCopyGrant (Maybe Text)
scgKMSKeyId = lens _scgKMSKeyId (\ s a -> s{_scgKMSKeyId = a})
scgSnapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)
scgSnapshotCopyGrantName = lens _scgSnapshotCopyGrantName (\ s a -> s{_scgSnapshotCopyGrantName = a})
scgTags :: Lens' SnapshotCopyGrant [Tag]
scgTags = lens _scgTags (\ s a -> s{_scgTags = a}) . _Default . _Coerce
instance FromXML SnapshotCopyGrant where
parseXML x
= SnapshotCopyGrant' <$>
(x .@? "KmsKeyId") <*>
(x .@? "SnapshotCopyGrantName")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
instance Hashable SnapshotCopyGrant where
instance NFData SnapshotCopyGrant where
data Subnet = Subnet'
{ _sSubnetStatus :: !(Maybe Text)
, _sSubnetIdentifier :: !(Maybe Text)
, _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
subnet
:: Subnet
subnet =
Subnet'
{ _sSubnetStatus = Nothing
, _sSubnetIdentifier = Nothing
, _sSubnetAvailabilityZone = Nothing
}
sSubnetStatus :: Lens' Subnet (Maybe Text)
sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a})
sSubnetIdentifier :: Lens' Subnet (Maybe Text)
sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a})
sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)
sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a})
instance FromXML Subnet where
parseXML x
= Subnet' <$>
(x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier")
<*> (x .@? "SubnetAvailabilityZone")
instance Hashable Subnet where
instance NFData Subnet where
newtype SupportedPlatform = SupportedPlatform'
{ _spName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
supportedPlatform
:: SupportedPlatform
supportedPlatform = SupportedPlatform' {_spName = Nothing}
spName :: Lens' SupportedPlatform (Maybe Text)
spName = lens _spName (\ s a -> s{_spName = a})
instance FromXML SupportedPlatform where
parseXML x = SupportedPlatform' <$> (x .@? "Name")
instance Hashable SupportedPlatform where
instance NFData SupportedPlatform where
data TableRestoreStatus = TableRestoreStatus'
{ _trsStatus :: !(Maybe TableRestoreStatusType)
, _trsTargetSchemaName :: !(Maybe Text)
, _trsSnapshotIdentifier :: !(Maybe Text)
, _trsSourceDatabaseName :: !(Maybe Text)
, _trsTableRestoreRequestId :: !(Maybe Text)
, _trsNewTableName :: !(Maybe Text)
, _trsTargetDatabaseName :: !(Maybe Text)
, _trsSourceSchemaName :: !(Maybe Text)
, _trsClusterIdentifier :: !(Maybe Text)
, _trsRequestTime :: !(Maybe ISO8601)
, _trsSourceTableName :: !(Maybe Text)
, _trsTotalDataInMegaBytes :: !(Maybe Integer)
, _trsProgressInMegaBytes :: !(Maybe Integer)
, _trsMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tableRestoreStatus
:: TableRestoreStatus
tableRestoreStatus =
TableRestoreStatus'
{ _trsStatus = Nothing
, _trsTargetSchemaName = Nothing
, _trsSnapshotIdentifier = Nothing
, _trsSourceDatabaseName = Nothing
, _trsTableRestoreRequestId = Nothing
, _trsNewTableName = Nothing
, _trsTargetDatabaseName = Nothing
, _trsSourceSchemaName = Nothing
, _trsClusterIdentifier = Nothing
, _trsRequestTime = Nothing
, _trsSourceTableName = Nothing
, _trsTotalDataInMegaBytes = Nothing
, _trsProgressInMegaBytes = Nothing
, _trsMessage = Nothing
}
trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)
trsStatus = lens _trsStatus (\ s a -> s{_trsStatus = a})
trsTargetSchemaName :: Lens' TableRestoreStatus (Maybe Text)
trsTargetSchemaName = lens _trsTargetSchemaName (\ s a -> s{_trsTargetSchemaName = a})
trsSnapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)
trsSnapshotIdentifier = lens _trsSnapshotIdentifier (\ s a -> s{_trsSnapshotIdentifier = a})
trsSourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
trsSourceDatabaseName = lens _trsSourceDatabaseName (\ s a -> s{_trsSourceDatabaseName = a})
trsTableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)
trsTableRestoreRequestId = lens _trsTableRestoreRequestId (\ s a -> s{_trsTableRestoreRequestId = a})
trsNewTableName :: Lens' TableRestoreStatus (Maybe Text)
trsNewTableName = lens _trsNewTableName (\ s a -> s{_trsNewTableName = a})
trsTargetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)
trsTargetDatabaseName = lens _trsTargetDatabaseName (\ s a -> s{_trsTargetDatabaseName = a})
trsSourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)
trsSourceSchemaName = lens _trsSourceSchemaName (\ s a -> s{_trsSourceSchemaName = a})
trsClusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)
trsClusterIdentifier = lens _trsClusterIdentifier (\ s a -> s{_trsClusterIdentifier = a})
trsRequestTime :: Lens' TableRestoreStatus (Maybe UTCTime)
trsRequestTime = lens _trsRequestTime (\ s a -> s{_trsRequestTime = a}) . mapping _Time
trsSourceTableName :: Lens' TableRestoreStatus (Maybe Text)
trsSourceTableName = lens _trsSourceTableName (\ s a -> s{_trsSourceTableName = a})
trsTotalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
trsTotalDataInMegaBytes = lens _trsTotalDataInMegaBytes (\ s a -> s{_trsTotalDataInMegaBytes = a})
trsProgressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)
trsProgressInMegaBytes = lens _trsProgressInMegaBytes (\ s a -> s{_trsProgressInMegaBytes = a})
trsMessage :: Lens' TableRestoreStatus (Maybe Text)
trsMessage = lens _trsMessage (\ s a -> s{_trsMessage = a})
instance FromXML TableRestoreStatus where
parseXML x
= TableRestoreStatus' <$>
(x .@? "Status") <*> (x .@? "TargetSchemaName") <*>
(x .@? "SnapshotIdentifier")
<*> (x .@? "SourceDatabaseName")
<*> (x .@? "TableRestoreRequestId")
<*> (x .@? "NewTableName")
<*> (x .@? "TargetDatabaseName")
<*> (x .@? "SourceSchemaName")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "RequestTime")
<*> (x .@? "SourceTableName")
<*> (x .@? "TotalDataInMegaBytes")
<*> (x .@? "ProgressInMegaBytes")
<*> (x .@? "Message")
instance Hashable TableRestoreStatus where
instance NFData TableRestoreStatus where
data Tag = Tag'
{ _tagValue :: !(Maybe Text)
, _tagKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tag
:: Tag
tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}
tagValue :: Lens' Tag (Maybe Text)
tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
tagKey :: Lens' Tag (Maybe Text)
tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
instance FromXML Tag where
parseXML x
= Tag' <$> (x .@? "Value") <*> (x .@? "Key")
instance Hashable Tag where
instance NFData Tag where
instance ToQuery Tag where
toQuery Tag'{..}
= mconcat ["Value" =: _tagValue, "Key" =: _tagKey]
data TaggedResource = TaggedResource'
{ _trTag :: !(Maybe Tag)
, _trResourceType :: !(Maybe Text)
, _trResourceName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
taggedResource
:: TaggedResource
taggedResource =
TaggedResource'
{_trTag = Nothing, _trResourceType = Nothing, _trResourceName = Nothing}
trTag :: Lens' TaggedResource (Maybe Tag)
trTag = lens _trTag (\ s a -> s{_trTag = a})
trResourceType :: Lens' TaggedResource (Maybe Text)
trResourceType = lens _trResourceType (\ s a -> s{_trResourceType = a})
trResourceName :: Lens' TaggedResource (Maybe Text)
trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a})
instance FromXML TaggedResource where
parseXML x
= TaggedResource' <$>
(x .@? "Tag") <*> (x .@? "ResourceType") <*>
(x .@? "ResourceName")
instance Hashable TaggedResource where
instance NFData TaggedResource where
data VPCSecurityGroupMembership = VPCSecurityGroupMembership'
{ _vsgmStatus :: !(Maybe Text)
, _vsgmVPCSecurityGroupId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
vpcSecurityGroupMembership
:: VPCSecurityGroupMembership
vpcSecurityGroupMembership =
VPCSecurityGroupMembership'
{_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}
vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)
vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a})
vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)
vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a})
instance FromXML VPCSecurityGroupMembership where
parseXML x
= VPCSecurityGroupMembership' <$>
(x .@? "Status") <*> (x .@? "VpcSecurityGroupId")
instance Hashable VPCSecurityGroupMembership where
instance NFData VPCSecurityGroupMembership where