diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-ses.cabal b/amazonka-ses.cabal --- a/amazonka-ses.cabal +++ b/amazonka-ses.cabal @@ -1,5 +1,5 @@ name: amazonka-ses -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon Simple Email Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -79,7 +79,7 @@ , Network.AWS.SES.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-ses-test @@ -99,9 +99,9 @@ , Test.AWS.SES.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-ses == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-ses == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/SES.hs b/gen/Network/AWS/SES.hs --- a/gen/Network/AWS/SES.hs +++ b/gen/Network/AWS/SES.hs @@ -45,14 +45,11 @@ -- ** GetSendQuota , module Network.AWS.SES.GetSendQuota - -- ** DeleteIdentityPolicy - , module Network.AWS.SES.DeleteIdentityPolicy - -- ** PutIdentityPolicy , module Network.AWS.SES.PutIdentityPolicy - -- ** SetIdentityDkimEnabled - , module Network.AWS.SES.SetIdentityDkimEnabled + -- ** DeleteIdentityPolicy + , module Network.AWS.SES.DeleteIdentityPolicy -- ** GetIdentityNotificationAttributes , module Network.AWS.SES.GetIdentityNotificationAttributes @@ -60,6 +57,9 @@ -- ** ListIdentityPolicies , module Network.AWS.SES.ListIdentityPolicies + -- ** SetIdentityDkimEnabled + , module Network.AWS.SES.SetIdentityDkimEnabled + -- ** SetIdentityFeedbackForwardingEnabled , module Network.AWS.SES.SetIdentityFeedbackForwardingEnabled @@ -72,41 +72,41 @@ -- ** VerifyDomainIdentity , module Network.AWS.SES.VerifyDomainIdentity + -- ** GetIdentityDkimAttributes + , module Network.AWS.SES.GetIdentityDkimAttributes + -- ** VerifyDomainDkim , module Network.AWS.SES.VerifyDomainDkim -- ** SendRawEmail , module Network.AWS.SES.SendRawEmail - -- ** GetIdentityDkimAttributes - , module Network.AWS.SES.GetIdentityDkimAttributes + -- ** GetSendStatistics + , module Network.AWS.SES.GetSendStatistics -- ** DeleteIdentity , module Network.AWS.SES.DeleteIdentity - -- ** GetSendStatistics - , module Network.AWS.SES.GetSendStatistics - -- ** ListIdentities (Paginated) , module Network.AWS.SES.ListIdentities - -- ** DeleteVerifiedEmailAddress - , module Network.AWS.SES.DeleteVerifiedEmailAddress + -- ** VerifyEmailIdentity + , module Network.AWS.SES.VerifyEmailIdentity -- ** VerifyEmailAddress , module Network.AWS.SES.VerifyEmailAddress - -- ** VerifyEmailIdentity - , module Network.AWS.SES.VerifyEmailIdentity - - -- ** SendEmail - , module Network.AWS.SES.SendEmail + -- ** DeleteVerifiedEmailAddress + , module Network.AWS.SES.DeleteVerifiedEmailAddress -- ** ListVerifiedEmailAddresses , module Network.AWS.SES.ListVerifiedEmailAddresses -- ** SetIdentityNotificationTopic , module Network.AWS.SES.SetIdentityNotificationTopic + + -- ** SendEmail + , module Network.AWS.SES.SendEmail -- * Types diff --git a/gen/Network/AWS/SES/DeleteIdentity.hs b/gen/Network/AWS/SES/DeleteIdentity.hs --- a/gen/Network/AWS/SES/DeleteIdentity.hs +++ b/gen/Network/AWS/SES/DeleteIdentity.hs @@ -36,7 +36,7 @@ , deleteIdentityResponse , DeleteIdentityResponse -- * Response Lenses - , dirsStatus + , dirsResponseStatus ) where import Network.AWS.Prelude @@ -97,22 +97,22 @@ -- -- /See:/ 'deleteIdentityResponse' smart constructor. newtype DeleteIdentityResponse = DeleteIdentityResponse' - { _dirsStatus :: Int + { _dirsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteIdentityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dirsStatus' +-- * 'dirsResponseStatus' deleteIdentityResponse - :: Int -- ^ 'dirsStatus' + :: Int -- ^ 'dirsResponseStatus' -> DeleteIdentityResponse -deleteIdentityResponse pStatus_ = +deleteIdentityResponse pResponseStatus_ = DeleteIdentityResponse' - { _dirsStatus = pStatus_ + { _dirsResponseStatus = pResponseStatus_ } -- | The response status code. -dirsStatus :: Lens' DeleteIdentityResponse Int -dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a}); +dirsResponseStatus :: Lens' DeleteIdentityResponse Int +dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/DeleteIdentityPolicy.hs b/gen/Network/AWS/SES/DeleteIdentityPolicy.hs --- a/gen/Network/AWS/SES/DeleteIdentityPolicy.hs +++ b/gen/Network/AWS/SES/DeleteIdentityPolicy.hs @@ -46,7 +46,7 @@ , deleteIdentityPolicyResponse , DeleteIdentityPolicyResponse -- * Response Lenses - , diprsStatus + , diprsResponseStatus ) where import Network.AWS.Prelude @@ -125,22 +125,22 @@ -- -- /See:/ 'deleteIdentityPolicyResponse' smart constructor. newtype DeleteIdentityPolicyResponse = DeleteIdentityPolicyResponse' - { _diprsStatus :: Int + { _diprsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteIdentityPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'diprsStatus' +-- * 'diprsResponseStatus' deleteIdentityPolicyResponse - :: Int -- ^ 'diprsStatus' + :: Int -- ^ 'diprsResponseStatus' -> DeleteIdentityPolicyResponse -deleteIdentityPolicyResponse pStatus_ = +deleteIdentityPolicyResponse pResponseStatus_ = DeleteIdentityPolicyResponse' - { _diprsStatus = pStatus_ + { _diprsResponseStatus = pResponseStatus_ } -- | The response status code. -diprsStatus :: Lens' DeleteIdentityPolicyResponse Int -diprsStatus = lens _diprsStatus (\ s a -> s{_diprsStatus = a}); +diprsResponseStatus :: Lens' DeleteIdentityPolicyResponse Int +diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs b/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs --- a/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs +++ b/gen/Network/AWS/SES/GetIdentityDkimAttributes.hs @@ -53,7 +53,7 @@ , getIdentityDkimAttributesResponse , GetIdentityDkimAttributesResponse -- * Response Lenses - , gidarsStatus + , gidarsResponseStatus , gidarsDkimAttributes ) where @@ -122,7 +122,7 @@ -- -- /See:/ 'getIdentityDkimAttributesResponse' smart constructor. data GetIdentityDkimAttributesResponse = GetIdentityDkimAttributesResponse' - { _gidarsStatus :: !Int + { _gidarsResponseStatus :: !Int , _gidarsDkimAttributes :: !(Map Text IdentityDkimAttributes) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -130,21 +130,21 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gidarsStatus' +-- * 'gidarsResponseStatus' -- -- * 'gidarsDkimAttributes' getIdentityDkimAttributesResponse - :: Int -- ^ 'gidarsStatus' + :: Int -- ^ 'gidarsResponseStatus' -> GetIdentityDkimAttributesResponse -getIdentityDkimAttributesResponse pStatus_ = +getIdentityDkimAttributesResponse pResponseStatus_ = GetIdentityDkimAttributesResponse' - { _gidarsStatus = pStatus_ + { _gidarsResponseStatus = pResponseStatus_ , _gidarsDkimAttributes = mempty } -- | The response status code. -gidarsStatus :: Lens' GetIdentityDkimAttributesResponse Int -gidarsStatus = lens _gidarsStatus (\ s a -> s{_gidarsStatus = a}); +gidarsResponseStatus :: Lens' GetIdentityDkimAttributesResponse Int +gidarsResponseStatus = lens _gidarsResponseStatus (\ s a -> s{_gidarsResponseStatus = a}); -- | The DKIM attributes for an email address or a domain. gidarsDkimAttributes :: Lens' GetIdentityDkimAttributesResponse (HashMap Text IdentityDkimAttributes) diff --git a/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs b/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs --- a/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs +++ b/gen/Network/AWS/SES/GetIdentityNotificationAttributes.hs @@ -40,7 +40,7 @@ , getIdentityNotificationAttributesResponse , GetIdentityNotificationAttributesResponse -- * Response Lenses - , ginarsStatus + , ginarsResponseStatus , ginarsNotificationAttributes ) where @@ -112,7 +112,7 @@ -- -- /See:/ 'getIdentityNotificationAttributesResponse' smart constructor. data GetIdentityNotificationAttributesResponse = GetIdentityNotificationAttributesResponse' - { _ginarsStatus :: !Int + { _ginarsResponseStatus :: !Int , _ginarsNotificationAttributes :: !(Map Text IdentityNotificationAttributes) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -120,21 +120,21 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ginarsStatus' +-- * 'ginarsResponseStatus' -- -- * 'ginarsNotificationAttributes' getIdentityNotificationAttributesResponse - :: Int -- ^ 'ginarsStatus' + :: Int -- ^ 'ginarsResponseStatus' -> GetIdentityNotificationAttributesResponse -getIdentityNotificationAttributesResponse pStatus_ = +getIdentityNotificationAttributesResponse pResponseStatus_ = GetIdentityNotificationAttributesResponse' - { _ginarsStatus = pStatus_ + { _ginarsResponseStatus = pResponseStatus_ , _ginarsNotificationAttributes = mempty } -- | The response status code. -ginarsStatus :: Lens' GetIdentityNotificationAttributesResponse Int -ginarsStatus = lens _ginarsStatus (\ s a -> s{_ginarsStatus = a}); +ginarsResponseStatus :: Lens' GetIdentityNotificationAttributesResponse Int +ginarsResponseStatus = lens _ginarsResponseStatus (\ s a -> s{_ginarsResponseStatus = a}); -- | A map of Identity to IdentityNotificationAttributes. ginarsNotificationAttributes :: Lens' GetIdentityNotificationAttributesResponse (HashMap Text IdentityNotificationAttributes) diff --git a/gen/Network/AWS/SES/GetIdentityPolicies.hs b/gen/Network/AWS/SES/GetIdentityPolicies.hs --- a/gen/Network/AWS/SES/GetIdentityPolicies.hs +++ b/gen/Network/AWS/SES/GetIdentityPolicies.hs @@ -47,7 +47,7 @@ , getIdentityPoliciesResponse , GetIdentityPoliciesResponse -- * Response Lenses - , giprsStatus + , giprsResponseStatus , giprsPolicies ) where @@ -130,29 +130,29 @@ -- -- /See:/ 'getIdentityPoliciesResponse' smart constructor. data GetIdentityPoliciesResponse = GetIdentityPoliciesResponse' - { _giprsStatus :: !Int - , _giprsPolicies :: !(Map Text Text) + { _giprsResponseStatus :: !Int + , _giprsPolicies :: !(Map Text Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetIdentityPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'giprsStatus' +-- * 'giprsResponseStatus' -- -- * 'giprsPolicies' getIdentityPoliciesResponse - :: Int -- ^ 'giprsStatus' + :: Int -- ^ 'giprsResponseStatus' -> GetIdentityPoliciesResponse -getIdentityPoliciesResponse pStatus_ = +getIdentityPoliciesResponse pResponseStatus_ = GetIdentityPoliciesResponse' - { _giprsStatus = pStatus_ + { _giprsResponseStatus = pResponseStatus_ , _giprsPolicies = mempty } -- | The response status code. -giprsStatus :: Lens' GetIdentityPoliciesResponse Int -giprsStatus = lens _giprsStatus (\ s a -> s{_giprsStatus = a}); +giprsResponseStatus :: Lens' GetIdentityPoliciesResponse Int +giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a}); -- | A map of policy names to policies. giprsPolicies :: Lens' GetIdentityPoliciesResponse (HashMap Text Text) diff --git a/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs b/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs --- a/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs +++ b/gen/Network/AWS/SES/GetIdentityVerificationAttributes.hs @@ -38,7 +38,7 @@ , getIdentityVerificationAttributesResponse , GetIdentityVerificationAttributesResponse -- * Response Lenses - , givarsStatus + , givarsResponseStatus , givarsVerificationAttributes ) where @@ -107,7 +107,7 @@ -- -- /See:/ 'getIdentityVerificationAttributesResponse' smart constructor. data GetIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse' - { _givarsStatus :: !Int + { _givarsResponseStatus :: !Int , _givarsVerificationAttributes :: !(Map Text IdentityVerificationAttributes) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -115,21 +115,21 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'givarsStatus' +-- * 'givarsResponseStatus' -- -- * 'givarsVerificationAttributes' getIdentityVerificationAttributesResponse - :: Int -- ^ 'givarsStatus' + :: Int -- ^ 'givarsResponseStatus' -> GetIdentityVerificationAttributesResponse -getIdentityVerificationAttributesResponse pStatus_ = +getIdentityVerificationAttributesResponse pResponseStatus_ = GetIdentityVerificationAttributesResponse' - { _givarsStatus = pStatus_ + { _givarsResponseStatus = pResponseStatus_ , _givarsVerificationAttributes = mempty } -- | The response status code. -givarsStatus :: Lens' GetIdentityVerificationAttributesResponse Int -givarsStatus = lens _givarsStatus (\ s a -> s{_givarsStatus = a}); +givarsResponseStatus :: Lens' GetIdentityVerificationAttributesResponse Int +givarsResponseStatus = lens _givarsResponseStatus (\ s a -> s{_givarsResponseStatus = a}); -- | A map of Identities to IdentityVerificationAttributes objects. givarsVerificationAttributes :: Lens' GetIdentityVerificationAttributesResponse (HashMap Text IdentityVerificationAttributes) diff --git a/gen/Network/AWS/SES/GetSendQuota.hs b/gen/Network/AWS/SES/GetSendQuota.hs --- a/gen/Network/AWS/SES/GetSendQuota.hs +++ b/gen/Network/AWS/SES/GetSendQuota.hs @@ -36,7 +36,7 @@ , gsqrsMaxSendRate , gsqrsSentLast24Hours , gsqrsMax24HourSend - , gsqrsStatus + , gsqrsResponseStatus ) where import Network.AWS.Prelude @@ -88,7 +88,7 @@ { _gsqrsMaxSendRate :: !(Maybe Double) , _gsqrsSentLast24Hours :: !(Maybe Double) , _gsqrsMax24HourSend :: !(Maybe Double) - , _gsqrsStatus :: !Int + , _gsqrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetSendQuotaResponse' with the minimum fields required to make a request. @@ -101,16 +101,16 @@ -- -- * 'gsqrsMax24HourSend' -- --- * 'gsqrsStatus' +-- * 'gsqrsResponseStatus' getSendQuotaResponse - :: Int -- ^ 'gsqrsStatus' + :: Int -- ^ 'gsqrsResponseStatus' -> GetSendQuotaResponse -getSendQuotaResponse pStatus_ = +getSendQuotaResponse pResponseStatus_ = GetSendQuotaResponse' { _gsqrsMaxSendRate = Nothing , _gsqrsSentLast24Hours = Nothing , _gsqrsMax24HourSend = Nothing - , _gsqrsStatus = pStatus_ + , _gsqrsResponseStatus = pResponseStatus_ } -- | The maximum number of emails that Amazon SES can accept from the user\'s @@ -131,5 +131,5 @@ gsqrsMax24HourSend = lens _gsqrsMax24HourSend (\ s a -> s{_gsqrsMax24HourSend = a}); -- | The response status code. -gsqrsStatus :: Lens' GetSendQuotaResponse Int -gsqrsStatus = lens _gsqrsStatus (\ s a -> s{_gsqrsStatus = a}); +gsqrsResponseStatus :: Lens' GetSendQuotaResponse Int +gsqrsResponseStatus = lens _gsqrsResponseStatus (\ s a -> s{_gsqrsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/GetSendStatistics.hs b/gen/Network/AWS/SES/GetSendStatistics.hs --- a/gen/Network/AWS/SES/GetSendStatistics.hs +++ b/gen/Network/AWS/SES/GetSendStatistics.hs @@ -38,7 +38,7 @@ , GetSendStatisticsResponse -- * Response Lenses , gssrsSendDataPoints - , gssrsStatus + , gssrsResponseStatus ) where import Network.AWS.Prelude @@ -89,7 +89,7 @@ -- /See:/ 'getSendStatisticsResponse' smart constructor. data GetSendStatisticsResponse = GetSendStatisticsResponse' { _gssrsSendDataPoints :: !(Maybe [SendDataPoint]) - , _gssrsStatus :: !Int + , _gssrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetSendStatisticsResponse' with the minimum fields required to make a request. @@ -98,14 +98,14 @@ -- -- * 'gssrsSendDataPoints' -- --- * 'gssrsStatus' +-- * 'gssrsResponseStatus' getSendStatisticsResponse - :: Int -- ^ 'gssrsStatus' + :: Int -- ^ 'gssrsResponseStatus' -> GetSendStatisticsResponse -getSendStatisticsResponse pStatus_ = +getSendStatisticsResponse pResponseStatus_ = GetSendStatisticsResponse' { _gssrsSendDataPoints = Nothing - , _gssrsStatus = pStatus_ + , _gssrsResponseStatus = pResponseStatus_ } -- | A list of data points, each of which represents 15 minutes of activity. @@ -113,5 +113,5 @@ gssrsSendDataPoints = lens _gssrsSendDataPoints (\ s a -> s{_gssrsSendDataPoints = a}) . _Default . _Coerce; -- | The response status code. -gssrsStatus :: Lens' GetSendStatisticsResponse Int -gssrsStatus = lens _gssrsStatus (\ s a -> s{_gssrsStatus = a}); +gssrsResponseStatus :: Lens' GetSendStatisticsResponse Int +gssrsResponseStatus = lens _gssrsResponseStatus (\ s a -> s{_gssrsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/ListIdentities.hs b/gen/Network/AWS/SES/ListIdentities.hs --- a/gen/Network/AWS/SES/ListIdentities.hs +++ b/gen/Network/AWS/SES/ListIdentities.hs @@ -41,7 +41,7 @@ , ListIdentitiesResponse -- * Response Lenses , lirsNextToken - , lirsStatus + , lirsResponseStatus , lirsIdentities ) where @@ -132,9 +132,9 @@ -- -- /See:/ 'listIdentitiesResponse' smart constructor. data ListIdentitiesResponse = ListIdentitiesResponse' - { _lirsNextToken :: !(Maybe Text) - , _lirsStatus :: !Int - , _lirsIdentities :: ![Text] + { _lirsNextToken :: !(Maybe Text) + , _lirsResponseStatus :: !Int + , _lirsIdentities :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListIdentitiesResponse' with the minimum fields required to make a request. @@ -143,16 +143,16 @@ -- -- * 'lirsNextToken' -- --- * 'lirsStatus' +-- * 'lirsResponseStatus' -- -- * 'lirsIdentities' listIdentitiesResponse - :: Int -- ^ 'lirsStatus' + :: Int -- ^ 'lirsResponseStatus' -> ListIdentitiesResponse -listIdentitiesResponse pStatus_ = +listIdentitiesResponse pResponseStatus_ = ListIdentitiesResponse' { _lirsNextToken = Nothing - , _lirsStatus = pStatus_ + , _lirsResponseStatus = pResponseStatus_ , _lirsIdentities = mempty } @@ -161,8 +161,8 @@ lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a}); -- | The response status code. -lirsStatus :: Lens' ListIdentitiesResponse Int -lirsStatus = lens _lirsStatus (\ s a -> s{_lirsStatus = a}); +lirsResponseStatus :: Lens' ListIdentitiesResponse Int +lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a}); -- | A list of identities. lirsIdentities :: Lens' ListIdentitiesResponse [Text] diff --git a/gen/Network/AWS/SES/ListIdentityPolicies.hs b/gen/Network/AWS/SES/ListIdentityPolicies.hs --- a/gen/Network/AWS/SES/ListIdentityPolicies.hs +++ b/gen/Network/AWS/SES/ListIdentityPolicies.hs @@ -46,7 +46,7 @@ , listIdentityPoliciesResponse , ListIdentityPoliciesResponse -- * Response Lenses - , liprsStatus + , liprsResponseStatus , liprsPolicyNames ) where @@ -117,29 +117,29 @@ -- -- /See:/ 'listIdentityPoliciesResponse' smart constructor. data ListIdentityPoliciesResponse = ListIdentityPoliciesResponse' - { _liprsStatus :: !Int - , _liprsPolicyNames :: ![Text] + { _liprsResponseStatus :: !Int + , _liprsPolicyNames :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListIdentityPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'liprsStatus' +-- * 'liprsResponseStatus' -- -- * 'liprsPolicyNames' listIdentityPoliciesResponse - :: Int -- ^ 'liprsStatus' + :: Int -- ^ 'liprsResponseStatus' -> ListIdentityPoliciesResponse -listIdentityPoliciesResponse pStatus_ = +listIdentityPoliciesResponse pResponseStatus_ = ListIdentityPoliciesResponse' - { _liprsStatus = pStatus_ + { _liprsResponseStatus = pResponseStatus_ , _liprsPolicyNames = mempty } -- | The response status code. -liprsStatus :: Lens' ListIdentityPoliciesResponse Int -liprsStatus = lens _liprsStatus (\ s a -> s{_liprsStatus = a}); +liprsResponseStatus :: Lens' ListIdentityPoliciesResponse Int +liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a}); -- | A list of names of policies that apply to the specified identity. liprsPolicyNames :: Lens' ListIdentityPoliciesResponse [Text] diff --git a/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs b/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs --- a/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs +++ b/gen/Network/AWS/SES/ListVerifiedEmailAddresses.hs @@ -39,7 +39,7 @@ , ListVerifiedEmailAddressesResponse -- * Response Lenses , lvearsVerifiedEmailAddresses - , lvearsStatus + , lvearsResponseStatus ) where import Network.AWS.Prelude @@ -92,7 +92,7 @@ -- /See:/ 'listVerifiedEmailAddressesResponse' smart constructor. data ListVerifiedEmailAddressesResponse = ListVerifiedEmailAddressesResponse' { _lvearsVerifiedEmailAddresses :: !(Maybe [Text]) - , _lvearsStatus :: !Int + , _lvearsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListVerifiedEmailAddressesResponse' with the minimum fields required to make a request. @@ -101,14 +101,14 @@ -- -- * 'lvearsVerifiedEmailAddresses' -- --- * 'lvearsStatus' +-- * 'lvearsResponseStatus' listVerifiedEmailAddressesResponse - :: Int -- ^ 'lvearsStatus' + :: Int -- ^ 'lvearsResponseStatus' -> ListVerifiedEmailAddressesResponse -listVerifiedEmailAddressesResponse pStatus_ = +listVerifiedEmailAddressesResponse pResponseStatus_ = ListVerifiedEmailAddressesResponse' { _lvearsVerifiedEmailAddresses = Nothing - , _lvearsStatus = pStatus_ + , _lvearsResponseStatus = pResponseStatus_ } -- | A list of email addresses that have been verified. @@ -116,5 +116,5 @@ lvearsVerifiedEmailAddresses = lens _lvearsVerifiedEmailAddresses (\ s a -> s{_lvearsVerifiedEmailAddresses = a}) . _Default . _Coerce; -- | The response status code. -lvearsStatus :: Lens' ListVerifiedEmailAddressesResponse Int -lvearsStatus = lens _lvearsStatus (\ s a -> s{_lvearsStatus = a}); +lvearsResponseStatus :: Lens' ListVerifiedEmailAddressesResponse Int +lvearsResponseStatus = lens _lvearsResponseStatus (\ s a -> s{_lvearsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/PutIdentityPolicy.hs b/gen/Network/AWS/SES/PutIdentityPolicy.hs --- a/gen/Network/AWS/SES/PutIdentityPolicy.hs +++ b/gen/Network/AWS/SES/PutIdentityPolicy.hs @@ -46,7 +46,7 @@ , putIdentityPolicyResponse , PutIdentityPolicyResponse -- * Response Lenses - , piprsStatus + , piprsResponseStatus ) where import Network.AWS.Prelude @@ -138,22 +138,22 @@ -- -- /See:/ 'putIdentityPolicyResponse' smart constructor. newtype PutIdentityPolicyResponse = PutIdentityPolicyResponse' - { _piprsStatus :: Int + { _piprsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'PutIdentityPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'piprsStatus' +-- * 'piprsResponseStatus' putIdentityPolicyResponse - :: Int -- ^ 'piprsStatus' + :: Int -- ^ 'piprsResponseStatus' -> PutIdentityPolicyResponse -putIdentityPolicyResponse pStatus_ = +putIdentityPolicyResponse pResponseStatus_ = PutIdentityPolicyResponse' - { _piprsStatus = pStatus_ + { _piprsResponseStatus = pResponseStatus_ } -- | The response status code. -piprsStatus :: Lens' PutIdentityPolicyResponse Int -piprsStatus = lens _piprsStatus (\ s a -> s{_piprsStatus = a}); +piprsResponseStatus :: Lens' PutIdentityPolicyResponse Int +piprsResponseStatus = lens _piprsResponseStatus (\ s a -> s{_piprsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/SendEmail.hs b/gen/Network/AWS/SES/SendEmail.hs --- a/gen/Network/AWS/SES/SendEmail.hs +++ b/gen/Network/AWS/SES/SendEmail.hs @@ -63,7 +63,7 @@ , sendEmailResponse , SendEmailResponse -- * Response Lenses - , sersStatus + , sersResponseStatus , sersMessageId ) where @@ -237,30 +237,30 @@ -- -- /See:/ 'sendEmailResponse' smart constructor. data SendEmailResponse = SendEmailResponse' - { _sersStatus :: !Int - , _sersMessageId :: !Text + { _sersResponseStatus :: !Int + , _sersMessageId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SendEmailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'sersStatus' +-- * 'sersResponseStatus' -- -- * 'sersMessageId' sendEmailResponse - :: Int -- ^ 'sersStatus' + :: Int -- ^ 'sersResponseStatus' -> Text -- ^ 'sersMessageId' -> SendEmailResponse -sendEmailResponse pStatus_ pMessageId_ = +sendEmailResponse pResponseStatus_ pMessageId_ = SendEmailResponse' - { _sersStatus = pStatus_ + { _sersResponseStatus = pResponseStatus_ , _sersMessageId = pMessageId_ } -- | The response status code. -sersStatus :: Lens' SendEmailResponse Int -sersStatus = lens _sersStatus (\ s a -> s{_sersStatus = a}); +sersResponseStatus :: Lens' SendEmailResponse Int +sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a}); -- | The unique message identifier returned from the 'SendEmail' action. sersMessageId :: Lens' SendEmailResponse Text diff --git a/gen/Network/AWS/SES/SendRawEmail.hs b/gen/Network/AWS/SES/SendRawEmail.hs --- a/gen/Network/AWS/SES/SendRawEmail.hs +++ b/gen/Network/AWS/SES/SendRawEmail.hs @@ -88,7 +88,7 @@ , sendRawEmailResponse , SendRawEmailResponse -- * Response Lenses - , srersStatus + , srersResponseStatus , srersMessageId ) where @@ -272,30 +272,30 @@ -- -- /See:/ 'sendRawEmailResponse' smart constructor. data SendRawEmailResponse = SendRawEmailResponse' - { _srersStatus :: !Int - , _srersMessageId :: !Text + { _srersResponseStatus :: !Int + , _srersMessageId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SendRawEmailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'srersStatus' +-- * 'srersResponseStatus' -- -- * 'srersMessageId' sendRawEmailResponse - :: Int -- ^ 'srersStatus' + :: Int -- ^ 'srersResponseStatus' -> Text -- ^ 'srersMessageId' -> SendRawEmailResponse -sendRawEmailResponse pStatus_ pMessageId_ = +sendRawEmailResponse pResponseStatus_ pMessageId_ = SendRawEmailResponse' - { _srersStatus = pStatus_ + { _srersResponseStatus = pResponseStatus_ , _srersMessageId = pMessageId_ } -- | The response status code. -srersStatus :: Lens' SendRawEmailResponse Int -srersStatus = lens _srersStatus (\ s a -> s{_srersStatus = a}); +srersResponseStatus :: Lens' SendRawEmailResponse Int +srersResponseStatus = lens _srersResponseStatus (\ s a -> s{_srersResponseStatus = a}); -- | The unique message identifier returned from the 'SendRawEmail' action. srersMessageId :: Lens' SendRawEmailResponse Text diff --git a/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs b/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs --- a/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs +++ b/gen/Network/AWS/SES/SetIdentityDkimEnabled.hs @@ -50,7 +50,7 @@ , setIdentityDkimEnabledResponse , SetIdentityDkimEnabledResponse -- * Response Lenses - , sidersStatus + , sidersResponseStatus ) where import Network.AWS.Prelude @@ -124,22 +124,22 @@ -- -- /See:/ 'setIdentityDkimEnabledResponse' smart constructor. newtype SetIdentityDkimEnabledResponse = SetIdentityDkimEnabledResponse' - { _sidersStatus :: Int + { _sidersResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SetIdentityDkimEnabledResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'sidersStatus' +-- * 'sidersResponseStatus' setIdentityDkimEnabledResponse - :: Int -- ^ 'sidersStatus' + :: Int -- ^ 'sidersResponseStatus' -> SetIdentityDkimEnabledResponse -setIdentityDkimEnabledResponse pStatus_ = +setIdentityDkimEnabledResponse pResponseStatus_ = SetIdentityDkimEnabledResponse' - { _sidersStatus = pStatus_ + { _sidersResponseStatus = pResponseStatus_ } -- | The response status code. -sidersStatus :: Lens' SetIdentityDkimEnabledResponse Int -sidersStatus = lens _sidersStatus (\ s a -> s{_sidersStatus = a}); +sidersResponseStatus :: Lens' SetIdentityDkimEnabledResponse Int +sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a}); diff --git a/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs b/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs --- a/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs +++ b/gen/Network/AWS/SES/SetIdentityFeedbackForwardingEnabled.hs @@ -46,7 +46,7 @@ , setIdentityFeedbackForwardingEnabledResponse , SetIdentityFeedbackForwardingEnabledResponse -- * Response Lenses - , siffersStatus + , siffersResponseStatus ) where import Network.AWS.Prelude @@ -129,22 +129,22 @@ -- -- /See:/ 'setIdentityFeedbackForwardingEnabledResponse' smart constructor. newtype SetIdentityFeedbackForwardingEnabledResponse = SetIdentityFeedbackForwardingEnabledResponse' - { _siffersStatus :: Int + { _siffersResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SetIdentityFeedbackForwardingEnabledResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'siffersStatus' +-- * 'siffersResponseStatus' setIdentityFeedbackForwardingEnabledResponse - :: Int -- ^ 'siffersStatus' + :: Int -- ^ 'siffersResponseStatus' -> SetIdentityFeedbackForwardingEnabledResponse -setIdentityFeedbackForwardingEnabledResponse pStatus_ = +setIdentityFeedbackForwardingEnabledResponse pResponseStatus_ = SetIdentityFeedbackForwardingEnabledResponse' - { _siffersStatus = pStatus_ + { _siffersResponseStatus = pResponseStatus_ } -- | The response status code. -siffersStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int -siffersStatus = lens _siffersStatus (\ s a -> s{_siffersStatus = a}); +siffersResponseStatus :: Lens' SetIdentityFeedbackForwardingEnabledResponse Int +siffersResponseStatus = lens _siffersResponseStatus (\ s a -> s{_siffersResponseStatus = a}); diff --git a/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs b/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs --- a/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs +++ b/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs @@ -47,7 +47,7 @@ , setIdentityNotificationTopicResponse , SetIdentityNotificationTopicResponse -- * Response Lenses - , sintrsStatus + , sintrsResponseStatus ) where import Network.AWS.Prelude @@ -136,22 +136,22 @@ -- -- /See:/ 'setIdentityNotificationTopicResponse' smart constructor. newtype SetIdentityNotificationTopicResponse = SetIdentityNotificationTopicResponse' - { _sintrsStatus :: Int + { _sintrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SetIdentityNotificationTopicResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'sintrsStatus' +-- * 'sintrsResponseStatus' setIdentityNotificationTopicResponse - :: Int -- ^ 'sintrsStatus' + :: Int -- ^ 'sintrsResponseStatus' -> SetIdentityNotificationTopicResponse -setIdentityNotificationTopicResponse pStatus_ = +setIdentityNotificationTopicResponse pResponseStatus_ = SetIdentityNotificationTopicResponse' - { _sintrsStatus = pStatus_ + { _sintrsResponseStatus = pResponseStatus_ } -- | The response status code. -sintrsStatus :: Lens' SetIdentityNotificationTopicResponse Int -sintrsStatus = lens _sintrsStatus (\ s a -> s{_sintrsStatus = a}); +sintrsResponseStatus :: Lens' SetIdentityNotificationTopicResponse Int +sintrsResponseStatus = lens _sintrsResponseStatus (\ s a -> s{_sintrsResponseStatus = a}); diff --git a/gen/Network/AWS/SES/VerifyDomainDkim.hs b/gen/Network/AWS/SES/VerifyDomainDkim.hs --- a/gen/Network/AWS/SES/VerifyDomainDkim.hs +++ b/gen/Network/AWS/SES/VerifyDomainDkim.hs @@ -48,7 +48,7 @@ , verifyDomainDkimResponse , VerifyDomainDkimResponse -- * Response Lenses - , vddrsStatus + , vddrsResponseStatus , vddrsDkimTokens ) where @@ -112,29 +112,29 @@ -- -- /See:/ 'verifyDomainDkimResponse' smart constructor. data VerifyDomainDkimResponse = VerifyDomainDkimResponse' - { _vddrsStatus :: !Int - , _vddrsDkimTokens :: ![Text] + { _vddrsResponseStatus :: !Int + , _vddrsDkimTokens :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'VerifyDomainDkimResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'vddrsStatus' +-- * 'vddrsResponseStatus' -- -- * 'vddrsDkimTokens' verifyDomainDkimResponse - :: Int -- ^ 'vddrsStatus' + :: Int -- ^ 'vddrsResponseStatus' -> VerifyDomainDkimResponse -verifyDomainDkimResponse pStatus_ = +verifyDomainDkimResponse pResponseStatus_ = VerifyDomainDkimResponse' - { _vddrsStatus = pStatus_ + { _vddrsResponseStatus = pResponseStatus_ , _vddrsDkimTokens = mempty } -- | The response status code. -vddrsStatus :: Lens' VerifyDomainDkimResponse Int -vddrsStatus = lens _vddrsStatus (\ s a -> s{_vddrsStatus = a}); +vddrsResponseStatus :: Lens' VerifyDomainDkimResponse Int +vddrsResponseStatus = lens _vddrsResponseStatus (\ s a -> s{_vddrsResponseStatus = a}); -- | A set of character strings that represent the domain\'s identity. If the -- identity is an email address, the tokens represent the domain of that diff --git a/gen/Network/AWS/SES/VerifyDomainIdentity.hs b/gen/Network/AWS/SES/VerifyDomainIdentity.hs --- a/gen/Network/AWS/SES/VerifyDomainIdentity.hs +++ b/gen/Network/AWS/SES/VerifyDomainIdentity.hs @@ -35,7 +35,7 @@ , verifyDomainIdentityResponse , VerifyDomainIdentityResponse -- * Response Lenses - , vdirsStatus + , vdirsResponseStatus , vdirsVerificationToken ) where @@ -97,7 +97,7 @@ -- -- /See:/ 'verifyDomainIdentityResponse' smart constructor. data VerifyDomainIdentityResponse = VerifyDomainIdentityResponse' - { _vdirsStatus :: !Int + { _vdirsResponseStatus :: !Int , _vdirsVerificationToken :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -105,22 +105,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'vdirsStatus' +-- * 'vdirsResponseStatus' -- -- * 'vdirsVerificationToken' verifyDomainIdentityResponse - :: Int -- ^ 'vdirsStatus' + :: Int -- ^ 'vdirsResponseStatus' -> Text -- ^ 'vdirsVerificationToken' -> VerifyDomainIdentityResponse -verifyDomainIdentityResponse pStatus_ pVerificationToken_ = +verifyDomainIdentityResponse pResponseStatus_ pVerificationToken_ = VerifyDomainIdentityResponse' - { _vdirsStatus = pStatus_ + { _vdirsResponseStatus = pResponseStatus_ , _vdirsVerificationToken = pVerificationToken_ } -- | The response status code. -vdirsStatus :: Lens' VerifyDomainIdentityResponse Int -vdirsStatus = lens _vdirsStatus (\ s a -> s{_vdirsStatus = a}); +vdirsResponseStatus :: Lens' VerifyDomainIdentityResponse Int +vdirsResponseStatus = lens _vdirsResponseStatus (\ s a -> s{_vdirsResponseStatus = a}); -- | A TXT record that must be placed in the DNS settings for the domain, in -- order to complete domain verification. diff --git a/gen/Network/AWS/SES/VerifyEmailIdentity.hs b/gen/Network/AWS/SES/VerifyEmailIdentity.hs --- a/gen/Network/AWS/SES/VerifyEmailIdentity.hs +++ b/gen/Network/AWS/SES/VerifyEmailIdentity.hs @@ -36,7 +36,7 @@ , verifyEmailIdentityResponse , VerifyEmailIdentityResponse -- * Response Lenses - , veirsStatus + , veirsResponseStatus ) where import Network.AWS.Prelude @@ -97,22 +97,22 @@ -- -- /See:/ 'verifyEmailIdentityResponse' smart constructor. newtype VerifyEmailIdentityResponse = VerifyEmailIdentityResponse' - { _veirsStatus :: Int + { _veirsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'VerifyEmailIdentityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'veirsStatus' +-- * 'veirsResponseStatus' verifyEmailIdentityResponse - :: Int -- ^ 'veirsStatus' + :: Int -- ^ 'veirsResponseStatus' -> VerifyEmailIdentityResponse -verifyEmailIdentityResponse pStatus_ = +verifyEmailIdentityResponse pResponseStatus_ = VerifyEmailIdentityResponse' - { _veirsStatus = pStatus_ + { _veirsResponseStatus = pResponseStatus_ } -- | The response status code. -veirsStatus :: Lens' VerifyEmailIdentityResponse Int -veirsStatus = lens _veirsStatus (\ s a -> s{_veirsStatus = a}); +veirsResponseStatus :: Lens' VerifyEmailIdentityResponse Int +veirsResponseStatus = lens _veirsResponseStatus (\ s a -> s{_veirsResponseStatus = a}); diff --git a/test/Test/AWS/Gen/SES.hs b/test/Test/AWS/Gen/SES.hs --- a/test/Test/AWS/Gen/SES.hs +++ b/test/Test/AWS/Gen/SES.hs @@ -31,14 +31,11 @@ -- [ testGetSendQuota $ -- getSendQuota -- --- , testDeleteIdentityPolicy $ --- deleteIdentityPolicy --- -- , testPutIdentityPolicy $ -- putIdentityPolicy -- --- , testSetIdentityDkimEnabled $ --- setIdentityDkimEnabled +-- , testDeleteIdentityPolicy $ +-- deleteIdentityPolicy -- -- , testGetIdentityNotificationAttributes $ -- getIdentityNotificationAttributes @@ -46,6 +43,9 @@ -- , testListIdentityPolicies $ -- listIdentityPolicies -- +-- , testSetIdentityDkimEnabled $ +-- setIdentityDkimEnabled +-- -- , testSetIdentityFeedbackForwardingEnabled $ -- setIdentityFeedbackForwardingEnabled -- @@ -58,35 +58,32 @@ -- , testVerifyDomainIdentity $ -- verifyDomainIdentity -- +-- , testGetIdentityDkimAttributes $ +-- getIdentityDkimAttributes +-- -- , testVerifyDomainDkim $ -- verifyDomainDkim -- -- , testSendRawEmail $ -- sendRawEmail -- --- , testGetIdentityDkimAttributes $ --- getIdentityDkimAttributes +-- , testGetSendStatistics $ +-- getSendStatistics -- -- , testDeleteIdentity $ -- deleteIdentity -- --- , testGetSendStatistics $ --- getSendStatistics --- -- , testListIdentities $ -- listIdentities -- --- , testDeleteVerifiedEmailAddress $ --- deleteVerifiedEmailAddress +-- , testVerifyEmailIdentity $ +-- verifyEmailIdentity -- -- , testVerifyEmailAddress $ -- verifyEmailAddress -- --- , testVerifyEmailIdentity $ --- verifyEmailIdentity --- --- , testSendEmail $ --- sendEmail +-- , testDeleteVerifiedEmailAddress $ +-- deleteVerifiedEmailAddress -- -- , testListVerifiedEmailAddresses $ -- listVerifiedEmailAddresses @@ -94,20 +91,20 @@ -- , testSetIdentityNotificationTopic $ -- setIdentityNotificationTopic -- +-- , testSendEmail $ +-- sendEmail +-- -- ] -- , testGroup "response" -- [ testGetSendQuotaResponse $ -- getSendQuotaResponse -- --- , testDeleteIdentityPolicyResponse $ --- deleteIdentityPolicyResponse --- -- , testPutIdentityPolicyResponse $ -- putIdentityPolicyResponse -- --- , testSetIdentityDkimEnabledResponse $ --- setIdentityDkimEnabledResponse +-- , testDeleteIdentityPolicyResponse $ +-- deleteIdentityPolicyResponse -- -- , testGetIdentityNotificationAttributesResponse $ -- getIdentityNotificationAttributesResponse @@ -115,6 +112,9 @@ -- , testListIdentityPoliciesResponse $ -- listIdentityPoliciesResponse -- +-- , testSetIdentityDkimEnabledResponse $ +-- setIdentityDkimEnabledResponse +-- -- , testSetIdentityFeedbackForwardingEnabledResponse $ -- setIdentityFeedbackForwardingEnabledResponse -- @@ -127,35 +127,32 @@ -- , testVerifyDomainIdentityResponse $ -- verifyDomainIdentityResponse -- +-- , testGetIdentityDkimAttributesResponse $ +-- getIdentityDkimAttributesResponse +-- -- , testVerifyDomainDkimResponse $ -- verifyDomainDkimResponse -- -- , testSendRawEmailResponse $ -- sendRawEmailResponse -- --- , testGetIdentityDkimAttributesResponse $ --- getIdentityDkimAttributesResponse +-- , testGetSendStatisticsResponse $ +-- getSendStatisticsResponse -- -- , testDeleteIdentityResponse $ -- deleteIdentityResponse -- --- , testGetSendStatisticsResponse $ --- getSendStatisticsResponse --- -- , testListIdentitiesResponse $ -- listIdentitiesResponse -- --- , testDeleteVerifiedEmailAddressResponse $ --- deleteVerifiedEmailAddressResponse +-- , testVerifyEmailIdentityResponse $ +-- verifyEmailIdentityResponse -- -- , testVerifyEmailAddressResponse $ -- verifyEmailAddressResponse -- --- , testVerifyEmailIdentityResponse $ --- verifyEmailIdentityResponse --- --- , testSendEmailResponse $ --- sendEmailResponse +-- , testDeleteVerifiedEmailAddressResponse $ +-- deleteVerifiedEmailAddressResponse -- -- , testListVerifiedEmailAddressesResponse $ -- listVerifiedEmailAddressesResponse @@ -163,6 +160,9 @@ -- , testSetIdentityNotificationTopicResponse $ -- setIdentityNotificationTopicResponse -- +-- , testSendEmailResponse $ +-- sendEmailResponse +-- -- ] -- ] @@ -173,20 +173,15 @@ "GetSendQuota" "fixture/GetSendQuota.yaml" -testDeleteIdentityPolicy :: DeleteIdentityPolicy -> TestTree -testDeleteIdentityPolicy = req - "DeleteIdentityPolicy" - "fixture/DeleteIdentityPolicy.yaml" - testPutIdentityPolicy :: PutIdentityPolicy -> TestTree testPutIdentityPolicy = req "PutIdentityPolicy" "fixture/PutIdentityPolicy.yaml" -testSetIdentityDkimEnabled :: SetIdentityDkimEnabled -> TestTree -testSetIdentityDkimEnabled = req - "SetIdentityDkimEnabled" - "fixture/SetIdentityDkimEnabled.yaml" +testDeleteIdentityPolicy :: DeleteIdentityPolicy -> TestTree +testDeleteIdentityPolicy = req + "DeleteIdentityPolicy" + "fixture/DeleteIdentityPolicy.yaml" testGetIdentityNotificationAttributes :: GetIdentityNotificationAttributes -> TestTree testGetIdentityNotificationAttributes = req @@ -198,6 +193,11 @@ "ListIdentityPolicies" "fixture/ListIdentityPolicies.yaml" +testSetIdentityDkimEnabled :: SetIdentityDkimEnabled -> TestTree +testSetIdentityDkimEnabled = req + "SetIdentityDkimEnabled" + "fixture/SetIdentityDkimEnabled.yaml" + testSetIdentityFeedbackForwardingEnabled :: SetIdentityFeedbackForwardingEnabled -> TestTree testSetIdentityFeedbackForwardingEnabled = req "SetIdentityFeedbackForwardingEnabled" @@ -218,6 +218,11 @@ "VerifyDomainIdentity" "fixture/VerifyDomainIdentity.yaml" +testGetIdentityDkimAttributes :: GetIdentityDkimAttributes -> TestTree +testGetIdentityDkimAttributes = req + "GetIdentityDkimAttributes" + "fixture/GetIdentityDkimAttributes.yaml" + testVerifyDomainDkim :: VerifyDomainDkim -> TestTree testVerifyDomainDkim = req "VerifyDomainDkim" @@ -228,45 +233,35 @@ "SendRawEmail" "fixture/SendRawEmail.yaml" -testGetIdentityDkimAttributes :: GetIdentityDkimAttributes -> TestTree -testGetIdentityDkimAttributes = req - "GetIdentityDkimAttributes" - "fixture/GetIdentityDkimAttributes.yaml" +testGetSendStatistics :: GetSendStatistics -> TestTree +testGetSendStatistics = req + "GetSendStatistics" + "fixture/GetSendStatistics.yaml" testDeleteIdentity :: DeleteIdentity -> TestTree testDeleteIdentity = req "DeleteIdentity" "fixture/DeleteIdentity.yaml" -testGetSendStatistics :: GetSendStatistics -> TestTree -testGetSendStatistics = req - "GetSendStatistics" - "fixture/GetSendStatistics.yaml" - testListIdentities :: ListIdentities -> TestTree testListIdentities = req "ListIdentities" "fixture/ListIdentities.yaml" -testDeleteVerifiedEmailAddress :: DeleteVerifiedEmailAddress -> TestTree -testDeleteVerifiedEmailAddress = req - "DeleteVerifiedEmailAddress" - "fixture/DeleteVerifiedEmailAddress.yaml" +testVerifyEmailIdentity :: VerifyEmailIdentity -> TestTree +testVerifyEmailIdentity = req + "VerifyEmailIdentity" + "fixture/VerifyEmailIdentity.yaml" testVerifyEmailAddress :: VerifyEmailAddress -> TestTree testVerifyEmailAddress = req "VerifyEmailAddress" "fixture/VerifyEmailAddress.yaml" -testVerifyEmailIdentity :: VerifyEmailIdentity -> TestTree -testVerifyEmailIdentity = req - "VerifyEmailIdentity" - "fixture/VerifyEmailIdentity.yaml" - -testSendEmail :: SendEmail -> TestTree -testSendEmail = req - "SendEmail" - "fixture/SendEmail.yaml" +testDeleteVerifiedEmailAddress :: DeleteVerifiedEmailAddress -> TestTree +testDeleteVerifiedEmailAddress = req + "DeleteVerifiedEmailAddress" + "fixture/DeleteVerifiedEmailAddress.yaml" testListVerifiedEmailAddresses :: ListVerifiedEmailAddresses -> TestTree testListVerifiedEmailAddresses = req @@ -278,6 +273,11 @@ "SetIdentityNotificationTopic" "fixture/SetIdentityNotificationTopic.yaml" +testSendEmail :: SendEmail -> TestTree +testSendEmail = req + "SendEmail" + "fixture/SendEmail.yaml" + -- Responses testGetSendQuotaResponse :: GetSendQuotaResponse -> TestTree @@ -287,13 +287,6 @@ sES (Proxy :: Proxy GetSendQuota) -testDeleteIdentityPolicyResponse :: DeleteIdentityPolicyResponse -> TestTree -testDeleteIdentityPolicyResponse = res - "DeleteIdentityPolicyResponse" - "fixture/DeleteIdentityPolicyResponse.proto" - sES - (Proxy :: Proxy DeleteIdentityPolicy) - testPutIdentityPolicyResponse :: PutIdentityPolicyResponse -> TestTree testPutIdentityPolicyResponse = res "PutIdentityPolicyResponse" @@ -301,12 +294,12 @@ sES (Proxy :: Proxy PutIdentityPolicy) -testSetIdentityDkimEnabledResponse :: SetIdentityDkimEnabledResponse -> TestTree -testSetIdentityDkimEnabledResponse = res - "SetIdentityDkimEnabledResponse" - "fixture/SetIdentityDkimEnabledResponse.proto" +testDeleteIdentityPolicyResponse :: DeleteIdentityPolicyResponse -> TestTree +testDeleteIdentityPolicyResponse = res + "DeleteIdentityPolicyResponse" + "fixture/DeleteIdentityPolicyResponse.proto" sES - (Proxy :: Proxy SetIdentityDkimEnabled) + (Proxy :: Proxy DeleteIdentityPolicy) testGetIdentityNotificationAttributesResponse :: GetIdentityNotificationAttributesResponse -> TestTree testGetIdentityNotificationAttributesResponse = res @@ -322,6 +315,13 @@ sES (Proxy :: Proxy ListIdentityPolicies) +testSetIdentityDkimEnabledResponse :: SetIdentityDkimEnabledResponse -> TestTree +testSetIdentityDkimEnabledResponse = res + "SetIdentityDkimEnabledResponse" + "fixture/SetIdentityDkimEnabledResponse.proto" + sES + (Proxy :: Proxy SetIdentityDkimEnabled) + testSetIdentityFeedbackForwardingEnabledResponse :: SetIdentityFeedbackForwardingEnabledResponse -> TestTree testSetIdentityFeedbackForwardingEnabledResponse = res "SetIdentityFeedbackForwardingEnabledResponse" @@ -350,6 +350,13 @@ sES (Proxy :: Proxy VerifyDomainIdentity) +testGetIdentityDkimAttributesResponse :: GetIdentityDkimAttributesResponse -> TestTree +testGetIdentityDkimAttributesResponse = res + "GetIdentityDkimAttributesResponse" + "fixture/GetIdentityDkimAttributesResponse.proto" + sES + (Proxy :: Proxy GetIdentityDkimAttributes) + testVerifyDomainDkimResponse :: VerifyDomainDkimResponse -> TestTree testVerifyDomainDkimResponse = res "VerifyDomainDkimResponse" @@ -364,12 +371,12 @@ sES (Proxy :: Proxy SendRawEmail) -testGetIdentityDkimAttributesResponse :: GetIdentityDkimAttributesResponse -> TestTree -testGetIdentityDkimAttributesResponse = res - "GetIdentityDkimAttributesResponse" - "fixture/GetIdentityDkimAttributesResponse.proto" +testGetSendStatisticsResponse :: GetSendStatisticsResponse -> TestTree +testGetSendStatisticsResponse = res + "GetSendStatisticsResponse" + "fixture/GetSendStatisticsResponse.proto" sES - (Proxy :: Proxy GetIdentityDkimAttributes) + (Proxy :: Proxy GetSendStatistics) testDeleteIdentityResponse :: DeleteIdentityResponse -> TestTree testDeleteIdentityResponse = res @@ -378,13 +385,6 @@ sES (Proxy :: Proxy DeleteIdentity) -testGetSendStatisticsResponse :: GetSendStatisticsResponse -> TestTree -testGetSendStatisticsResponse = res - "GetSendStatisticsResponse" - "fixture/GetSendStatisticsResponse.proto" - sES - (Proxy :: Proxy GetSendStatistics) - testListIdentitiesResponse :: ListIdentitiesResponse -> TestTree testListIdentitiesResponse = res "ListIdentitiesResponse" @@ -392,12 +392,12 @@ sES (Proxy :: Proxy ListIdentities) -testDeleteVerifiedEmailAddressResponse :: DeleteVerifiedEmailAddressResponse -> TestTree -testDeleteVerifiedEmailAddressResponse = res - "DeleteVerifiedEmailAddressResponse" - "fixture/DeleteVerifiedEmailAddressResponse.proto" +testVerifyEmailIdentityResponse :: VerifyEmailIdentityResponse -> TestTree +testVerifyEmailIdentityResponse = res + "VerifyEmailIdentityResponse" + "fixture/VerifyEmailIdentityResponse.proto" sES - (Proxy :: Proxy DeleteVerifiedEmailAddress) + (Proxy :: Proxy VerifyEmailIdentity) testVerifyEmailAddressResponse :: VerifyEmailAddressResponse -> TestTree testVerifyEmailAddressResponse = res @@ -406,19 +406,12 @@ sES (Proxy :: Proxy VerifyEmailAddress) -testVerifyEmailIdentityResponse :: VerifyEmailIdentityResponse -> TestTree -testVerifyEmailIdentityResponse = res - "VerifyEmailIdentityResponse" - "fixture/VerifyEmailIdentityResponse.proto" - sES - (Proxy :: Proxy VerifyEmailIdentity) - -testSendEmailResponse :: SendEmailResponse -> TestTree -testSendEmailResponse = res - "SendEmailResponse" - "fixture/SendEmailResponse.proto" +testDeleteVerifiedEmailAddressResponse :: DeleteVerifiedEmailAddressResponse -> TestTree +testDeleteVerifiedEmailAddressResponse = res + "DeleteVerifiedEmailAddressResponse" + "fixture/DeleteVerifiedEmailAddressResponse.proto" sES - (Proxy :: Proxy SendEmail) + (Proxy :: Proxy DeleteVerifiedEmailAddress) testListVerifiedEmailAddressesResponse :: ListVerifiedEmailAddressesResponse -> TestTree testListVerifiedEmailAddressesResponse = res @@ -433,3 +426,10 @@ "fixture/SetIdentityNotificationTopicResponse.proto" sES (Proxy :: Proxy SetIdentityNotificationTopic) + +testSendEmailResponse :: SendEmailResponse -> TestTree +testSendEmailResponse = res + "SendEmailResponse" + "fixture/SendEmailResponse.proto" + sES + (Proxy :: Proxy SendEmail)