module Network.AWS.DMS.Types.Product where
import Network.AWS.DMS.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
data AccountQuota = AccountQuota'
{ _aqMax :: !(Maybe Integer)
, _aqUsed :: !(Maybe Integer)
, _aqAccountQuotaName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
accountQuota
:: AccountQuota
accountQuota =
AccountQuota'
{ _aqMax = Nothing
, _aqUsed = Nothing
, _aqAccountQuotaName = Nothing
}
aqMax :: Lens' AccountQuota (Maybe Integer)
aqMax = lens _aqMax (\ s a -> s{_aqMax = a});
aqUsed :: Lens' AccountQuota (Maybe Integer)
aqUsed = lens _aqUsed (\ s a -> s{_aqUsed = a});
aqAccountQuotaName :: Lens' AccountQuota (Maybe Text)
aqAccountQuotaName = lens _aqAccountQuotaName (\ s a -> s{_aqAccountQuotaName = a});
instance FromJSON AccountQuota where
parseJSON
= withObject "AccountQuota"
(\ x ->
AccountQuota' <$>
(x .:? "Max") <*> (x .:? "Used") <*>
(x .:? "AccountQuotaName"))
instance Hashable AccountQuota
instance NFData AccountQuota
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 FromJSON AvailabilityZone where
parseJSON
= withObject "AvailabilityZone"
(\ x -> AvailabilityZone' <$> (x .:? "Name"))
instance Hashable AvailabilityZone
instance NFData AvailabilityZone
data Connection = Connection'
{ _cStatus :: !(Maybe Text)
, _cReplicationInstanceARN :: !(Maybe Text)
, _cEndpointIdentifier :: !(Maybe Text)
, _cReplicationInstanceIdentifier :: !(Maybe Text)
, _cEndpointARN :: !(Maybe Text)
, _cLastFailureMessage :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
connection
:: Connection
connection =
Connection'
{ _cStatus = Nothing
, _cReplicationInstanceARN = Nothing
, _cEndpointIdentifier = Nothing
, _cReplicationInstanceIdentifier = Nothing
, _cEndpointARN = Nothing
, _cLastFailureMessage = Nothing
}
cStatus :: Lens' Connection (Maybe Text)
cStatus = lens _cStatus (\ s a -> s{_cStatus = a});
cReplicationInstanceARN :: Lens' Connection (Maybe Text)
cReplicationInstanceARN = lens _cReplicationInstanceARN (\ s a -> s{_cReplicationInstanceARN = a});
cEndpointIdentifier :: Lens' Connection (Maybe Text)
cEndpointIdentifier = lens _cEndpointIdentifier (\ s a -> s{_cEndpointIdentifier = a});
cReplicationInstanceIdentifier :: Lens' Connection (Maybe Text)
cReplicationInstanceIdentifier = lens _cReplicationInstanceIdentifier (\ s a -> s{_cReplicationInstanceIdentifier = a});
cEndpointARN :: Lens' Connection (Maybe Text)
cEndpointARN = lens _cEndpointARN (\ s a -> s{_cEndpointARN = a});
cLastFailureMessage :: Lens' Connection (Maybe Text)
cLastFailureMessage = lens _cLastFailureMessage (\ s a -> s{_cLastFailureMessage = a});
instance FromJSON Connection where
parseJSON
= withObject "Connection"
(\ x ->
Connection' <$>
(x .:? "Status") <*> (x .:? "ReplicationInstanceArn")
<*> (x .:? "EndpointIdentifier")
<*> (x .:? "ReplicationInstanceIdentifier")
<*> (x .:? "EndpointArn")
<*> (x .:? "LastFailureMessage"))
instance Hashable Connection
instance NFData Connection
data Endpoint = Endpoint'
{ _eStatus :: !(Maybe Text)
, _eServerName :: !(Maybe Text)
, _eExtraConnectionAttributes :: !(Maybe Text)
, _eEndpointType :: !(Maybe ReplicationEndpointTypeValue)
, _eUsername :: !(Maybe Text)
, _eEngineName :: !(Maybe Text)
, _eKMSKeyId :: !(Maybe Text)
, _eDatabaseName :: !(Maybe Text)
, _eEndpointIdentifier :: !(Maybe Text)
, _eEndpointARN :: !(Maybe Text)
, _ePort :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
endpoint
:: Endpoint
endpoint =
Endpoint'
{ _eStatus = Nothing
, _eServerName = Nothing
, _eExtraConnectionAttributes = Nothing
, _eEndpointType = Nothing
, _eUsername = Nothing
, _eEngineName = Nothing
, _eKMSKeyId = Nothing
, _eDatabaseName = Nothing
, _eEndpointIdentifier = Nothing
, _eEndpointARN = Nothing
, _ePort = Nothing
}
eStatus :: Lens' Endpoint (Maybe Text)
eStatus = lens _eStatus (\ s a -> s{_eStatus = a});
eServerName :: Lens' Endpoint (Maybe Text)
eServerName = lens _eServerName (\ s a -> s{_eServerName = a});
eExtraConnectionAttributes :: Lens' Endpoint (Maybe Text)
eExtraConnectionAttributes = lens _eExtraConnectionAttributes (\ s a -> s{_eExtraConnectionAttributes = a});
eEndpointType :: Lens' Endpoint (Maybe ReplicationEndpointTypeValue)
eEndpointType = lens _eEndpointType (\ s a -> s{_eEndpointType = a});
eUsername :: Lens' Endpoint (Maybe Text)
eUsername = lens _eUsername (\ s a -> s{_eUsername = a});
eEngineName :: Lens' Endpoint (Maybe Text)
eEngineName = lens _eEngineName (\ s a -> s{_eEngineName = a});
eKMSKeyId :: Lens' Endpoint (Maybe Text)
eKMSKeyId = lens _eKMSKeyId (\ s a -> s{_eKMSKeyId = a});
eDatabaseName :: Lens' Endpoint (Maybe Text)
eDatabaseName = lens _eDatabaseName (\ s a -> s{_eDatabaseName = a});
eEndpointIdentifier :: Lens' Endpoint (Maybe Text)
eEndpointIdentifier = lens _eEndpointIdentifier (\ s a -> s{_eEndpointIdentifier = a});
eEndpointARN :: Lens' Endpoint (Maybe Text)
eEndpointARN = lens _eEndpointARN (\ s a -> s{_eEndpointARN = a});
ePort :: Lens' Endpoint (Maybe Int)
ePort = lens _ePort (\ s a -> s{_ePort = a});
instance FromJSON Endpoint where
parseJSON
= withObject "Endpoint"
(\ x ->
Endpoint' <$>
(x .:? "Status") <*> (x .:? "ServerName") <*>
(x .:? "ExtraConnectionAttributes")
<*> (x .:? "EndpointType")
<*> (x .:? "Username")
<*> (x .:? "EngineName")
<*> (x .:? "KmsKeyId")
<*> (x .:? "DatabaseName")
<*> (x .:? "EndpointIdentifier")
<*> (x .:? "EndpointArn")
<*> (x .:? "Port"))
instance Hashable Endpoint
instance NFData Endpoint
data Filter = Filter'
{ _fName :: !Text
, _fValues :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
filter'
:: Text
-> Filter
filter' pName_ =
Filter'
{ _fName = pName_
, _fValues = mempty
}
fName :: Lens' Filter Text
fName = lens _fName (\ s a -> s{_fName = a});
fValues :: Lens' Filter [Text]
fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;
instance Hashable Filter
instance NFData Filter
instance ToJSON Filter where
toJSON Filter'{..}
= object
(catMaybes
[Just ("Name" .= _fName),
Just ("Values" .= _fValues)])
data OrderableReplicationInstance = OrderableReplicationInstance'
{ _oriEngineVersion :: !(Maybe Text)
, _oriMinAllocatedStorage :: !(Maybe Int)
, _oriIncludedAllocatedStorage :: !(Maybe Int)
, _oriMaxAllocatedStorage :: !(Maybe Int)
, _oriReplicationInstanceClass :: !(Maybe Text)
, _oriDefaultAllocatedStorage :: !(Maybe Int)
, _oriStorageType :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
orderableReplicationInstance
:: OrderableReplicationInstance
orderableReplicationInstance =
OrderableReplicationInstance'
{ _oriEngineVersion = Nothing
, _oriMinAllocatedStorage = Nothing
, _oriIncludedAllocatedStorage = Nothing
, _oriMaxAllocatedStorage = Nothing
, _oriReplicationInstanceClass = Nothing
, _oriDefaultAllocatedStorage = Nothing
, _oriStorageType = Nothing
}
oriEngineVersion :: Lens' OrderableReplicationInstance (Maybe Text)
oriEngineVersion = lens _oriEngineVersion (\ s a -> s{_oriEngineVersion = a});
oriMinAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)
oriMinAllocatedStorage = lens _oriMinAllocatedStorage (\ s a -> s{_oriMinAllocatedStorage = a});
oriIncludedAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)
oriIncludedAllocatedStorage = lens _oriIncludedAllocatedStorage (\ s a -> s{_oriIncludedAllocatedStorage = a});
oriMaxAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)
oriMaxAllocatedStorage = lens _oriMaxAllocatedStorage (\ s a -> s{_oriMaxAllocatedStorage = a});
oriReplicationInstanceClass :: Lens' OrderableReplicationInstance (Maybe Text)
oriReplicationInstanceClass = lens _oriReplicationInstanceClass (\ s a -> s{_oriReplicationInstanceClass = a});
oriDefaultAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)
oriDefaultAllocatedStorage = lens _oriDefaultAllocatedStorage (\ s a -> s{_oriDefaultAllocatedStorage = a});
oriStorageType :: Lens' OrderableReplicationInstance (Maybe Text)
oriStorageType = lens _oriStorageType (\ s a -> s{_oriStorageType = a});
instance FromJSON OrderableReplicationInstance where
parseJSON
= withObject "OrderableReplicationInstance"
(\ x ->
OrderableReplicationInstance' <$>
(x .:? "EngineVersion") <*>
(x .:? "MinAllocatedStorage")
<*> (x .:? "IncludedAllocatedStorage")
<*> (x .:? "MaxAllocatedStorage")
<*> (x .:? "ReplicationInstanceClass")
<*> (x .:? "DefaultAllocatedStorage")
<*> (x .:? "StorageType"))
instance Hashable OrderableReplicationInstance
instance NFData OrderableReplicationInstance
data RefreshSchemasStatus = RefreshSchemasStatus'
{ _rssStatus :: !(Maybe RefreshSchemasStatusTypeValue)
, _rssLastRefreshDate :: !(Maybe POSIX)
, _rssReplicationInstanceARN :: !(Maybe Text)
, _rssEndpointARN :: !(Maybe Text)
, _rssLastFailureMessage :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
refreshSchemasStatus
:: RefreshSchemasStatus
refreshSchemasStatus =
RefreshSchemasStatus'
{ _rssStatus = Nothing
, _rssLastRefreshDate = Nothing
, _rssReplicationInstanceARN = Nothing
, _rssEndpointARN = Nothing
, _rssLastFailureMessage = Nothing
}
rssStatus :: Lens' RefreshSchemasStatus (Maybe RefreshSchemasStatusTypeValue)
rssStatus = lens _rssStatus (\ s a -> s{_rssStatus = a});
rssLastRefreshDate :: Lens' RefreshSchemasStatus (Maybe UTCTime)
rssLastRefreshDate = lens _rssLastRefreshDate (\ s a -> s{_rssLastRefreshDate = a}) . mapping _Time;
rssReplicationInstanceARN :: Lens' RefreshSchemasStatus (Maybe Text)
rssReplicationInstanceARN = lens _rssReplicationInstanceARN (\ s a -> s{_rssReplicationInstanceARN = a});
rssEndpointARN :: Lens' RefreshSchemasStatus (Maybe Text)
rssEndpointARN = lens _rssEndpointARN (\ s a -> s{_rssEndpointARN = a});
rssLastFailureMessage :: Lens' RefreshSchemasStatus (Maybe Text)
rssLastFailureMessage = lens _rssLastFailureMessage (\ s a -> s{_rssLastFailureMessage = a});
instance FromJSON RefreshSchemasStatus where
parseJSON
= withObject "RefreshSchemasStatus"
(\ x ->
RefreshSchemasStatus' <$>
(x .:? "Status") <*> (x .:? "LastRefreshDate") <*>
(x .:? "ReplicationInstanceArn")
<*> (x .:? "EndpointArn")
<*> (x .:? "LastFailureMessage"))
instance Hashable RefreshSchemasStatus
instance NFData RefreshSchemasStatus
data ReplicationInstance = ReplicationInstance'
{ _riEngineVersion :: !(Maybe Text)
, _riPubliclyAccessible :: !(Maybe Bool)
, _riAutoMinorVersionUpgrade :: !(Maybe Bool)
, _riReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)
, _riInstanceCreateTime :: !(Maybe POSIX)
, _riReplicationInstanceStatus :: !(Maybe Text)
, _riPreferredMaintenanceWindow :: !(Maybe Text)
, _riReplicationInstancePrivateIPAddress :: !(Maybe Text)
, _riKMSKeyId :: !(Maybe Text)
, _riAvailabilityZone :: !(Maybe Text)
, _riReplicationInstanceARN :: !(Maybe Text)
, _riAllocatedStorage :: !(Maybe Int)
, _riReplicationInstancePublicIPAddress :: !(Maybe Text)
, _riReplicationInstanceClass :: !(Maybe Text)
, _riReplicationInstanceIdentifier :: !(Maybe Text)
, _riPendingModifiedValues :: !(Maybe ReplicationPendingModifiedValues)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationInstance
:: ReplicationInstance
replicationInstance =
ReplicationInstance'
{ _riEngineVersion = Nothing
, _riPubliclyAccessible = Nothing
, _riAutoMinorVersionUpgrade = Nothing
, _riReplicationSubnetGroup = Nothing
, _riInstanceCreateTime = Nothing
, _riReplicationInstanceStatus = Nothing
, _riPreferredMaintenanceWindow = Nothing
, _riReplicationInstancePrivateIPAddress = Nothing
, _riKMSKeyId = Nothing
, _riAvailabilityZone = Nothing
, _riReplicationInstanceARN = Nothing
, _riAllocatedStorage = Nothing
, _riReplicationInstancePublicIPAddress = Nothing
, _riReplicationInstanceClass = Nothing
, _riReplicationInstanceIdentifier = Nothing
, _riPendingModifiedValues = Nothing
}
riEngineVersion :: Lens' ReplicationInstance (Maybe Text)
riEngineVersion = lens _riEngineVersion (\ s a -> s{_riEngineVersion = a});
riPubliclyAccessible :: Lens' ReplicationInstance (Maybe Bool)
riPubliclyAccessible = lens _riPubliclyAccessible (\ s a -> s{_riPubliclyAccessible = a});
riAutoMinorVersionUpgrade :: Lens' ReplicationInstance (Maybe Bool)
riAutoMinorVersionUpgrade = lens _riAutoMinorVersionUpgrade (\ s a -> s{_riAutoMinorVersionUpgrade = a});
riReplicationSubnetGroup :: Lens' ReplicationInstance (Maybe ReplicationSubnetGroup)
riReplicationSubnetGroup = lens _riReplicationSubnetGroup (\ s a -> s{_riReplicationSubnetGroup = a});
riInstanceCreateTime :: Lens' ReplicationInstance (Maybe UTCTime)
riInstanceCreateTime = lens _riInstanceCreateTime (\ s a -> s{_riInstanceCreateTime = a}) . mapping _Time;
riReplicationInstanceStatus :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstanceStatus = lens _riReplicationInstanceStatus (\ s a -> s{_riReplicationInstanceStatus = a});
riPreferredMaintenanceWindow :: Lens' ReplicationInstance (Maybe Text)
riPreferredMaintenanceWindow = lens _riPreferredMaintenanceWindow (\ s a -> s{_riPreferredMaintenanceWindow = a});
riReplicationInstancePrivateIPAddress :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstancePrivateIPAddress = lens _riReplicationInstancePrivateIPAddress (\ s a -> s{_riReplicationInstancePrivateIPAddress = a});
riKMSKeyId :: Lens' ReplicationInstance (Maybe Text)
riKMSKeyId = lens _riKMSKeyId (\ s a -> s{_riKMSKeyId = a});
riAvailabilityZone :: Lens' ReplicationInstance (Maybe Text)
riAvailabilityZone = lens _riAvailabilityZone (\ s a -> s{_riAvailabilityZone = a});
riReplicationInstanceARN :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstanceARN = lens _riReplicationInstanceARN (\ s a -> s{_riReplicationInstanceARN = a});
riAllocatedStorage :: Lens' ReplicationInstance (Maybe Int)
riAllocatedStorage = lens _riAllocatedStorage (\ s a -> s{_riAllocatedStorage = a});
riReplicationInstancePublicIPAddress :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstancePublicIPAddress = lens _riReplicationInstancePublicIPAddress (\ s a -> s{_riReplicationInstancePublicIPAddress = a});
riReplicationInstanceClass :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstanceClass = lens _riReplicationInstanceClass (\ s a -> s{_riReplicationInstanceClass = a});
riReplicationInstanceIdentifier :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstanceIdentifier = lens _riReplicationInstanceIdentifier (\ s a -> s{_riReplicationInstanceIdentifier = a});
riPendingModifiedValues :: Lens' ReplicationInstance (Maybe ReplicationPendingModifiedValues)
riPendingModifiedValues = lens _riPendingModifiedValues (\ s a -> s{_riPendingModifiedValues = a});
instance FromJSON ReplicationInstance where
parseJSON
= withObject "ReplicationInstance"
(\ x ->
ReplicationInstance' <$>
(x .:? "EngineVersion") <*>
(x .:? "PubliclyAccessible")
<*> (x .:? "AutoMinorVersionUpgrade")
<*> (x .:? "ReplicationSubnetGroup")
<*> (x .:? "InstanceCreateTime")
<*> (x .:? "ReplicationInstanceStatus")
<*> (x .:? "PreferredMaintenanceWindow")
<*> (x .:? "ReplicationInstancePrivateIpAddress")
<*> (x .:? "KmsKeyId")
<*> (x .:? "AvailabilityZone")
<*> (x .:? "ReplicationInstanceArn")
<*> (x .:? "AllocatedStorage")
<*> (x .:? "ReplicationInstancePublicIpAddress")
<*> (x .:? "ReplicationInstanceClass")
<*> (x .:? "ReplicationInstanceIdentifier")
<*> (x .:? "PendingModifiedValues"))
instance Hashable ReplicationInstance
instance NFData ReplicationInstance
data ReplicationPendingModifiedValues = ReplicationPendingModifiedValues'
{ _rpmvEngineVersion :: !(Maybe Text)
, _rpmvAllocatedStorage :: !(Maybe Int)
, _rpmvReplicationInstanceClass :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationPendingModifiedValues
:: ReplicationPendingModifiedValues
replicationPendingModifiedValues =
ReplicationPendingModifiedValues'
{ _rpmvEngineVersion = Nothing
, _rpmvAllocatedStorage = Nothing
, _rpmvReplicationInstanceClass = Nothing
}
rpmvEngineVersion :: Lens' ReplicationPendingModifiedValues (Maybe Text)
rpmvEngineVersion = lens _rpmvEngineVersion (\ s a -> s{_rpmvEngineVersion = a});
rpmvAllocatedStorage :: Lens' ReplicationPendingModifiedValues (Maybe Int)
rpmvAllocatedStorage = lens _rpmvAllocatedStorage (\ s a -> s{_rpmvAllocatedStorage = a});
rpmvReplicationInstanceClass :: Lens' ReplicationPendingModifiedValues (Maybe Text)
rpmvReplicationInstanceClass = lens _rpmvReplicationInstanceClass (\ s a -> s{_rpmvReplicationInstanceClass = a});
instance FromJSON ReplicationPendingModifiedValues
where
parseJSON
= withObject "ReplicationPendingModifiedValues"
(\ x ->
ReplicationPendingModifiedValues' <$>
(x .:? "EngineVersion") <*>
(x .:? "AllocatedStorage")
<*> (x .:? "ReplicationInstanceClass"))
instance Hashable ReplicationPendingModifiedValues
instance NFData ReplicationPendingModifiedValues
data ReplicationSubnetGroup = ReplicationSubnetGroup'
{ _rsgVPCId :: !(Maybe Text)
, _rsgSubnets :: !(Maybe [Subnet])
, _rsgReplicationSubnetGroupIdentifier :: !(Maybe Text)
, _rsgSubnetGroupStatus :: !(Maybe Text)
, _rsgReplicationSubnetGroupDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationSubnetGroup
:: ReplicationSubnetGroup
replicationSubnetGroup =
ReplicationSubnetGroup'
{ _rsgVPCId = Nothing
, _rsgSubnets = Nothing
, _rsgReplicationSubnetGroupIdentifier = Nothing
, _rsgSubnetGroupStatus = Nothing
, _rsgReplicationSubnetGroupDescription = Nothing
}
rsgVPCId :: Lens' ReplicationSubnetGroup (Maybe Text)
rsgVPCId = lens _rsgVPCId (\ s a -> s{_rsgVPCId = a});
rsgSubnets :: Lens' ReplicationSubnetGroup [Subnet]
rsgSubnets = lens _rsgSubnets (\ s a -> s{_rsgSubnets = a}) . _Default . _Coerce;
rsgReplicationSubnetGroupIdentifier :: Lens' ReplicationSubnetGroup (Maybe Text)
rsgReplicationSubnetGroupIdentifier = lens _rsgReplicationSubnetGroupIdentifier (\ s a -> s{_rsgReplicationSubnetGroupIdentifier = a});
rsgSubnetGroupStatus :: Lens' ReplicationSubnetGroup (Maybe Text)
rsgSubnetGroupStatus = lens _rsgSubnetGroupStatus (\ s a -> s{_rsgSubnetGroupStatus = a});
rsgReplicationSubnetGroupDescription :: Lens' ReplicationSubnetGroup (Maybe Text)
rsgReplicationSubnetGroupDescription = lens _rsgReplicationSubnetGroupDescription (\ s a -> s{_rsgReplicationSubnetGroupDescription = a});
instance FromJSON ReplicationSubnetGroup where
parseJSON
= withObject "ReplicationSubnetGroup"
(\ x ->
ReplicationSubnetGroup' <$>
(x .:? "VpcId") <*> (x .:? "Subnets" .!= mempty) <*>
(x .:? "ReplicationSubnetGroupIdentifier")
<*> (x .:? "SubnetGroupStatus")
<*> (x .:? "ReplicationSubnetGroupDescription"))
instance Hashable ReplicationSubnetGroup
instance NFData ReplicationSubnetGroup
data ReplicationTask = ReplicationTask'
{ _rtReplicationTaskSettings :: !(Maybe Text)
, _rtStatus :: !(Maybe Text)
, _rtTargetEndpointARN :: !(Maybe Text)
, _rtReplicationTaskIdentifier :: !(Maybe Text)
, _rtReplicationTaskStartDate :: !(Maybe POSIX)
, _rtSourceEndpointARN :: !(Maybe Text)
, _rtTableMappings :: !(Maybe Text)
, _rtReplicationTaskCreationDate :: !(Maybe POSIX)
, _rtMigrationType :: !(Maybe MigrationTypeValue)
, _rtReplicationTaskARN :: !(Maybe Text)
, _rtReplicationTaskStats :: !(Maybe ReplicationTaskStats)
, _rtReplicationInstanceARN :: !(Maybe Text)
, _rtLastFailureMessage :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationTask
:: ReplicationTask
replicationTask =
ReplicationTask'
{ _rtReplicationTaskSettings = Nothing
, _rtStatus = Nothing
, _rtTargetEndpointARN = Nothing
, _rtReplicationTaskIdentifier = Nothing
, _rtReplicationTaskStartDate = Nothing
, _rtSourceEndpointARN = Nothing
, _rtTableMappings = Nothing
, _rtReplicationTaskCreationDate = Nothing
, _rtMigrationType = Nothing
, _rtReplicationTaskARN = Nothing
, _rtReplicationTaskStats = Nothing
, _rtReplicationInstanceARN = Nothing
, _rtLastFailureMessage = Nothing
}
rtReplicationTaskSettings :: Lens' ReplicationTask (Maybe Text)
rtReplicationTaskSettings = lens _rtReplicationTaskSettings (\ s a -> s{_rtReplicationTaskSettings = a});
rtStatus :: Lens' ReplicationTask (Maybe Text)
rtStatus = lens _rtStatus (\ s a -> s{_rtStatus = a});
rtTargetEndpointARN :: Lens' ReplicationTask (Maybe Text)
rtTargetEndpointARN = lens _rtTargetEndpointARN (\ s a -> s{_rtTargetEndpointARN = a});
rtReplicationTaskIdentifier :: Lens' ReplicationTask (Maybe Text)
rtReplicationTaskIdentifier = lens _rtReplicationTaskIdentifier (\ s a -> s{_rtReplicationTaskIdentifier = a});
rtReplicationTaskStartDate :: Lens' ReplicationTask (Maybe UTCTime)
rtReplicationTaskStartDate = lens _rtReplicationTaskStartDate (\ s a -> s{_rtReplicationTaskStartDate = a}) . mapping _Time;
rtSourceEndpointARN :: Lens' ReplicationTask (Maybe Text)
rtSourceEndpointARN = lens _rtSourceEndpointARN (\ s a -> s{_rtSourceEndpointARN = a});
rtTableMappings :: Lens' ReplicationTask (Maybe Text)
rtTableMappings = lens _rtTableMappings (\ s a -> s{_rtTableMappings = a});
rtReplicationTaskCreationDate :: Lens' ReplicationTask (Maybe UTCTime)
rtReplicationTaskCreationDate = lens _rtReplicationTaskCreationDate (\ s a -> s{_rtReplicationTaskCreationDate = a}) . mapping _Time;
rtMigrationType :: Lens' ReplicationTask (Maybe MigrationTypeValue)
rtMigrationType = lens _rtMigrationType (\ s a -> s{_rtMigrationType = a});
rtReplicationTaskARN :: Lens' ReplicationTask (Maybe Text)
rtReplicationTaskARN = lens _rtReplicationTaskARN (\ s a -> s{_rtReplicationTaskARN = a});
rtReplicationTaskStats :: Lens' ReplicationTask (Maybe ReplicationTaskStats)
rtReplicationTaskStats = lens _rtReplicationTaskStats (\ s a -> s{_rtReplicationTaskStats = a});
rtReplicationInstanceARN :: Lens' ReplicationTask (Maybe Text)
rtReplicationInstanceARN = lens _rtReplicationInstanceARN (\ s a -> s{_rtReplicationInstanceARN = a});
rtLastFailureMessage :: Lens' ReplicationTask (Maybe Text)
rtLastFailureMessage = lens _rtLastFailureMessage (\ s a -> s{_rtLastFailureMessage = a});
instance FromJSON ReplicationTask where
parseJSON
= withObject "ReplicationTask"
(\ x ->
ReplicationTask' <$>
(x .:? "ReplicationTaskSettings") <*>
(x .:? "Status")
<*> (x .:? "TargetEndpointArn")
<*> (x .:? "ReplicationTaskIdentifier")
<*> (x .:? "ReplicationTaskStartDate")
<*> (x .:? "SourceEndpointArn")
<*> (x .:? "TableMappings")
<*> (x .:? "ReplicationTaskCreationDate")
<*> (x .:? "MigrationType")
<*> (x .:? "ReplicationTaskArn")
<*> (x .:? "ReplicationTaskStats")
<*> (x .:? "ReplicationInstanceArn")
<*> (x .:? "LastFailureMessage"))
instance Hashable ReplicationTask
instance NFData ReplicationTask
data ReplicationTaskStats = ReplicationTaskStats'
{ _rtsFullLoadProgressPercent :: !(Maybe Int)
, _rtsElapsedTimeMillis :: !(Maybe Integer)
, _rtsTablesErrored :: !(Maybe Int)
, _rtsTablesLoaded :: !(Maybe Int)
, _rtsTablesQueued :: !(Maybe Int)
, _rtsTablesLoading :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
replicationTaskStats
:: ReplicationTaskStats
replicationTaskStats =
ReplicationTaskStats'
{ _rtsFullLoadProgressPercent = Nothing
, _rtsElapsedTimeMillis = Nothing
, _rtsTablesErrored = Nothing
, _rtsTablesLoaded = Nothing
, _rtsTablesQueued = Nothing
, _rtsTablesLoading = Nothing
}
rtsFullLoadProgressPercent :: Lens' ReplicationTaskStats (Maybe Int)
rtsFullLoadProgressPercent = lens _rtsFullLoadProgressPercent (\ s a -> s{_rtsFullLoadProgressPercent = a});
rtsElapsedTimeMillis :: Lens' ReplicationTaskStats (Maybe Integer)
rtsElapsedTimeMillis = lens _rtsElapsedTimeMillis (\ s a -> s{_rtsElapsedTimeMillis = a});
rtsTablesErrored :: Lens' ReplicationTaskStats (Maybe Int)
rtsTablesErrored = lens _rtsTablesErrored (\ s a -> s{_rtsTablesErrored = a});
rtsTablesLoaded :: Lens' ReplicationTaskStats (Maybe Int)
rtsTablesLoaded = lens _rtsTablesLoaded (\ s a -> s{_rtsTablesLoaded = a});
rtsTablesQueued :: Lens' ReplicationTaskStats (Maybe Int)
rtsTablesQueued = lens _rtsTablesQueued (\ s a -> s{_rtsTablesQueued = a});
rtsTablesLoading :: Lens' ReplicationTaskStats (Maybe Int)
rtsTablesLoading = lens _rtsTablesLoading (\ s a -> s{_rtsTablesLoading = a});
instance FromJSON ReplicationTaskStats where
parseJSON
= withObject "ReplicationTaskStats"
(\ x ->
ReplicationTaskStats' <$>
(x .:? "FullLoadProgressPercent") <*>
(x .:? "ElapsedTimeMillis")
<*> (x .:? "TablesErrored")
<*> (x .:? "TablesLoaded")
<*> (x .:? "TablesQueued")
<*> (x .:? "TablesLoading"))
instance Hashable ReplicationTaskStats
instance NFData ReplicationTaskStats
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 FromJSON Subnet where
parseJSON
= withObject "Subnet"
(\ x ->
Subnet' <$>
(x .:? "SubnetStatus") <*> (x .:? "SubnetIdentifier")
<*> (x .:? "SubnetAvailabilityZone"))
instance Hashable Subnet
instance NFData Subnet
data SupportedEndpointType = SupportedEndpointType'
{ _setEndpointType :: !(Maybe ReplicationEndpointTypeValue)
, _setEngineName :: !(Maybe Text)
, _setSupportsCDC :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
supportedEndpointType
:: SupportedEndpointType
supportedEndpointType =
SupportedEndpointType'
{ _setEndpointType = Nothing
, _setEngineName = Nothing
, _setSupportsCDC = Nothing
}
setEndpointType :: Lens' SupportedEndpointType (Maybe ReplicationEndpointTypeValue)
setEndpointType = lens _setEndpointType (\ s a -> s{_setEndpointType = a});
setEngineName :: Lens' SupportedEndpointType (Maybe Text)
setEngineName = lens _setEngineName (\ s a -> s{_setEngineName = a});
setSupportsCDC :: Lens' SupportedEndpointType (Maybe Bool)
setSupportsCDC = lens _setSupportsCDC (\ s a -> s{_setSupportsCDC = a});
instance FromJSON SupportedEndpointType where
parseJSON
= withObject "SupportedEndpointType"
(\ x ->
SupportedEndpointType' <$>
(x .:? "EndpointType") <*> (x .:? "EngineName") <*>
(x .:? "SupportsCDC"))
instance Hashable SupportedEndpointType
instance NFData SupportedEndpointType
data TableStatistics = TableStatistics'
{ _tsFullLoadRows :: !(Maybe Integer)
, _tsInserts :: !(Maybe Integer)
, _tsSchemaName :: !(Maybe Text)
, _tsTableState :: !(Maybe Text)
, _tsDdls :: !(Maybe Integer)
, _tsDeletes :: !(Maybe Integer)
, _tsUpdates :: !(Maybe Integer)
, _tsLastUpdateTime :: !(Maybe POSIX)
, _tsTableName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
tableStatistics
:: TableStatistics
tableStatistics =
TableStatistics'
{ _tsFullLoadRows = Nothing
, _tsInserts = Nothing
, _tsSchemaName = Nothing
, _tsTableState = Nothing
, _tsDdls = Nothing
, _tsDeletes = Nothing
, _tsUpdates = Nothing
, _tsLastUpdateTime = Nothing
, _tsTableName = Nothing
}
tsFullLoadRows :: Lens' TableStatistics (Maybe Integer)
tsFullLoadRows = lens _tsFullLoadRows (\ s a -> s{_tsFullLoadRows = a});
tsInserts :: Lens' TableStatistics (Maybe Integer)
tsInserts = lens _tsInserts (\ s a -> s{_tsInserts = a});
tsSchemaName :: Lens' TableStatistics (Maybe Text)
tsSchemaName = lens _tsSchemaName (\ s a -> s{_tsSchemaName = a});
tsTableState :: Lens' TableStatistics (Maybe Text)
tsTableState = lens _tsTableState (\ s a -> s{_tsTableState = a});
tsDdls :: Lens' TableStatistics (Maybe Integer)
tsDdls = lens _tsDdls (\ s a -> s{_tsDdls = a});
tsDeletes :: Lens' TableStatistics (Maybe Integer)
tsDeletes = lens _tsDeletes (\ s a -> s{_tsDeletes = a});
tsUpdates :: Lens' TableStatistics (Maybe Integer)
tsUpdates = lens _tsUpdates (\ s a -> s{_tsUpdates = a});
tsLastUpdateTime :: Lens' TableStatistics (Maybe UTCTime)
tsLastUpdateTime = lens _tsLastUpdateTime (\ s a -> s{_tsLastUpdateTime = a}) . mapping _Time;
tsTableName :: Lens' TableStatistics (Maybe Text)
tsTableName = lens _tsTableName (\ s a -> s{_tsTableName = a});
instance FromJSON TableStatistics where
parseJSON
= withObject "TableStatistics"
(\ x ->
TableStatistics' <$>
(x .:? "FullLoadRows") <*> (x .:? "Inserts") <*>
(x .:? "SchemaName")
<*> (x .:? "TableState")
<*> (x .:? "Ddls")
<*> (x .:? "Deletes")
<*> (x .:? "Updates")
<*> (x .:? "LastUpdateTime")
<*> (x .:? "TableName"))
instance Hashable TableStatistics
instance NFData TableStatistics
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 FromJSON Tag where
parseJSON
= withObject "Tag"
(\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key"))
instance Hashable Tag
instance NFData Tag
instance ToJSON Tag where
toJSON Tag'{..}
= object
(catMaybes
[("Value" .=) <$> _tagValue, ("Key" .=) <$> _tagKey])