module Network.AWS.Redshift.Types.Product where
import Network.AWS.Prelude
import Network.AWS.Redshift.Types.Sum
newtype AccountWithRestoreAccess = AccountWithRestoreAccess'
{ _awraAccountId :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
accountWithRestoreAccess
:: AccountWithRestoreAccess
accountWithRestoreAccess =
AccountWithRestoreAccess'
{ _awraAccountId = Nothing
}
awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)
awraAccountId = lens _awraAccountId (\ s a -> s{_awraAccountId = a});
instance FromXML AccountWithRestoreAccess where
parseXML x
= AccountWithRestoreAccess' <$> (x .@? "AccountId")
newtype AvailabilityZone = AvailabilityZone'
{ _azName :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
availabilityZone
:: AvailabilityZone
availabilityZone =
AvailabilityZone'
{ _azName = Nothing
}
azName :: Lens' AvailabilityZone (Maybe Text)
azName = lens _azName (\ s a -> s{_azName = a});
instance FromXML AvailabilityZone where
parseXML x = AvailabilityZone' <$> (x .@? "Name")
data Cluster = Cluster'
{ _cRestoreStatus :: !(Maybe RestoreStatus)
, _cClusterSnapshotCopyStatus :: !(Maybe ClusterSnapshotCopyStatus)
, _cClusterRevisionNumber :: !(Maybe Text)
, _cMasterUsername :: !(Maybe Text)
, _cPubliclyAccessible :: !(Maybe Bool)
, _cVPCId :: !(Maybe Text)
, _cClusterSecurityGroups :: !(Maybe [ClusterSecurityGroupMembership])
, _cAutomatedSnapshotRetentionPeriod :: !(Maybe Int)
, _cEncrypted :: !(Maybe Bool)
, _cClusterIdentifier :: !(Maybe Text)
, _cNumberOfNodes :: !(Maybe Int)
, _cClusterSubnetGroupName :: !(Maybe Text)
, _cPreferredMaintenanceWindow :: !(Maybe Text)
, _cModifyStatus :: !(Maybe Text)
, _cClusterPublicKey :: !(Maybe Text)
, _cClusterParameterGroups :: !(Maybe [ClusterParameterGroupStatus])
, _cAvailabilityZone :: !(Maybe Text)
, _cVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])
, _cKMSKeyId :: !(Maybe Text)
, _cHSMStatus :: !(Maybe HSMStatus)
, _cElasticIPStatus :: !(Maybe ElasticIPStatus)
, _cClusterVersion :: !(Maybe Text)
, _cNodeType :: !(Maybe Text)
, _cEndpoint :: !(Maybe Endpoint)
, _cClusterCreateTime :: !(Maybe ISO8601)
, _cAllowVersionUpgrade :: !(Maybe Bool)
, _cPendingModifiedValues :: !(Maybe PendingModifiedValues)
, _cClusterStatus :: !(Maybe Text)
, _cDBName :: !(Maybe Text)
, _cTags :: !(Maybe [Tag])
, _cClusterNodes :: !(Maybe [ClusterNode])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cluster
:: Cluster
cluster =
Cluster'
{ _cRestoreStatus = Nothing
, _cClusterSnapshotCopyStatus = Nothing
, _cClusterRevisionNumber = Nothing
, _cMasterUsername = Nothing
, _cPubliclyAccessible = Nothing
, _cVPCId = Nothing
, _cClusterSecurityGroups = Nothing
, _cAutomatedSnapshotRetentionPeriod = Nothing
, _cEncrypted = Nothing
, _cClusterIdentifier = Nothing
, _cNumberOfNodes = Nothing
, _cClusterSubnetGroupName = Nothing
, _cPreferredMaintenanceWindow = Nothing
, _cModifyStatus = Nothing
, _cClusterPublicKey = Nothing
, _cClusterParameterGroups = Nothing
, _cAvailabilityZone = Nothing
, _cVPCSecurityGroups = Nothing
, _cKMSKeyId = Nothing
, _cHSMStatus = Nothing
, _cElasticIPStatus = Nothing
, _cClusterVersion = Nothing
, _cNodeType = Nothing
, _cEndpoint = Nothing
, _cClusterCreateTime = Nothing
, _cAllowVersionUpgrade = Nothing
, _cPendingModifiedValues = Nothing
, _cClusterStatus = Nothing
, _cDBName = Nothing
, _cTags = Nothing
, _cClusterNodes = Nothing
}
cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)
cRestoreStatus = lens _cRestoreStatus (\ s a -> s{_cRestoreStatus = 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});
cMasterUsername :: Lens' Cluster (Maybe Text)
cMasterUsername = lens _cMasterUsername (\ s a -> s{_cMasterUsername = a});
cPubliclyAccessible :: Lens' Cluster (Maybe Bool)
cPubliclyAccessible = lens _cPubliclyAccessible (\ s a -> s{_cPubliclyAccessible = 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});
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});
cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)
cClusterSubnetGroupName = lens _cClusterSubnetGroupName (\ s a -> s{_cClusterSubnetGroupName = 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});
cClusterPublicKey :: Lens' Cluster (Maybe Text)
cClusterPublicKey = lens _cClusterPublicKey (\ s a -> s{_cClusterPublicKey = 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;
cKMSKeyId :: Lens' Cluster (Maybe Text)
cKMSKeyId = lens _cKMSKeyId (\ s a -> s{_cKMSKeyId = a});
cHSMStatus :: Lens' Cluster (Maybe HSMStatus)
cHSMStatus = lens _cHSMStatus (\ s a -> s{_cHSMStatus = a});
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});
cEndpoint :: Lens' Cluster (Maybe Endpoint)
cEndpoint = lens _cEndpoint (\ s a -> s{_cEndpoint = a});
cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)
cClusterCreateTime = lens _cClusterCreateTime (\ s a -> s{_cClusterCreateTime = a}) . mapping _Time;
cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)
cAllowVersionUpgrade = lens _cAllowVersionUpgrade (\ s a -> s{_cAllowVersionUpgrade = a});
cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)
cPendingModifiedValues = lens _cPendingModifiedValues (\ s a -> s{_cPendingModifiedValues = a});
cClusterStatus :: Lens' Cluster (Maybe Text)
cClusterStatus = lens _cClusterStatus (\ s a -> s{_cClusterStatus = a});
cDBName :: Lens' Cluster (Maybe Text)
cDBName = lens _cDBName (\ s a -> s{_cDBName = 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;
instance FromXML Cluster where
parseXML x
= Cluster' <$>
(x .@? "RestoreStatus") <*>
(x .@? "ClusterSnapshotCopyStatus")
<*> (x .@? "ClusterRevisionNumber")
<*> (x .@? "MasterUsername")
<*> (x .@? "PubliclyAccessible")
<*> (x .@? "VpcId")
<*>
(x .@? "ClusterSecurityGroups" .!@ mempty >>=
may (parseXMLList "ClusterSecurityGroup"))
<*> (x .@? "AutomatedSnapshotRetentionPeriod")
<*> (x .@? "Encrypted")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "NumberOfNodes")
<*> (x .@? "ClusterSubnetGroupName")
<*> (x .@? "PreferredMaintenanceWindow")
<*> (x .@? "ModifyStatus")
<*> (x .@? "ClusterPublicKey")
<*>
(x .@? "ClusterParameterGroups" .!@ mempty >>=
may (parseXMLList "ClusterParameterGroup"))
<*> (x .@? "AvailabilityZone")
<*>
(x .@? "VpcSecurityGroups" .!@ mempty >>=
may (parseXMLList "VpcSecurityGroup"))
<*> (x .@? "KmsKeyId")
<*> (x .@? "HsmStatus")
<*> (x .@? "ElasticIpStatus")
<*> (x .@? "ClusterVersion")
<*> (x .@? "NodeType")
<*> (x .@? "Endpoint")
<*> (x .@? "ClusterCreateTime")
<*> (x .@? "AllowVersionUpgrade")
<*> (x .@? "PendingModifiedValues")
<*> (x .@? "ClusterStatus")
<*> (x .@? "DBName")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*>
(x .@? "ClusterNodes" .!@ mempty >>=
may (parseXMLList "member"))
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")
data ClusterParameterGroup = ClusterParameterGroup'
{ _cpgParameterGroupFamily :: !(Maybe Text)
, _cpgDescription :: !(Maybe Text)
, _cpgParameterGroupName :: !(Maybe Text)
, _cpgTags :: !(Maybe [Tag])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
clusterParameterGroup
:: ClusterParameterGroup
clusterParameterGroup =
ClusterParameterGroup'
{ _cpgParameterGroupFamily = Nothing
, _cpgDescription = Nothing
, _cpgParameterGroupName = Nothing
, _cpgTags = 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});
cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)
cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a});
cpgTags :: Lens' ClusterParameterGroup [Tag]
cpgTags = lens _cpgTags (\ s a -> s{_cpgTags = a}) . _Default . _Coerce;
instance FromXML ClusterParameterGroup where
parseXML x
= ClusterParameterGroup' <$>
(x .@? "ParameterGroupFamily") <*>
(x .@? "Description")
<*> (x .@? "ParameterGroupName")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
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")
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")
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")
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"))
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")
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")
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"))
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")
data DefaultClusterParameters = DefaultClusterParameters'
{ _dcpParameters :: !(Maybe [Parameter])
, _dcpMarker :: !(Maybe Text)
, _dcpParameterGroupFamily :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
defaultClusterParameters
:: DefaultClusterParameters
defaultClusterParameters =
DefaultClusterParameters'
{ _dcpParameters = Nothing
, _dcpMarker = Nothing
, _dcpParameterGroupFamily = Nothing
}
dcpParameters :: Lens' DefaultClusterParameters [Parameter]
dcpParameters = lens _dcpParameters (\ s a -> s{_dcpParameters = a}) . _Default . _Coerce;
dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)
dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a});
dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)
dcpParameterGroupFamily = lens _dcpParameterGroupFamily (\ s a -> s{_dcpParameterGroupFamily = a});
instance FromXML DefaultClusterParameters where
parseXML x
= DefaultClusterParameters' <$>
(x .@? "Parameters" .!@ mempty >>=
may (parseXMLList "Parameter"))
<*> (x .@? "Marker")
<*> (x .@? "ParameterGroupFamily")
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"))
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")
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")
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")
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"))
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")
data EventSubscription = EventSubscription'
{ _esCustomerAWSId :: !(Maybe Text)
, _esStatus :: !(Maybe Text)
, _esCustSubscriptionId :: !(Maybe Text)
, _esSNSTopicARN :: !(Maybe Text)
, _esEnabled :: !(Maybe Bool)
, _esSourceType :: !(Maybe Text)
, _esSeverity :: !(Maybe Text)
, _esSubscriptionCreationTime :: !(Maybe ISO8601)
, _esEventCategoriesList :: !(Maybe [Text])
, _esSourceIdsList :: !(Maybe [Text])
, _esTags :: !(Maybe [Tag])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
eventSubscription
:: EventSubscription
eventSubscription =
EventSubscription'
{ _esCustomerAWSId = Nothing
, _esStatus = Nothing
, _esCustSubscriptionId = Nothing
, _esSNSTopicARN = Nothing
, _esEnabled = Nothing
, _esSourceType = Nothing
, _esSeverity = Nothing
, _esSubscriptionCreationTime = Nothing
, _esEventCategoriesList = Nothing
, _esSourceIdsList = Nothing
, _esTags = Nothing
}
esCustomerAWSId :: Lens' EventSubscription (Maybe Text)
esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a});
esStatus :: Lens' EventSubscription (Maybe Text)
esStatus = lens _esStatus (\ s a -> s{_esStatus = 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;
esSourceIdsList :: Lens' EventSubscription [Text]
esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce;
esTags :: Lens' EventSubscription [Tag]
esTags = lens _esTags (\ s a -> s{_esTags = a}) . _Default . _Coerce;
instance FromXML EventSubscription where
parseXML x
= EventSubscription' <$>
(x .@? "CustomerAwsId") <*> (x .@? "Status") <*>
(x .@? "CustSubscriptionId")
<*> (x .@? "SnsTopicArn")
<*> (x .@? "Enabled")
<*> (x .@? "SourceType")
<*> (x .@? "Severity")
<*> (x .@? "SubscriptionCreationTime")
<*>
(x .@? "EventCategoriesList" .!@ mempty >>=
may (parseXMLList "EventCategory"))
<*>
(x .@? "SourceIdsList" .!@ mempty >>=
may (parseXMLList "SourceId"))
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
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"))
data HSMConfiguration = HSMConfiguration'
{ _hcHSMConfigurationIdentifier :: !(Maybe Text)
, _hcHSMPartitionName :: !(Maybe Text)
, _hcDescription :: !(Maybe Text)
, _hcHSMIPAddress :: !(Maybe Text)
, _hcTags :: !(Maybe [Tag])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
hsmConfiguration
:: HSMConfiguration
hsmConfiguration =
HSMConfiguration'
{ _hcHSMConfigurationIdentifier = Nothing
, _hcHSMPartitionName = Nothing
, _hcDescription = Nothing
, _hcHSMIPAddress = Nothing
, _hcTags = 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});
hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)
hcHSMIPAddress = lens _hcHSMIPAddress (\ s a -> s{_hcHSMIPAddress = a});
hcTags :: Lens' HSMConfiguration [Tag]
hcTags = lens _hcTags (\ s a -> s{_hcTags = a}) . _Default . _Coerce;
instance FromXML HSMConfiguration where
parseXML x
= HSMConfiguration' <$>
(x .@? "HsmConfigurationIdentifier") <*>
(x .@? "HsmPartitionName")
<*> (x .@? "Description")
<*> (x .@? "HsmIpAddress")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
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")
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"))
data LoggingStatus = LoggingStatus'
{ _lsLastSuccessfulDeliveryTime :: !(Maybe ISO8601)
, _lsLastFailureTime :: !(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'
{ _lsLastSuccessfulDeliveryTime = Nothing
, _lsLastFailureTime = Nothing
, _lsS3KeyPrefix = Nothing
, _lsBucketName = Nothing
, _lsLoggingEnabled = Nothing
, _lsLastFailureMessage = Nothing
}
lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)
lsLastSuccessfulDeliveryTime = lens _lsLastSuccessfulDeliveryTime (\ s a -> s{_lsLastSuccessfulDeliveryTime = a}) . mapping _Time;
lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)
lsLastFailureTime = lens _lsLastFailureTime (\ s a -> s{_lsLastFailureTime = 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 .@? "LastSuccessfulDeliveryTime") <*>
(x .@? "LastFailureTime")
<*> (x .@? "S3KeyPrefix")
<*> (x .@? "BucketName")
<*> (x .@? "LoggingEnabled")
<*> (x .@? "LastFailureMessage")
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")
data Parameter = Parameter'
{ _pApplyType :: !(Maybe ParameterApplyType)
, _pParameterValue :: !(Maybe Text)
, _pMinimumEngineVersion :: !(Maybe Text)
, _pSource :: !(Maybe Text)
, _pIsModifiable :: !(Maybe Bool)
, _pAllowedValues :: !(Maybe Text)
, _pDataType :: !(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
, _pAllowedValues = Nothing
, _pDataType = 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});
pAllowedValues :: Lens' Parameter (Maybe Text)
pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a});
pDataType :: Lens' Parameter (Maybe Text)
pDataType = lens _pDataType (\ s a -> s{_pDataType = 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 .@? "AllowedValues")
<*> (x .@? "DataType")
<*> (x .@? "ParameterName")
<*> (x .@? "Description")
instance ToQuery Parameter where
toQuery Parameter'{..}
= mconcat
["ApplyType" =: _pApplyType,
"ParameterValue" =: _pParameterValue,
"MinimumEngineVersion" =: _pMinimumEngineVersion,
"Source" =: _pSource,
"IsModifiable" =: _pIsModifiable,
"AllowedValues" =: _pAllowedValues,
"DataType" =: _pDataType,
"ParameterName" =: _pParameterName,
"Description" =: _pDescription]
data PendingModifiedValues = PendingModifiedValues'
{ _pmvMasterUserPassword :: !(Maybe Text)
, _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'
{ _pmvMasterUserPassword = Nothing
, _pmvAutomatedSnapshotRetentionPeriod = Nothing
, _pmvClusterIdentifier = Nothing
, _pmvNumberOfNodes = Nothing
, _pmvClusterType = Nothing
, _pmvClusterVersion = Nothing
, _pmvNodeType = Nothing
}
pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)
pmvMasterUserPassword = lens _pmvMasterUserPassword (\ s a -> s{_pmvMasterUserPassword = 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 .@? "MasterUserPassword") <*>
(x .@? "AutomatedSnapshotRetentionPeriod")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "NumberOfNodes")
<*> (x .@? "ClusterType")
<*> (x .@? "ClusterVersion")
<*> (x .@? "NodeType")
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")
data ReservedNode = ReservedNode'
{ _rnState :: !(Maybe Text)
, _rnCurrencyCode :: !(Maybe Text)
, _rnStartTime :: !(Maybe ISO8601)
, _rnNodeCount :: !(Maybe Int)
, _rnReservedNodeOfferingId :: !(Maybe Text)
, _rnReservedNodeId :: !(Maybe Text)
, _rnOfferingType :: !(Maybe Text)
, _rnUsagePrice :: !(Maybe Double)
, _rnNodeType :: !(Maybe Text)
, _rnRecurringCharges :: !(Maybe [RecurringCharge])
, _rnFixedPrice :: !(Maybe Double)
, _rnDuration :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
reservedNode
:: ReservedNode
reservedNode =
ReservedNode'
{ _rnState = Nothing
, _rnCurrencyCode = Nothing
, _rnStartTime = Nothing
, _rnNodeCount = Nothing
, _rnReservedNodeOfferingId = Nothing
, _rnReservedNodeId = Nothing
, _rnOfferingType = Nothing
, _rnUsagePrice = Nothing
, _rnNodeType = Nothing
, _rnRecurringCharges = Nothing
, _rnFixedPrice = Nothing
, _rnDuration = Nothing
}
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});
rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)
rnReservedNodeOfferingId = lens _rnReservedNodeOfferingId (\ s a -> s{_rnReservedNodeOfferingId = a});
rnReservedNodeId :: Lens' ReservedNode (Maybe Text)
rnReservedNodeId = lens _rnReservedNodeId (\ s a -> s{_rnReservedNodeId = a});
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});
rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]
rnRecurringCharges = lens _rnRecurringCharges (\ s a -> s{_rnRecurringCharges = a}) . _Default . _Coerce;
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 .@? "State") <*> (x .@? "CurrencyCode") <*>
(x .@? "StartTime")
<*> (x .@? "NodeCount")
<*> (x .@? "ReservedNodeOfferingId")
<*> (x .@? "ReservedNodeId")
<*> (x .@? "OfferingType")
<*> (x .@? "UsagePrice")
<*> (x .@? "NodeType")
<*>
(x .@? "RecurringCharges" .!@ mempty >>=
may (parseXMLList "RecurringCharge"))
<*> (x .@? "FixedPrice")
<*> (x .@? "Duration")
data ReservedNodeOffering = ReservedNodeOffering'
{ _rnoCurrencyCode :: !(Maybe Text)
, _rnoReservedNodeOfferingId :: !(Maybe Text)
, _rnoOfferingType :: !(Maybe Text)
, _rnoUsagePrice :: !(Maybe Double)
, _rnoNodeType :: !(Maybe Text)
, _rnoRecurringCharges :: !(Maybe [RecurringCharge])
, _rnoFixedPrice :: !(Maybe Double)
, _rnoDuration :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
reservedNodeOffering
:: ReservedNodeOffering
reservedNodeOffering =
ReservedNodeOffering'
{ _rnoCurrencyCode = Nothing
, _rnoReservedNodeOfferingId = Nothing
, _rnoOfferingType = Nothing
, _rnoUsagePrice = Nothing
, _rnoNodeType = Nothing
, _rnoRecurringCharges = Nothing
, _rnoFixedPrice = Nothing
, _rnoDuration = Nothing
}
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});
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});
rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]
rnoRecurringCharges = lens _rnoRecurringCharges (\ s a -> s{_rnoRecurringCharges = a}) . _Default . _Coerce;
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 .@? "CurrencyCode") <*>
(x .@? "ReservedNodeOfferingId")
<*> (x .@? "OfferingType")
<*> (x .@? "UsagePrice")
<*> (x .@? "NodeType")
<*>
(x .@? "RecurringCharges" .!@ mempty >>=
may (parseXMLList "RecurringCharge"))
<*> (x .@? "FixedPrice")
<*> (x .@? "Duration")
data RestoreStatus = RestoreStatus'
{ _rsEstimatedTimeToCompletionInSeconds :: !(Maybe Integer)
, _rsStatus :: !(Maybe Text)
, _rsCurrentRestoreRateInMegaBytesPerSecond :: !(Maybe Double)
, _rsProgressInMegaBytes :: !(Maybe Integer)
, _rsElapsedTimeInSeconds :: !(Maybe Integer)
, _rsSnapshotSizeInMegaBytes :: !(Maybe Integer)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
restoreStatus
:: RestoreStatus
restoreStatus =
RestoreStatus'
{ _rsEstimatedTimeToCompletionInSeconds = Nothing
, _rsStatus = Nothing
, _rsCurrentRestoreRateInMegaBytesPerSecond = Nothing
, _rsProgressInMegaBytes = Nothing
, _rsElapsedTimeInSeconds = Nothing
, _rsSnapshotSizeInMegaBytes = Nothing
}
rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)
rsEstimatedTimeToCompletionInSeconds = lens _rsEstimatedTimeToCompletionInSeconds (\ s a -> s{_rsEstimatedTimeToCompletionInSeconds = a});
rsStatus :: Lens' RestoreStatus (Maybe Text)
rsStatus = lens _rsStatus (\ s a -> s{_rsStatus = 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 .@? "EstimatedTimeToCompletionInSeconds") <*>
(x .@? "Status")
<*> (x .@? "CurrentRestoreRateInMegaBytesPerSecond")
<*> (x .@? "ProgressInMegaBytes")
<*> (x .@? "ElapsedTimeInSeconds")
<*> (x .@? "SnapshotSizeInMegaBytes")
data Snapshot = Snapshot'
{ _sRestorableNodeTypes :: !(Maybe [Text])
, _sStatus :: !(Maybe Text)
, _sAccountsWithRestoreAccess :: !(Maybe [AccountWithRestoreAccess])
, _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)
, _sAvailabilityZone :: !(Maybe Text)
, _sKMSKeyId :: !(Maybe Text)
, _sCurrentBackupRateInMegaBytesPerSecond :: !(Maybe Double)
, _sSnapshotCreateTime :: !(Maybe ISO8601)
, _sClusterVersion :: !(Maybe Text)
, _sOwnerAccount :: !(Maybe Text)
, _sNodeType :: !(Maybe Text)
, _sClusterCreateTime :: !(Maybe ISO8601)
, _sElapsedTimeInSeconds :: !(Maybe Integer)
, _sEstimatedSecondsToCompletion :: !(Maybe Integer)
, _sTotalBackupSizeInMegaBytes :: !(Maybe Double)
, _sDBName :: !(Maybe Text)
, _sTags :: !(Maybe [Tag])
, _sActualIncrementalBackupSizeInMegaBytes :: !(Maybe Double)
, _sPort :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
snapshot
:: Snapshot
snapshot =
Snapshot'
{ _sRestorableNodeTypes = Nothing
, _sStatus = Nothing
, _sAccountsWithRestoreAccess = Nothing
, _sSnapshotIdentifier = Nothing
, _sEncryptedWithHSM = Nothing
, _sMasterUsername = Nothing
, _sSourceRegion = Nothing
, _sVPCId = Nothing
, _sBackupProgressInMegaBytes = Nothing
, _sEncrypted = Nothing
, _sClusterIdentifier = Nothing
, _sNumberOfNodes = Nothing
, _sSnapshotType = Nothing
, _sAvailabilityZone = Nothing
, _sKMSKeyId = Nothing
, _sCurrentBackupRateInMegaBytesPerSecond = Nothing
, _sSnapshotCreateTime = Nothing
, _sClusterVersion = Nothing
, _sOwnerAccount = Nothing
, _sNodeType = Nothing
, _sClusterCreateTime = Nothing
, _sElapsedTimeInSeconds = Nothing
, _sEstimatedSecondsToCompletion = Nothing
, _sTotalBackupSizeInMegaBytes = Nothing
, _sDBName = Nothing
, _sTags = Nothing
, _sActualIncrementalBackupSizeInMegaBytes = Nothing
, _sPort = Nothing
}
sRestorableNodeTypes :: Lens' Snapshot [Text]
sRestorableNodeTypes = lens _sRestorableNodeTypes (\ s a -> s{_sRestorableNodeTypes = a}) . _Default . _Coerce;
sStatus :: Lens' Snapshot (Maybe Text)
sStatus = lens _sStatus (\ s a -> s{_sStatus = a});
sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]
sAccountsWithRestoreAccess = lens _sAccountsWithRestoreAccess (\ s a -> s{_sAccountsWithRestoreAccess = a}) . _Default . _Coerce;
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});
sAvailabilityZone :: Lens' Snapshot (Maybe Text)
sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a});
sKMSKeyId :: Lens' Snapshot (Maybe Text)
sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = 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});
sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
sClusterCreateTime = lens _sClusterCreateTime (\ s a -> s{_sClusterCreateTime = a}) . mapping _Time;
sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)
sElapsedTimeInSeconds = lens _sElapsedTimeInSeconds (\ s a -> s{_sElapsedTimeInSeconds = a});
sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)
sEstimatedSecondsToCompletion = lens _sEstimatedSecondsToCompletion (\ s a -> s{_sEstimatedSecondsToCompletion = 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});
sTags :: Lens' Snapshot [Tag]
sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce;
sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)
sActualIncrementalBackupSizeInMegaBytes = lens _sActualIncrementalBackupSizeInMegaBytes (\ s a -> s{_sActualIncrementalBackupSizeInMegaBytes = a});
sPort :: Lens' Snapshot (Maybe Int)
sPort = lens _sPort (\ s a -> s{_sPort = a});
instance FromXML Snapshot where
parseXML x
= Snapshot' <$>
(x .@? "RestorableNodeTypes" .!@ mempty >>=
may (parseXMLList "NodeType"))
<*> (x .@? "Status")
<*>
(x .@? "AccountsWithRestoreAccess" .!@ mempty >>=
may (parseXMLList "AccountWithRestoreAccess"))
<*> (x .@? "SnapshotIdentifier")
<*> (x .@? "EncryptedWithHSM")
<*> (x .@? "MasterUsername")
<*> (x .@? "SourceRegion")
<*> (x .@? "VpcId")
<*> (x .@? "BackupProgressInMegaBytes")
<*> (x .@? "Encrypted")
<*> (x .@? "ClusterIdentifier")
<*> (x .@? "NumberOfNodes")
<*> (x .@? "SnapshotType")
<*> (x .@? "AvailabilityZone")
<*> (x .@? "KmsKeyId")
<*> (x .@? "CurrentBackupRateInMegaBytesPerSecond")
<*> (x .@? "SnapshotCreateTime")
<*> (x .@? "ClusterVersion")
<*> (x .@? "OwnerAccount")
<*> (x .@? "NodeType")
<*> (x .@? "ClusterCreateTime")
<*> (x .@? "ElapsedTimeInSeconds")
<*> (x .@? "EstimatedSecondsToCompletion")
<*> (x .@? "TotalBackupSizeInMegaBytes")
<*> (x .@? "DBName")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "Tag"))
<*> (x .@? "ActualIncrementalBackupSizeInMegaBytes")
<*> (x .@? "Port")
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"))
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")
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 ToQuery Tag where
toQuery Tag'{..}
= mconcat ["Value" =: _tagValue, "Key" =: _tagKey]
data TaggedResource = TaggedResource'
{ _trResourceType :: !(Maybe Text)
, _trTag :: !(Maybe Tag)
, _trResourceName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
taggedResource
:: TaggedResource
taggedResource =
TaggedResource'
{ _trResourceType = Nothing
, _trTag = Nothing
, _trResourceName = Nothing
}
trResourceType :: Lens' TaggedResource (Maybe Text)
trResourceType = lens _trResourceType (\ s a -> s{_trResourceType = a});
trTag :: Lens' TaggedResource (Maybe Tag)
trTag = lens _trTag (\ s a -> s{_trTag = a});
trResourceName :: Lens' TaggedResource (Maybe Text)
trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a});
instance FromXML TaggedResource where
parseXML x
= TaggedResource' <$>
(x .@? "ResourceType") <*> (x .@? "Tag") <*>
(x .@? "ResourceName")
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")