{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
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 where
instance NFData AccountQuota where
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 where
instance NFData AvailabilityZone where
data Certificate = Certificate'
{ _cCertificateOwner :: !(Maybe Text)
, _cSigningAlgorithm :: !(Maybe Text)
, _cValidFromDate :: !(Maybe POSIX)
, _cCertificatePem :: !(Maybe Text)
, _cCertificateARN :: !(Maybe Text)
, _cCertificateCreationDate :: !(Maybe POSIX)
, _cCertificateIdentifier :: !(Maybe Text)
, _cCertificateWallet :: !(Maybe Base64)
, _cKeyLength :: !(Maybe Int)
, _cValidToDate :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
certificate
:: Certificate
certificate =
Certificate'
{ _cCertificateOwner = Nothing
, _cSigningAlgorithm = Nothing
, _cValidFromDate = Nothing
, _cCertificatePem = Nothing
, _cCertificateARN = Nothing
, _cCertificateCreationDate = Nothing
, _cCertificateIdentifier = Nothing
, _cCertificateWallet = Nothing
, _cKeyLength = Nothing
, _cValidToDate = Nothing
}
cCertificateOwner :: Lens' Certificate (Maybe Text)
cCertificateOwner = lens _cCertificateOwner (\ s a -> s{_cCertificateOwner = a})
cSigningAlgorithm :: Lens' Certificate (Maybe Text)
cSigningAlgorithm = lens _cSigningAlgorithm (\ s a -> s{_cSigningAlgorithm = a})
cValidFromDate :: Lens' Certificate (Maybe UTCTime)
cValidFromDate = lens _cValidFromDate (\ s a -> s{_cValidFromDate = a}) . mapping _Time
cCertificatePem :: Lens' Certificate (Maybe Text)
cCertificatePem = lens _cCertificatePem (\ s a -> s{_cCertificatePem = a})
cCertificateARN :: Lens' Certificate (Maybe Text)
cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a})
cCertificateCreationDate :: Lens' Certificate (Maybe UTCTime)
cCertificateCreationDate = lens _cCertificateCreationDate (\ s a -> s{_cCertificateCreationDate = a}) . mapping _Time
cCertificateIdentifier :: Lens' Certificate (Maybe Text)
cCertificateIdentifier = lens _cCertificateIdentifier (\ s a -> s{_cCertificateIdentifier = a})
cCertificateWallet :: Lens' Certificate (Maybe ByteString)
cCertificateWallet = lens _cCertificateWallet (\ s a -> s{_cCertificateWallet = a}) . mapping _Base64
cKeyLength :: Lens' Certificate (Maybe Int)
cKeyLength = lens _cKeyLength (\ s a -> s{_cKeyLength = a})
cValidToDate :: Lens' Certificate (Maybe UTCTime)
cValidToDate = lens _cValidToDate (\ s a -> s{_cValidToDate = a}) . mapping _Time
instance FromJSON Certificate where
parseJSON
= withObject "Certificate"
(\ x ->
Certificate' <$>
(x .:? "CertificateOwner") <*>
(x .:? "SigningAlgorithm")
<*> (x .:? "ValidFromDate")
<*> (x .:? "CertificatePem")
<*> (x .:? "CertificateArn")
<*> (x .:? "CertificateCreationDate")
<*> (x .:? "CertificateIdentifier")
<*> (x .:? "CertificateWallet")
<*> (x .:? "KeyLength")
<*> (x .:? "ValidToDate"))
instance Hashable Certificate where
instance NFData Certificate where
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 where
instance NFData Connection where
newtype DynamoDBSettings = DynamoDBSettings'
{ _ddsServiceAccessRoleARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
dynamoDBSettings
:: Text
-> DynamoDBSettings
dynamoDBSettings pServiceAccessRoleARN_ =
DynamoDBSettings' {_ddsServiceAccessRoleARN = pServiceAccessRoleARN_}
ddsServiceAccessRoleARN :: Lens' DynamoDBSettings Text
ddsServiceAccessRoleARN = lens _ddsServiceAccessRoleARN (\ s a -> s{_ddsServiceAccessRoleARN = a})
instance FromJSON DynamoDBSettings where
parseJSON
= withObject "DynamoDBSettings"
(\ x ->
DynamoDBSettings' <$> (x .: "ServiceAccessRoleArn"))
instance Hashable DynamoDBSettings where
instance NFData DynamoDBSettings where
instance ToJSON DynamoDBSettings where
toJSON DynamoDBSettings'{..}
= object
(catMaybes
[Just
("ServiceAccessRoleArn" .=
_ddsServiceAccessRoleARN)])
data Endpoint = Endpoint'
{ _eStatus :: !(Maybe Text)
, _eServerName :: !(Maybe Text)
, _eCertificateARN :: !(Maybe Text)
, _eServiceAccessRoleARN :: !(Maybe Text)
, _eEngineDisplayName :: !(Maybe Text)
, _eExtraConnectionAttributes :: !(Maybe Text)
, _eEndpointType :: !(Maybe ReplicationEndpointTypeValue)
, _eUsername :: !(Maybe Text)
, _eExternalTableDefinition :: !(Maybe Text)
, _eEngineName :: !(Maybe Text)
, _eKMSKeyId :: !(Maybe Text)
, _eMongoDBSettings :: !(Maybe MongoDBSettings)
, _eSSLMode :: !(Maybe DmsSSLModeValue)
, _eDatabaseName :: !(Maybe Text)
, _eS3Settings :: !(Maybe S3Settings)
, _eEndpointIdentifier :: !(Maybe Text)
, _eExternalId :: !(Maybe Text)
, _eDynamoDBSettings :: !(Maybe DynamoDBSettings)
, _eEndpointARN :: !(Maybe Text)
, _ePort :: !(Maybe Int)
} deriving (Eq, Show, Data, Typeable, Generic)
endpoint
:: Endpoint
endpoint =
Endpoint'
{ _eStatus = Nothing
, _eServerName = Nothing
, _eCertificateARN = Nothing
, _eServiceAccessRoleARN = Nothing
, _eEngineDisplayName = Nothing
, _eExtraConnectionAttributes = Nothing
, _eEndpointType = Nothing
, _eUsername = Nothing
, _eExternalTableDefinition = Nothing
, _eEngineName = Nothing
, _eKMSKeyId = Nothing
, _eMongoDBSettings = Nothing
, _eSSLMode = Nothing
, _eDatabaseName = Nothing
, _eS3Settings = Nothing
, _eEndpointIdentifier = Nothing
, _eExternalId = Nothing
, _eDynamoDBSettings = 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})
eCertificateARN :: Lens' Endpoint (Maybe Text)
eCertificateARN = lens _eCertificateARN (\ s a -> s{_eCertificateARN = a})
eServiceAccessRoleARN :: Lens' Endpoint (Maybe Text)
eServiceAccessRoleARN = lens _eServiceAccessRoleARN (\ s a -> s{_eServiceAccessRoleARN = a})
eEngineDisplayName :: Lens' Endpoint (Maybe Text)
eEngineDisplayName = lens _eEngineDisplayName (\ s a -> s{_eEngineDisplayName = 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})
eExternalTableDefinition :: Lens' Endpoint (Maybe Text)
eExternalTableDefinition = lens _eExternalTableDefinition (\ s a -> s{_eExternalTableDefinition = 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})
eMongoDBSettings :: Lens' Endpoint (Maybe MongoDBSettings)
eMongoDBSettings = lens _eMongoDBSettings (\ s a -> s{_eMongoDBSettings = a})
eSSLMode :: Lens' Endpoint (Maybe DmsSSLModeValue)
eSSLMode = lens _eSSLMode (\ s a -> s{_eSSLMode = a})
eDatabaseName :: Lens' Endpoint (Maybe Text)
eDatabaseName = lens _eDatabaseName (\ s a -> s{_eDatabaseName = a})
eS3Settings :: Lens' Endpoint (Maybe S3Settings)
eS3Settings = lens _eS3Settings (\ s a -> s{_eS3Settings = a})
eEndpointIdentifier :: Lens' Endpoint (Maybe Text)
eEndpointIdentifier = lens _eEndpointIdentifier (\ s a -> s{_eEndpointIdentifier = a})
eExternalId :: Lens' Endpoint (Maybe Text)
eExternalId = lens _eExternalId (\ s a -> s{_eExternalId = a})
eDynamoDBSettings :: Lens' Endpoint (Maybe DynamoDBSettings)
eDynamoDBSettings = lens _eDynamoDBSettings (\ s a -> s{_eDynamoDBSettings = 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 .:? "CertificateArn")
<*> (x .:? "ServiceAccessRoleArn")
<*> (x .:? "EngineDisplayName")
<*> (x .:? "ExtraConnectionAttributes")
<*> (x .:? "EndpointType")
<*> (x .:? "Username")
<*> (x .:? "ExternalTableDefinition")
<*> (x .:? "EngineName")
<*> (x .:? "KmsKeyId")
<*> (x .:? "MongoDbSettings")
<*> (x .:? "SslMode")
<*> (x .:? "DatabaseName")
<*> (x .:? "S3Settings")
<*> (x .:? "EndpointIdentifier")
<*> (x .:? "ExternalId")
<*> (x .:? "DynamoDbSettings")
<*> (x .:? "EndpointArn")
<*> (x .:? "Port"))
instance Hashable Endpoint where
instance NFData Endpoint where
data Event = Event'
{ _eSourceType :: !(Maybe SourceType)
, _eSourceIdentifier :: !(Maybe Text)
, _eDate :: !(Maybe POSIX)
, _eEventCategories :: !(Maybe [Text])
, _eMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
event
:: Event
event =
Event'
{ _eSourceType = Nothing
, _eSourceIdentifier = Nothing
, _eDate = Nothing
, _eEventCategories = 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
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})
instance FromJSON Event where
parseJSON
= withObject "Event"
(\ x ->
Event' <$>
(x .:? "SourceType") <*> (x .:? "SourceIdentifier")
<*> (x .:? "Date")
<*> (x .:? "EventCategories" .!= mempty)
<*> (x .:? "Message"))
instance Hashable Event where
instance NFData Event where
data EventCategoryGroup = EventCategoryGroup'
{ _ecgSourceType :: !(Maybe Text)
, _ecgEventCategories :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventCategoryGroup
:: EventCategoryGroup
eventCategoryGroup =
EventCategoryGroup' {_ecgSourceType = Nothing, _ecgEventCategories = Nothing}
ecgSourceType :: Lens' EventCategoryGroup (Maybe Text)
ecgSourceType = lens _ecgSourceType (\ s a -> s{_ecgSourceType = a})
ecgEventCategories :: Lens' EventCategoryGroup [Text]
ecgEventCategories = lens _ecgEventCategories (\ s a -> s{_ecgEventCategories = a}) . _Default . _Coerce
instance FromJSON EventCategoryGroup where
parseJSON
= withObject "EventCategoryGroup"
(\ x ->
EventCategoryGroup' <$>
(x .:? "SourceType") <*>
(x .:? "EventCategories" .!= mempty))
instance Hashable EventCategoryGroup where
instance NFData EventCategoryGroup where
data EventSubscription = EventSubscription'
{ _esStatus :: !(Maybe Text)
, _esCustomerAWSId :: !(Maybe Text)
, _esCustSubscriptionId :: !(Maybe Text)
, _esSNSTopicARN :: !(Maybe Text)
, _esEnabled :: !(Maybe Bool)
, _esSourceType :: !(Maybe Text)
, _esSubscriptionCreationTime :: !(Maybe Text)
, _esEventCategoriesList :: !(Maybe [Text])
, _esSourceIdsList :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventSubscription
:: EventSubscription
eventSubscription =
EventSubscription'
{ _esStatus = Nothing
, _esCustomerAWSId = Nothing
, _esCustSubscriptionId = Nothing
, _esSNSTopicARN = Nothing
, _esEnabled = Nothing
, _esSourceType = Nothing
, _esSubscriptionCreationTime = Nothing
, _esEventCategoriesList = Nothing
, _esSourceIdsList = Nothing
}
esStatus :: Lens' EventSubscription (Maybe Text)
esStatus = lens _esStatus (\ s a -> s{_esStatus = a})
esCustomerAWSId :: Lens' EventSubscription (Maybe Text)
esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a})
esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)
esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a})
esSNSTopicARN :: Lens' EventSubscription (Maybe Text)
esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a})
esEnabled :: Lens' EventSubscription (Maybe Bool)
esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a})
esSourceType :: Lens' EventSubscription (Maybe Text)
esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a})
esSubscriptionCreationTime :: Lens' EventSubscription (Maybe Text)
esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a})
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
instance FromJSON EventSubscription where
parseJSON
= withObject "EventSubscription"
(\ x ->
EventSubscription' <$>
(x .:? "Status") <*> (x .:? "CustomerAwsId") <*>
(x .:? "CustSubscriptionId")
<*> (x .:? "SnsTopicArn")
<*> (x .:? "Enabled")
<*> (x .:? "SourceType")
<*> (x .:? "SubscriptionCreationTime")
<*> (x .:? "EventCategoriesList" .!= mempty)
<*> (x .:? "SourceIdsList" .!= mempty))
instance Hashable EventSubscription where
instance NFData EventSubscription where
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 where
instance NFData Filter where
instance ToJSON Filter where
toJSON Filter'{..}
= object
(catMaybes
[Just ("Name" .= _fName),
Just ("Values" .= _fValues)])
data MongoDBSettings = MongoDBSettings'
{ _mdsServerName :: !(Maybe Text)
, _mdsAuthMechanism :: !(Maybe AuthMechanismValue)
, _mdsUsername :: !(Maybe Text)
, _mdsKMSKeyId :: !(Maybe Text)
, _mdsPassword :: !(Maybe (Sensitive Text))
, _mdsNestingLevel :: !(Maybe NestingLevelValue)
, _mdsDatabaseName :: !(Maybe Text)
, _mdsDocsToInvestigate :: !(Maybe Text)
, _mdsAuthSource :: !(Maybe Text)
, _mdsExtractDocId :: !(Maybe Text)
, _mdsAuthType :: !(Maybe AuthTypeValue)
, _mdsPort :: !(Maybe Int)
} deriving (Eq, Show, Data, Typeable, Generic)
mongoDBSettings
:: MongoDBSettings
mongoDBSettings =
MongoDBSettings'
{ _mdsServerName = Nothing
, _mdsAuthMechanism = Nothing
, _mdsUsername = Nothing
, _mdsKMSKeyId = Nothing
, _mdsPassword = Nothing
, _mdsNestingLevel = Nothing
, _mdsDatabaseName = Nothing
, _mdsDocsToInvestigate = Nothing
, _mdsAuthSource = Nothing
, _mdsExtractDocId = Nothing
, _mdsAuthType = Nothing
, _mdsPort = Nothing
}
mdsServerName :: Lens' MongoDBSettings (Maybe Text)
mdsServerName = lens _mdsServerName (\ s a -> s{_mdsServerName = a})
mdsAuthMechanism :: Lens' MongoDBSettings (Maybe AuthMechanismValue)
mdsAuthMechanism = lens _mdsAuthMechanism (\ s a -> s{_mdsAuthMechanism = a})
mdsUsername :: Lens' MongoDBSettings (Maybe Text)
mdsUsername = lens _mdsUsername (\ s a -> s{_mdsUsername = a})
mdsKMSKeyId :: Lens' MongoDBSettings (Maybe Text)
mdsKMSKeyId = lens _mdsKMSKeyId (\ s a -> s{_mdsKMSKeyId = a})
mdsPassword :: Lens' MongoDBSettings (Maybe Text)
mdsPassword = lens _mdsPassword (\ s a -> s{_mdsPassword = a}) . mapping _Sensitive
mdsNestingLevel :: Lens' MongoDBSettings (Maybe NestingLevelValue)
mdsNestingLevel = lens _mdsNestingLevel (\ s a -> s{_mdsNestingLevel = a})
mdsDatabaseName :: Lens' MongoDBSettings (Maybe Text)
mdsDatabaseName = lens _mdsDatabaseName (\ s a -> s{_mdsDatabaseName = a})
mdsDocsToInvestigate :: Lens' MongoDBSettings (Maybe Text)
mdsDocsToInvestigate = lens _mdsDocsToInvestigate (\ s a -> s{_mdsDocsToInvestigate = a})
mdsAuthSource :: Lens' MongoDBSettings (Maybe Text)
mdsAuthSource = lens _mdsAuthSource (\ s a -> s{_mdsAuthSource = a})
mdsExtractDocId :: Lens' MongoDBSettings (Maybe Text)
mdsExtractDocId = lens _mdsExtractDocId (\ s a -> s{_mdsExtractDocId = a})
mdsAuthType :: Lens' MongoDBSettings (Maybe AuthTypeValue)
mdsAuthType = lens _mdsAuthType (\ s a -> s{_mdsAuthType = a})
mdsPort :: Lens' MongoDBSettings (Maybe Int)
mdsPort = lens _mdsPort (\ s a -> s{_mdsPort = a})
instance FromJSON MongoDBSettings where
parseJSON
= withObject "MongoDBSettings"
(\ x ->
MongoDBSettings' <$>
(x .:? "ServerName") <*> (x .:? "AuthMechanism") <*>
(x .:? "Username")
<*> (x .:? "KmsKeyId")
<*> (x .:? "Password")
<*> (x .:? "NestingLevel")
<*> (x .:? "DatabaseName")
<*> (x .:? "DocsToInvestigate")
<*> (x .:? "AuthSource")
<*> (x .:? "ExtractDocId")
<*> (x .:? "AuthType")
<*> (x .:? "Port"))
instance Hashable MongoDBSettings where
instance NFData MongoDBSettings where
instance ToJSON MongoDBSettings where
toJSON MongoDBSettings'{..}
= object
(catMaybes
[("ServerName" .=) <$> _mdsServerName,
("AuthMechanism" .=) <$> _mdsAuthMechanism,
("Username" .=) <$> _mdsUsername,
("KmsKeyId" .=) <$> _mdsKMSKeyId,
("Password" .=) <$> _mdsPassword,
("NestingLevel" .=) <$> _mdsNestingLevel,
("DatabaseName" .=) <$> _mdsDatabaseName,
("DocsToInvestigate" .=) <$> _mdsDocsToInvestigate,
("AuthSource" .=) <$> _mdsAuthSource,
("ExtractDocId" .=) <$> _mdsExtractDocId,
("AuthType" .=) <$> _mdsAuthType,
("Port" .=) <$> _mdsPort])
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 where
instance NFData OrderableReplicationInstance where
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 where
instance NFData RefreshSchemasStatus where
data ReplicationInstance = ReplicationInstance'
{ _riEngineVersion :: !(Maybe Text)
, _riPubliclyAccessible :: !(Maybe Bool)
, _riAutoMinorVersionUpgrade :: !(Maybe Bool)
, _riReplicationInstancePublicIPAddresses :: !(Maybe [Text])
, _riReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)
, _riInstanceCreateTime :: !(Maybe POSIX)
, _riFreeUntil :: !(Maybe POSIX)
, _riReplicationInstanceStatus :: !(Maybe Text)
, _riReplicationInstancePrivateIPAddresses :: !(Maybe [Text])
, _riPreferredMaintenanceWindow :: !(Maybe Text)
, _riReplicationInstancePrivateIPAddress :: !(Maybe Text)
, _riKMSKeyId :: !(Maybe Text)
, _riAvailabilityZone :: !(Maybe Text)
, _riVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])
, _riMultiAZ :: !(Maybe Bool)
, _riSecondaryAvailabilityZone :: !(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
, _riReplicationInstancePublicIPAddresses = Nothing
, _riReplicationSubnetGroup = Nothing
, _riInstanceCreateTime = Nothing
, _riFreeUntil = Nothing
, _riReplicationInstanceStatus = Nothing
, _riReplicationInstancePrivateIPAddresses = Nothing
, _riPreferredMaintenanceWindow = Nothing
, _riReplicationInstancePrivateIPAddress = Nothing
, _riKMSKeyId = Nothing
, _riAvailabilityZone = Nothing
, _riVPCSecurityGroups = Nothing
, _riMultiAZ = Nothing
, _riSecondaryAvailabilityZone = 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})
riReplicationInstancePublicIPAddresses :: Lens' ReplicationInstance [Text]
riReplicationInstancePublicIPAddresses = lens _riReplicationInstancePublicIPAddresses (\ s a -> s{_riReplicationInstancePublicIPAddresses = a}) . _Default . _Coerce
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
riFreeUntil :: Lens' ReplicationInstance (Maybe UTCTime)
riFreeUntil = lens _riFreeUntil (\ s a -> s{_riFreeUntil = a}) . mapping _Time
riReplicationInstanceStatus :: Lens' ReplicationInstance (Maybe Text)
riReplicationInstanceStatus = lens _riReplicationInstanceStatus (\ s a -> s{_riReplicationInstanceStatus = a})
riReplicationInstancePrivateIPAddresses :: Lens' ReplicationInstance [Text]
riReplicationInstancePrivateIPAddresses = lens _riReplicationInstancePrivateIPAddresses (\ s a -> s{_riReplicationInstancePrivateIPAddresses = a}) . _Default . _Coerce
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})
riVPCSecurityGroups :: Lens' ReplicationInstance [VPCSecurityGroupMembership]
riVPCSecurityGroups = lens _riVPCSecurityGroups (\ s a -> s{_riVPCSecurityGroups = a}) . _Default . _Coerce
riMultiAZ :: Lens' ReplicationInstance (Maybe Bool)
riMultiAZ = lens _riMultiAZ (\ s a -> s{_riMultiAZ = a})
riSecondaryAvailabilityZone :: Lens' ReplicationInstance (Maybe Text)
riSecondaryAvailabilityZone = lens _riSecondaryAvailabilityZone (\ s a -> s{_riSecondaryAvailabilityZone = 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 .:? "ReplicationInstancePublicIpAddresses" .!=
mempty)
<*> (x .:? "ReplicationSubnetGroup")
<*> (x .:? "InstanceCreateTime")
<*> (x .:? "FreeUntil")
<*> (x .:? "ReplicationInstanceStatus")
<*>
(x .:? "ReplicationInstancePrivateIpAddresses" .!=
mempty)
<*> (x .:? "PreferredMaintenanceWindow")
<*> (x .:? "ReplicationInstancePrivateIpAddress")
<*> (x .:? "KmsKeyId")
<*> (x .:? "AvailabilityZone")
<*> (x .:? "VpcSecurityGroups" .!= mempty)
<*> (x .:? "MultiAZ")
<*> (x .:? "SecondaryAvailabilityZone")
<*> (x .:? "ReplicationInstanceArn")
<*> (x .:? "AllocatedStorage")
<*> (x .:? "ReplicationInstancePublicIpAddress")
<*> (x .:? "ReplicationInstanceClass")
<*> (x .:? "ReplicationInstanceIdentifier")
<*> (x .:? "PendingModifiedValues"))
instance Hashable ReplicationInstance where
instance NFData ReplicationInstance where
data ReplicationInstanceTaskLog = ReplicationInstanceTaskLog'
{ _ritlReplicationTaskName :: !(Maybe Text)
, _ritlReplicationTaskARN :: !(Maybe Text)
, _ritlReplicationInstanceTaskLogSize :: !(Maybe Integer)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
replicationInstanceTaskLog
:: ReplicationInstanceTaskLog
replicationInstanceTaskLog =
ReplicationInstanceTaskLog'
{ _ritlReplicationTaskName = Nothing
, _ritlReplicationTaskARN = Nothing
, _ritlReplicationInstanceTaskLogSize = Nothing
}
ritlReplicationTaskName :: Lens' ReplicationInstanceTaskLog (Maybe Text)
ritlReplicationTaskName = lens _ritlReplicationTaskName (\ s a -> s{_ritlReplicationTaskName = a})
ritlReplicationTaskARN :: Lens' ReplicationInstanceTaskLog (Maybe Text)
ritlReplicationTaskARN = lens _ritlReplicationTaskARN (\ s a -> s{_ritlReplicationTaskARN = a})
ritlReplicationInstanceTaskLogSize :: Lens' ReplicationInstanceTaskLog (Maybe Integer)
ritlReplicationInstanceTaskLogSize = lens _ritlReplicationInstanceTaskLogSize (\ s a -> s{_ritlReplicationInstanceTaskLogSize = a})
instance FromJSON ReplicationInstanceTaskLog where
parseJSON
= withObject "ReplicationInstanceTaskLog"
(\ x ->
ReplicationInstanceTaskLog' <$>
(x .:? "ReplicationTaskName") <*>
(x .:? "ReplicationTaskArn")
<*> (x .:? "ReplicationInstanceTaskLogSize"))
instance Hashable ReplicationInstanceTaskLog where
instance NFData ReplicationInstanceTaskLog where
data ReplicationPendingModifiedValues = ReplicationPendingModifiedValues'
{ _rpmvEngineVersion :: !(Maybe Text)
, _rpmvMultiAZ :: !(Maybe Bool)
, _rpmvAllocatedStorage :: !(Maybe Int)
, _rpmvReplicationInstanceClass :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
replicationPendingModifiedValues
:: ReplicationPendingModifiedValues
replicationPendingModifiedValues =
ReplicationPendingModifiedValues'
{ _rpmvEngineVersion = Nothing
, _rpmvMultiAZ = Nothing
, _rpmvAllocatedStorage = Nothing
, _rpmvReplicationInstanceClass = Nothing
}
rpmvEngineVersion :: Lens' ReplicationPendingModifiedValues (Maybe Text)
rpmvEngineVersion = lens _rpmvEngineVersion (\ s a -> s{_rpmvEngineVersion = a})
rpmvMultiAZ :: Lens' ReplicationPendingModifiedValues (Maybe Bool)
rpmvMultiAZ = lens _rpmvMultiAZ (\ s a -> s{_rpmvMultiAZ = 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 .:? "MultiAZ") <*>
(x .:? "AllocatedStorage")
<*> (x .:? "ReplicationInstanceClass"))
instance Hashable ReplicationPendingModifiedValues
where
instance NFData ReplicationPendingModifiedValues
where
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 where
instance NFData ReplicationSubnetGroup where
data ReplicationTask = ReplicationTask'
{ _rReplicationTaskSettings :: !(Maybe Text)
, _rStatus :: !(Maybe Text)
, _rStopReason :: !(Maybe Text)
, _rTargetEndpointARN :: !(Maybe Text)
, _rReplicationTaskIdentifier :: !(Maybe Text)
, _rCdcStartPosition :: !(Maybe Text)
, _rReplicationTaskStartDate :: !(Maybe POSIX)
, _rSourceEndpointARN :: !(Maybe Text)
, _rRecoveryCheckpoint :: !(Maybe Text)
, _rTableMappings :: !(Maybe Text)
, _rReplicationTaskCreationDate :: !(Maybe POSIX)
, _rMigrationType :: !(Maybe MigrationTypeValue)
, _rReplicationTaskARN :: !(Maybe Text)
, _rCdcStopPosition :: !(Maybe Text)
, _rReplicationTaskStats :: !(Maybe ReplicationTaskStats)
, _rReplicationInstanceARN :: !(Maybe Text)
, _rLastFailureMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
replicationTask
:: ReplicationTask
replicationTask =
ReplicationTask'
{ _rReplicationTaskSettings = Nothing
, _rStatus = Nothing
, _rStopReason = Nothing
, _rTargetEndpointARN = Nothing
, _rReplicationTaskIdentifier = Nothing
, _rCdcStartPosition = Nothing
, _rReplicationTaskStartDate = Nothing
, _rSourceEndpointARN = Nothing
, _rRecoveryCheckpoint = Nothing
, _rTableMappings = Nothing
, _rReplicationTaskCreationDate = Nothing
, _rMigrationType = Nothing
, _rReplicationTaskARN = Nothing
, _rCdcStopPosition = Nothing
, _rReplicationTaskStats = Nothing
, _rReplicationInstanceARN = Nothing
, _rLastFailureMessage = Nothing
}
rReplicationTaskSettings :: Lens' ReplicationTask (Maybe Text)
rReplicationTaskSettings = lens _rReplicationTaskSettings (\ s a -> s{_rReplicationTaskSettings = a})
rStatus :: Lens' ReplicationTask (Maybe Text)
rStatus = lens _rStatus (\ s a -> s{_rStatus = a})
rStopReason :: Lens' ReplicationTask (Maybe Text)
rStopReason = lens _rStopReason (\ s a -> s{_rStopReason = a})
rTargetEndpointARN :: Lens' ReplicationTask (Maybe Text)
rTargetEndpointARN = lens _rTargetEndpointARN (\ s a -> s{_rTargetEndpointARN = a})
rReplicationTaskIdentifier :: Lens' ReplicationTask (Maybe Text)
rReplicationTaskIdentifier = lens _rReplicationTaskIdentifier (\ s a -> s{_rReplicationTaskIdentifier = a})
rCdcStartPosition :: Lens' ReplicationTask (Maybe Text)
rCdcStartPosition = lens _rCdcStartPosition (\ s a -> s{_rCdcStartPosition = a})
rReplicationTaskStartDate :: Lens' ReplicationTask (Maybe UTCTime)
rReplicationTaskStartDate = lens _rReplicationTaskStartDate (\ s a -> s{_rReplicationTaskStartDate = a}) . mapping _Time
rSourceEndpointARN :: Lens' ReplicationTask (Maybe Text)
rSourceEndpointARN = lens _rSourceEndpointARN (\ s a -> s{_rSourceEndpointARN = a})
rRecoveryCheckpoint :: Lens' ReplicationTask (Maybe Text)
rRecoveryCheckpoint = lens _rRecoveryCheckpoint (\ s a -> s{_rRecoveryCheckpoint = a})
rTableMappings :: Lens' ReplicationTask (Maybe Text)
rTableMappings = lens _rTableMappings (\ s a -> s{_rTableMappings = a})
rReplicationTaskCreationDate :: Lens' ReplicationTask (Maybe UTCTime)
rReplicationTaskCreationDate = lens _rReplicationTaskCreationDate (\ s a -> s{_rReplicationTaskCreationDate = a}) . mapping _Time
rMigrationType :: Lens' ReplicationTask (Maybe MigrationTypeValue)
rMigrationType = lens _rMigrationType (\ s a -> s{_rMigrationType = a})
rReplicationTaskARN :: Lens' ReplicationTask (Maybe Text)
rReplicationTaskARN = lens _rReplicationTaskARN (\ s a -> s{_rReplicationTaskARN = a})
rCdcStopPosition :: Lens' ReplicationTask (Maybe Text)
rCdcStopPosition = lens _rCdcStopPosition (\ s a -> s{_rCdcStopPosition = a})
rReplicationTaskStats :: Lens' ReplicationTask (Maybe ReplicationTaskStats)
rReplicationTaskStats = lens _rReplicationTaskStats (\ s a -> s{_rReplicationTaskStats = a})
rReplicationInstanceARN :: Lens' ReplicationTask (Maybe Text)
rReplicationInstanceARN = lens _rReplicationInstanceARN (\ s a -> s{_rReplicationInstanceARN = a})
rLastFailureMessage :: Lens' ReplicationTask (Maybe Text)
rLastFailureMessage = lens _rLastFailureMessage (\ s a -> s{_rLastFailureMessage = a})
instance FromJSON ReplicationTask where
parseJSON
= withObject "ReplicationTask"
(\ x ->
ReplicationTask' <$>
(x .:? "ReplicationTaskSettings") <*>
(x .:? "Status")
<*> (x .:? "StopReason")
<*> (x .:? "TargetEndpointArn")
<*> (x .:? "ReplicationTaskIdentifier")
<*> (x .:? "CdcStartPosition")
<*> (x .:? "ReplicationTaskStartDate")
<*> (x .:? "SourceEndpointArn")
<*> (x .:? "RecoveryCheckpoint")
<*> (x .:? "TableMappings")
<*> (x .:? "ReplicationTaskCreationDate")
<*> (x .:? "MigrationType")
<*> (x .:? "ReplicationTaskArn")
<*> (x .:? "CdcStopPosition")
<*> (x .:? "ReplicationTaskStats")
<*> (x .:? "ReplicationInstanceArn")
<*> (x .:? "LastFailureMessage"))
instance Hashable ReplicationTask where
instance NFData ReplicationTask where
data ReplicationTaskAssessmentResult = ReplicationTaskAssessmentResult'
{ _rtarAssessmentResults :: !(Maybe Text)
, _rtarAssessmentResultsFile :: !(Maybe Text)
, _rtarReplicationTaskIdentifier :: !(Maybe Text)
, _rtarAssessmentStatus :: !(Maybe Text)
, _rtarS3ObjectURL :: !(Maybe Text)
, _rtarReplicationTaskLastAssessmentDate :: !(Maybe POSIX)
, _rtarReplicationTaskARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
replicationTaskAssessmentResult
:: ReplicationTaskAssessmentResult
replicationTaskAssessmentResult =
ReplicationTaskAssessmentResult'
{ _rtarAssessmentResults = Nothing
, _rtarAssessmentResultsFile = Nothing
, _rtarReplicationTaskIdentifier = Nothing
, _rtarAssessmentStatus = Nothing
, _rtarS3ObjectURL = Nothing
, _rtarReplicationTaskLastAssessmentDate = Nothing
, _rtarReplicationTaskARN = Nothing
}
rtarAssessmentResults :: Lens' ReplicationTaskAssessmentResult (Maybe Text)
rtarAssessmentResults = lens _rtarAssessmentResults (\ s a -> s{_rtarAssessmentResults = a})
rtarAssessmentResultsFile :: Lens' ReplicationTaskAssessmentResult (Maybe Text)
rtarAssessmentResultsFile = lens _rtarAssessmentResultsFile (\ s a -> s{_rtarAssessmentResultsFile = a})
rtarReplicationTaskIdentifier :: Lens' ReplicationTaskAssessmentResult (Maybe Text)
rtarReplicationTaskIdentifier = lens _rtarReplicationTaskIdentifier (\ s a -> s{_rtarReplicationTaskIdentifier = a})
rtarAssessmentStatus :: Lens' ReplicationTaskAssessmentResult (Maybe Text)
rtarAssessmentStatus = lens _rtarAssessmentStatus (\ s a -> s{_rtarAssessmentStatus = a})
rtarS3ObjectURL :: Lens' ReplicationTaskAssessmentResult (Maybe Text)
rtarS3ObjectURL = lens _rtarS3ObjectURL (\ s a -> s{_rtarS3ObjectURL = a})
rtarReplicationTaskLastAssessmentDate :: Lens' ReplicationTaskAssessmentResult (Maybe UTCTime)
rtarReplicationTaskLastAssessmentDate = lens _rtarReplicationTaskLastAssessmentDate (\ s a -> s{_rtarReplicationTaskLastAssessmentDate = a}) . mapping _Time
rtarReplicationTaskARN :: Lens' ReplicationTaskAssessmentResult (Maybe Text)
rtarReplicationTaskARN = lens _rtarReplicationTaskARN (\ s a -> s{_rtarReplicationTaskARN = a})
instance FromJSON ReplicationTaskAssessmentResult
where
parseJSON
= withObject "ReplicationTaskAssessmentResult"
(\ x ->
ReplicationTaskAssessmentResult' <$>
(x .:? "AssessmentResults") <*>
(x .:? "AssessmentResultsFile")
<*> (x .:? "ReplicationTaskIdentifier")
<*> (x .:? "AssessmentStatus")
<*> (x .:? "S3ObjectUrl")
<*> (x .:? "ReplicationTaskLastAssessmentDate")
<*> (x .:? "ReplicationTaskArn"))
instance Hashable ReplicationTaskAssessmentResult
where
instance NFData ReplicationTaskAssessmentResult where
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 where
instance NFData ReplicationTaskStats where
data S3Settings = S3Settings'
{ _ssCSVDelimiter :: !(Maybe Text)
, _ssServiceAccessRoleARN :: !(Maybe Text)
, _ssBucketFolder :: !(Maybe Text)
, _ssExternalTableDefinition :: !(Maybe Text)
, _ssBucketName :: !(Maybe Text)
, _ssCSVRowDelimiter :: !(Maybe Text)
, _ssCompressionType :: !(Maybe CompressionTypeValue)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
s3Settings
:: S3Settings
s3Settings =
S3Settings'
{ _ssCSVDelimiter = Nothing
, _ssServiceAccessRoleARN = Nothing
, _ssBucketFolder = Nothing
, _ssExternalTableDefinition = Nothing
, _ssBucketName = Nothing
, _ssCSVRowDelimiter = Nothing
, _ssCompressionType = Nothing
}
ssCSVDelimiter :: Lens' S3Settings (Maybe Text)
ssCSVDelimiter = lens _ssCSVDelimiter (\ s a -> s{_ssCSVDelimiter = a})
ssServiceAccessRoleARN :: Lens' S3Settings (Maybe Text)
ssServiceAccessRoleARN = lens _ssServiceAccessRoleARN (\ s a -> s{_ssServiceAccessRoleARN = a})
ssBucketFolder :: Lens' S3Settings (Maybe Text)
ssBucketFolder = lens _ssBucketFolder (\ s a -> s{_ssBucketFolder = a})
ssExternalTableDefinition :: Lens' S3Settings (Maybe Text)
ssExternalTableDefinition = lens _ssExternalTableDefinition (\ s a -> s{_ssExternalTableDefinition = a})
ssBucketName :: Lens' S3Settings (Maybe Text)
ssBucketName = lens _ssBucketName (\ s a -> s{_ssBucketName = a})
ssCSVRowDelimiter :: Lens' S3Settings (Maybe Text)
ssCSVRowDelimiter = lens _ssCSVRowDelimiter (\ s a -> s{_ssCSVRowDelimiter = a})
ssCompressionType :: Lens' S3Settings (Maybe CompressionTypeValue)
ssCompressionType = lens _ssCompressionType (\ s a -> s{_ssCompressionType = a})
instance FromJSON S3Settings where
parseJSON
= withObject "S3Settings"
(\ x ->
S3Settings' <$>
(x .:? "CsvDelimiter") <*>
(x .:? "ServiceAccessRoleArn")
<*> (x .:? "BucketFolder")
<*> (x .:? "ExternalTableDefinition")
<*> (x .:? "BucketName")
<*> (x .:? "CsvRowDelimiter")
<*> (x .:? "CompressionType"))
instance Hashable S3Settings where
instance NFData S3Settings where
instance ToJSON S3Settings where
toJSON S3Settings'{..}
= object
(catMaybes
[("CsvDelimiter" .=) <$> _ssCSVDelimiter,
("ServiceAccessRoleArn" .=) <$>
_ssServiceAccessRoleARN,
("BucketFolder" .=) <$> _ssBucketFolder,
("ExternalTableDefinition" .=) <$>
_ssExternalTableDefinition,
("BucketName" .=) <$> _ssBucketName,
("CsvRowDelimiter" .=) <$> _ssCSVRowDelimiter,
("CompressionType" .=) <$> _ssCompressionType])
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 where
instance NFData Subnet where
data SupportedEndpointType = SupportedEndpointType'
{ _setEngineDisplayName :: !(Maybe Text)
, _setEndpointType :: !(Maybe ReplicationEndpointTypeValue)
, _setEngineName :: !(Maybe Text)
, _setSupportsCDC :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
supportedEndpointType
:: SupportedEndpointType
supportedEndpointType =
SupportedEndpointType'
{ _setEngineDisplayName = Nothing
, _setEndpointType = Nothing
, _setEngineName = Nothing
, _setSupportsCDC = Nothing
}
setEngineDisplayName :: Lens' SupportedEndpointType (Maybe Text)
setEngineDisplayName = lens _setEngineDisplayName (\ s a -> s{_setEngineDisplayName = a})
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 .:? "EngineDisplayName") <*>
(x .:? "EndpointType")
<*> (x .:? "EngineName")
<*> (x .:? "SupportsCDC"))
instance Hashable SupportedEndpointType where
instance NFData SupportedEndpointType where
data TableStatistics = TableStatistics'
{ _tsValidationState :: !(Maybe Text)
, _tsFullLoadRows :: !(Maybe Integer)
, _tsInserts :: !(Maybe Integer)
, _tsFullLoadCondtnlChkFailedRows :: !(Maybe Integer)
, _tsValidationFailedRecords :: !(Maybe Integer)
, _tsValidationSuspendedRecords :: !(Maybe Integer)
, _tsSchemaName :: !(Maybe Text)
, _tsTableState :: !(Maybe Text)
, _tsFullLoadErrorRows :: !(Maybe Integer)
, _tsDdls :: !(Maybe Integer)
, _tsDeletes :: !(Maybe Integer)
, _tsUpdates :: !(Maybe Integer)
, _tsValidationPendingRecords :: !(Maybe Integer)
, _tsLastUpdateTime :: !(Maybe POSIX)
, _tsTableName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tableStatistics
:: TableStatistics
tableStatistics =
TableStatistics'
{ _tsValidationState = Nothing
, _tsFullLoadRows = Nothing
, _tsInserts = Nothing
, _tsFullLoadCondtnlChkFailedRows = Nothing
, _tsValidationFailedRecords = Nothing
, _tsValidationSuspendedRecords = Nothing
, _tsSchemaName = Nothing
, _tsTableState = Nothing
, _tsFullLoadErrorRows = Nothing
, _tsDdls = Nothing
, _tsDeletes = Nothing
, _tsUpdates = Nothing
, _tsValidationPendingRecords = Nothing
, _tsLastUpdateTime = Nothing
, _tsTableName = Nothing
}
tsValidationState :: Lens' TableStatistics (Maybe Text)
tsValidationState = lens _tsValidationState (\ s a -> s{_tsValidationState = a})
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})
tsFullLoadCondtnlChkFailedRows :: Lens' TableStatistics (Maybe Integer)
tsFullLoadCondtnlChkFailedRows = lens _tsFullLoadCondtnlChkFailedRows (\ s a -> s{_tsFullLoadCondtnlChkFailedRows = a})
tsValidationFailedRecords :: Lens' TableStatistics (Maybe Integer)
tsValidationFailedRecords = lens _tsValidationFailedRecords (\ s a -> s{_tsValidationFailedRecords = a})
tsValidationSuspendedRecords :: Lens' TableStatistics (Maybe Integer)
tsValidationSuspendedRecords = lens _tsValidationSuspendedRecords (\ s a -> s{_tsValidationSuspendedRecords = 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})
tsFullLoadErrorRows :: Lens' TableStatistics (Maybe Integer)
tsFullLoadErrorRows = lens _tsFullLoadErrorRows (\ s a -> s{_tsFullLoadErrorRows = 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})
tsValidationPendingRecords :: Lens' TableStatistics (Maybe Integer)
tsValidationPendingRecords = lens _tsValidationPendingRecords (\ s a -> s{_tsValidationPendingRecords = 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 .:? "ValidationState") <*> (x .:? "FullLoadRows")
<*> (x .:? "Inserts")
<*> (x .:? "FullLoadCondtnlChkFailedRows")
<*> (x .:? "ValidationFailedRecords")
<*> (x .:? "ValidationSuspendedRecords")
<*> (x .:? "SchemaName")
<*> (x .:? "TableState")
<*> (x .:? "FullLoadErrorRows")
<*> (x .:? "Ddls")
<*> (x .:? "Deletes")
<*> (x .:? "Updates")
<*> (x .:? "ValidationPendingRecords")
<*> (x .:? "LastUpdateTime")
<*> (x .:? "TableName"))
instance Hashable TableStatistics where
instance NFData TableStatistics where
data TableToReload = TableToReload'
{ _ttrSchemaName :: !(Maybe Text)
, _ttrTableName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tableToReload
:: TableToReload
tableToReload =
TableToReload' {_ttrSchemaName = Nothing, _ttrTableName = Nothing}
ttrSchemaName :: Lens' TableToReload (Maybe Text)
ttrSchemaName = lens _ttrSchemaName (\ s a -> s{_ttrSchemaName = a})
ttrTableName :: Lens' TableToReload (Maybe Text)
ttrTableName = lens _ttrTableName (\ s a -> s{_ttrTableName = a})
instance Hashable TableToReload where
instance NFData TableToReload where
instance ToJSON TableToReload where
toJSON TableToReload'{..}
= object
(catMaybes
[("SchemaName" .=) <$> _ttrSchemaName,
("TableName" .=) <$> _ttrTableName])
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 where
instance NFData Tag where
instance ToJSON Tag where
toJSON Tag'{..}
= object
(catMaybes
[("Value" .=) <$> _tagValue, ("Key" .=) <$> _tagKey])
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 FromJSON VPCSecurityGroupMembership where
parseJSON
= withObject "VPCSecurityGroupMembership"
(\ x ->
VPCSecurityGroupMembership' <$>
(x .:? "Status") <*> (x .:? "VpcSecurityGroupId"))
instance Hashable VPCSecurityGroupMembership where
instance NFData VPCSecurityGroupMembership where