module Network.AWS.ElastiCache.Types.Product where
import Network.AWS.ElastiCache.Types.Sum
import Network.AWS.Prelude
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 CacheCluster = CacheCluster'
{ _ccCacheNodeType :: !(Maybe Text)
, _ccEngineVersion :: !(Maybe Text)
, _ccCacheNodes :: !(Maybe [CacheNode])
, _ccCacheClusterCreateTime :: !(Maybe ISO8601)
, _ccAutoMinorVersionUpgrade :: !(Maybe Bool)
, _ccSecurityGroups :: !(Maybe [SecurityGroupMembership])
, _ccNotificationConfiguration :: !(Maybe NotificationConfiguration)
, _ccSnapshotWindow :: !(Maybe Text)
, _ccCacheClusterId :: !(Maybe Text)
, _ccConfigurationEndpoint :: !(Maybe Endpoint)
, _ccEngine :: !(Maybe Text)
, _ccCacheSecurityGroups :: !(Maybe [CacheSecurityGroupMembership])
, _ccClientDownloadLandingPage :: !(Maybe Text)
, _ccPreferredMaintenanceWindow :: !(Maybe Text)
, _ccCacheSubnetGroupName :: !(Maybe Text)
, _ccCacheClusterStatus :: !(Maybe Text)
, _ccPreferredAvailabilityZone :: !(Maybe Text)
, _ccCacheParameterGroup :: !(Maybe CacheParameterGroupStatus)
, _ccSnapshotRetentionLimit :: !(Maybe Int)
, _ccReplicationGroupId :: !(Maybe Text)
, _ccPendingModifiedValues :: !(Maybe PendingModifiedValues)
, _ccNumCacheNodes :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheCluster
:: CacheCluster
cacheCluster =
CacheCluster'
{ _ccCacheNodeType = Nothing
, _ccEngineVersion = Nothing
, _ccCacheNodes = Nothing
, _ccCacheClusterCreateTime = Nothing
, _ccAutoMinorVersionUpgrade = Nothing
, _ccSecurityGroups = Nothing
, _ccNotificationConfiguration = Nothing
, _ccSnapshotWindow = Nothing
, _ccCacheClusterId = Nothing
, _ccConfigurationEndpoint = Nothing
, _ccEngine = Nothing
, _ccCacheSecurityGroups = Nothing
, _ccClientDownloadLandingPage = Nothing
, _ccPreferredMaintenanceWindow = Nothing
, _ccCacheSubnetGroupName = Nothing
, _ccCacheClusterStatus = Nothing
, _ccPreferredAvailabilityZone = Nothing
, _ccCacheParameterGroup = Nothing
, _ccSnapshotRetentionLimit = Nothing
, _ccReplicationGroupId = Nothing
, _ccPendingModifiedValues = Nothing
, _ccNumCacheNodes = Nothing
}
ccCacheNodeType :: Lens' CacheCluster (Maybe Text)
ccCacheNodeType = lens _ccCacheNodeType (\ s a -> s{_ccCacheNodeType = a});
ccEngineVersion :: Lens' CacheCluster (Maybe Text)
ccEngineVersion = lens _ccEngineVersion (\ s a -> s{_ccEngineVersion = a});
ccCacheNodes :: Lens' CacheCluster [CacheNode]
ccCacheNodes = lens _ccCacheNodes (\ s a -> s{_ccCacheNodes = a}) . _Default . _Coerce;
ccCacheClusterCreateTime :: Lens' CacheCluster (Maybe UTCTime)
ccCacheClusterCreateTime = lens _ccCacheClusterCreateTime (\ s a -> s{_ccCacheClusterCreateTime = a}) . mapping _Time;
ccAutoMinorVersionUpgrade :: Lens' CacheCluster (Maybe Bool)
ccAutoMinorVersionUpgrade = lens _ccAutoMinorVersionUpgrade (\ s a -> s{_ccAutoMinorVersionUpgrade = a});
ccSecurityGroups :: Lens' CacheCluster [SecurityGroupMembership]
ccSecurityGroups = lens _ccSecurityGroups (\ s a -> s{_ccSecurityGroups = a}) . _Default . _Coerce;
ccNotificationConfiguration :: Lens' CacheCluster (Maybe NotificationConfiguration)
ccNotificationConfiguration = lens _ccNotificationConfiguration (\ s a -> s{_ccNotificationConfiguration = a});
ccSnapshotWindow :: Lens' CacheCluster (Maybe Text)
ccSnapshotWindow = lens _ccSnapshotWindow (\ s a -> s{_ccSnapshotWindow = a});
ccCacheClusterId :: Lens' CacheCluster (Maybe Text)
ccCacheClusterId = lens _ccCacheClusterId (\ s a -> s{_ccCacheClusterId = a});
ccConfigurationEndpoint :: Lens' CacheCluster (Maybe Endpoint)
ccConfigurationEndpoint = lens _ccConfigurationEndpoint (\ s a -> s{_ccConfigurationEndpoint = a});
ccEngine :: Lens' CacheCluster (Maybe Text)
ccEngine = lens _ccEngine (\ s a -> s{_ccEngine = a});
ccCacheSecurityGroups :: Lens' CacheCluster [CacheSecurityGroupMembership]
ccCacheSecurityGroups = lens _ccCacheSecurityGroups (\ s a -> s{_ccCacheSecurityGroups = a}) . _Default . _Coerce;
ccClientDownloadLandingPage :: Lens' CacheCluster (Maybe Text)
ccClientDownloadLandingPage = lens _ccClientDownloadLandingPage (\ s a -> s{_ccClientDownloadLandingPage = a});
ccPreferredMaintenanceWindow :: Lens' CacheCluster (Maybe Text)
ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a});
ccCacheSubnetGroupName :: Lens' CacheCluster (Maybe Text)
ccCacheSubnetGroupName = lens _ccCacheSubnetGroupName (\ s a -> s{_ccCacheSubnetGroupName = a});
ccCacheClusterStatus :: Lens' CacheCluster (Maybe Text)
ccCacheClusterStatus = lens _ccCacheClusterStatus (\ s a -> s{_ccCacheClusterStatus = a});
ccPreferredAvailabilityZone :: Lens' CacheCluster (Maybe Text)
ccPreferredAvailabilityZone = lens _ccPreferredAvailabilityZone (\ s a -> s{_ccPreferredAvailabilityZone = a});
ccCacheParameterGroup :: Lens' CacheCluster (Maybe CacheParameterGroupStatus)
ccCacheParameterGroup = lens _ccCacheParameterGroup (\ s a -> s{_ccCacheParameterGroup = a});
ccSnapshotRetentionLimit :: Lens' CacheCluster (Maybe Int)
ccSnapshotRetentionLimit = lens _ccSnapshotRetentionLimit (\ s a -> s{_ccSnapshotRetentionLimit = a});
ccReplicationGroupId :: Lens' CacheCluster (Maybe Text)
ccReplicationGroupId = lens _ccReplicationGroupId (\ s a -> s{_ccReplicationGroupId = a});
ccPendingModifiedValues :: Lens' CacheCluster (Maybe PendingModifiedValues)
ccPendingModifiedValues = lens _ccPendingModifiedValues (\ s a -> s{_ccPendingModifiedValues = a});
ccNumCacheNodes :: Lens' CacheCluster (Maybe Int)
ccNumCacheNodes = lens _ccNumCacheNodes (\ s a -> s{_ccNumCacheNodes = a});
instance FromXML CacheCluster where
parseXML x
= CacheCluster' <$>
(x .@? "CacheNodeType") <*> (x .@? "EngineVersion")
<*>
(x .@? "CacheNodes" .!@ mempty >>=
may (parseXMLList "CacheNode"))
<*> (x .@? "CacheClusterCreateTime")
<*> (x .@? "AutoMinorVersionUpgrade")
<*>
(x .@? "SecurityGroups" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "NotificationConfiguration")
<*> (x .@? "SnapshotWindow")
<*> (x .@? "CacheClusterId")
<*> (x .@? "ConfigurationEndpoint")
<*> (x .@? "Engine")
<*>
(x .@? "CacheSecurityGroups" .!@ mempty >>=
may (parseXMLList "CacheSecurityGroup"))
<*> (x .@? "ClientDownloadLandingPage")
<*> (x .@? "PreferredMaintenanceWindow")
<*> (x .@? "CacheSubnetGroupName")
<*> (x .@? "CacheClusterStatus")
<*> (x .@? "PreferredAvailabilityZone")
<*> (x .@? "CacheParameterGroup")
<*> (x .@? "SnapshotRetentionLimit")
<*> (x .@? "ReplicationGroupId")
<*> (x .@? "PendingModifiedValues")
<*> (x .@? "NumCacheNodes")
data CacheEngineVersion = CacheEngineVersion'
{ _cevCacheEngineDescription :: !(Maybe Text)
, _cevCacheParameterGroupFamily :: !(Maybe Text)
, _cevEngineVersion :: !(Maybe Text)
, _cevCacheEngineVersionDescription :: !(Maybe Text)
, _cevEngine :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheEngineVersion
:: CacheEngineVersion
cacheEngineVersion =
CacheEngineVersion'
{ _cevCacheEngineDescription = Nothing
, _cevCacheParameterGroupFamily = Nothing
, _cevEngineVersion = Nothing
, _cevCacheEngineVersionDescription = Nothing
, _cevEngine = Nothing
}
cevCacheEngineDescription :: Lens' CacheEngineVersion (Maybe Text)
cevCacheEngineDescription = lens _cevCacheEngineDescription (\ s a -> s{_cevCacheEngineDescription = a});
cevCacheParameterGroupFamily :: Lens' CacheEngineVersion (Maybe Text)
cevCacheParameterGroupFamily = lens _cevCacheParameterGroupFamily (\ s a -> s{_cevCacheParameterGroupFamily = a});
cevEngineVersion :: Lens' CacheEngineVersion (Maybe Text)
cevEngineVersion = lens _cevEngineVersion (\ s a -> s{_cevEngineVersion = a});
cevCacheEngineVersionDescription :: Lens' CacheEngineVersion (Maybe Text)
cevCacheEngineVersionDescription = lens _cevCacheEngineVersionDescription (\ s a -> s{_cevCacheEngineVersionDescription = a});
cevEngine :: Lens' CacheEngineVersion (Maybe Text)
cevEngine = lens _cevEngine (\ s a -> s{_cevEngine = a});
instance FromXML CacheEngineVersion where
parseXML x
= CacheEngineVersion' <$>
(x .@? "CacheEngineDescription") <*>
(x .@? "CacheParameterGroupFamily")
<*> (x .@? "EngineVersion")
<*> (x .@? "CacheEngineVersionDescription")
<*> (x .@? "Engine")
data CacheNode = CacheNode'
{ _cnSourceCacheNodeId :: !(Maybe Text)
, _cnParameterGroupStatus :: !(Maybe Text)
, _cnCacheNodeCreateTime :: !(Maybe ISO8601)
, _cnCustomerAvailabilityZone :: !(Maybe Text)
, _cnCacheNodeId :: !(Maybe Text)
, _cnCacheNodeStatus :: !(Maybe Text)
, _cnEndpoint :: !(Maybe Endpoint)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheNode
:: CacheNode
cacheNode =
CacheNode'
{ _cnSourceCacheNodeId = Nothing
, _cnParameterGroupStatus = Nothing
, _cnCacheNodeCreateTime = Nothing
, _cnCustomerAvailabilityZone = Nothing
, _cnCacheNodeId = Nothing
, _cnCacheNodeStatus = Nothing
, _cnEndpoint = Nothing
}
cnSourceCacheNodeId :: Lens' CacheNode (Maybe Text)
cnSourceCacheNodeId = lens _cnSourceCacheNodeId (\ s a -> s{_cnSourceCacheNodeId = a});
cnParameterGroupStatus :: Lens' CacheNode (Maybe Text)
cnParameterGroupStatus = lens _cnParameterGroupStatus (\ s a -> s{_cnParameterGroupStatus = a});
cnCacheNodeCreateTime :: Lens' CacheNode (Maybe UTCTime)
cnCacheNodeCreateTime = lens _cnCacheNodeCreateTime (\ s a -> s{_cnCacheNodeCreateTime = a}) . mapping _Time;
cnCustomerAvailabilityZone :: Lens' CacheNode (Maybe Text)
cnCustomerAvailabilityZone = lens _cnCustomerAvailabilityZone (\ s a -> s{_cnCustomerAvailabilityZone = a});
cnCacheNodeId :: Lens' CacheNode (Maybe Text)
cnCacheNodeId = lens _cnCacheNodeId (\ s a -> s{_cnCacheNodeId = a});
cnCacheNodeStatus :: Lens' CacheNode (Maybe Text)
cnCacheNodeStatus = lens _cnCacheNodeStatus (\ s a -> s{_cnCacheNodeStatus = a});
cnEndpoint :: Lens' CacheNode (Maybe Endpoint)
cnEndpoint = lens _cnEndpoint (\ s a -> s{_cnEndpoint = a});
instance FromXML CacheNode where
parseXML x
= CacheNode' <$>
(x .@? "SourceCacheNodeId") <*>
(x .@? "ParameterGroupStatus")
<*> (x .@? "CacheNodeCreateTime")
<*> (x .@? "CustomerAvailabilityZone")
<*> (x .@? "CacheNodeId")
<*> (x .@? "CacheNodeStatus")
<*> (x .@? "Endpoint")
data CacheNodeTypeSpecificParameter = CacheNodeTypeSpecificParameter'
{ _cntspCacheNodeTypeSpecificValues :: !(Maybe [CacheNodeTypeSpecificValue])
, _cntspMinimumEngineVersion :: !(Maybe Text)
, _cntspSource :: !(Maybe Text)
, _cntspIsModifiable :: !(Maybe Bool)
, _cntspAllowedValues :: !(Maybe Text)
, _cntspDataType :: !(Maybe Text)
, _cntspParameterName :: !(Maybe Text)
, _cntspDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheNodeTypeSpecificParameter
:: CacheNodeTypeSpecificParameter
cacheNodeTypeSpecificParameter =
CacheNodeTypeSpecificParameter'
{ _cntspCacheNodeTypeSpecificValues = Nothing
, _cntspMinimumEngineVersion = Nothing
, _cntspSource = Nothing
, _cntspIsModifiable = Nothing
, _cntspAllowedValues = Nothing
, _cntspDataType = Nothing
, _cntspParameterName = Nothing
, _cntspDescription = Nothing
}
cntspCacheNodeTypeSpecificValues :: Lens' CacheNodeTypeSpecificParameter [CacheNodeTypeSpecificValue]
cntspCacheNodeTypeSpecificValues = lens _cntspCacheNodeTypeSpecificValues (\ s a -> s{_cntspCacheNodeTypeSpecificValues = a}) . _Default . _Coerce;
cntspMinimumEngineVersion :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)
cntspMinimumEngineVersion = lens _cntspMinimumEngineVersion (\ s a -> s{_cntspMinimumEngineVersion = a});
cntspSource :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)
cntspSource = lens _cntspSource (\ s a -> s{_cntspSource = a});
cntspIsModifiable :: Lens' CacheNodeTypeSpecificParameter (Maybe Bool)
cntspIsModifiable = lens _cntspIsModifiable (\ s a -> s{_cntspIsModifiable = a});
cntspAllowedValues :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)
cntspAllowedValues = lens _cntspAllowedValues (\ s a -> s{_cntspAllowedValues = a});
cntspDataType :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)
cntspDataType = lens _cntspDataType (\ s a -> s{_cntspDataType = a});
cntspParameterName :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)
cntspParameterName = lens _cntspParameterName (\ s a -> s{_cntspParameterName = a});
cntspDescription :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)
cntspDescription = lens _cntspDescription (\ s a -> s{_cntspDescription = a});
instance FromXML CacheNodeTypeSpecificParameter where
parseXML x
= CacheNodeTypeSpecificParameter' <$>
(x .@? "CacheNodeTypeSpecificValues" .!@ mempty >>=
may (parseXMLList "CacheNodeTypeSpecificValue"))
<*> (x .@? "MinimumEngineVersion")
<*> (x .@? "Source")
<*> (x .@? "IsModifiable")
<*> (x .@? "AllowedValues")
<*> (x .@? "DataType")
<*> (x .@? "ParameterName")
<*> (x .@? "Description")
data CacheNodeTypeSpecificValue = CacheNodeTypeSpecificValue'
{ _cntsvCacheNodeType :: !(Maybe Text)
, _cntsvValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheNodeTypeSpecificValue
:: CacheNodeTypeSpecificValue
cacheNodeTypeSpecificValue =
CacheNodeTypeSpecificValue'
{ _cntsvCacheNodeType = Nothing
, _cntsvValue = Nothing
}
cntsvCacheNodeType :: Lens' CacheNodeTypeSpecificValue (Maybe Text)
cntsvCacheNodeType = lens _cntsvCacheNodeType (\ s a -> s{_cntsvCacheNodeType = a});
cntsvValue :: Lens' CacheNodeTypeSpecificValue (Maybe Text)
cntsvValue = lens _cntsvValue (\ s a -> s{_cntsvValue = a});
instance FromXML CacheNodeTypeSpecificValue where
parseXML x
= CacheNodeTypeSpecificValue' <$>
(x .@? "CacheNodeType") <*> (x .@? "Value")
data CacheParameterGroup = CacheParameterGroup'
{ _cpgCacheParameterGroupFamily :: !(Maybe Text)
, _cpgCacheParameterGroupName :: !(Maybe Text)
, _cpgDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheParameterGroup
:: CacheParameterGroup
cacheParameterGroup =
CacheParameterGroup'
{ _cpgCacheParameterGroupFamily = Nothing
, _cpgCacheParameterGroupName = Nothing
, _cpgDescription = Nothing
}
cpgCacheParameterGroupFamily :: Lens' CacheParameterGroup (Maybe Text)
cpgCacheParameterGroupFamily = lens _cpgCacheParameterGroupFamily (\ s a -> s{_cpgCacheParameterGroupFamily = a});
cpgCacheParameterGroupName :: Lens' CacheParameterGroup (Maybe Text)
cpgCacheParameterGroupName = lens _cpgCacheParameterGroupName (\ s a -> s{_cpgCacheParameterGroupName = a});
cpgDescription :: Lens' CacheParameterGroup (Maybe Text)
cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a});
instance FromXML CacheParameterGroup where
parseXML x
= CacheParameterGroup' <$>
(x .@? "CacheParameterGroupFamily") <*>
(x .@? "CacheParameterGroupName")
<*> (x .@? "Description")
newtype CacheParameterGroupNameMessage = CacheParameterGroupNameMessage'
{ _cpgnmCacheParameterGroupName :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheParameterGroupNameMessage
:: CacheParameterGroupNameMessage
cacheParameterGroupNameMessage =
CacheParameterGroupNameMessage'
{ _cpgnmCacheParameterGroupName = Nothing
}
cpgnmCacheParameterGroupName :: Lens' CacheParameterGroupNameMessage (Maybe Text)
cpgnmCacheParameterGroupName = lens _cpgnmCacheParameterGroupName (\ s a -> s{_cpgnmCacheParameterGroupName = a});
instance FromXML CacheParameterGroupNameMessage where
parseXML x
= CacheParameterGroupNameMessage' <$>
(x .@? "CacheParameterGroupName")
data CacheParameterGroupStatus = CacheParameterGroupStatus'
{ _cpgsCacheParameterGroupName :: !(Maybe Text)
, _cpgsCacheNodeIdsToReboot :: !(Maybe [Text])
, _cpgsParameterApplyStatus :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheParameterGroupStatus
:: CacheParameterGroupStatus
cacheParameterGroupStatus =
CacheParameterGroupStatus'
{ _cpgsCacheParameterGroupName = Nothing
, _cpgsCacheNodeIdsToReboot = Nothing
, _cpgsParameterApplyStatus = Nothing
}
cpgsCacheParameterGroupName :: Lens' CacheParameterGroupStatus (Maybe Text)
cpgsCacheParameterGroupName = lens _cpgsCacheParameterGroupName (\ s a -> s{_cpgsCacheParameterGroupName = a});
cpgsCacheNodeIdsToReboot :: Lens' CacheParameterGroupStatus [Text]
cpgsCacheNodeIdsToReboot = lens _cpgsCacheNodeIdsToReboot (\ s a -> s{_cpgsCacheNodeIdsToReboot = a}) . _Default . _Coerce;
cpgsParameterApplyStatus :: Lens' CacheParameterGroupStatus (Maybe Text)
cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a});
instance FromXML CacheParameterGroupStatus where
parseXML x
= CacheParameterGroupStatus' <$>
(x .@? "CacheParameterGroupName") <*>
(x .@? "CacheNodeIdsToReboot" .!@ mempty >>=
may (parseXMLList "CacheNodeId"))
<*> (x .@? "ParameterApplyStatus")
data CacheSecurityGroup = CacheSecurityGroup'
{ _csgCacheSecurityGroupName :: !(Maybe Text)
, _csgOwnerId :: !(Maybe Text)
, _csgEC2SecurityGroups :: !(Maybe [EC2SecurityGroup])
, _csgDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheSecurityGroup
:: CacheSecurityGroup
cacheSecurityGroup =
CacheSecurityGroup'
{ _csgCacheSecurityGroupName = Nothing
, _csgOwnerId = Nothing
, _csgEC2SecurityGroups = Nothing
, _csgDescription = Nothing
}
csgCacheSecurityGroupName :: Lens' CacheSecurityGroup (Maybe Text)
csgCacheSecurityGroupName = lens _csgCacheSecurityGroupName (\ s a -> s{_csgCacheSecurityGroupName = a});
csgOwnerId :: Lens' CacheSecurityGroup (Maybe Text)
csgOwnerId = lens _csgOwnerId (\ s a -> s{_csgOwnerId = a});
csgEC2SecurityGroups :: Lens' CacheSecurityGroup [EC2SecurityGroup]
csgEC2SecurityGroups = lens _csgEC2SecurityGroups (\ s a -> s{_csgEC2SecurityGroups = a}) . _Default . _Coerce;
csgDescription :: Lens' CacheSecurityGroup (Maybe Text)
csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a});
instance FromXML CacheSecurityGroup where
parseXML x
= CacheSecurityGroup' <$>
(x .@? "CacheSecurityGroupName") <*>
(x .@? "OwnerId")
<*>
(x .@? "EC2SecurityGroups" .!@ mempty >>=
may (parseXMLList "EC2SecurityGroup"))
<*> (x .@? "Description")
data CacheSecurityGroupMembership = CacheSecurityGroupMembership'
{ _csgmStatus :: !(Maybe Text)
, _csgmCacheSecurityGroupName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheSecurityGroupMembership
:: CacheSecurityGroupMembership
cacheSecurityGroupMembership =
CacheSecurityGroupMembership'
{ _csgmStatus = Nothing
, _csgmCacheSecurityGroupName = Nothing
}
csgmStatus :: Lens' CacheSecurityGroupMembership (Maybe Text)
csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a});
csgmCacheSecurityGroupName :: Lens' CacheSecurityGroupMembership (Maybe Text)
csgmCacheSecurityGroupName = lens _csgmCacheSecurityGroupName (\ s a -> s{_csgmCacheSecurityGroupName = a});
instance FromXML CacheSecurityGroupMembership where
parseXML x
= CacheSecurityGroupMembership' <$>
(x .@? "Status") <*> (x .@? "CacheSecurityGroupName")
data CacheSubnetGroup = CacheSubnetGroup'
{ _csgVPCId :: !(Maybe Text)
, _csgSubnets :: !(Maybe [Subnet])
, _csgCacheSubnetGroupName :: !(Maybe Text)
, _csgCacheSubnetGroupDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cacheSubnetGroup
:: CacheSubnetGroup
cacheSubnetGroup =
CacheSubnetGroup'
{ _csgVPCId = Nothing
, _csgSubnets = Nothing
, _csgCacheSubnetGroupName = Nothing
, _csgCacheSubnetGroupDescription = Nothing
}
csgVPCId :: Lens' CacheSubnetGroup (Maybe Text)
csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a});
csgSubnets :: Lens' CacheSubnetGroup [Subnet]
csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce;
csgCacheSubnetGroupName :: Lens' CacheSubnetGroup (Maybe Text)
csgCacheSubnetGroupName = lens _csgCacheSubnetGroupName (\ s a -> s{_csgCacheSubnetGroupName = a});
csgCacheSubnetGroupDescription :: Lens' CacheSubnetGroup (Maybe Text)
csgCacheSubnetGroupDescription = lens _csgCacheSubnetGroupDescription (\ s a -> s{_csgCacheSubnetGroupDescription = a});
instance FromXML CacheSubnetGroup where
parseXML x
= CacheSubnetGroup' <$>
(x .@? "VpcId") <*>
(x .@? "Subnets" .!@ mempty >>=
may (parseXMLList "Subnet"))
<*> (x .@? "CacheSubnetGroupName")
<*> (x .@? "CacheSubnetGroupDescription")
data EC2SecurityGroup = EC2SecurityGroup'
{ _esgStatus :: !(Maybe Text)
, _esgEC2SecurityGroupOwnerId :: !(Maybe Text)
, _esgEC2SecurityGroupName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
ec2SecurityGroup
:: EC2SecurityGroup
ec2SecurityGroup =
EC2SecurityGroup'
{ _esgStatus = Nothing
, _esgEC2SecurityGroupOwnerId = Nothing
, _esgEC2SecurityGroupName = 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});
instance FromXML EC2SecurityGroup where
parseXML x
= EC2SecurityGroup' <$>
(x .@? "Status") <*>
(x .@? "EC2SecurityGroupOwnerId")
<*> (x .@? "EC2SecurityGroupName")
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 EngineDefaults = EngineDefaults'
{ _edCacheParameterGroupFamily :: !(Maybe Text)
, _edCacheNodeTypeSpecificParameters :: !(Maybe [CacheNodeTypeSpecificParameter])
, _edParameters :: !(Maybe [Parameter])
, _edMarker :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
engineDefaults
:: EngineDefaults
engineDefaults =
EngineDefaults'
{ _edCacheParameterGroupFamily = Nothing
, _edCacheNodeTypeSpecificParameters = Nothing
, _edParameters = Nothing
, _edMarker = Nothing
}
edCacheParameterGroupFamily :: Lens' EngineDefaults (Maybe Text)
edCacheParameterGroupFamily = lens _edCacheParameterGroupFamily (\ s a -> s{_edCacheParameterGroupFamily = a});
edCacheNodeTypeSpecificParameters :: Lens' EngineDefaults [CacheNodeTypeSpecificParameter]
edCacheNodeTypeSpecificParameters = lens _edCacheNodeTypeSpecificParameters (\ s a -> s{_edCacheNodeTypeSpecificParameters = a}) . _Default . _Coerce;
edParameters :: Lens' EngineDefaults [Parameter]
edParameters = lens _edParameters (\ s a -> s{_edParameters = a}) . _Default . _Coerce;
edMarker :: Lens' EngineDefaults (Maybe Text)
edMarker = lens _edMarker (\ s a -> s{_edMarker = a});
instance FromXML EngineDefaults where
parseXML x
= EngineDefaults' <$>
(x .@? "CacheParameterGroupFamily") <*>
(x .@? "CacheNodeTypeSpecificParameters" .!@ mempty
>>=
may (parseXMLList "CacheNodeTypeSpecificParameter"))
<*>
(x .@? "Parameters" .!@ mempty >>=
may (parseXMLList "Parameter"))
<*> (x .@? "Marker")
data Event = Event'
{ _eSourceType :: !(Maybe SourceType)
, _eSourceIdentifier :: !(Maybe Text)
, _eDate :: !(Maybe ISO8601)
, _eMessage :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
event
:: Event
event =
Event'
{ _eSourceType = Nothing
, _eSourceIdentifier = Nothing
, _eDate = Nothing
, _eMessage = Nothing
}
eSourceType :: Lens' Event (Maybe SourceType)
eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = 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;
eMessage :: Lens' Event (Maybe Text)
eMessage = lens _eMessage (\ s a -> s{_eMessage = a});
instance FromXML Event where
parseXML x
= Event' <$>
(x .@? "SourceType") <*> (x .@? "SourceIdentifier")
<*> (x .@? "Date")
<*> (x .@? "Message")
data NodeGroup = NodeGroup'
{ _ngStatus :: !(Maybe Text)
, _ngPrimaryEndpoint :: !(Maybe Endpoint)
, _ngNodeGroupMembers :: !(Maybe [NodeGroupMember])
, _ngNodeGroupId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
nodeGroup
:: NodeGroup
nodeGroup =
NodeGroup'
{ _ngStatus = Nothing
, _ngPrimaryEndpoint = Nothing
, _ngNodeGroupMembers = Nothing
, _ngNodeGroupId = Nothing
}
ngStatus :: Lens' NodeGroup (Maybe Text)
ngStatus = lens _ngStatus (\ s a -> s{_ngStatus = a});
ngPrimaryEndpoint :: Lens' NodeGroup (Maybe Endpoint)
ngPrimaryEndpoint = lens _ngPrimaryEndpoint (\ s a -> s{_ngPrimaryEndpoint = a});
ngNodeGroupMembers :: Lens' NodeGroup [NodeGroupMember]
ngNodeGroupMembers = lens _ngNodeGroupMembers (\ s a -> s{_ngNodeGroupMembers = a}) . _Default . _Coerce;
ngNodeGroupId :: Lens' NodeGroup (Maybe Text)
ngNodeGroupId = lens _ngNodeGroupId (\ s a -> s{_ngNodeGroupId = a});
instance FromXML NodeGroup where
parseXML x
= NodeGroup' <$>
(x .@? "Status") <*> (x .@? "PrimaryEndpoint") <*>
(x .@? "NodeGroupMembers" .!@ mempty >>=
may (parseXMLList "NodeGroupMember"))
<*> (x .@? "NodeGroupId")
data NodeGroupMember = NodeGroupMember'
{ _ngmCacheClusterId :: !(Maybe Text)
, _ngmCacheNodeId :: !(Maybe Text)
, _ngmPreferredAvailabilityZone :: !(Maybe Text)
, _ngmCurrentRole :: !(Maybe Text)
, _ngmReadEndpoint :: !(Maybe Endpoint)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
nodeGroupMember
:: NodeGroupMember
nodeGroupMember =
NodeGroupMember'
{ _ngmCacheClusterId = Nothing
, _ngmCacheNodeId = Nothing
, _ngmPreferredAvailabilityZone = Nothing
, _ngmCurrentRole = Nothing
, _ngmReadEndpoint = Nothing
}
ngmCacheClusterId :: Lens' NodeGroupMember (Maybe Text)
ngmCacheClusterId = lens _ngmCacheClusterId (\ s a -> s{_ngmCacheClusterId = a});
ngmCacheNodeId :: Lens' NodeGroupMember (Maybe Text)
ngmCacheNodeId = lens _ngmCacheNodeId (\ s a -> s{_ngmCacheNodeId = a});
ngmPreferredAvailabilityZone :: Lens' NodeGroupMember (Maybe Text)
ngmPreferredAvailabilityZone = lens _ngmPreferredAvailabilityZone (\ s a -> s{_ngmPreferredAvailabilityZone = a});
ngmCurrentRole :: Lens' NodeGroupMember (Maybe Text)
ngmCurrentRole = lens _ngmCurrentRole (\ s a -> s{_ngmCurrentRole = a});
ngmReadEndpoint :: Lens' NodeGroupMember (Maybe Endpoint)
ngmReadEndpoint = lens _ngmReadEndpoint (\ s a -> s{_ngmReadEndpoint = a});
instance FromXML NodeGroupMember where
parseXML x
= NodeGroupMember' <$>
(x .@? "CacheClusterId") <*> (x .@? "CacheNodeId")
<*> (x .@? "PreferredAvailabilityZone")
<*> (x .@? "CurrentRole")
<*> (x .@? "ReadEndpoint")
data NodeSnapshot = NodeSnapshot'
{ _nsCacheNodeCreateTime :: !(Maybe ISO8601)
, _nsCacheNodeId :: !(Maybe Text)
, _nsSnapshotCreateTime :: !(Maybe ISO8601)
, _nsCacheSize :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
nodeSnapshot
:: NodeSnapshot
nodeSnapshot =
NodeSnapshot'
{ _nsCacheNodeCreateTime = Nothing
, _nsCacheNodeId = Nothing
, _nsSnapshotCreateTime = Nothing
, _nsCacheSize = Nothing
}
nsCacheNodeCreateTime :: Lens' NodeSnapshot (Maybe UTCTime)
nsCacheNodeCreateTime = lens _nsCacheNodeCreateTime (\ s a -> s{_nsCacheNodeCreateTime = a}) . mapping _Time;
nsCacheNodeId :: Lens' NodeSnapshot (Maybe Text)
nsCacheNodeId = lens _nsCacheNodeId (\ s a -> s{_nsCacheNodeId = a});
nsSnapshotCreateTime :: Lens' NodeSnapshot (Maybe UTCTime)
nsSnapshotCreateTime = lens _nsSnapshotCreateTime (\ s a -> s{_nsSnapshotCreateTime = a}) . mapping _Time;
nsCacheSize :: Lens' NodeSnapshot (Maybe Text)
nsCacheSize = lens _nsCacheSize (\ s a -> s{_nsCacheSize = a});
instance FromXML NodeSnapshot where
parseXML x
= NodeSnapshot' <$>
(x .@? "CacheNodeCreateTime") <*>
(x .@? "CacheNodeId")
<*> (x .@? "SnapshotCreateTime")
<*> (x .@? "CacheSize")
data NotificationConfiguration = NotificationConfiguration'
{ _ncTopicStatus :: !(Maybe Text)
, _ncTopicARN :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
notificationConfiguration
:: NotificationConfiguration
notificationConfiguration =
NotificationConfiguration'
{ _ncTopicStatus = Nothing
, _ncTopicARN = Nothing
}
ncTopicStatus :: Lens' NotificationConfiguration (Maybe Text)
ncTopicStatus = lens _ncTopicStatus (\ s a -> s{_ncTopicStatus = a});
ncTopicARN :: Lens' NotificationConfiguration (Maybe Text)
ncTopicARN = lens _ncTopicARN (\ s a -> s{_ncTopicARN = a});
instance FromXML NotificationConfiguration where
parseXML x
= NotificationConfiguration' <$>
(x .@? "TopicStatus") <*> (x .@? "TopicArn")
data Parameter = Parameter'
{ _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'
{ _pParameterValue = Nothing
, _pMinimumEngineVersion = Nothing
, _pSource = Nothing
, _pIsModifiable = Nothing
, _pAllowedValues = Nothing
, _pDataType = Nothing
, _pParameterName = Nothing
, _pDescription = Nothing
}
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 .@? "ParameterValue") <*>
(x .@? "MinimumEngineVersion")
<*> (x .@? "Source")
<*> (x .@? "IsModifiable")
<*> (x .@? "AllowedValues")
<*> (x .@? "DataType")
<*> (x .@? "ParameterName")
<*> (x .@? "Description")
data ParameterNameValue = ParameterNameValue'
{ _pnvParameterValue :: !(Maybe Text)
, _pnvParameterName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
parameterNameValue
:: ParameterNameValue
parameterNameValue =
ParameterNameValue'
{ _pnvParameterValue = Nothing
, _pnvParameterName = Nothing
}
pnvParameterValue :: Lens' ParameterNameValue (Maybe Text)
pnvParameterValue = lens _pnvParameterValue (\ s a -> s{_pnvParameterValue = a});
pnvParameterName :: Lens' ParameterNameValue (Maybe Text)
pnvParameterName = lens _pnvParameterName (\ s a -> s{_pnvParameterName = a});
instance ToQuery ParameterNameValue where
toQuery ParameterNameValue'{..}
= mconcat
["ParameterValue" =: _pnvParameterValue,
"ParameterName" =: _pnvParameterName]
data PendingModifiedValues = PendingModifiedValues'
{ _pmvEngineVersion :: !(Maybe Text)
, _pmvCacheNodeIdsToRemove :: !(Maybe [Text])
, _pmvNumCacheNodes :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
pendingModifiedValues
:: PendingModifiedValues
pendingModifiedValues =
PendingModifiedValues'
{ _pmvEngineVersion = Nothing
, _pmvCacheNodeIdsToRemove = Nothing
, _pmvNumCacheNodes = Nothing
}
pmvEngineVersion :: Lens' PendingModifiedValues (Maybe Text)
pmvEngineVersion = lens _pmvEngineVersion (\ s a -> s{_pmvEngineVersion = a});
pmvCacheNodeIdsToRemove :: Lens' PendingModifiedValues [Text]
pmvCacheNodeIdsToRemove = lens _pmvCacheNodeIdsToRemove (\ s a -> s{_pmvCacheNodeIdsToRemove = a}) . _Default . _Coerce;
pmvNumCacheNodes :: Lens' PendingModifiedValues (Maybe Int)
pmvNumCacheNodes = lens _pmvNumCacheNodes (\ s a -> s{_pmvNumCacheNodes = a});
instance FromXML PendingModifiedValues where
parseXML x
= PendingModifiedValues' <$>
(x .@? "EngineVersion") <*>
(x .@? "CacheNodeIdsToRemove" .!@ mempty >>=
may (parseXMLList "CacheNodeId"))
<*> (x .@? "NumCacheNodes")
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 ReplicationGroup = ReplicationGroup'
{ _rgNodeGroups :: !(Maybe [NodeGroup])
, _rgStatus :: !(Maybe Text)
, _rgSnapshottingClusterId :: !(Maybe Text)
, _rgMemberClusters :: !(Maybe [Text])
, _rgReplicationGroupId :: !(Maybe Text)
, _rgPendingModifiedValues :: !(Maybe ReplicationGroupPendingModifiedValues)
, _rgDescription :: !(Maybe Text)
, _rgAutomaticFailover :: !(Maybe AutomaticFailoverStatus)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationGroup
:: ReplicationGroup
replicationGroup =
ReplicationGroup'
{ _rgNodeGroups = Nothing
, _rgStatus = Nothing
, _rgSnapshottingClusterId = Nothing
, _rgMemberClusters = Nothing
, _rgReplicationGroupId = Nothing
, _rgPendingModifiedValues = Nothing
, _rgDescription = Nothing
, _rgAutomaticFailover = Nothing
}
rgNodeGroups :: Lens' ReplicationGroup [NodeGroup]
rgNodeGroups = lens _rgNodeGroups (\ s a -> s{_rgNodeGroups = a}) . _Default . _Coerce;
rgStatus :: Lens' ReplicationGroup (Maybe Text)
rgStatus = lens _rgStatus (\ s a -> s{_rgStatus = a});
rgSnapshottingClusterId :: Lens' ReplicationGroup (Maybe Text)
rgSnapshottingClusterId = lens _rgSnapshottingClusterId (\ s a -> s{_rgSnapshottingClusterId = a});
rgMemberClusters :: Lens' ReplicationGroup [Text]
rgMemberClusters = lens _rgMemberClusters (\ s a -> s{_rgMemberClusters = a}) . _Default . _Coerce;
rgReplicationGroupId :: Lens' ReplicationGroup (Maybe Text)
rgReplicationGroupId = lens _rgReplicationGroupId (\ s a -> s{_rgReplicationGroupId = a});
rgPendingModifiedValues :: Lens' ReplicationGroup (Maybe ReplicationGroupPendingModifiedValues)
rgPendingModifiedValues = lens _rgPendingModifiedValues (\ s a -> s{_rgPendingModifiedValues = a});
rgDescription :: Lens' ReplicationGroup (Maybe Text)
rgDescription = lens _rgDescription (\ s a -> s{_rgDescription = a});
rgAutomaticFailover :: Lens' ReplicationGroup (Maybe AutomaticFailoverStatus)
rgAutomaticFailover = lens _rgAutomaticFailover (\ s a -> s{_rgAutomaticFailover = a});
instance FromXML ReplicationGroup where
parseXML x
= ReplicationGroup' <$>
(x .@? "NodeGroups" .!@ mempty >>=
may (parseXMLList "NodeGroup"))
<*> (x .@? "Status")
<*> (x .@? "SnapshottingClusterId")
<*>
(x .@? "MemberClusters" .!@ mempty >>=
may (parseXMLList "ClusterId"))
<*> (x .@? "ReplicationGroupId")
<*> (x .@? "PendingModifiedValues")
<*> (x .@? "Description")
<*> (x .@? "AutomaticFailover")
data ReplicationGroupPendingModifiedValues = ReplicationGroupPendingModifiedValues'
{ _rgpmvPrimaryClusterId :: !(Maybe Text)
, _rgpmvAutomaticFailoverStatus :: !(Maybe PendingAutomaticFailoverStatus)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationGroupPendingModifiedValues
:: ReplicationGroupPendingModifiedValues
replicationGroupPendingModifiedValues =
ReplicationGroupPendingModifiedValues'
{ _rgpmvPrimaryClusterId = Nothing
, _rgpmvAutomaticFailoverStatus = Nothing
}
rgpmvPrimaryClusterId :: Lens' ReplicationGroupPendingModifiedValues (Maybe Text)
rgpmvPrimaryClusterId = lens _rgpmvPrimaryClusterId (\ s a -> s{_rgpmvPrimaryClusterId = a});
rgpmvAutomaticFailoverStatus :: Lens' ReplicationGroupPendingModifiedValues (Maybe PendingAutomaticFailoverStatus)
rgpmvAutomaticFailoverStatus = lens _rgpmvAutomaticFailoverStatus (\ s a -> s{_rgpmvAutomaticFailoverStatus = a});
instance FromXML
ReplicationGroupPendingModifiedValues where
parseXML x
= ReplicationGroupPendingModifiedValues' <$>
(x .@? "PrimaryClusterId") <*>
(x .@? "AutomaticFailoverStatus")
data ReservedCacheNode = ReservedCacheNode'
{ _rcnCacheNodeType :: !(Maybe Text)
, _rcnState :: !(Maybe Text)
, _rcnProductDescription :: !(Maybe Text)
, _rcnStartTime :: !(Maybe ISO8601)
, _rcnCacheNodeCount :: !(Maybe Int)
, _rcnReservedCacheNodeId :: !(Maybe Text)
, _rcnOfferingType :: !(Maybe Text)
, _rcnUsagePrice :: !(Maybe Double)
, _rcnRecurringCharges :: !(Maybe [RecurringCharge])
, _rcnFixedPrice :: !(Maybe Double)
, _rcnDuration :: !(Maybe Int)
, _rcnReservedCacheNodesOfferingId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
reservedCacheNode
:: ReservedCacheNode
reservedCacheNode =
ReservedCacheNode'
{ _rcnCacheNodeType = Nothing
, _rcnState = Nothing
, _rcnProductDescription = Nothing
, _rcnStartTime = Nothing
, _rcnCacheNodeCount = Nothing
, _rcnReservedCacheNodeId = Nothing
, _rcnOfferingType = Nothing
, _rcnUsagePrice = Nothing
, _rcnRecurringCharges = Nothing
, _rcnFixedPrice = Nothing
, _rcnDuration = Nothing
, _rcnReservedCacheNodesOfferingId = Nothing
}
rcnCacheNodeType :: Lens' ReservedCacheNode (Maybe Text)
rcnCacheNodeType = lens _rcnCacheNodeType (\ s a -> s{_rcnCacheNodeType = a});
rcnState :: Lens' ReservedCacheNode (Maybe Text)
rcnState = lens _rcnState (\ s a -> s{_rcnState = a});
rcnProductDescription :: Lens' ReservedCacheNode (Maybe Text)
rcnProductDescription = lens _rcnProductDescription (\ s a -> s{_rcnProductDescription = a});
rcnStartTime :: Lens' ReservedCacheNode (Maybe UTCTime)
rcnStartTime = lens _rcnStartTime (\ s a -> s{_rcnStartTime = a}) . mapping _Time;
rcnCacheNodeCount :: Lens' ReservedCacheNode (Maybe Int)
rcnCacheNodeCount = lens _rcnCacheNodeCount (\ s a -> s{_rcnCacheNodeCount = a});
rcnReservedCacheNodeId :: Lens' ReservedCacheNode (Maybe Text)
rcnReservedCacheNodeId = lens _rcnReservedCacheNodeId (\ s a -> s{_rcnReservedCacheNodeId = a});
rcnOfferingType :: Lens' ReservedCacheNode (Maybe Text)
rcnOfferingType = lens _rcnOfferingType (\ s a -> s{_rcnOfferingType = a});
rcnUsagePrice :: Lens' ReservedCacheNode (Maybe Double)
rcnUsagePrice = lens _rcnUsagePrice (\ s a -> s{_rcnUsagePrice = a});
rcnRecurringCharges :: Lens' ReservedCacheNode [RecurringCharge]
rcnRecurringCharges = lens _rcnRecurringCharges (\ s a -> s{_rcnRecurringCharges = a}) . _Default . _Coerce;
rcnFixedPrice :: Lens' ReservedCacheNode (Maybe Double)
rcnFixedPrice = lens _rcnFixedPrice (\ s a -> s{_rcnFixedPrice = a});
rcnDuration :: Lens' ReservedCacheNode (Maybe Int)
rcnDuration = lens _rcnDuration (\ s a -> s{_rcnDuration = a});
rcnReservedCacheNodesOfferingId :: Lens' ReservedCacheNode (Maybe Text)
rcnReservedCacheNodesOfferingId = lens _rcnReservedCacheNodesOfferingId (\ s a -> s{_rcnReservedCacheNodesOfferingId = a});
instance FromXML ReservedCacheNode where
parseXML x
= ReservedCacheNode' <$>
(x .@? "CacheNodeType") <*> (x .@? "State") <*>
(x .@? "ProductDescription")
<*> (x .@? "StartTime")
<*> (x .@? "CacheNodeCount")
<*> (x .@? "ReservedCacheNodeId")
<*> (x .@? "OfferingType")
<*> (x .@? "UsagePrice")
<*>
(x .@? "RecurringCharges" .!@ mempty >>=
may (parseXMLList "RecurringCharge"))
<*> (x .@? "FixedPrice")
<*> (x .@? "Duration")
<*> (x .@? "ReservedCacheNodesOfferingId")
data ReservedCacheNodesOffering = ReservedCacheNodesOffering'
{ _rcnoCacheNodeType :: !(Maybe Text)
, _rcnoProductDescription :: !(Maybe Text)
, _rcnoOfferingType :: !(Maybe Text)
, _rcnoUsagePrice :: !(Maybe Double)
, _rcnoRecurringCharges :: !(Maybe [RecurringCharge])
, _rcnoFixedPrice :: !(Maybe Double)
, _rcnoDuration :: !(Maybe Int)
, _rcnoReservedCacheNodesOfferingId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
reservedCacheNodesOffering
:: ReservedCacheNodesOffering
reservedCacheNodesOffering =
ReservedCacheNodesOffering'
{ _rcnoCacheNodeType = Nothing
, _rcnoProductDescription = Nothing
, _rcnoOfferingType = Nothing
, _rcnoUsagePrice = Nothing
, _rcnoRecurringCharges = Nothing
, _rcnoFixedPrice = Nothing
, _rcnoDuration = Nothing
, _rcnoReservedCacheNodesOfferingId = Nothing
}
rcnoCacheNodeType :: Lens' ReservedCacheNodesOffering (Maybe Text)
rcnoCacheNodeType = lens _rcnoCacheNodeType (\ s a -> s{_rcnoCacheNodeType = a});
rcnoProductDescription :: Lens' ReservedCacheNodesOffering (Maybe Text)
rcnoProductDescription = lens _rcnoProductDescription (\ s a -> s{_rcnoProductDescription = a});
rcnoOfferingType :: Lens' ReservedCacheNodesOffering (Maybe Text)
rcnoOfferingType = lens _rcnoOfferingType (\ s a -> s{_rcnoOfferingType = a});
rcnoUsagePrice :: Lens' ReservedCacheNodesOffering (Maybe Double)
rcnoUsagePrice = lens _rcnoUsagePrice (\ s a -> s{_rcnoUsagePrice = a});
rcnoRecurringCharges :: Lens' ReservedCacheNodesOffering [RecurringCharge]
rcnoRecurringCharges = lens _rcnoRecurringCharges (\ s a -> s{_rcnoRecurringCharges = a}) . _Default . _Coerce;
rcnoFixedPrice :: Lens' ReservedCacheNodesOffering (Maybe Double)
rcnoFixedPrice = lens _rcnoFixedPrice (\ s a -> s{_rcnoFixedPrice = a});
rcnoDuration :: Lens' ReservedCacheNodesOffering (Maybe Int)
rcnoDuration = lens _rcnoDuration (\ s a -> s{_rcnoDuration = a});
rcnoReservedCacheNodesOfferingId :: Lens' ReservedCacheNodesOffering (Maybe Text)
rcnoReservedCacheNodesOfferingId = lens _rcnoReservedCacheNodesOfferingId (\ s a -> s{_rcnoReservedCacheNodesOfferingId = a});
instance FromXML ReservedCacheNodesOffering where
parseXML x
= ReservedCacheNodesOffering' <$>
(x .@? "CacheNodeType") <*>
(x .@? "ProductDescription")
<*> (x .@? "OfferingType")
<*> (x .@? "UsagePrice")
<*>
(x .@? "RecurringCharges" .!@ mempty >>=
may (parseXMLList "RecurringCharge"))
<*> (x .@? "FixedPrice")
<*> (x .@? "Duration")
<*> (x .@? "ReservedCacheNodesOfferingId")
data SecurityGroupMembership = SecurityGroupMembership'
{ _sgmStatus :: !(Maybe Text)
, _sgmSecurityGroupId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
securityGroupMembership
:: SecurityGroupMembership
securityGroupMembership =
SecurityGroupMembership'
{ _sgmStatus = Nothing
, _sgmSecurityGroupId = Nothing
}
sgmStatus :: Lens' SecurityGroupMembership (Maybe Text)
sgmStatus = lens _sgmStatus (\ s a -> s{_sgmStatus = a});
sgmSecurityGroupId :: Lens' SecurityGroupMembership (Maybe Text)
sgmSecurityGroupId = lens _sgmSecurityGroupId (\ s a -> s{_sgmSecurityGroupId = a});
instance FromXML SecurityGroupMembership where
parseXML x
= SecurityGroupMembership' <$>
(x .@? "Status") <*> (x .@? "SecurityGroupId")
data Snapshot = Snapshot'
{ _sCacheNodeType :: !(Maybe Text)
, _sEngineVersion :: !(Maybe Text)
, _sCacheClusterCreateTime :: !(Maybe ISO8601)
, _sAutoMinorVersionUpgrade :: !(Maybe Bool)
, _sCacheParameterGroupName :: !(Maybe Text)
, _sSnapshotStatus :: !(Maybe Text)
, _sSnapshotWindow :: !(Maybe Text)
, _sVPCId :: !(Maybe Text)
, _sCacheClusterId :: !(Maybe Text)
, _sEngine :: !(Maybe Text)
, _sPreferredMaintenanceWindow :: !(Maybe Text)
, _sTopicARN :: !(Maybe Text)
, _sCacheSubnetGroupName :: !(Maybe Text)
, _sNodeSnapshots :: !(Maybe [NodeSnapshot])
, _sPreferredAvailabilityZone :: !(Maybe Text)
, _sSnapshotRetentionLimit :: !(Maybe Int)
, _sSnapshotName :: !(Maybe Text)
, _sSnapshotSource :: !(Maybe Text)
, _sNumCacheNodes :: !(Maybe Int)
, _sPort :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
snapshot
:: Snapshot
snapshot =
Snapshot'
{ _sCacheNodeType = Nothing
, _sEngineVersion = Nothing
, _sCacheClusterCreateTime = Nothing
, _sAutoMinorVersionUpgrade = Nothing
, _sCacheParameterGroupName = Nothing
, _sSnapshotStatus = Nothing
, _sSnapshotWindow = Nothing
, _sVPCId = Nothing
, _sCacheClusterId = Nothing
, _sEngine = Nothing
, _sPreferredMaintenanceWindow = Nothing
, _sTopicARN = Nothing
, _sCacheSubnetGroupName = Nothing
, _sNodeSnapshots = Nothing
, _sPreferredAvailabilityZone = Nothing
, _sSnapshotRetentionLimit = Nothing
, _sSnapshotName = Nothing
, _sSnapshotSource = Nothing
, _sNumCacheNodes = Nothing
, _sPort = Nothing
}
sCacheNodeType :: Lens' Snapshot (Maybe Text)
sCacheNodeType = lens _sCacheNodeType (\ s a -> s{_sCacheNodeType = a});
sEngineVersion :: Lens' Snapshot (Maybe Text)
sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});
sCacheClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)
sCacheClusterCreateTime = lens _sCacheClusterCreateTime (\ s a -> s{_sCacheClusterCreateTime = a}) . mapping _Time;
sAutoMinorVersionUpgrade :: Lens' Snapshot (Maybe Bool)
sAutoMinorVersionUpgrade = lens _sAutoMinorVersionUpgrade (\ s a -> s{_sAutoMinorVersionUpgrade = a});
sCacheParameterGroupName :: Lens' Snapshot (Maybe Text)
sCacheParameterGroupName = lens _sCacheParameterGroupName (\ s a -> s{_sCacheParameterGroupName = a});
sSnapshotStatus :: Lens' Snapshot (Maybe Text)
sSnapshotStatus = lens _sSnapshotStatus (\ s a -> s{_sSnapshotStatus = a});
sSnapshotWindow :: Lens' Snapshot (Maybe Text)
sSnapshotWindow = lens _sSnapshotWindow (\ s a -> s{_sSnapshotWindow = a});
sVPCId :: Lens' Snapshot (Maybe Text)
sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});
sCacheClusterId :: Lens' Snapshot (Maybe Text)
sCacheClusterId = lens _sCacheClusterId (\ s a -> s{_sCacheClusterId = a});
sEngine :: Lens' Snapshot (Maybe Text)
sEngine = lens _sEngine (\ s a -> s{_sEngine = a});
sPreferredMaintenanceWindow :: Lens' Snapshot (Maybe Text)
sPreferredMaintenanceWindow = lens _sPreferredMaintenanceWindow (\ s a -> s{_sPreferredMaintenanceWindow = a});
sTopicARN :: Lens' Snapshot (Maybe Text)
sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a});
sCacheSubnetGroupName :: Lens' Snapshot (Maybe Text)
sCacheSubnetGroupName = lens _sCacheSubnetGroupName (\ s a -> s{_sCacheSubnetGroupName = a});
sNodeSnapshots :: Lens' Snapshot [NodeSnapshot]
sNodeSnapshots = lens _sNodeSnapshots (\ s a -> s{_sNodeSnapshots = a}) . _Default . _Coerce;
sPreferredAvailabilityZone :: Lens' Snapshot (Maybe Text)
sPreferredAvailabilityZone = lens _sPreferredAvailabilityZone (\ s a -> s{_sPreferredAvailabilityZone = a});
sSnapshotRetentionLimit :: Lens' Snapshot (Maybe Int)
sSnapshotRetentionLimit = lens _sSnapshotRetentionLimit (\ s a -> s{_sSnapshotRetentionLimit = a});
sSnapshotName :: Lens' Snapshot (Maybe Text)
sSnapshotName = lens _sSnapshotName (\ s a -> s{_sSnapshotName = a});
sSnapshotSource :: Lens' Snapshot (Maybe Text)
sSnapshotSource = lens _sSnapshotSource (\ s a -> s{_sSnapshotSource = a});
sNumCacheNodes :: Lens' Snapshot (Maybe Int)
sNumCacheNodes = lens _sNumCacheNodes (\ s a -> s{_sNumCacheNodes = a});
sPort :: Lens' Snapshot (Maybe Int)
sPort = lens _sPort (\ s a -> s{_sPort = a});
instance FromXML Snapshot where
parseXML x
= Snapshot' <$>
(x .@? "CacheNodeType") <*> (x .@? "EngineVersion")
<*> (x .@? "CacheClusterCreateTime")
<*> (x .@? "AutoMinorVersionUpgrade")
<*> (x .@? "CacheParameterGroupName")
<*> (x .@? "SnapshotStatus")
<*> (x .@? "SnapshotWindow")
<*> (x .@? "VpcId")
<*> (x .@? "CacheClusterId")
<*> (x .@? "Engine")
<*> (x .@? "PreferredMaintenanceWindow")
<*> (x .@? "TopicArn")
<*> (x .@? "CacheSubnetGroupName")
<*>
(x .@? "NodeSnapshots" .!@ mempty >>=
may (parseXMLList "NodeSnapshot"))
<*> (x .@? "PreferredAvailabilityZone")
<*> (x .@? "SnapshotRetentionLimit")
<*> (x .@? "SnapshotName")
<*> (x .@? "SnapshotSource")
<*> (x .@? "NumCacheNodes")
<*> (x .@? "Port")
data Subnet = Subnet'
{ _sSubnetIdentifier :: !(Maybe Text)
, _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
subnet
:: Subnet
subnet =
Subnet'
{ _sSubnetIdentifier = Nothing
, _sSubnetAvailabilityZone = Nothing
}
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 .@? "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]
newtype TagListMessage = TagListMessage'
{ _tlmTagList :: Maybe [Tag]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
tagListMessage
:: TagListMessage
tagListMessage =
TagListMessage'
{ _tlmTagList = Nothing
}
tlmTagList :: Lens' TagListMessage [Tag]
tlmTagList = lens _tlmTagList (\ s a -> s{_tlmTagList = a}) . _Default . _Coerce;
instance FromXML TagListMessage where
parseXML x
= TagListMessage' <$>
(x .@? "TagList" .!@ mempty >>=
may (parseXMLList "Tag"))