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-iam.cabal b/amazonka-iam.cabal --- a/amazonka-iam.cabal +++ b/amazonka-iam.cabal @@ -1,5 +1,5 @@ name: amazonka-iam -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon Identity and Access Management SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -218,7 +218,7 @@ , Network.AWS.IAM.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-iam-test @@ -238,9 +238,9 @@ , Test.AWS.IAM.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-iam == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-iam == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/IAM.hs b/gen/Network/AWS/IAM.hs --- a/gen/Network/AWS/IAM.hs +++ b/gen/Network/AWS/IAM.hs @@ -97,18 +97,18 @@ -- ** MalformedCertificateException , _MalformedCertificateException - -- ** DuplicateCertificateException - , _DuplicateCertificateException - -- ** CredentialReportExpiredException , _CredentialReportExpiredException - -- ** NoSuchEntityException - , _NoSuchEntityException + -- ** DuplicateCertificateException + , _DuplicateCertificateException -- ** DeleteConflictException , _DeleteConflictException + -- ** NoSuchEntityException + , _NoSuchEntityException + -- ** InvalidCertificateException , _InvalidCertificateException @@ -139,12 +139,12 @@ -- ** KeyPairMismatchException , _KeyPairMismatchException - -- ** LimitExceededException - , _LimitExceededException - -- ** PasswordPolicyViolationException , _PasswordPolicyViolationException + -- ** LimitExceededException + , _LimitExceededException + -- * Waiters -- $waiters @@ -157,125 +157,128 @@ -- * Operations -- $operations - -- ** AttachGroupPolicy - , module Network.AWS.IAM.AttachGroupPolicy - - -- ** ListInstanceProfilesForRole (Paginated) - , module Network.AWS.IAM.ListInstanceProfilesForRole + -- ** ListPolicies (Paginated) + , module Network.AWS.IAM.ListPolicies -- ** CreatePolicy , module Network.AWS.IAM.CreatePolicy - -- ** ListPolicies (Paginated) - , module Network.AWS.IAM.ListPolicies + -- ** ListInstanceProfilesForRole (Paginated) + , module Network.AWS.IAM.ListInstanceProfilesForRole - -- ** AttachRolePolicy - , module Network.AWS.IAM.AttachRolePolicy + -- ** AttachGroupPolicy + , module Network.AWS.IAM.AttachGroupPolicy + -- ** CreateAccessKey + , module Network.AWS.IAM.CreateAccessKey + -- ** ListSSHPublicKeys , module Network.AWS.IAM.ListSSHPublicKeys - -- ** DeleteSSHPublicKey - , module Network.AWS.IAM.DeleteSSHPublicKey - - -- ** UpdateSSHPublicKey - , module Network.AWS.IAM.UpdateSSHPublicKey - -- ** ListOpenIdConnectProviders , module Network.AWS.IAM.ListOpenIdConnectProviders + -- ** CreateVirtualMFADevice + , module Network.AWS.IAM.CreateVirtualMFADevice + -- ** DeleteAccountPasswordPolicy , module Network.AWS.IAM.DeleteAccountPasswordPolicy -- ** UpdateAccountPasswordPolicy , module Network.AWS.IAM.UpdateAccountPasswordPolicy - -- ** CreateAccessKey - , module Network.AWS.IAM.CreateAccessKey + -- ** AttachRolePolicy + , module Network.AWS.IAM.AttachRolePolicy - -- ** GetUserPolicy - , module Network.AWS.IAM.GetUserPolicy + -- ** UpdateSSHPublicKey + , module Network.AWS.IAM.UpdateSSHPublicKey - -- ** CreateVirtualMFADevice - , module Network.AWS.IAM.CreateVirtualMFADevice + -- ** DeleteSSHPublicKey + , module Network.AWS.IAM.DeleteSSHPublicKey - -- ** CreateOpenIdConnectProvider - , module Network.AWS.IAM.CreateOpenIdConnectProvider + -- ** GetUserPolicy + , module Network.AWS.IAM.GetUserPolicy -- ** ListAttachedRolePolicies , module Network.AWS.IAM.ListAttachedRolePolicies - -- ** DeleteVirtualMFADevice - , module Network.AWS.IAM.DeleteVirtualMFADevice - -- ** GetRole , module Network.AWS.IAM.GetRole -- ** DeactivateMFADevice , module Network.AWS.IAM.DeactivateMFADevice + -- ** CreateOpenIdConnectProvider + , module Network.AWS.IAM.CreateOpenIdConnectProvider + + -- ** DeleteVirtualMFADevice + , module Network.AWS.IAM.DeleteVirtualMFADevice + -- ** ListRoles (Paginated) , module Network.AWS.IAM.ListRoles - -- ** DeleteRole - , module Network.AWS.IAM.DeleteRole - -- ** ListUserPolicies (Paginated) , module Network.AWS.IAM.ListUserPolicies -- ** UploadSSHPublicKey , module Network.AWS.IAM.UploadSSHPublicKey + -- ** DeleteRole + , module Network.AWS.IAM.DeleteRole + -- ** ListUsers (Paginated) , module Network.AWS.IAM.ListUsers -- ** UpdateOpenIdConnectProviderThumbprint , module Network.AWS.IAM.UpdateOpenIdConnectProviderThumbprint - -- ** GetSSHPublicKey - , module Network.AWS.IAM.GetSSHPublicKey - -- ** PutUserPolicy , module Network.AWS.IAM.PutUserPolicy - -- ** CreateRole - , module Network.AWS.IAM.CreateRole + -- ** GetSSHPublicKey + , module Network.AWS.IAM.GetSSHPublicKey - -- ** DeleteUserPolicy - , module Network.AWS.IAM.DeleteUserPolicy + -- ** DetachGroupPolicy + , module Network.AWS.IAM.DetachGroupPolicy -- ** GetOpenIdConnectProvider , module Network.AWS.IAM.GetOpenIdConnectProvider - -- ** DetachGroupPolicy - , module Network.AWS.IAM.DetachGroupPolicy + -- ** DeleteUserPolicy + , module Network.AWS.IAM.DeleteUserPolicy + -- ** CreateRole + , module Network.AWS.IAM.CreateRole + -- ** GetCredentialReport , module Network.AWS.IAM.GetCredentialReport + -- ** GetAccountSummary + , module Network.AWS.IAM.GetAccountSummary + + -- ** ListGroupPolicies (Paginated) + , module Network.AWS.IAM.ListGroupPolicies + -- ** DeletePolicyVersion , module Network.AWS.IAM.DeletePolicyVersion - -- ** DetachRolePolicy - , module Network.AWS.IAM.DetachRolePolicy - -- ** DeleteInstanceProfile , module Network.AWS.IAM.DeleteInstanceProfile - -- ** ListGroupPolicies (Paginated) - , module Network.AWS.IAM.ListGroupPolicies + -- ** DetachRolePolicy + , module Network.AWS.IAM.DetachRolePolicy - -- ** GetAccountSummary - , module Network.AWS.IAM.GetAccountSummary + -- ** RemoveRoleFromInstanceProfile + , module Network.AWS.IAM.RemoveRoleFromInstanceProfile + -- ** CreatePolicyVersion + , module Network.AWS.IAM.CreatePolicyVersion + -- ** CreateInstanceProfile , module Network.AWS.IAM.CreateInstanceProfile - -- ** PutGroupPolicy - , module Network.AWS.IAM.PutGroupPolicy - - -- ** DeleteGroupPolicy - , module Network.AWS.IAM.DeleteGroupPolicy + -- ** CreateSAMLProvider + , module Network.AWS.IAM.CreateSAMLProvider -- ** GetAccountAuthorizationDetails , module Network.AWS.IAM.GetAccountAuthorizationDetails @@ -283,53 +286,41 @@ -- ** DeleteAccountAlias , module Network.AWS.IAM.DeleteAccountAlias - -- ** RemoveRoleFromInstanceProfile - , module Network.AWS.IAM.RemoveRoleFromInstanceProfile - - -- ** GetLoginProfile - , module Network.AWS.IAM.GetLoginProfile + -- ** DetachUserPolicy + , module Network.AWS.IAM.DetachUserPolicy -- ** RemoveUserFromGroup , module Network.AWS.IAM.RemoveUserFromGroup - -- ** DetachUserPolicy - , module Network.AWS.IAM.DetachUserPolicy + -- ** DeleteGroupPolicy + , module Network.AWS.IAM.DeleteGroupPolicy - -- ** CreateSAMLProvider - , module Network.AWS.IAM.CreateSAMLProvider + -- ** PutGroupPolicy + , module Network.AWS.IAM.PutGroupPolicy - -- ** CreatePolicyVersion - , module Network.AWS.IAM.CreatePolicyVersion + -- ** GetLoginProfile + , module Network.AWS.IAM.GetLoginProfile -- ** GetGroupPolicy , module Network.AWS.IAM.GetGroupPolicy - -- ** DeletePolicy - , module Network.AWS.IAM.DeletePolicy + -- ** ChangePassword + , module Network.AWS.IAM.ChangePassword -- ** ListServerCertificates (Paginated) , module Network.AWS.IAM.ListServerCertificates + -- ** DeletePolicy + , module Network.AWS.IAM.DeletePolicy + -- ** UpdateAssumeRolePolicy , module Network.AWS.IAM.UpdateAssumeRolePolicy - -- ** ChangePassword - , module Network.AWS.IAM.ChangePassword - - -- ** ListGroupsForUser (Paginated) - , module Network.AWS.IAM.ListGroupsForUser - - -- ** GetPolicyVersion - , module Network.AWS.IAM.GetPolicyVersion - - -- ** CreateLoginProfile - , module Network.AWS.IAM.CreateLoginProfile - -- ** GetInstanceProfile , module Network.AWS.IAM.GetInstanceProfile - -- ** ListEntitiesForPolicy - , module Network.AWS.IAM.ListEntitiesForPolicy + -- ** CreateLoginProfile + , module Network.AWS.IAM.CreateLoginProfile -- ** GetSAMLProvider , module Network.AWS.IAM.GetSAMLProvider @@ -337,17 +328,26 @@ -- ** AddRoleToInstanceProfile , module Network.AWS.IAM.AddRoleToInstanceProfile + -- ** ListGroupsForUser (Paginated) + , module Network.AWS.IAM.ListGroupsForUser + + -- ** ListEntitiesForPolicy + , module Network.AWS.IAM.ListEntitiesForPolicy + -- ** AddUserToGroup , module Network.AWS.IAM.AddUserToGroup + -- ** GetPolicyVersion + , module Network.AWS.IAM.GetPolicyVersion + -- ** DeleteOpenIdConnectProvider , module Network.AWS.IAM.DeleteOpenIdConnectProvider -- ** GetUser , module Network.AWS.IAM.GetUser - -- ** ListAttachedUserPolicies - , module Network.AWS.IAM.ListAttachedUserPolicies + -- ** ListSigningCertificates (Paginated) + , module Network.AWS.IAM.ListSigningCertificates -- ** DeleteSigningCertificate , module Network.AWS.IAM.DeleteSigningCertificate @@ -355,117 +355,123 @@ -- ** UpdateSigningCertificate , module Network.AWS.IAM.UpdateSigningCertificate - -- ** ListSigningCertificates (Paginated) - , module Network.AWS.IAM.ListSigningCertificates + -- ** ListAttachedUserPolicies + , module Network.AWS.IAM.ListAttachedUserPolicies -- ** RemoveClientIdFromOpenIdConnectProvider , module Network.AWS.IAM.RemoveClientIdFromOpenIdConnectProvider - -- ** ListAccessKeys (Paginated) - , module Network.AWS.IAM.ListAccessKeys + -- ** AttachUserPolicy + , module Network.AWS.IAM.AttachUserPolicy -- ** ListVirtualMFADevices (Paginated) , module Network.AWS.IAM.ListVirtualMFADevices + -- ** ResyncMFADevice + , module Network.AWS.IAM.ResyncMFADevice + -- ** DeleteAccessKey , module Network.AWS.IAM.DeleteAccessKey -- ** UpdateAccessKey , module Network.AWS.IAM.UpdateAccessKey + -- ** ListAccessKeys (Paginated) + , module Network.AWS.IAM.ListAccessKeys + -- ** GetRolePolicy , module Network.AWS.IAM.GetRolePolicy - -- ** AttachUserPolicy - , module Network.AWS.IAM.AttachUserPolicy - - -- ** ResyncMFADevice - , module Network.AWS.IAM.ResyncMFADevice - -- ** CreateUser , module Network.AWS.IAM.CreateUser - -- ** UploadSigningCertificate - , module Network.AWS.IAM.UploadSigningCertificate - -- ** PutRolePolicy , module Network.AWS.IAM.PutRolePolicy + -- ** UploadSigningCertificate + , module Network.AWS.IAM.UploadSigningCertificate + -- ** DeleteRolePolicy , module Network.AWS.IAM.DeleteRolePolicy + -- ** GetAccountPasswordPolicy + , module Network.AWS.IAM.GetAccountPasswordPolicy + + -- ** GetAccessKeyLastUsed + , module Network.AWS.IAM.GetAccessKeyLastUsed + -- ** UpdateUser , module Network.AWS.IAM.UpdateUser -- ** DeleteUser , module Network.AWS.IAM.DeleteUser - -- ** ListRolePolicies (Paginated) - , module Network.AWS.IAM.ListRolePolicies - -- ** AddClientIdToOpenIdConnectProvider , module Network.AWS.IAM.AddClientIdToOpenIdConnectProvider - -- ** GetAccessKeyLastUsed - , module Network.AWS.IAM.GetAccessKeyLastUsed - - -- ** GetAccountPasswordPolicy - , module Network.AWS.IAM.GetAccountPasswordPolicy - - -- ** ListAccountAliases (Paginated) - , module Network.AWS.IAM.ListAccountAliases + -- ** ListRolePolicies (Paginated) + , module Network.AWS.IAM.ListRolePolicies -- ** CreateAccountAlias , module Network.AWS.IAM.CreateAccountAlias - -- ** UploadServerCertificate - , module Network.AWS.IAM.UploadServerCertificate - - -- ** ListMFADevices (Paginated) - , module Network.AWS.IAM.ListMFADevices + -- ** ListInstanceProfiles (Paginated) + , module Network.AWS.IAM.ListInstanceProfiles -- ** EnableMFADevice , module Network.AWS.IAM.EnableMFADevice - -- ** ListPolicyVersions - , module Network.AWS.IAM.ListPolicyVersions + -- ** ListAccountAliases (Paginated) + , module Network.AWS.IAM.ListAccountAliases - -- ** ListSAMLProviders - , module Network.AWS.IAM.ListSAMLProviders + -- ** DeleteSAMLProvider + , module Network.AWS.IAM.DeleteSAMLProvider -- ** UpdateSAMLProvider , module Network.AWS.IAM.UpdateSAMLProvider - -- ** DeleteSAMLProvider - , module Network.AWS.IAM.DeleteSAMLProvider - -- ** CreateGroup , module Network.AWS.IAM.CreateGroup + -- ** ListMFADevices (Paginated) + , module Network.AWS.IAM.ListMFADevices + + -- ** UploadServerCertificate + , module Network.AWS.IAM.UploadServerCertificate + -- ** SetDefaultPolicyVersion , module Network.AWS.IAM.SetDefaultPolicyVersion - -- ** ListInstanceProfiles (Paginated) - , module Network.AWS.IAM.ListInstanceProfiles + -- ** ListPolicyVersions + , module Network.AWS.IAM.ListPolicyVersions - -- ** ListGroups (Paginated) - , module Network.AWS.IAM.ListGroups + -- ** ListSAMLProviders + , module Network.AWS.IAM.ListSAMLProviders + -- ** GetServerCertificate + , module Network.AWS.IAM.GetServerCertificate + -- ** DeleteGroup , module Network.AWS.IAM.DeleteGroup -- ** UpdateGroup , module Network.AWS.IAM.UpdateGroup - -- ** GetServerCertificate - , module Network.AWS.IAM.GetServerCertificate + -- ** ListGroups (Paginated) + , module Network.AWS.IAM.ListGroups + -- ** GenerateCredentialReport + , module Network.AWS.IAM.GenerateCredentialReport + -- ** GetPolicy , module Network.AWS.IAM.GetPolicy - -- ** GenerateCredentialReport - , module Network.AWS.IAM.GenerateCredentialReport + -- ** UpdateLoginProfile + , module Network.AWS.IAM.UpdateLoginProfile + -- ** DeleteLoginProfile + , module Network.AWS.IAM.DeleteLoginProfile + -- ** GetGroup (Paginated) , module Network.AWS.IAM.GetGroup @@ -475,12 +481,6 @@ -- ** UpdateServerCertificate , module Network.AWS.IAM.UpdateServerCertificate - -- ** DeleteLoginProfile - , module Network.AWS.IAM.DeleteLoginProfile - - -- ** UpdateLoginProfile - , module Network.AWS.IAM.UpdateLoginProfile - -- ** ListAttachedGroupPolicies , module Network.AWS.IAM.ListAttachedGroupPolicies @@ -589,11 +589,11 @@ , managedPolicyDetail , mpdPolicyName , mpdARN - , mpdPath , mpdUpdateDate , mpdPolicyId - , mpdCreateDate + , mpdPath , mpdPolicyVersionList + , mpdCreateDate , mpdIsAttachable , mpdDefaultVersionId , mpdAttachmentCount @@ -608,8 +608,8 @@ , PasswordPolicy , passwordPolicy , ppExpirePasswords - , ppRequireNumbers , ppMinimumPasswordLength + , ppRequireNumbers , ppPasswordReusePrevention , ppRequireLowercaseCharacters , ppMaxPasswordAge @@ -623,9 +623,9 @@ , policy , pPolicyName , pARN - , pPath , pUpdateDate , pPolicyId + , pPath , pCreateDate , pIsAttachable , pDefaultVersionId @@ -748,9 +748,9 @@ -- ** UserDetail , UserDetail , userDetail + , udGroupList , udARN , udPath - , udGroupList , udCreateDate , udUserName , udUserId diff --git a/gen/Network/AWS/IAM/CreateAccessKey.hs b/gen/Network/AWS/IAM/CreateAccessKey.hs --- a/gen/Network/AWS/IAM/CreateAccessKey.hs +++ b/gen/Network/AWS/IAM/CreateAccessKey.hs @@ -50,7 +50,7 @@ , createAccessKeyResponse , CreateAccessKeyResponse -- * Response Lenses - , cakrsStatus + , cakrsResponseStatus , cakrsAccessKey ) where @@ -107,30 +107,30 @@ -- -- /See:/ 'createAccessKeyResponse' smart constructor. data CreateAccessKeyResponse = CreateAccessKeyResponse' - { _cakrsStatus :: !Int - , _cakrsAccessKey :: !AccessKey + { _cakrsResponseStatus :: !Int + , _cakrsAccessKey :: !AccessKey } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateAccessKeyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cakrsStatus' +-- * 'cakrsResponseStatus' -- -- * 'cakrsAccessKey' createAccessKeyResponse - :: Int -- ^ 'cakrsStatus' + :: Int -- ^ 'cakrsResponseStatus' -> AccessKey -- ^ 'cakrsAccessKey' -> CreateAccessKeyResponse -createAccessKeyResponse pStatus_ pAccessKey_ = +createAccessKeyResponse pResponseStatus_ pAccessKey_ = CreateAccessKeyResponse' - { _cakrsStatus = pStatus_ + { _cakrsResponseStatus = pResponseStatus_ , _cakrsAccessKey = pAccessKey_ } -- | The response status code. -cakrsStatus :: Lens' CreateAccessKeyResponse Int -cakrsStatus = lens _cakrsStatus (\ s a -> s{_cakrsStatus = a}); +cakrsResponseStatus :: Lens' CreateAccessKeyResponse Int +cakrsResponseStatus = lens _cakrsResponseStatus (\ s a -> s{_cakrsResponseStatus = a}); -- | Information about the access key. cakrsAccessKey :: Lens' CreateAccessKeyResponse AccessKey diff --git a/gen/Network/AWS/IAM/CreateGroup.hs b/gen/Network/AWS/IAM/CreateGroup.hs --- a/gen/Network/AWS/IAM/CreateGroup.hs +++ b/gen/Network/AWS/IAM/CreateGroup.hs @@ -38,7 +38,7 @@ , createGroupResponse , CreateGroupResponse -- * Response Lenses - , cgrsStatus + , cgrsResponseStatus , cgrsGroup ) where @@ -109,30 +109,30 @@ -- -- /See:/ 'createGroupResponse' smart constructor. data CreateGroupResponse = CreateGroupResponse' - { _cgrsStatus :: !Int - , _cgrsGroup :: !Group + { _cgrsResponseStatus :: !Int + , _cgrsGroup :: !Group } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cgrsStatus' +-- * 'cgrsResponseStatus' -- -- * 'cgrsGroup' createGroupResponse - :: Int -- ^ 'cgrsStatus' + :: Int -- ^ 'cgrsResponseStatus' -> Group -- ^ 'cgrsGroup' -> CreateGroupResponse -createGroupResponse pStatus_ pGroup_ = +createGroupResponse pResponseStatus_ pGroup_ = CreateGroupResponse' - { _cgrsStatus = pStatus_ + { _cgrsResponseStatus = pResponseStatus_ , _cgrsGroup = pGroup_ } -- | The response status code. -cgrsStatus :: Lens' CreateGroupResponse Int -cgrsStatus = lens _cgrsStatus (\ s a -> s{_cgrsStatus = a}); +cgrsResponseStatus :: Lens' CreateGroupResponse Int +cgrsResponseStatus = lens _cgrsResponseStatus (\ s a -> s{_cgrsResponseStatus = a}); -- | Information about the group. cgrsGroup :: Lens' CreateGroupResponse Group diff --git a/gen/Network/AWS/IAM/CreateInstanceProfile.hs b/gen/Network/AWS/IAM/CreateInstanceProfile.hs --- a/gen/Network/AWS/IAM/CreateInstanceProfile.hs +++ b/gen/Network/AWS/IAM/CreateInstanceProfile.hs @@ -41,7 +41,7 @@ , createInstanceProfileResponse , CreateInstanceProfileResponse -- * Response Lenses - , ciprsStatus + , ciprsResponseStatus , ciprsInstanceProfile ) where @@ -114,7 +114,7 @@ -- -- /See:/ 'createInstanceProfileResponse' smart constructor. data CreateInstanceProfileResponse = CreateInstanceProfileResponse' - { _ciprsStatus :: !Int + { _ciprsResponseStatus :: !Int , _ciprsInstanceProfile :: !InstanceProfile } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -122,22 +122,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ciprsStatus' +-- * 'ciprsResponseStatus' -- -- * 'ciprsInstanceProfile' createInstanceProfileResponse - :: Int -- ^ 'ciprsStatus' + :: Int -- ^ 'ciprsResponseStatus' -> InstanceProfile -- ^ 'ciprsInstanceProfile' -> CreateInstanceProfileResponse -createInstanceProfileResponse pStatus_ pInstanceProfile_ = +createInstanceProfileResponse pResponseStatus_ pInstanceProfile_ = CreateInstanceProfileResponse' - { _ciprsStatus = pStatus_ + { _ciprsResponseStatus = pResponseStatus_ , _ciprsInstanceProfile = pInstanceProfile_ } -- | The response status code. -ciprsStatus :: Lens' CreateInstanceProfileResponse Int -ciprsStatus = lens _ciprsStatus (\ s a -> s{_ciprsStatus = a}); +ciprsResponseStatus :: Lens' CreateInstanceProfileResponse Int +ciprsResponseStatus = lens _ciprsResponseStatus (\ s a -> s{_ciprsResponseStatus = a}); -- | Information about the instance profile. ciprsInstanceProfile :: Lens' CreateInstanceProfileResponse InstanceProfile diff --git a/gen/Network/AWS/IAM/CreateLoginProfile.hs b/gen/Network/AWS/IAM/CreateLoginProfile.hs --- a/gen/Network/AWS/IAM/CreateLoginProfile.hs +++ b/gen/Network/AWS/IAM/CreateLoginProfile.hs @@ -39,7 +39,7 @@ , createLoginProfileResponse , CreateLoginProfileResponse -- * Response Lenses - , clprsStatus + , clprsResponseStatus , clprsLoginProfile ) where @@ -118,30 +118,30 @@ -- -- /See:/ 'createLoginProfileResponse' smart constructor. data CreateLoginProfileResponse = CreateLoginProfileResponse' - { _clprsStatus :: !Int - , _clprsLoginProfile :: !LoginProfile + { _clprsResponseStatus :: !Int + , _clprsLoginProfile :: !LoginProfile } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateLoginProfileResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'clprsStatus' +-- * 'clprsResponseStatus' -- -- * 'clprsLoginProfile' createLoginProfileResponse - :: Int -- ^ 'clprsStatus' + :: Int -- ^ 'clprsResponseStatus' -> LoginProfile -- ^ 'clprsLoginProfile' -> CreateLoginProfileResponse -createLoginProfileResponse pStatus_ pLoginProfile_ = +createLoginProfileResponse pResponseStatus_ pLoginProfile_ = CreateLoginProfileResponse' - { _clprsStatus = pStatus_ + { _clprsResponseStatus = pResponseStatus_ , _clprsLoginProfile = pLoginProfile_ } -- | The response status code. -clprsStatus :: Lens' CreateLoginProfileResponse Int -clprsStatus = lens _clprsStatus (\ s a -> s{_clprsStatus = a}); +clprsResponseStatus :: Lens' CreateLoginProfileResponse Int +clprsResponseStatus = lens _clprsResponseStatus (\ s a -> s{_clprsResponseStatus = a}); -- | The user name and password create date. clprsLoginProfile :: Lens' CreateLoginProfileResponse LoginProfile diff --git a/gen/Network/AWS/IAM/CreateOpenIdConnectProvider.hs b/gen/Network/AWS/IAM/CreateOpenIdConnectProvider.hs --- a/gen/Network/AWS/IAM/CreateOpenIdConnectProvider.hs +++ b/gen/Network/AWS/IAM/CreateOpenIdConnectProvider.hs @@ -53,7 +53,7 @@ , CreateOpenIdConnectProviderResponse -- * Response Lenses , coicprsOpenIdConnectProviderARN - , coicprsStatus + , coicprsResponseStatus ) where import Network.AWS.IAM.Types @@ -178,7 +178,7 @@ -- /See:/ 'createOpenIdConnectProviderResponse' smart constructor. data CreateOpenIdConnectProviderResponse = CreateOpenIdConnectProviderResponse' { _coicprsOpenIdConnectProviderARN :: !(Maybe Text) - , _coicprsStatus :: !Int + , _coicprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateOpenIdConnectProviderResponse' with the minimum fields required to make a request. @@ -187,14 +187,14 @@ -- -- * 'coicprsOpenIdConnectProviderARN' -- --- * 'coicprsStatus' +-- * 'coicprsResponseStatus' createOpenIdConnectProviderResponse - :: Int -- ^ 'coicprsStatus' + :: Int -- ^ 'coicprsResponseStatus' -> CreateOpenIdConnectProviderResponse -createOpenIdConnectProviderResponse pStatus_ = +createOpenIdConnectProviderResponse pResponseStatus_ = CreateOpenIdConnectProviderResponse' { _coicprsOpenIdConnectProviderARN = Nothing - , _coicprsStatus = pStatus_ + , _coicprsResponseStatus = pResponseStatus_ } -- | The Amazon Resource Name (ARN) of the IAM OpenID Connect provider that @@ -203,5 +203,5 @@ coicprsOpenIdConnectProviderARN = lens _coicprsOpenIdConnectProviderARN (\ s a -> s{_coicprsOpenIdConnectProviderARN = a}); -- | The response status code. -coicprsStatus :: Lens' CreateOpenIdConnectProviderResponse Int -coicprsStatus = lens _coicprsStatus (\ s a -> s{_coicprsStatus = a}); +coicprsResponseStatus :: Lens' CreateOpenIdConnectProviderResponse Int +coicprsResponseStatus = lens _coicprsResponseStatus (\ s a -> s{_coicprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/CreatePolicy.hs b/gen/Network/AWS/IAM/CreatePolicy.hs --- a/gen/Network/AWS/IAM/CreatePolicy.hs +++ b/gen/Network/AWS/IAM/CreatePolicy.hs @@ -47,7 +47,7 @@ , CreatePolicyResponse -- * Response Lenses , cprsPolicy - , cprsStatus + , cprsResponseStatus ) where import Network.AWS.IAM.Types @@ -144,8 +144,8 @@ -- -- /See:/ 'createPolicyResponse' smart constructor. data CreatePolicyResponse = CreatePolicyResponse' - { _cprsPolicy :: !(Maybe Policy) - , _cprsStatus :: !Int + { _cprsPolicy :: !(Maybe Policy) + , _cprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreatePolicyResponse' with the minimum fields required to make a request. @@ -154,14 +154,14 @@ -- -- * 'cprsPolicy' -- --- * 'cprsStatus' +-- * 'cprsResponseStatus' createPolicyResponse - :: Int -- ^ 'cprsStatus' + :: Int -- ^ 'cprsResponseStatus' -> CreatePolicyResponse -createPolicyResponse pStatus_ = +createPolicyResponse pResponseStatus_ = CreatePolicyResponse' { _cprsPolicy = Nothing - , _cprsStatus = pStatus_ + , _cprsResponseStatus = pResponseStatus_ } -- | Information about the policy. @@ -169,5 +169,5 @@ cprsPolicy = lens _cprsPolicy (\ s a -> s{_cprsPolicy = a}); -- | The response status code. -cprsStatus :: Lens' CreatePolicyResponse Int -cprsStatus = lens _cprsStatus (\ s a -> s{_cprsStatus = a}); +cprsResponseStatus :: Lens' CreatePolicyResponse Int +cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/CreatePolicyVersion.hs b/gen/Network/AWS/IAM/CreatePolicyVersion.hs --- a/gen/Network/AWS/IAM/CreatePolicyVersion.hs +++ b/gen/Network/AWS/IAM/CreatePolicyVersion.hs @@ -49,7 +49,7 @@ , CreatePolicyVersionResponse -- * Response Lenses , cpvrsPolicyVersion - , cpvrsStatus + , cpvrsResponseStatus ) where import Network.AWS.IAM.Types @@ -134,8 +134,8 @@ -- -- /See:/ 'createPolicyVersionResponse' smart constructor. data CreatePolicyVersionResponse = CreatePolicyVersionResponse' - { _cpvrsPolicyVersion :: !(Maybe PolicyVersion) - , _cpvrsStatus :: !Int + { _cpvrsPolicyVersion :: !(Maybe PolicyVersion) + , _cpvrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreatePolicyVersionResponse' with the minimum fields required to make a request. @@ -144,14 +144,14 @@ -- -- * 'cpvrsPolicyVersion' -- --- * 'cpvrsStatus' +-- * 'cpvrsResponseStatus' createPolicyVersionResponse - :: Int -- ^ 'cpvrsStatus' + :: Int -- ^ 'cpvrsResponseStatus' -> CreatePolicyVersionResponse -createPolicyVersionResponse pStatus_ = +createPolicyVersionResponse pResponseStatus_ = CreatePolicyVersionResponse' { _cpvrsPolicyVersion = Nothing - , _cpvrsStatus = pStatus_ + , _cpvrsResponseStatus = pResponseStatus_ } -- | Information about the policy version. @@ -159,5 +159,5 @@ cpvrsPolicyVersion = lens _cpvrsPolicyVersion (\ s a -> s{_cpvrsPolicyVersion = a}); -- | The response status code. -cpvrsStatus :: Lens' CreatePolicyVersionResponse Int -cpvrsStatus = lens _cpvrsStatus (\ s a -> s{_cpvrsStatus = a}); +cpvrsResponseStatus :: Lens' CreatePolicyVersionResponse Int +cpvrsResponseStatus = lens _cpvrsResponseStatus (\ s a -> s{_cpvrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/CreateRole.hs b/gen/Network/AWS/IAM/CreateRole.hs --- a/gen/Network/AWS/IAM/CreateRole.hs +++ b/gen/Network/AWS/IAM/CreateRole.hs @@ -44,7 +44,7 @@ , createRoleResponse , CreateRoleResponse -- * Response Lenses - , crrsStatus + , crrsResponseStatus , crrsRole ) where @@ -126,30 +126,30 @@ -- -- /See:/ 'createRoleResponse' smart constructor. data CreateRoleResponse = CreateRoleResponse' - { _crrsStatus :: !Int - , _crrsRole :: !Role + { _crrsResponseStatus :: !Int + , _crrsRole :: !Role } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateRoleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'crrsStatus' +-- * 'crrsResponseStatus' -- -- * 'crrsRole' createRoleResponse - :: Int -- ^ 'crrsStatus' + :: Int -- ^ 'crrsResponseStatus' -> Role -- ^ 'crrsRole' -> CreateRoleResponse -createRoleResponse pStatus_ pRole_ = +createRoleResponse pResponseStatus_ pRole_ = CreateRoleResponse' - { _crrsStatus = pStatus_ + { _crrsResponseStatus = pResponseStatus_ , _crrsRole = pRole_ } -- | The response status code. -crrsStatus :: Lens' CreateRoleResponse Int -crrsStatus = lens _crrsStatus (\ s a -> s{_crrsStatus = a}); +crrsResponseStatus :: Lens' CreateRoleResponse Int +crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}); -- | Information about the role. crrsRole :: Lens' CreateRoleResponse Role diff --git a/gen/Network/AWS/IAM/CreateSAMLProvider.hs b/gen/Network/AWS/IAM/CreateSAMLProvider.hs --- a/gen/Network/AWS/IAM/CreateSAMLProvider.hs +++ b/gen/Network/AWS/IAM/CreateSAMLProvider.hs @@ -58,7 +58,7 @@ , CreateSAMLProviderResponse -- * Response Lenses , csamlprsSAMLProviderARN - , csamlprsStatus + , csamlprsResponseStatus ) where import Network.AWS.IAM.Types @@ -137,7 +137,7 @@ -- /See:/ 'createSAMLProviderResponse' smart constructor. data CreateSAMLProviderResponse = CreateSAMLProviderResponse' { _csamlprsSAMLProviderARN :: !(Maybe Text) - , _csamlprsStatus :: !Int + , _csamlprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateSAMLProviderResponse' with the minimum fields required to make a request. @@ -146,14 +146,14 @@ -- -- * 'csamlprsSAMLProviderARN' -- --- * 'csamlprsStatus' +-- * 'csamlprsResponseStatus' createSAMLProviderResponse - :: Int -- ^ 'csamlprsStatus' + :: Int -- ^ 'csamlprsResponseStatus' -> CreateSAMLProviderResponse -createSAMLProviderResponse pStatus_ = +createSAMLProviderResponse pResponseStatus_ = CreateSAMLProviderResponse' { _csamlprsSAMLProviderARN = Nothing - , _csamlprsStatus = pStatus_ + , _csamlprsResponseStatus = pResponseStatus_ } -- | The Amazon Resource Name (ARN) of the SAML provider. @@ -161,5 +161,5 @@ csamlprsSAMLProviderARN = lens _csamlprsSAMLProviderARN (\ s a -> s{_csamlprsSAMLProviderARN = a}); -- | The response status code. -csamlprsStatus :: Lens' CreateSAMLProviderResponse Int -csamlprsStatus = lens _csamlprsStatus (\ s a -> s{_csamlprsStatus = a}); +csamlprsResponseStatus :: Lens' CreateSAMLProviderResponse Int +csamlprsResponseStatus = lens _csamlprsResponseStatus (\ s a -> s{_csamlprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/CreateUser.hs b/gen/Network/AWS/IAM/CreateUser.hs --- a/gen/Network/AWS/IAM/CreateUser.hs +++ b/gen/Network/AWS/IAM/CreateUser.hs @@ -40,7 +40,7 @@ , CreateUserResponse -- * Response Lenses , cursUser - , cursStatus + , cursResponseStatus ) where import Network.AWS.IAM.Types @@ -110,8 +110,8 @@ -- -- /See:/ 'createUserResponse' smart constructor. data CreateUserResponse = CreateUserResponse' - { _cursUser :: !(Maybe User) - , _cursStatus :: !Int + { _cursUser :: !(Maybe User) + , _cursResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateUserResponse' with the minimum fields required to make a request. @@ -120,14 +120,14 @@ -- -- * 'cursUser' -- --- * 'cursStatus' +-- * 'cursResponseStatus' createUserResponse - :: Int -- ^ 'cursStatus' + :: Int -- ^ 'cursResponseStatus' -> CreateUserResponse -createUserResponse pStatus_ = +createUserResponse pResponseStatus_ = CreateUserResponse' { _cursUser = Nothing - , _cursStatus = pStatus_ + , _cursResponseStatus = pResponseStatus_ } -- | Information about the user. @@ -135,5 +135,5 @@ cursUser = lens _cursUser (\ s a -> s{_cursUser = a}); -- | The response status code. -cursStatus :: Lens' CreateUserResponse Int -cursStatus = lens _cursStatus (\ s a -> s{_cursStatus = a}); +cursResponseStatus :: Lens' CreateUserResponse Int +cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/CreateVirtualMFADevice.hs b/gen/Network/AWS/IAM/CreateVirtualMFADevice.hs --- a/gen/Network/AWS/IAM/CreateVirtualMFADevice.hs +++ b/gen/Network/AWS/IAM/CreateVirtualMFADevice.hs @@ -50,7 +50,7 @@ , createVirtualMFADeviceResponse , CreateVirtualMFADeviceResponse -- * Response Lenses - , cvmdrsStatus + , cvmdrsResponseStatus , cvmdrsVirtualMFADevice ) where @@ -126,7 +126,7 @@ -- -- /See:/ 'createVirtualMFADeviceResponse' smart constructor. data CreateVirtualMFADeviceResponse = CreateVirtualMFADeviceResponse' - { _cvmdrsStatus :: !Int + { _cvmdrsResponseStatus :: !Int , _cvmdrsVirtualMFADevice :: !VirtualMFADevice } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -134,22 +134,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cvmdrsStatus' +-- * 'cvmdrsResponseStatus' -- -- * 'cvmdrsVirtualMFADevice' createVirtualMFADeviceResponse - :: Int -- ^ 'cvmdrsStatus' + :: Int -- ^ 'cvmdrsResponseStatus' -> VirtualMFADevice -- ^ 'cvmdrsVirtualMFADevice' -> CreateVirtualMFADeviceResponse -createVirtualMFADeviceResponse pStatus_ pVirtualMFADevice_ = +createVirtualMFADeviceResponse pResponseStatus_ pVirtualMFADevice_ = CreateVirtualMFADeviceResponse' - { _cvmdrsStatus = pStatus_ + { _cvmdrsResponseStatus = pResponseStatus_ , _cvmdrsVirtualMFADevice = pVirtualMFADevice_ } -- | The response status code. -cvmdrsStatus :: Lens' CreateVirtualMFADeviceResponse Int -cvmdrsStatus = lens _cvmdrsStatus (\ s a -> s{_cvmdrsStatus = a}); +cvmdrsResponseStatus :: Lens' CreateVirtualMFADeviceResponse Int +cvmdrsResponseStatus = lens _cvmdrsResponseStatus (\ s a -> s{_cvmdrsResponseStatus = a}); -- | A newly created virtual MFA device. cvmdrsVirtualMFADevice :: Lens' CreateVirtualMFADeviceResponse VirtualMFADevice diff --git a/gen/Network/AWS/IAM/GenerateCredentialReport.hs b/gen/Network/AWS/IAM/GenerateCredentialReport.hs --- a/gen/Network/AWS/IAM/GenerateCredentialReport.hs +++ b/gen/Network/AWS/IAM/GenerateCredentialReport.hs @@ -36,7 +36,7 @@ -- * Response Lenses , gcrrsState , gcrrsDescription - , gcrrsStatus + , gcrrsResponseStatus ) where import Network.AWS.IAM.Types @@ -85,9 +85,9 @@ -- -- /See:/ 'generateCredentialReportResponse' smart constructor. data GenerateCredentialReportResponse = GenerateCredentialReportResponse' - { _gcrrsState :: !(Maybe ReportStateType) - , _gcrrsDescription :: !(Maybe Text) - , _gcrrsStatus :: !Int + { _gcrrsState :: !(Maybe ReportStateType) + , _gcrrsDescription :: !(Maybe Text) + , _gcrrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GenerateCredentialReportResponse' with the minimum fields required to make a request. @@ -98,15 +98,15 @@ -- -- * 'gcrrsDescription' -- --- * 'gcrrsStatus' +-- * 'gcrrsResponseStatus' generateCredentialReportResponse - :: Int -- ^ 'gcrrsStatus' + :: Int -- ^ 'gcrrsResponseStatus' -> GenerateCredentialReportResponse -generateCredentialReportResponse pStatus_ = +generateCredentialReportResponse pResponseStatus_ = GenerateCredentialReportResponse' { _gcrrsState = Nothing , _gcrrsDescription = Nothing - , _gcrrsStatus = pStatus_ + , _gcrrsResponseStatus = pResponseStatus_ } -- | Information about the state of the credential report. @@ -118,5 +118,5 @@ gcrrsDescription = lens _gcrrsDescription (\ s a -> s{_gcrrsDescription = a}); -- | The response status code. -gcrrsStatus :: Lens' GenerateCredentialReportResponse Int -gcrrsStatus = lens _gcrrsStatus (\ s a -> s{_gcrrsStatus = a}); +gcrrsResponseStatus :: Lens' GenerateCredentialReportResponse Int +gcrrsResponseStatus = lens _gcrrsResponseStatus (\ s a -> s{_gcrrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetAccessKeyLastUsed.hs b/gen/Network/AWS/IAM/GetAccessKeyLastUsed.hs --- a/gen/Network/AWS/IAM/GetAccessKeyLastUsed.hs +++ b/gen/Network/AWS/IAM/GetAccessKeyLastUsed.hs @@ -38,7 +38,7 @@ -- * Response Lenses , gaklursUserName , gaklursAccessKeyLastUsed - , gaklursStatus + , gaklursResponseStatus ) where import Network.AWS.IAM.Types @@ -101,7 +101,7 @@ data GetAccessKeyLastUsedResponse = GetAccessKeyLastUsedResponse' { _gaklursUserName :: !(Maybe Text) , _gaklursAccessKeyLastUsed :: !(Maybe AccessKeyLastUsed) - , _gaklursStatus :: !Int + , _gaklursResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetAccessKeyLastUsedResponse' with the minimum fields required to make a request. @@ -112,15 +112,15 @@ -- -- * 'gaklursAccessKeyLastUsed' -- --- * 'gaklursStatus' +-- * 'gaklursResponseStatus' getAccessKeyLastUsedResponse - :: Int -- ^ 'gaklursStatus' + :: Int -- ^ 'gaklursResponseStatus' -> GetAccessKeyLastUsedResponse -getAccessKeyLastUsedResponse pStatus_ = +getAccessKeyLastUsedResponse pResponseStatus_ = GetAccessKeyLastUsedResponse' { _gaklursUserName = Nothing , _gaklursAccessKeyLastUsed = Nothing - , _gaklursStatus = pStatus_ + , _gaklursResponseStatus = pResponseStatus_ } -- | The name of the AWS IAM user that owns this access key. @@ -132,5 +132,5 @@ gaklursAccessKeyLastUsed = lens _gaklursAccessKeyLastUsed (\ s a -> s{_gaklursAccessKeyLastUsed = a}); -- | The response status code. -gaklursStatus :: Lens' GetAccessKeyLastUsedResponse Int -gaklursStatus = lens _gaklursStatus (\ s a -> s{_gaklursStatus = a}); +gaklursResponseStatus :: Lens' GetAccessKeyLastUsedResponse Int +gaklursResponseStatus = lens _gaklursResponseStatus (\ s a -> s{_gaklursResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetAccountAuthorizationDetails.hs b/gen/Network/AWS/IAM/GetAccountAuthorizationDetails.hs --- a/gen/Network/AWS/IAM/GetAccountAuthorizationDetails.hs +++ b/gen/Network/AWS/IAM/GetAccountAuthorizationDetails.hs @@ -33,8 +33,8 @@ getAccountAuthorizationDetails , GetAccountAuthorizationDetails -- * Request Lenses - , gaadMaxItems , gaadMarker + , gaadMaxItems , gaadFilter -- * Destructuring the Response @@ -47,7 +47,7 @@ , gaadrsMarker , gaadrsIsTruncated , gaadrsPolicies - , gaadrsStatus + , gaadrsResponseStatus ) where import Network.AWS.IAM.Types @@ -58,8 +58,8 @@ -- | /See:/ 'getAccountAuthorizationDetails' smart constructor. data GetAccountAuthorizationDetails = GetAccountAuthorizationDetails' - { _gaadMaxItems :: !(Maybe Nat) - , _gaadMarker :: !(Maybe Text) + { _gaadMarker :: !(Maybe Text) + , _gaadMaxItems :: !(Maybe Nat) , _gaadFilter :: !(Maybe [EntityType]) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -67,20 +67,26 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gaadMaxItems' --- -- * 'gaadMarker' -- +-- * 'gaadMaxItems' +-- -- * 'gaadFilter' getAccountAuthorizationDetails :: GetAccountAuthorizationDetails getAccountAuthorizationDetails = GetAccountAuthorizationDetails' - { _gaadMaxItems = Nothing - , _gaadMarker = Nothing + { _gaadMarker = Nothing + , _gaadMaxItems = Nothing , _gaadFilter = Nothing } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +gaadMarker :: Lens' GetAccountAuthorizationDetails (Maybe Text) +gaadMarker = lens _gaadMarker (\ s a -> s{_gaadMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -90,12 +96,6 @@ gaadMaxItems :: Lens' GetAccountAuthorizationDetails (Maybe Natural) gaadMaxItems = lens _gaadMaxItems (\ s a -> s{_gaadMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -gaadMarker :: Lens' GetAccountAuthorizationDetails (Maybe Text) -gaadMarker = lens _gaadMarker (\ s a -> s{_gaadMarker = a}); - -- | A list of entity types (user, group, role, local managed policy, or AWS -- managed policy) for filtering the results. gaadFilter :: Lens' GetAccountAuthorizationDetails [EntityType] @@ -139,7 +139,7 @@ ["Action" =: ("GetAccountAuthorizationDetails" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _gaadMaxItems, "Marker" =: _gaadMarker, + "Marker" =: _gaadMarker, "MaxItems" =: _gaadMaxItems, "Filter" =: toQuery (toQueryList "member" <$> _gaadFilter)] @@ -154,7 +154,7 @@ , _gaadrsMarker :: !(Maybe Text) , _gaadrsIsTruncated :: !(Maybe Bool) , _gaadrsPolicies :: !(Maybe [ManagedPolicyDetail]) - , _gaadrsStatus :: !Int + , _gaadrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetAccountAuthorizationDetailsResponse' with the minimum fields required to make a request. @@ -173,11 +173,11 @@ -- -- * 'gaadrsPolicies' -- --- * 'gaadrsStatus' +-- * 'gaadrsResponseStatus' getAccountAuthorizationDetailsResponse - :: Int -- ^ 'gaadrsStatus' + :: Int -- ^ 'gaadrsResponseStatus' -> GetAccountAuthorizationDetailsResponse -getAccountAuthorizationDetailsResponse pStatus_ = +getAccountAuthorizationDetailsResponse pResponseStatus_ = GetAccountAuthorizationDetailsResponse' { _gaadrsRoleDetailList = Nothing , _gaadrsGroupDetailList = Nothing @@ -185,7 +185,7 @@ , _gaadrsMarker = Nothing , _gaadrsIsTruncated = Nothing , _gaadrsPolicies = Nothing - , _gaadrsStatus = pStatus_ + , _gaadrsResponseStatus = pResponseStatus_ } -- | A list containing information about IAM roles. @@ -217,5 +217,5 @@ gaadrsPolicies = lens _gaadrsPolicies (\ s a -> s{_gaadrsPolicies = a}) . _Default . _Coerce; -- | The response status code. -gaadrsStatus :: Lens' GetAccountAuthorizationDetailsResponse Int -gaadrsStatus = lens _gaadrsStatus (\ s a -> s{_gaadrsStatus = a}); +gaadrsResponseStatus :: Lens' GetAccountAuthorizationDetailsResponse Int +gaadrsResponseStatus = lens _gaadrsResponseStatus (\ s a -> s{_gaadrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetAccountPasswordPolicy.hs b/gen/Network/AWS/IAM/GetAccountPasswordPolicy.hs --- a/gen/Network/AWS/IAM/GetAccountPasswordPolicy.hs +++ b/gen/Network/AWS/IAM/GetAccountPasswordPolicy.hs @@ -33,7 +33,7 @@ , getAccountPasswordPolicyResponse , GetAccountPasswordPolicyResponse -- * Response Lenses - , gapprsStatus + , gapprsResponseStatus , gapprsPasswordPolicy ) where @@ -82,7 +82,7 @@ -- -- /See:/ 'getAccountPasswordPolicyResponse' smart constructor. data GetAccountPasswordPolicyResponse = GetAccountPasswordPolicyResponse' - { _gapprsStatus :: !Int + { _gapprsResponseStatus :: !Int , _gapprsPasswordPolicy :: !PasswordPolicy } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -90,22 +90,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gapprsStatus' +-- * 'gapprsResponseStatus' -- -- * 'gapprsPasswordPolicy' getAccountPasswordPolicyResponse - :: Int -- ^ 'gapprsStatus' + :: Int -- ^ 'gapprsResponseStatus' -> PasswordPolicy -- ^ 'gapprsPasswordPolicy' -> GetAccountPasswordPolicyResponse -getAccountPasswordPolicyResponse pStatus_ pPasswordPolicy_ = +getAccountPasswordPolicyResponse pResponseStatus_ pPasswordPolicy_ = GetAccountPasswordPolicyResponse' - { _gapprsStatus = pStatus_ + { _gapprsResponseStatus = pResponseStatus_ , _gapprsPasswordPolicy = pPasswordPolicy_ } -- | The response status code. -gapprsStatus :: Lens' GetAccountPasswordPolicyResponse Int -gapprsStatus = lens _gapprsStatus (\ s a -> s{_gapprsStatus = a}); +gapprsResponseStatus :: Lens' GetAccountPasswordPolicyResponse Int +gapprsResponseStatus = lens _gapprsResponseStatus (\ s a -> s{_gapprsResponseStatus = a}); -- | Undocumented member. gapprsPasswordPolicy :: Lens' GetAccountPasswordPolicyResponse PasswordPolicy diff --git a/gen/Network/AWS/IAM/GetAccountSummary.hs b/gen/Network/AWS/IAM/GetAccountSummary.hs --- a/gen/Network/AWS/IAM/GetAccountSummary.hs +++ b/gen/Network/AWS/IAM/GetAccountSummary.hs @@ -37,7 +37,7 @@ , GetAccountSummaryResponse -- * Response Lenses , gasrsSummaryMap - , gasrsStatus + , gasrsResponseStatus ) where import Network.AWS.IAM.Types @@ -85,8 +85,8 @@ -- -- /See:/ 'getAccountSummaryResponse' smart constructor. data GetAccountSummaryResponse = GetAccountSummaryResponse' - { _gasrsSummaryMap :: !(Maybe (Map SummaryKeyType Int)) - , _gasrsStatus :: !Int + { _gasrsSummaryMap :: !(Maybe (Map SummaryKeyType Int)) + , _gasrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetAccountSummaryResponse' with the minimum fields required to make a request. @@ -95,14 +95,14 @@ -- -- * 'gasrsSummaryMap' -- --- * 'gasrsStatus' +-- * 'gasrsResponseStatus' getAccountSummaryResponse - :: Int -- ^ 'gasrsStatus' + :: Int -- ^ 'gasrsResponseStatus' -> GetAccountSummaryResponse -getAccountSummaryResponse pStatus_ = +getAccountSummaryResponse pResponseStatus_ = GetAccountSummaryResponse' { _gasrsSummaryMap = Nothing - , _gasrsStatus = pStatus_ + , _gasrsResponseStatus = pResponseStatus_ } -- | A set of key value pairs containing information about IAM entity usage @@ -262,5 +262,5 @@ gasrsSummaryMap = lens _gasrsSummaryMap (\ s a -> s{_gasrsSummaryMap = a}) . _Default . _Map; -- | The response status code. -gasrsStatus :: Lens' GetAccountSummaryResponse Int -gasrsStatus = lens _gasrsStatus (\ s a -> s{_gasrsStatus = a}); +gasrsResponseStatus :: Lens' GetAccountSummaryResponse Int +gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetCredentialReport.hs b/gen/Network/AWS/IAM/GetCredentialReport.hs --- a/gen/Network/AWS/IAM/GetCredentialReport.hs +++ b/gen/Network/AWS/IAM/GetCredentialReport.hs @@ -37,7 +37,7 @@ , grsContent , grsGeneratedTime , grsReportFormat - , grsStatus + , grsResponseStatus ) where import Network.AWS.IAM.Types @@ -86,10 +86,10 @@ -- -- /See:/ 'getCredentialReportResponse' smart constructor. data GetCredentialReportResponse = GetCredentialReportResponse' - { _grsContent :: !(Maybe Base64) - , _grsGeneratedTime :: !(Maybe ISO8601) - , _grsReportFormat :: !(Maybe ReportFormatType) - , _grsStatus :: !Int + { _grsContent :: !(Maybe Base64) + , _grsGeneratedTime :: !(Maybe ISO8601) + , _grsReportFormat :: !(Maybe ReportFormatType) + , _grsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetCredentialReportResponse' with the minimum fields required to make a request. @@ -102,16 +102,16 @@ -- -- * 'grsReportFormat' -- --- * 'grsStatus' +-- * 'grsResponseStatus' getCredentialReportResponse - :: Int -- ^ 'grsStatus' + :: Int -- ^ 'grsResponseStatus' -> GetCredentialReportResponse -getCredentialReportResponse pStatus_ = +getCredentialReportResponse pResponseStatus_ = GetCredentialReportResponse' { _grsContent = Nothing , _grsGeneratedTime = Nothing , _grsReportFormat = Nothing - , _grsStatus = pStatus_ + , _grsResponseStatus = pResponseStatus_ } -- | Contains the credential report. The report is Base64-encoded. @@ -134,5 +134,5 @@ grsReportFormat = lens _grsReportFormat (\ s a -> s{_grsReportFormat = a}); -- | The response status code. -grsStatus :: Lens' GetCredentialReportResponse Int -grsStatus = lens _grsStatus (\ s a -> s{_grsStatus = a}); +grsResponseStatus :: Lens' GetCredentialReportResponse Int +grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetGroup.hs b/gen/Network/AWS/IAM/GetGroup.hs --- a/gen/Network/AWS/IAM/GetGroup.hs +++ b/gen/Network/AWS/IAM/GetGroup.hs @@ -30,8 +30,8 @@ getGroup , GetGroup -- * Request Lenses - , ggMaxItems , ggMarker + , ggMaxItems , ggGroupName -- * Destructuring the Response @@ -40,7 +40,7 @@ -- * Response Lenses , ggrsMarker , ggrsIsTruncated - , ggrsStatus + , ggrsResponseStatus , ggrsGroup , ggrsUsers ) where @@ -54,8 +54,8 @@ -- | /See:/ 'getGroup' smart constructor. data GetGroup = GetGroup' - { _ggMaxItems :: !(Maybe Nat) - , _ggMarker :: !(Maybe Text) + { _ggMarker :: !(Maybe Text) + , _ggMaxItems :: !(Maybe Nat) , _ggGroupName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -63,21 +63,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ggMaxItems' --- -- * 'ggMarker' -- +-- * 'ggMaxItems' +-- -- * 'ggGroupName' getGroup :: Text -- ^ 'ggGroupName' -> GetGroup getGroup pGroupName_ = GetGroup' - { _ggMaxItems = Nothing - , _ggMarker = Nothing + { _ggMarker = Nothing + , _ggMaxItems = Nothing , _ggGroupName = pGroupName_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +ggMarker :: Lens' GetGroup (Maybe Text) +ggMarker = lens _ggMarker (\ s a -> s{_ggMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -87,20 +93,14 @@ ggMaxItems :: Lens' GetGroup (Maybe Natural) ggMaxItems = lens _ggMaxItems (\ s a -> s{_ggMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -ggMarker :: Lens' GetGroup (Maybe Text) -ggMarker = lens _ggMarker (\ s a -> s{_ggMarker = a}); - -- | The name of the group. ggGroupName :: Lens' GetGroup Text ggGroupName = lens _ggGroupName (\ s a -> s{_ggGroupName = a}); instance AWSPager GetGroup where page rq rs - | stop (rs ^. ggrsIsTruncated) = Nothing - | isNothing (rs ^. ggrsMarker) = Nothing + | stop (rs ^. ggrsMarker) = Nothing + | stop (rs ^. ggrsUsers) = Nothing | otherwise = Just $ rq & ggMarker .~ rs ^. ggrsMarker @@ -128,18 +128,18 @@ = mconcat ["Action" =: ("GetGroup" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _ggMaxItems, "Marker" =: _ggMarker, + "Marker" =: _ggMarker, "MaxItems" =: _ggMaxItems, "GroupName" =: _ggGroupName] -- | Contains the response to a successful GetGroup request. -- -- /See:/ 'getGroupResponse' smart constructor. data GetGroupResponse = GetGroupResponse' - { _ggrsMarker :: !(Maybe Text) - , _ggrsIsTruncated :: !(Maybe Bool) - , _ggrsStatus :: !Int - , _ggrsGroup :: !Group - , _ggrsUsers :: ![User] + { _ggrsMarker :: !(Maybe Text) + , _ggrsIsTruncated :: !(Maybe Bool) + , _ggrsResponseStatus :: !Int + , _ggrsGroup :: !Group + , _ggrsUsers :: ![User] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetGroupResponse' with the minimum fields required to make a request. @@ -150,20 +150,20 @@ -- -- * 'ggrsIsTruncated' -- --- * 'ggrsStatus' +-- * 'ggrsResponseStatus' -- -- * 'ggrsGroup' -- -- * 'ggrsUsers' getGroupResponse - :: Int -- ^ 'ggrsStatus' + :: Int -- ^ 'ggrsResponseStatus' -> Group -- ^ 'ggrsGroup' -> GetGroupResponse -getGroupResponse pStatus_ pGroup_ = +getGroupResponse pResponseStatus_ pGroup_ = GetGroupResponse' { _ggrsMarker = Nothing , _ggrsIsTruncated = Nothing - , _ggrsStatus = pStatus_ + , _ggrsResponseStatus = pResponseStatus_ , _ggrsGroup = pGroup_ , _ggrsUsers = mempty } @@ -181,8 +181,8 @@ ggrsIsTruncated = lens _ggrsIsTruncated (\ s a -> s{_ggrsIsTruncated = a}); -- | The response status code. -ggrsStatus :: Lens' GetGroupResponse Int -ggrsStatus = lens _ggrsStatus (\ s a -> s{_ggrsStatus = a}); +ggrsResponseStatus :: Lens' GetGroupResponse Int +ggrsResponseStatus = lens _ggrsResponseStatus (\ s a -> s{_ggrsResponseStatus = a}); -- | Information about the group. ggrsGroup :: Lens' GetGroupResponse Group diff --git a/gen/Network/AWS/IAM/GetGroupPolicy.hs b/gen/Network/AWS/IAM/GetGroupPolicy.hs --- a/gen/Network/AWS/IAM/GetGroupPolicy.hs +++ b/gen/Network/AWS/IAM/GetGroupPolicy.hs @@ -44,7 +44,7 @@ , getGroupPolicyResponse , GetGroupPolicyResponse -- * Response Lenses - , ggprsStatus + , ggprsResponseStatus , ggprsGroupName , ggprsPolicyName , ggprsPolicyDocument @@ -116,7 +116,7 @@ -- -- /See:/ 'getGroupPolicyResponse' smart constructor. data GetGroupPolicyResponse = GetGroupPolicyResponse' - { _ggprsStatus :: !Int + { _ggprsResponseStatus :: !Int , _ggprsGroupName :: !Text , _ggprsPolicyName :: !Text , _ggprsPolicyDocument :: !Text @@ -126,7 +126,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ggprsStatus' +-- * 'ggprsResponseStatus' -- -- * 'ggprsGroupName' -- @@ -134,22 +134,22 @@ -- -- * 'ggprsPolicyDocument' getGroupPolicyResponse - :: Int -- ^ 'ggprsStatus' + :: Int -- ^ 'ggprsResponseStatus' -> Text -- ^ 'ggprsGroupName' -> Text -- ^ 'ggprsPolicyName' -> Text -- ^ 'ggprsPolicyDocument' -> GetGroupPolicyResponse -getGroupPolicyResponse pStatus_ pGroupName_ pPolicyName_ pPolicyDocument_ = +getGroupPolicyResponse pResponseStatus_ pGroupName_ pPolicyName_ pPolicyDocument_ = GetGroupPolicyResponse' - { _ggprsStatus = pStatus_ + { _ggprsResponseStatus = pResponseStatus_ , _ggprsGroupName = pGroupName_ , _ggprsPolicyName = pPolicyName_ , _ggprsPolicyDocument = pPolicyDocument_ } -- | The response status code. -ggprsStatus :: Lens' GetGroupPolicyResponse Int -ggprsStatus = lens _ggprsStatus (\ s a -> s{_ggprsStatus = a}); +ggprsResponseStatus :: Lens' GetGroupPolicyResponse Int +ggprsResponseStatus = lens _ggprsResponseStatus (\ s a -> s{_ggprsResponseStatus = a}); -- | The group the policy is associated with. ggprsGroupName :: Lens' GetGroupPolicyResponse Text diff --git a/gen/Network/AWS/IAM/GetInstanceProfile.hs b/gen/Network/AWS/IAM/GetInstanceProfile.hs --- a/gen/Network/AWS/IAM/GetInstanceProfile.hs +++ b/gen/Network/AWS/IAM/GetInstanceProfile.hs @@ -38,7 +38,7 @@ , getInstanceProfileResponse , GetInstanceProfileResponse -- * Response Lenses - , giprsStatus + , giprsResponseStatus , giprsInstanceProfile ) where @@ -97,7 +97,7 @@ -- -- /See:/ 'getInstanceProfileResponse' smart constructor. data GetInstanceProfileResponse = GetInstanceProfileResponse' - { _giprsStatus :: !Int + { _giprsResponseStatus :: !Int , _giprsInstanceProfile :: !InstanceProfile } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -105,22 +105,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'giprsStatus' +-- * 'giprsResponseStatus' -- -- * 'giprsInstanceProfile' getInstanceProfileResponse - :: Int -- ^ 'giprsStatus' + :: Int -- ^ 'giprsResponseStatus' -> InstanceProfile -- ^ 'giprsInstanceProfile' -> GetInstanceProfileResponse -getInstanceProfileResponse pStatus_ pInstanceProfile_ = +getInstanceProfileResponse pResponseStatus_ pInstanceProfile_ = GetInstanceProfileResponse' - { _giprsStatus = pStatus_ + { _giprsResponseStatus = pResponseStatus_ , _giprsInstanceProfile = pInstanceProfile_ } -- | The response status code. -giprsStatus :: Lens' GetInstanceProfileResponse Int -giprsStatus = lens _giprsStatus (\ s a -> s{_giprsStatus = a}); +giprsResponseStatus :: Lens' GetInstanceProfileResponse Int +giprsResponseStatus = lens _giprsResponseStatus (\ s a -> s{_giprsResponseStatus = a}); -- | Information about the instance profile. giprsInstanceProfile :: Lens' GetInstanceProfileResponse InstanceProfile diff --git a/gen/Network/AWS/IAM/GetLoginProfile.hs b/gen/Network/AWS/IAM/GetLoginProfile.hs --- a/gen/Network/AWS/IAM/GetLoginProfile.hs +++ b/gen/Network/AWS/IAM/GetLoginProfile.hs @@ -35,7 +35,7 @@ , getLoginProfileResponse , GetLoginProfileResponse -- * Response Lenses - , glprsStatus + , glprsResponseStatus , glprsLoginProfile ) where @@ -93,30 +93,30 @@ -- -- /See:/ 'getLoginProfileResponse' smart constructor. data GetLoginProfileResponse = GetLoginProfileResponse' - { _glprsStatus :: !Int - , _glprsLoginProfile :: !LoginProfile + { _glprsResponseStatus :: !Int + , _glprsLoginProfile :: !LoginProfile } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetLoginProfileResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'glprsStatus' +-- * 'glprsResponseStatus' -- -- * 'glprsLoginProfile' getLoginProfileResponse - :: Int -- ^ 'glprsStatus' + :: Int -- ^ 'glprsResponseStatus' -> LoginProfile -- ^ 'glprsLoginProfile' -> GetLoginProfileResponse -getLoginProfileResponse pStatus_ pLoginProfile_ = +getLoginProfileResponse pResponseStatus_ pLoginProfile_ = GetLoginProfileResponse' - { _glprsStatus = pStatus_ + { _glprsResponseStatus = pResponseStatus_ , _glprsLoginProfile = pLoginProfile_ } -- | The response status code. -glprsStatus :: Lens' GetLoginProfileResponse Int -glprsStatus = lens _glprsStatus (\ s a -> s{_glprsStatus = a}); +glprsResponseStatus :: Lens' GetLoginProfileResponse Int +glprsResponseStatus = lens _glprsResponseStatus (\ s a -> s{_glprsResponseStatus = a}); -- | The user name and password create date for the user. glprsLoginProfile :: Lens' GetLoginProfileResponse LoginProfile diff --git a/gen/Network/AWS/IAM/GetOpenIdConnectProvider.hs b/gen/Network/AWS/IAM/GetOpenIdConnectProvider.hs --- a/gen/Network/AWS/IAM/GetOpenIdConnectProvider.hs +++ b/gen/Network/AWS/IAM/GetOpenIdConnectProvider.hs @@ -37,7 +37,7 @@ , goicprsURL , goicprsThumbprintList , goicprsClientIdList - , goicprsStatus + , goicprsResponseStatus ) where import Network.AWS.IAM.Types @@ -109,7 +109,7 @@ , _goicprsURL :: !(Maybe Text) , _goicprsThumbprintList :: !(Maybe [Text]) , _goicprsClientIdList :: !(Maybe [Text]) - , _goicprsStatus :: !Int + , _goicprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetOpenIdConnectProviderResponse' with the minimum fields required to make a request. @@ -124,17 +124,17 @@ -- -- * 'goicprsClientIdList' -- --- * 'goicprsStatus' +-- * 'goicprsResponseStatus' getOpenIdConnectProviderResponse - :: Int -- ^ 'goicprsStatus' + :: Int -- ^ 'goicprsResponseStatus' -> GetOpenIdConnectProviderResponse -getOpenIdConnectProviderResponse pStatus_ = +getOpenIdConnectProviderResponse pResponseStatus_ = GetOpenIdConnectProviderResponse' { _goicprsCreateDate = Nothing , _goicprsURL = Nothing , _goicprsThumbprintList = Nothing , _goicprsClientIdList = Nothing - , _goicprsStatus = pStatus_ + , _goicprsResponseStatus = pResponseStatus_ } -- | The date and time when the IAM OpenID Connect provider entity was @@ -160,5 +160,5 @@ goicprsClientIdList = lens _goicprsClientIdList (\ s a -> s{_goicprsClientIdList = a}) . _Default . _Coerce; -- | The response status code. -goicprsStatus :: Lens' GetOpenIdConnectProviderResponse Int -goicprsStatus = lens _goicprsStatus (\ s a -> s{_goicprsStatus = a}); +goicprsResponseStatus :: Lens' GetOpenIdConnectProviderResponse Int +goicprsResponseStatus = lens _goicprsResponseStatus (\ s a -> s{_goicprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetPolicy.hs b/gen/Network/AWS/IAM/GetPolicy.hs --- a/gen/Network/AWS/IAM/GetPolicy.hs +++ b/gen/Network/AWS/IAM/GetPolicy.hs @@ -48,7 +48,7 @@ , GetPolicyResponse -- * Response Lenses , gprsPolicy - , gprsStatus + , gprsResponseStatus ) where import Network.AWS.IAM.Types @@ -105,8 +105,8 @@ -- -- /See:/ 'getPolicyResponse' smart constructor. data GetPolicyResponse = GetPolicyResponse' - { _gprsPolicy :: !(Maybe Policy) - , _gprsStatus :: !Int + { _gprsPolicy :: !(Maybe Policy) + , _gprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetPolicyResponse' with the minimum fields required to make a request. @@ -115,14 +115,14 @@ -- -- * 'gprsPolicy' -- --- * 'gprsStatus' +-- * 'gprsResponseStatus' getPolicyResponse - :: Int -- ^ 'gprsStatus' + :: Int -- ^ 'gprsResponseStatus' -> GetPolicyResponse -getPolicyResponse pStatus_ = +getPolicyResponse pResponseStatus_ = GetPolicyResponse' { _gprsPolicy = Nothing - , _gprsStatus = pStatus_ + , _gprsResponseStatus = pResponseStatus_ } -- | Information about the policy. @@ -130,5 +130,5 @@ gprsPolicy = lens _gprsPolicy (\ s a -> s{_gprsPolicy = a}); -- | The response status code. -gprsStatus :: Lens' GetPolicyResponse Int -gprsStatus = lens _gprsStatus (\ s a -> s{_gprsStatus = a}); +gprsResponseStatus :: Lens' GetPolicyResponse Int +gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetPolicyVersion.hs b/gen/Network/AWS/IAM/GetPolicyVersion.hs --- a/gen/Network/AWS/IAM/GetPolicyVersion.hs +++ b/gen/Network/AWS/IAM/GetPolicyVersion.hs @@ -46,7 +46,7 @@ , GetPolicyVersionResponse -- * Response Lenses , gpvrsPolicyVersion - , gpvrsStatus + , gpvrsResponseStatus ) where import Network.AWS.IAM.Types @@ -113,8 +113,8 @@ -- -- /See:/ 'getPolicyVersionResponse' smart constructor. data GetPolicyVersionResponse = GetPolicyVersionResponse' - { _gpvrsPolicyVersion :: !(Maybe PolicyVersion) - , _gpvrsStatus :: !Int + { _gpvrsPolicyVersion :: !(Maybe PolicyVersion) + , _gpvrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetPolicyVersionResponse' with the minimum fields required to make a request. @@ -123,14 +123,14 @@ -- -- * 'gpvrsPolicyVersion' -- --- * 'gpvrsStatus' +-- * 'gpvrsResponseStatus' getPolicyVersionResponse - :: Int -- ^ 'gpvrsStatus' + :: Int -- ^ 'gpvrsResponseStatus' -> GetPolicyVersionResponse -getPolicyVersionResponse pStatus_ = +getPolicyVersionResponse pResponseStatus_ = GetPolicyVersionResponse' { _gpvrsPolicyVersion = Nothing - , _gpvrsStatus = pStatus_ + , _gpvrsResponseStatus = pResponseStatus_ } -- | Information about the policy version. @@ -142,5 +142,5 @@ gpvrsPolicyVersion = lens _gpvrsPolicyVersion (\ s a -> s{_gpvrsPolicyVersion = a}); -- | The response status code. -gpvrsStatus :: Lens' GetPolicyVersionResponse Int -gpvrsStatus = lens _gpvrsStatus (\ s a -> s{_gpvrsStatus = a}); +gpvrsResponseStatus :: Lens' GetPolicyVersionResponse Int +gpvrsResponseStatus = lens _gpvrsResponseStatus (\ s a -> s{_gpvrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetRole.hs b/gen/Network/AWS/IAM/GetRole.hs --- a/gen/Network/AWS/IAM/GetRole.hs +++ b/gen/Network/AWS/IAM/GetRole.hs @@ -38,7 +38,7 @@ , getRoleResponse , GetRoleResponse -- * Response Lenses - , grrsStatus + , grrsResponseStatus , grrsRole ) where @@ -96,30 +96,30 @@ -- -- /See:/ 'getRoleResponse' smart constructor. data GetRoleResponse = GetRoleResponse' - { _grrsStatus :: !Int - , _grrsRole :: !Role + { _grrsResponseStatus :: !Int + , _grrsRole :: !Role } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetRoleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'grrsStatus' +-- * 'grrsResponseStatus' -- -- * 'grrsRole' getRoleResponse - :: Int -- ^ 'grrsStatus' + :: Int -- ^ 'grrsResponseStatus' -> Role -- ^ 'grrsRole' -> GetRoleResponse -getRoleResponse pStatus_ pRole_ = +getRoleResponse pResponseStatus_ pRole_ = GetRoleResponse' - { _grrsStatus = pStatus_ + { _grrsResponseStatus = pResponseStatus_ , _grrsRole = pRole_ } -- | The response status code. -grrsStatus :: Lens' GetRoleResponse Int -grrsStatus = lens _grrsStatus (\ s a -> s{_grrsStatus = a}); +grrsResponseStatus :: Lens' GetRoleResponse Int +grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a}); -- | Information about the role. grrsRole :: Lens' GetRoleResponse Role diff --git a/gen/Network/AWS/IAM/GetRolePolicy.hs b/gen/Network/AWS/IAM/GetRolePolicy.hs --- a/gen/Network/AWS/IAM/GetRolePolicy.hs +++ b/gen/Network/AWS/IAM/GetRolePolicy.hs @@ -47,7 +47,7 @@ , getRolePolicyResponse , GetRolePolicyResponse -- * Response Lenses - , grprsStatus + , grprsResponseStatus , grprsRoleName , grprsPolicyName , grprsPolicyDocument @@ -119,7 +119,7 @@ -- -- /See:/ 'getRolePolicyResponse' smart constructor. data GetRolePolicyResponse = GetRolePolicyResponse' - { _grprsStatus :: !Int + { _grprsResponseStatus :: !Int , _grprsRoleName :: !Text , _grprsPolicyName :: !Text , _grprsPolicyDocument :: !Text @@ -129,7 +129,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'grprsStatus' +-- * 'grprsResponseStatus' -- -- * 'grprsRoleName' -- @@ -137,22 +137,22 @@ -- -- * 'grprsPolicyDocument' getRolePolicyResponse - :: Int -- ^ 'grprsStatus' + :: Int -- ^ 'grprsResponseStatus' -> Text -- ^ 'grprsRoleName' -> Text -- ^ 'grprsPolicyName' -> Text -- ^ 'grprsPolicyDocument' -> GetRolePolicyResponse -getRolePolicyResponse pStatus_ pRoleName_ pPolicyName_ pPolicyDocument_ = +getRolePolicyResponse pResponseStatus_ pRoleName_ pPolicyName_ pPolicyDocument_ = GetRolePolicyResponse' - { _grprsStatus = pStatus_ + { _grprsResponseStatus = pResponseStatus_ , _grprsRoleName = pRoleName_ , _grprsPolicyName = pPolicyName_ , _grprsPolicyDocument = pPolicyDocument_ } -- | The response status code. -grprsStatus :: Lens' GetRolePolicyResponse Int -grprsStatus = lens _grprsStatus (\ s a -> s{_grprsStatus = a}); +grprsResponseStatus :: Lens' GetRolePolicyResponse Int +grprsResponseStatus = lens _grprsResponseStatus (\ s a -> s{_grprsResponseStatus = a}); -- | The role the policy is associated with. grprsRoleName :: Lens' GetRolePolicyResponse Text diff --git a/gen/Network/AWS/IAM/GetSAMLProvider.hs b/gen/Network/AWS/IAM/GetSAMLProvider.hs --- a/gen/Network/AWS/IAM/GetSAMLProvider.hs +++ b/gen/Network/AWS/IAM/GetSAMLProvider.hs @@ -40,7 +40,7 @@ , gsamlprsCreateDate , gsamlprsValidUntil , gsamlprsSAMLMetadataDocument - , gsamlprsStatus + , gsamlprsResponseStatus ) where import Network.AWS.IAM.Types @@ -103,7 +103,7 @@ { _gsamlprsCreateDate :: !(Maybe ISO8601) , _gsamlprsValidUntil :: !(Maybe ISO8601) , _gsamlprsSAMLMetadataDocument :: !(Maybe Text) - , _gsamlprsStatus :: !Int + , _gsamlprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetSAMLProviderResponse' with the minimum fields required to make a request. @@ -116,16 +116,16 @@ -- -- * 'gsamlprsSAMLMetadataDocument' -- --- * 'gsamlprsStatus' +-- * 'gsamlprsResponseStatus' getSAMLProviderResponse - :: Int -- ^ 'gsamlprsStatus' + :: Int -- ^ 'gsamlprsResponseStatus' -> GetSAMLProviderResponse -getSAMLProviderResponse pStatus_ = +getSAMLProviderResponse pResponseStatus_ = GetSAMLProviderResponse' { _gsamlprsCreateDate = Nothing , _gsamlprsValidUntil = Nothing , _gsamlprsSAMLMetadataDocument = Nothing - , _gsamlprsStatus = pStatus_ + , _gsamlprsResponseStatus = pResponseStatus_ } -- | The date and time when the SAML provider was created. @@ -142,5 +142,5 @@ gsamlprsSAMLMetadataDocument = lens _gsamlprsSAMLMetadataDocument (\ s a -> s{_gsamlprsSAMLMetadataDocument = a}); -- | The response status code. -gsamlprsStatus :: Lens' GetSAMLProviderResponse Int -gsamlprsStatus = lens _gsamlprsStatus (\ s a -> s{_gsamlprsStatus = a}); +gsamlprsResponseStatus :: Lens' GetSAMLProviderResponse Int +gsamlprsResponseStatus = lens _gsamlprsResponseStatus (\ s a -> s{_gsamlprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetSSHPublicKey.hs b/gen/Network/AWS/IAM/GetSSHPublicKey.hs --- a/gen/Network/AWS/IAM/GetSSHPublicKey.hs +++ b/gen/Network/AWS/IAM/GetSSHPublicKey.hs @@ -44,7 +44,7 @@ , GetSSHPublicKeyResponse -- * Response Lenses , gspkrsSSHPublicKey - , gspkrsStatus + , gspkrsResponseStatus ) where import Network.AWS.IAM.Types @@ -123,8 +123,8 @@ -- -- /See:/ 'getSSHPublicKeyResponse' smart constructor. data GetSSHPublicKeyResponse = GetSSHPublicKeyResponse' - { _gspkrsSSHPublicKey :: !(Maybe SSHPublicKey) - , _gspkrsStatus :: !Int + { _gspkrsSSHPublicKey :: !(Maybe SSHPublicKey) + , _gspkrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetSSHPublicKeyResponse' with the minimum fields required to make a request. @@ -133,14 +133,14 @@ -- -- * 'gspkrsSSHPublicKey' -- --- * 'gspkrsStatus' +-- * 'gspkrsResponseStatus' getSSHPublicKeyResponse - :: Int -- ^ 'gspkrsStatus' + :: Int -- ^ 'gspkrsResponseStatus' -> GetSSHPublicKeyResponse -getSSHPublicKeyResponse pStatus_ = +getSSHPublicKeyResponse pResponseStatus_ = GetSSHPublicKeyResponse' { _gspkrsSSHPublicKey = Nothing - , _gspkrsStatus = pStatus_ + , _gspkrsResponseStatus = pResponseStatus_ } -- | Information about the SSH public key. @@ -148,5 +148,5 @@ gspkrsSSHPublicKey = lens _gspkrsSSHPublicKey (\ s a -> s{_gspkrsSSHPublicKey = a}); -- | The response status code. -gspkrsStatus :: Lens' GetSSHPublicKeyResponse Int -gspkrsStatus = lens _gspkrsStatus (\ s a -> s{_gspkrsStatus = a}); +gspkrsResponseStatus :: Lens' GetSSHPublicKeyResponse Int +gspkrsResponseStatus = lens _gspkrsResponseStatus (\ s a -> s{_gspkrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/GetServerCertificate.hs b/gen/Network/AWS/IAM/GetServerCertificate.hs --- a/gen/Network/AWS/IAM/GetServerCertificate.hs +++ b/gen/Network/AWS/IAM/GetServerCertificate.hs @@ -33,7 +33,7 @@ , getServerCertificateResponse , GetServerCertificateResponse -- * Response Lenses - , gscrsStatus + , gscrsResponseStatus , gscrsServerCertificate ) where @@ -93,7 +93,7 @@ -- -- /See:/ 'getServerCertificateResponse' smart constructor. data GetServerCertificateResponse = GetServerCertificateResponse' - { _gscrsStatus :: !Int + { _gscrsResponseStatus :: !Int , _gscrsServerCertificate :: !ServerCertificate } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -101,22 +101,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gscrsStatus' +-- * 'gscrsResponseStatus' -- -- * 'gscrsServerCertificate' getServerCertificateResponse - :: Int -- ^ 'gscrsStatus' + :: Int -- ^ 'gscrsResponseStatus' -> ServerCertificate -- ^ 'gscrsServerCertificate' -> GetServerCertificateResponse -getServerCertificateResponse pStatus_ pServerCertificate_ = +getServerCertificateResponse pResponseStatus_ pServerCertificate_ = GetServerCertificateResponse' - { _gscrsStatus = pStatus_ + { _gscrsResponseStatus = pResponseStatus_ , _gscrsServerCertificate = pServerCertificate_ } -- | The response status code. -gscrsStatus :: Lens' GetServerCertificateResponse Int -gscrsStatus = lens _gscrsStatus (\ s a -> s{_gscrsStatus = a}); +gscrsResponseStatus :: Lens' GetServerCertificateResponse Int +gscrsResponseStatus = lens _gscrsResponseStatus (\ s a -> s{_gscrsResponseStatus = a}); -- | Information about the server certificate. gscrsServerCertificate :: Lens' GetServerCertificateResponse ServerCertificate diff --git a/gen/Network/AWS/IAM/GetUser.hs b/gen/Network/AWS/IAM/GetUser.hs --- a/gen/Network/AWS/IAM/GetUser.hs +++ b/gen/Network/AWS/IAM/GetUser.hs @@ -37,7 +37,7 @@ , getUserResponse , GetUserResponse -- * Response Lenses - , gursStatus + , gursResponseStatus , gursUser ) where @@ -97,30 +97,30 @@ -- -- /See:/ 'getUserResponse' smart constructor. data GetUserResponse = GetUserResponse' - { _gursStatus :: !Int - , _gursUser :: !User + { _gursResponseStatus :: !Int + , _gursUser :: !User } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetUserResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gursStatus' +-- * 'gursResponseStatus' -- -- * 'gursUser' getUserResponse - :: Int -- ^ 'gursStatus' + :: Int -- ^ 'gursResponseStatus' -> User -- ^ 'gursUser' -> GetUserResponse -getUserResponse pStatus_ pUser_ = +getUserResponse pResponseStatus_ pUser_ = GetUserResponse' - { _gursStatus = pStatus_ + { _gursResponseStatus = pResponseStatus_ , _gursUser = pUser_ } -- | The response status code. -gursStatus :: Lens' GetUserResponse Int -gursStatus = lens _gursStatus (\ s a -> s{_gursStatus = a}); +gursResponseStatus :: Lens' GetUserResponse Int +gursResponseStatus = lens _gursResponseStatus (\ s a -> s{_gursResponseStatus = a}); -- | Information about the user. gursUser :: Lens' GetUserResponse User diff --git a/gen/Network/AWS/IAM/GetUserPolicy.hs b/gen/Network/AWS/IAM/GetUserPolicy.hs --- a/gen/Network/AWS/IAM/GetUserPolicy.hs +++ b/gen/Network/AWS/IAM/GetUserPolicy.hs @@ -44,7 +44,7 @@ , getUserPolicyResponse , GetUserPolicyResponse -- * Response Lenses - , guprsStatus + , guprsResponseStatus , guprsUserName , guprsPolicyName , guprsPolicyDocument @@ -116,7 +116,7 @@ -- -- /See:/ 'getUserPolicyResponse' smart constructor. data GetUserPolicyResponse = GetUserPolicyResponse' - { _guprsStatus :: !Int + { _guprsResponseStatus :: !Int , _guprsUserName :: !Text , _guprsPolicyName :: !Text , _guprsPolicyDocument :: !Text @@ -126,7 +126,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'guprsStatus' +-- * 'guprsResponseStatus' -- -- * 'guprsUserName' -- @@ -134,22 +134,22 @@ -- -- * 'guprsPolicyDocument' getUserPolicyResponse - :: Int -- ^ 'guprsStatus' + :: Int -- ^ 'guprsResponseStatus' -> Text -- ^ 'guprsUserName' -> Text -- ^ 'guprsPolicyName' -> Text -- ^ 'guprsPolicyDocument' -> GetUserPolicyResponse -getUserPolicyResponse pStatus_ pUserName_ pPolicyName_ pPolicyDocument_ = +getUserPolicyResponse pResponseStatus_ pUserName_ pPolicyName_ pPolicyDocument_ = GetUserPolicyResponse' - { _guprsStatus = pStatus_ + { _guprsResponseStatus = pResponseStatus_ , _guprsUserName = pUserName_ , _guprsPolicyName = pPolicyName_ , _guprsPolicyDocument = pPolicyDocument_ } -- | The response status code. -guprsStatus :: Lens' GetUserPolicyResponse Int -guprsStatus = lens _guprsStatus (\ s a -> s{_guprsStatus = a}); +guprsResponseStatus :: Lens' GetUserPolicyResponse Int +guprsResponseStatus = lens _guprsResponseStatus (\ s a -> s{_guprsResponseStatus = a}); -- | The user the policy is associated with. guprsUserName :: Lens' GetUserPolicyResponse Text diff --git a/gen/Network/AWS/IAM/ListAccessKeys.hs b/gen/Network/AWS/IAM/ListAccessKeys.hs --- a/gen/Network/AWS/IAM/ListAccessKeys.hs +++ b/gen/Network/AWS/IAM/ListAccessKeys.hs @@ -43,8 +43,8 @@ , ListAccessKeys -- * Request Lenses , lakUserName - , lakMaxItems , lakMarker + , lakMaxItems -- * Destructuring the Response , listAccessKeysResponse @@ -52,7 +52,7 @@ -- * Response Lenses , lakrsMarker , lakrsIsTruncated - , lakrsStatus + , lakrsResponseStatus , lakrsAccessKeyMetadata ) where @@ -66,8 +66,8 @@ -- | /See:/ 'listAccessKeys' smart constructor. data ListAccessKeys = ListAccessKeys' { _lakUserName :: !(Maybe Text) - , _lakMaxItems :: !(Maybe Nat) , _lakMarker :: !(Maybe Text) + , _lakMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListAccessKeys' with the minimum fields required to make a request. @@ -76,22 +76,28 @@ -- -- * 'lakUserName' -- --- * 'lakMaxItems' --- -- * 'lakMarker' +-- +-- * 'lakMaxItems' listAccessKeys :: ListAccessKeys listAccessKeys = ListAccessKeys' { _lakUserName = Nothing - , _lakMaxItems = Nothing , _lakMarker = Nothing + , _lakMaxItems = Nothing } -- | The name of the user. lakUserName :: Lens' ListAccessKeys (Maybe Text) lakUserName = lens _lakUserName (\ s a -> s{_lakUserName = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lakMarker :: Lens' ListAccessKeys (Maybe Text) +lakMarker = lens _lakMarker (\ s a -> s{_lakMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -101,16 +107,10 @@ lakMaxItems :: Lens' ListAccessKeys (Maybe Natural) lakMaxItems = lens _lakMaxItems (\ s a -> s{_lakMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lakMarker :: Lens' ListAccessKeys (Maybe Text) -lakMarker = lens _lakMarker (\ s a -> s{_lakMarker = a}); - instance AWSPager ListAccessKeys where page rq rs - | stop (rs ^. lakrsIsTruncated) = Nothing - | isNothing (rs ^. lakrsMarker) = Nothing + | stop (rs ^. lakrsMarker) = Nothing + | stop (rs ^. lakrsAccessKeyMetadata) = Nothing | otherwise = Just $ rq & lakMarker .~ rs ^. lakrsMarker @@ -138,8 +138,8 @@ = mconcat ["Action" =: ("ListAccessKeys" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "UserName" =: _lakUserName, - "MaxItems" =: _lakMaxItems, "Marker" =: _lakMarker] + "UserName" =: _lakUserName, "Marker" =: _lakMarker, + "MaxItems" =: _lakMaxItems] -- | Contains the response to a successful ListAccessKeys request. -- @@ -147,7 +147,7 @@ data ListAccessKeysResponse = ListAccessKeysResponse' { _lakrsMarker :: !(Maybe Text) , _lakrsIsTruncated :: !(Maybe Bool) - , _lakrsStatus :: !Int + , _lakrsResponseStatus :: !Int , _lakrsAccessKeyMetadata :: ![AccessKeyMetadata] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -159,17 +159,17 @@ -- -- * 'lakrsIsTruncated' -- --- * 'lakrsStatus' +-- * 'lakrsResponseStatus' -- -- * 'lakrsAccessKeyMetadata' listAccessKeysResponse - :: Int -- ^ 'lakrsStatus' + :: Int -- ^ 'lakrsResponseStatus' -> ListAccessKeysResponse -listAccessKeysResponse pStatus_ = +listAccessKeysResponse pResponseStatus_ = ListAccessKeysResponse' { _lakrsMarker = Nothing , _lakrsIsTruncated = Nothing - , _lakrsStatus = pStatus_ + , _lakrsResponseStatus = pResponseStatus_ , _lakrsAccessKeyMetadata = mempty } @@ -186,8 +186,8 @@ lakrsIsTruncated = lens _lakrsIsTruncated (\ s a -> s{_lakrsIsTruncated = a}); -- | The response status code. -lakrsStatus :: Lens' ListAccessKeysResponse Int -lakrsStatus = lens _lakrsStatus (\ s a -> s{_lakrsStatus = a}); +lakrsResponseStatus :: Lens' ListAccessKeysResponse Int +lakrsResponseStatus = lens _lakrsResponseStatus (\ s a -> s{_lakrsResponseStatus = a}); -- | A list of access key metadata. lakrsAccessKeyMetadata :: Lens' ListAccessKeysResponse [AccessKeyMetadata] diff --git a/gen/Network/AWS/IAM/ListAccountAliases.hs b/gen/Network/AWS/IAM/ListAccountAliases.hs --- a/gen/Network/AWS/IAM/ListAccountAliases.hs +++ b/gen/Network/AWS/IAM/ListAccountAliases.hs @@ -35,8 +35,8 @@ listAccountAliases , ListAccountAliases -- * Request Lenses - , laaMaxItems , laaMarker + , laaMaxItems -- * Destructuring the Response , listAccountAliasesResponse @@ -44,7 +44,7 @@ -- * Response Lenses , laarsMarker , laarsIsTruncated - , laarsStatus + , laarsResponseStatus , laarsAccountAliases ) where @@ -57,25 +57,31 @@ -- | /See:/ 'listAccountAliases' smart constructor. data ListAccountAliases = ListAccountAliases' - { _laaMaxItems :: !(Maybe Nat) - , _laaMarker :: !(Maybe Text) + { _laaMarker :: !(Maybe Text) + , _laaMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListAccountAliases' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'laaMaxItems' --- -- * 'laaMarker' +-- +-- * 'laaMaxItems' listAccountAliases :: ListAccountAliases listAccountAliases = ListAccountAliases' - { _laaMaxItems = Nothing - , _laaMarker = Nothing + { _laaMarker = Nothing + , _laaMaxItems = Nothing } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +laaMarker :: Lens' ListAccountAliases (Maybe Text) +laaMarker = lens _laaMarker (\ s a -> s{_laaMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -85,16 +91,10 @@ laaMaxItems :: Lens' ListAccountAliases (Maybe Natural) laaMaxItems = lens _laaMaxItems (\ s a -> s{_laaMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -laaMarker :: Lens' ListAccountAliases (Maybe Text) -laaMarker = lens _laaMarker (\ s a -> s{_laaMarker = a}); - instance AWSPager ListAccountAliases where page rq rs - | stop (rs ^. laarsIsTruncated) = Nothing - | isNothing (rs ^. laarsMarker) = Nothing + | stop (rs ^. laarsMarker) = Nothing + | stop (rs ^. laarsAccountAliases) = Nothing | otherwise = Just $ rq & laaMarker .~ rs ^. laarsMarker @@ -123,7 +123,7 @@ = mconcat ["Action" =: ("ListAccountAliases" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _laaMaxItems, "Marker" =: _laaMarker] + "Marker" =: _laaMarker, "MaxItems" =: _laaMaxItems] -- | Contains the response to a successful ListAccountAliases request. -- @@ -131,7 +131,7 @@ data ListAccountAliasesResponse = ListAccountAliasesResponse' { _laarsMarker :: !(Maybe Text) , _laarsIsTruncated :: !(Maybe Bool) - , _laarsStatus :: !Int + , _laarsResponseStatus :: !Int , _laarsAccountAliases :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -143,17 +143,17 @@ -- -- * 'laarsIsTruncated' -- --- * 'laarsStatus' +-- * 'laarsResponseStatus' -- -- * 'laarsAccountAliases' listAccountAliasesResponse - :: Int -- ^ 'laarsStatus' + :: Int -- ^ 'laarsResponseStatus' -> ListAccountAliasesResponse -listAccountAliasesResponse pStatus_ = +listAccountAliasesResponse pResponseStatus_ = ListAccountAliasesResponse' { _laarsMarker = Nothing , _laarsIsTruncated = Nothing - , _laarsStatus = pStatus_ + , _laarsResponseStatus = pResponseStatus_ , _laarsAccountAliases = mempty } @@ -170,8 +170,8 @@ laarsIsTruncated = lens _laarsIsTruncated (\ s a -> s{_laarsIsTruncated = a}); -- | The response status code. -laarsStatus :: Lens' ListAccountAliasesResponse Int -laarsStatus = lens _laarsStatus (\ s a -> s{_laarsStatus = a}); +laarsResponseStatus :: Lens' ListAccountAliasesResponse Int +laarsResponseStatus = lens _laarsResponseStatus (\ s a -> s{_laarsResponseStatus = a}); -- | A list of aliases associated with the account. laarsAccountAliases :: Lens' ListAccountAliasesResponse [Text] diff --git a/gen/Network/AWS/IAM/ListAttachedGroupPolicies.hs b/gen/Network/AWS/IAM/ListAttachedGroupPolicies.hs --- a/gen/Network/AWS/IAM/ListAttachedGroupPolicies.hs +++ b/gen/Network/AWS/IAM/ListAttachedGroupPolicies.hs @@ -40,8 +40,8 @@ , ListAttachedGroupPolicies -- * Request Lenses , lagpPathPrefix - , lagpMaxItems , lagpMarker + , lagpMaxItems , lagpGroupName -- * Destructuring the Response @@ -51,7 +51,7 @@ , lagprsAttachedPolicies , lagprsMarker , lagprsIsTruncated - , lagprsStatus + , lagprsResponseStatus ) where import Network.AWS.IAM.Types @@ -63,8 +63,8 @@ -- | /See:/ 'listAttachedGroupPolicies' smart constructor. data ListAttachedGroupPolicies = ListAttachedGroupPolicies' { _lagpPathPrefix :: !(Maybe Text) - , _lagpMaxItems :: !(Maybe Nat) , _lagpMarker :: !(Maybe Text) + , _lagpMaxItems :: !(Maybe Nat) , _lagpGroupName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -74,10 +74,10 @@ -- -- * 'lagpPathPrefix' -- --- * 'lagpMaxItems' --- -- * 'lagpMarker' -- +-- * 'lagpMaxItems' +-- -- * 'lagpGroupName' listAttachedGroupPolicies :: Text -- ^ 'lagpGroupName' @@ -85,8 +85,8 @@ listAttachedGroupPolicies pGroupName_ = ListAttachedGroupPolicies' { _lagpPathPrefix = Nothing - , _lagpMaxItems = Nothing , _lagpMarker = Nothing + , _lagpMaxItems = Nothing , _lagpGroupName = pGroupName_ } @@ -96,6 +96,12 @@ lagpPathPrefix :: Lens' ListAttachedGroupPolicies (Maybe Text) lagpPathPrefix = lens _lagpPathPrefix (\ s a -> s{_lagpPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lagpMarker :: Lens' ListAttachedGroupPolicies (Maybe Text) +lagpMarker = lens _lagpMarker (\ s a -> s{_lagpMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -105,12 +111,6 @@ lagpMaxItems :: Lens' ListAttachedGroupPolicies (Maybe Natural) lagpMaxItems = lens _lagpMaxItems (\ s a -> s{_lagpMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lagpMarker :: Lens' ListAttachedGroupPolicies (Maybe Text) -lagpMarker = lens _lagpMarker (\ s a -> s{_lagpMarker = a}); - -- | The name (friendly name, not ARN) of the group to list attached policies -- for. lagpGroupName :: Lens' ListAttachedGroupPolicies Text @@ -143,7 +143,7 @@ ("ListAttachedGroupPolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _lagpPathPrefix, - "MaxItems" =: _lagpMaxItems, "Marker" =: _lagpMarker, + "Marker" =: _lagpMarker, "MaxItems" =: _lagpMaxItems, "GroupName" =: _lagpGroupName] -- | Contains the response to a successful ListAttachedGroupPolicies request. @@ -153,7 +153,7 @@ { _lagprsAttachedPolicies :: !(Maybe [AttachedPolicy]) , _lagprsMarker :: !(Maybe Text) , _lagprsIsTruncated :: !(Maybe Bool) - , _lagprsStatus :: !Int + , _lagprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListAttachedGroupPoliciesResponse' with the minimum fields required to make a request. @@ -166,16 +166,16 @@ -- -- * 'lagprsIsTruncated' -- --- * 'lagprsStatus' +-- * 'lagprsResponseStatus' listAttachedGroupPoliciesResponse - :: Int -- ^ 'lagprsStatus' + :: Int -- ^ 'lagprsResponseStatus' -> ListAttachedGroupPoliciesResponse -listAttachedGroupPoliciesResponse pStatus_ = +listAttachedGroupPoliciesResponse pResponseStatus_ = ListAttachedGroupPoliciesResponse' { _lagprsAttachedPolicies = Nothing , _lagprsMarker = Nothing , _lagprsIsTruncated = Nothing - , _lagprsStatus = pStatus_ + , _lagprsResponseStatus = pResponseStatus_ } -- | A list of the attached policies. @@ -195,5 +195,5 @@ lagprsIsTruncated = lens _lagprsIsTruncated (\ s a -> s{_lagprsIsTruncated = a}); -- | The response status code. -lagprsStatus :: Lens' ListAttachedGroupPoliciesResponse Int -lagprsStatus = lens _lagprsStatus (\ s a -> s{_lagprsStatus = a}); +lagprsResponseStatus :: Lens' ListAttachedGroupPoliciesResponse Int +lagprsResponseStatus = lens _lagprsResponseStatus (\ s a -> s{_lagprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListAttachedRolePolicies.hs b/gen/Network/AWS/IAM/ListAttachedRolePolicies.hs --- a/gen/Network/AWS/IAM/ListAttachedRolePolicies.hs +++ b/gen/Network/AWS/IAM/ListAttachedRolePolicies.hs @@ -40,8 +40,8 @@ , ListAttachedRolePolicies -- * Request Lenses , larpPathPrefix - , larpMaxItems , larpMarker + , larpMaxItems , larpRoleName -- * Destructuring the Response @@ -51,7 +51,7 @@ , larprsAttachedPolicies , larprsMarker , larprsIsTruncated - , larprsStatus + , larprsResponseStatus ) where import Network.AWS.IAM.Types @@ -63,8 +63,8 @@ -- | /See:/ 'listAttachedRolePolicies' smart constructor. data ListAttachedRolePolicies = ListAttachedRolePolicies' { _larpPathPrefix :: !(Maybe Text) - , _larpMaxItems :: !(Maybe Nat) , _larpMarker :: !(Maybe Text) + , _larpMaxItems :: !(Maybe Nat) , _larpRoleName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -74,10 +74,10 @@ -- -- * 'larpPathPrefix' -- --- * 'larpMaxItems' --- -- * 'larpMarker' -- +-- * 'larpMaxItems' +-- -- * 'larpRoleName' listAttachedRolePolicies :: Text -- ^ 'larpRoleName' @@ -85,8 +85,8 @@ listAttachedRolePolicies pRoleName_ = ListAttachedRolePolicies' { _larpPathPrefix = Nothing - , _larpMaxItems = Nothing , _larpMarker = Nothing + , _larpMaxItems = Nothing , _larpRoleName = pRoleName_ } @@ -96,6 +96,12 @@ larpPathPrefix :: Lens' ListAttachedRolePolicies (Maybe Text) larpPathPrefix = lens _larpPathPrefix (\ s a -> s{_larpPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +larpMarker :: Lens' ListAttachedRolePolicies (Maybe Text) +larpMarker = lens _larpMarker (\ s a -> s{_larpMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -105,12 +111,6 @@ larpMaxItems :: Lens' ListAttachedRolePolicies (Maybe Natural) larpMaxItems = lens _larpMaxItems (\ s a -> s{_larpMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -larpMarker :: Lens' ListAttachedRolePolicies (Maybe Text) -larpMarker = lens _larpMarker (\ s a -> s{_larpMarker = a}); - -- | The name (friendly name, not ARN) of the role to list attached policies -- for. larpRoleName :: Lens' ListAttachedRolePolicies Text @@ -143,7 +143,7 @@ ("ListAttachedRolePolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _larpPathPrefix, - "MaxItems" =: _larpMaxItems, "Marker" =: _larpMarker, + "Marker" =: _larpMarker, "MaxItems" =: _larpMaxItems, "RoleName" =: _larpRoleName] -- | Contains the response to a successful ListAttachedRolePolicies request. @@ -153,7 +153,7 @@ { _larprsAttachedPolicies :: !(Maybe [AttachedPolicy]) , _larprsMarker :: !(Maybe Text) , _larprsIsTruncated :: !(Maybe Bool) - , _larprsStatus :: !Int + , _larprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListAttachedRolePoliciesResponse' with the minimum fields required to make a request. @@ -166,16 +166,16 @@ -- -- * 'larprsIsTruncated' -- --- * 'larprsStatus' +-- * 'larprsResponseStatus' listAttachedRolePoliciesResponse - :: Int -- ^ 'larprsStatus' + :: Int -- ^ 'larprsResponseStatus' -> ListAttachedRolePoliciesResponse -listAttachedRolePoliciesResponse pStatus_ = +listAttachedRolePoliciesResponse pResponseStatus_ = ListAttachedRolePoliciesResponse' { _larprsAttachedPolicies = Nothing , _larprsMarker = Nothing , _larprsIsTruncated = Nothing - , _larprsStatus = pStatus_ + , _larprsResponseStatus = pResponseStatus_ } -- | A list of the attached policies. @@ -195,5 +195,5 @@ larprsIsTruncated = lens _larprsIsTruncated (\ s a -> s{_larprsIsTruncated = a}); -- | The response status code. -larprsStatus :: Lens' ListAttachedRolePoliciesResponse Int -larprsStatus = lens _larprsStatus (\ s a -> s{_larprsStatus = a}); +larprsResponseStatus :: Lens' ListAttachedRolePoliciesResponse Int +larprsResponseStatus = lens _larprsResponseStatus (\ s a -> s{_larprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListAttachedUserPolicies.hs b/gen/Network/AWS/IAM/ListAttachedUserPolicies.hs --- a/gen/Network/AWS/IAM/ListAttachedUserPolicies.hs +++ b/gen/Network/AWS/IAM/ListAttachedUserPolicies.hs @@ -40,8 +40,8 @@ , ListAttachedUserPolicies -- * Request Lenses , laupPathPrefix - , laupMaxItems , laupMarker + , laupMaxItems , laupUserName -- * Destructuring the Response @@ -51,7 +51,7 @@ , lauprsAttachedPolicies , lauprsMarker , lauprsIsTruncated - , lauprsStatus + , lauprsResponseStatus ) where import Network.AWS.IAM.Types @@ -63,8 +63,8 @@ -- | /See:/ 'listAttachedUserPolicies' smart constructor. data ListAttachedUserPolicies = ListAttachedUserPolicies' { _laupPathPrefix :: !(Maybe Text) - , _laupMaxItems :: !(Maybe Nat) , _laupMarker :: !(Maybe Text) + , _laupMaxItems :: !(Maybe Nat) , _laupUserName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -74,10 +74,10 @@ -- -- * 'laupPathPrefix' -- --- * 'laupMaxItems' --- -- * 'laupMarker' -- +-- * 'laupMaxItems' +-- -- * 'laupUserName' listAttachedUserPolicies :: Text -- ^ 'laupUserName' @@ -85,8 +85,8 @@ listAttachedUserPolicies pUserName_ = ListAttachedUserPolicies' { _laupPathPrefix = Nothing - , _laupMaxItems = Nothing , _laupMarker = Nothing + , _laupMaxItems = Nothing , _laupUserName = pUserName_ } @@ -96,6 +96,12 @@ laupPathPrefix :: Lens' ListAttachedUserPolicies (Maybe Text) laupPathPrefix = lens _laupPathPrefix (\ s a -> s{_laupPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +laupMarker :: Lens' ListAttachedUserPolicies (Maybe Text) +laupMarker = lens _laupMarker (\ s a -> s{_laupMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -105,12 +111,6 @@ laupMaxItems :: Lens' ListAttachedUserPolicies (Maybe Natural) laupMaxItems = lens _laupMaxItems (\ s a -> s{_laupMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -laupMarker :: Lens' ListAttachedUserPolicies (Maybe Text) -laupMarker = lens _laupMarker (\ s a -> s{_laupMarker = a}); - -- | The name (friendly name, not ARN) of the user to list attached policies -- for. laupUserName :: Lens' ListAttachedUserPolicies Text @@ -143,7 +143,7 @@ ("ListAttachedUserPolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _laupPathPrefix, - "MaxItems" =: _laupMaxItems, "Marker" =: _laupMarker, + "Marker" =: _laupMarker, "MaxItems" =: _laupMaxItems, "UserName" =: _laupUserName] -- | Contains the response to a successful ListAttachedUserPolicies request. @@ -153,7 +153,7 @@ { _lauprsAttachedPolicies :: !(Maybe [AttachedPolicy]) , _lauprsMarker :: !(Maybe Text) , _lauprsIsTruncated :: !(Maybe Bool) - , _lauprsStatus :: !Int + , _lauprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListAttachedUserPoliciesResponse' with the minimum fields required to make a request. @@ -166,16 +166,16 @@ -- -- * 'lauprsIsTruncated' -- --- * 'lauprsStatus' +-- * 'lauprsResponseStatus' listAttachedUserPoliciesResponse - :: Int -- ^ 'lauprsStatus' + :: Int -- ^ 'lauprsResponseStatus' -> ListAttachedUserPoliciesResponse -listAttachedUserPoliciesResponse pStatus_ = +listAttachedUserPoliciesResponse pResponseStatus_ = ListAttachedUserPoliciesResponse' { _lauprsAttachedPolicies = Nothing , _lauprsMarker = Nothing , _lauprsIsTruncated = Nothing - , _lauprsStatus = pStatus_ + , _lauprsResponseStatus = pResponseStatus_ } -- | A list of the attached policies. @@ -195,5 +195,5 @@ lauprsIsTruncated = lens _lauprsIsTruncated (\ s a -> s{_lauprsIsTruncated = a}); -- | The response status code. -lauprsStatus :: Lens' ListAttachedUserPoliciesResponse Int -lauprsStatus = lens _lauprsStatus (\ s a -> s{_lauprsStatus = a}); +lauprsResponseStatus :: Lens' ListAttachedUserPoliciesResponse Int +lauprsResponseStatus = lens _lauprsResponseStatus (\ s a -> s{_lauprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListEntitiesForPolicy.hs b/gen/Network/AWS/IAM/ListEntitiesForPolicy.hs --- a/gen/Network/AWS/IAM/ListEntitiesForPolicy.hs +++ b/gen/Network/AWS/IAM/ListEntitiesForPolicy.hs @@ -38,8 +38,8 @@ -- * Request Lenses , lefpPathPrefix , lefpEntityFilter - , lefpMaxItems , lefpMarker + , lefpMaxItems , lefpPolicyARN -- * Destructuring the Response @@ -48,10 +48,10 @@ -- * Response Lenses , lefprsPolicyGroups , lefprsPolicyRoles - , lefprsPolicyUsers , lefprsMarker + , lefprsPolicyUsers , lefprsIsTruncated - , lefprsStatus + , lefprsResponseStatus ) where import Network.AWS.IAM.Types @@ -64,8 +64,8 @@ data ListEntitiesForPolicy = ListEntitiesForPolicy' { _lefpPathPrefix :: !(Maybe Text) , _lefpEntityFilter :: !(Maybe EntityType) - , _lefpMaxItems :: !(Maybe Nat) , _lefpMarker :: !(Maybe Text) + , _lefpMaxItems :: !(Maybe Nat) , _lefpPolicyARN :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -77,10 +77,10 @@ -- -- * 'lefpEntityFilter' -- --- * 'lefpMaxItems' --- -- * 'lefpMarker' -- +-- * 'lefpMaxItems' +-- -- * 'lefpPolicyARN' listEntitiesForPolicy :: Text -- ^ 'lefpPolicyARN' @@ -89,8 +89,8 @@ ListEntitiesForPolicy' { _lefpPathPrefix = Nothing , _lefpEntityFilter = Nothing - , _lefpMaxItems = Nothing , _lefpMarker = Nothing + , _lefpMaxItems = Nothing , _lefpPolicyARN = pPolicyARN_ } @@ -109,6 +109,12 @@ lefpEntityFilter :: Lens' ListEntitiesForPolicy (Maybe EntityType) lefpEntityFilter = lens _lefpEntityFilter (\ s a -> s{_lefpEntityFilter = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lefpMarker :: Lens' ListEntitiesForPolicy (Maybe Text) +lefpMarker = lens _lefpMarker (\ s a -> s{_lefpMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -118,12 +124,6 @@ lefpMaxItems :: Lens' ListEntitiesForPolicy (Maybe Natural) lefpMaxItems = lens _lefpMaxItems (\ s a -> s{_lefpMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lefpMarker :: Lens' ListEntitiesForPolicy (Maybe Text) -lefpMarker = lens _lefpMarker (\ s a -> s{_lefpMarker = a}); - -- | Undocumented member. lefpPolicyARN :: Lens' ListEntitiesForPolicy Text lefpPolicyARN = lens _lefpPolicyARN (\ s a -> s{_lefpPolicyARN = a}); @@ -141,10 +141,10 @@ <*> (x .@? "PolicyRoles" .!@ mempty >>= may (parseXMLList "member")) + <*> (x .@? "Marker") <*> (x .@? "PolicyUsers" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "Marker") <*> (x .@? "IsTruncated") <*> (pure (fromEnum s))) @@ -161,19 +161,19 @@ "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _lefpPathPrefix, "EntityFilter" =: _lefpEntityFilter, - "MaxItems" =: _lefpMaxItems, "Marker" =: _lefpMarker, + "Marker" =: _lefpMarker, "MaxItems" =: _lefpMaxItems, "PolicyArn" =: _lefpPolicyARN] -- | Contains the response to a successful ListEntitiesForPolicy request. -- -- /See:/ 'listEntitiesForPolicyResponse' smart constructor. data ListEntitiesForPolicyResponse = ListEntitiesForPolicyResponse' - { _lefprsPolicyGroups :: !(Maybe [PolicyGroup]) - , _lefprsPolicyRoles :: !(Maybe [PolicyRole]) - , _lefprsPolicyUsers :: !(Maybe [PolicyUser]) - , _lefprsMarker :: !(Maybe Text) - , _lefprsIsTruncated :: !(Maybe Bool) - , _lefprsStatus :: !Int + { _lefprsPolicyGroups :: !(Maybe [PolicyGroup]) + , _lefprsPolicyRoles :: !(Maybe [PolicyRole]) + , _lefprsMarker :: !(Maybe Text) + , _lefprsPolicyUsers :: !(Maybe [PolicyUser]) + , _lefprsIsTruncated :: !(Maybe Bool) + , _lefprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListEntitiesForPolicyResponse' with the minimum fields required to make a request. @@ -184,24 +184,24 @@ -- -- * 'lefprsPolicyRoles' -- --- * 'lefprsPolicyUsers' --- -- * 'lefprsMarker' -- +-- * 'lefprsPolicyUsers' +-- -- * 'lefprsIsTruncated' -- --- * 'lefprsStatus' +-- * 'lefprsResponseStatus' listEntitiesForPolicyResponse - :: Int -- ^ 'lefprsStatus' + :: Int -- ^ 'lefprsResponseStatus' -> ListEntitiesForPolicyResponse -listEntitiesForPolicyResponse pStatus_ = +listEntitiesForPolicyResponse pResponseStatus_ = ListEntitiesForPolicyResponse' { _lefprsPolicyGroups = Nothing , _lefprsPolicyRoles = Nothing - , _lefprsPolicyUsers = Nothing , _lefprsMarker = Nothing + , _lefprsPolicyUsers = Nothing , _lefprsIsTruncated = Nothing - , _lefprsStatus = pStatus_ + , _lefprsResponseStatus = pResponseStatus_ } -- | A list of groups that the policy is attached to. @@ -212,16 +212,16 @@ lefprsPolicyRoles :: Lens' ListEntitiesForPolicyResponse [PolicyRole] lefprsPolicyRoles = lens _lefprsPolicyRoles (\ s a -> s{_lefprsPolicyRoles = a}) . _Default . _Coerce; --- | A list of users that the policy is attached to. -lefprsPolicyUsers :: Lens' ListEntitiesForPolicyResponse [PolicyUser] -lefprsPolicyUsers = lens _lefprsPolicyUsers (\ s a -> s{_lefprsPolicyUsers = a}) . _Default . _Coerce; - -- | When 'IsTruncated' is 'true', this element is present and contains the -- value to use for the 'Marker' parameter in a subsequent pagination -- request. lefprsMarker :: Lens' ListEntitiesForPolicyResponse (Maybe Text) lefprsMarker = lens _lefprsMarker (\ s a -> s{_lefprsMarker = a}); +-- | A list of users that the policy is attached to. +lefprsPolicyUsers :: Lens' ListEntitiesForPolicyResponse [PolicyUser] +lefprsPolicyUsers = lens _lefprsPolicyUsers (\ s a -> s{_lefprsPolicyUsers = a}) . _Default . _Coerce; + -- | A flag that indicates whether there are more items to return. If your -- results were truncated, you can make a subsequent pagination request -- using the 'Marker' request parameter to retrieve more items. @@ -229,5 +229,5 @@ lefprsIsTruncated = lens _lefprsIsTruncated (\ s a -> s{_lefprsIsTruncated = a}); -- | The response status code. -lefprsStatus :: Lens' ListEntitiesForPolicyResponse Int -lefprsStatus = lens _lefprsStatus (\ s a -> s{_lefprsStatus = a}); +lefprsResponseStatus :: Lens' ListEntitiesForPolicyResponse Int +lefprsResponseStatus = lens _lefprsResponseStatus (\ s a -> s{_lefprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListGroupPolicies.hs b/gen/Network/AWS/IAM/ListGroupPolicies.hs --- a/gen/Network/AWS/IAM/ListGroupPolicies.hs +++ b/gen/Network/AWS/IAM/ListGroupPolicies.hs @@ -40,8 +40,8 @@ listGroupPolicies , ListGroupPolicies -- * Request Lenses - , lgpMaxItems , lgpMarker + , lgpMaxItems , lgpGroupName -- * Destructuring the Response @@ -50,7 +50,7 @@ -- * Response Lenses , lgprsMarker , lgprsIsTruncated - , lgprsStatus + , lgprsResponseStatus , lgprsPolicyNames ) where @@ -63,8 +63,8 @@ -- | /See:/ 'listGroupPolicies' smart constructor. data ListGroupPolicies = ListGroupPolicies' - { _lgpMaxItems :: !(Maybe Nat) - , _lgpMarker :: !(Maybe Text) + { _lgpMarker :: !(Maybe Text) + , _lgpMaxItems :: !(Maybe Nat) , _lgpGroupName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -72,21 +72,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lgpMaxItems' --- -- * 'lgpMarker' -- +-- * 'lgpMaxItems' +-- -- * 'lgpGroupName' listGroupPolicies :: Text -- ^ 'lgpGroupName' -> ListGroupPolicies listGroupPolicies pGroupName_ = ListGroupPolicies' - { _lgpMaxItems = Nothing - , _lgpMarker = Nothing + { _lgpMarker = Nothing + , _lgpMaxItems = Nothing , _lgpGroupName = pGroupName_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lgpMarker :: Lens' ListGroupPolicies (Maybe Text) +lgpMarker = lens _lgpMarker (\ s a -> s{_lgpMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -96,20 +102,14 @@ lgpMaxItems :: Lens' ListGroupPolicies (Maybe Natural) lgpMaxItems = lens _lgpMaxItems (\ s a -> s{_lgpMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lgpMarker :: Lens' ListGroupPolicies (Maybe Text) -lgpMarker = lens _lgpMarker (\ s a -> s{_lgpMarker = a}); - -- | The name of the group to list policies for. lgpGroupName :: Lens' ListGroupPolicies Text lgpGroupName = lens _lgpGroupName (\ s a -> s{_lgpGroupName = a}); instance AWSPager ListGroupPolicies where page rq rs - | stop (rs ^. lgprsIsTruncated) = Nothing - | isNothing (rs ^. lgprsMarker) = Nothing + | stop (rs ^. lgprsMarker) = Nothing + | stop (rs ^. lgprsPolicyNames) = Nothing | otherwise = Just $ rq & lgpMarker .~ rs ^. lgprsMarker @@ -137,17 +137,17 @@ = mconcat ["Action" =: ("ListGroupPolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _lgpMaxItems, "Marker" =: _lgpMarker, + "Marker" =: _lgpMarker, "MaxItems" =: _lgpMaxItems, "GroupName" =: _lgpGroupName] -- | Contains the response to a successful ListGroupPolicies request. -- -- /See:/ 'listGroupPoliciesResponse' smart constructor. data ListGroupPoliciesResponse = ListGroupPoliciesResponse' - { _lgprsMarker :: !(Maybe Text) - , _lgprsIsTruncated :: !(Maybe Bool) - , _lgprsStatus :: !Int - , _lgprsPolicyNames :: ![Text] + { _lgprsMarker :: !(Maybe Text) + , _lgprsIsTruncated :: !(Maybe Bool) + , _lgprsResponseStatus :: !Int + , _lgprsPolicyNames :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListGroupPoliciesResponse' with the minimum fields required to make a request. @@ -158,17 +158,17 @@ -- -- * 'lgprsIsTruncated' -- --- * 'lgprsStatus' +-- * 'lgprsResponseStatus' -- -- * 'lgprsPolicyNames' listGroupPoliciesResponse - :: Int -- ^ 'lgprsStatus' + :: Int -- ^ 'lgprsResponseStatus' -> ListGroupPoliciesResponse -listGroupPoliciesResponse pStatus_ = +listGroupPoliciesResponse pResponseStatus_ = ListGroupPoliciesResponse' { _lgprsMarker = Nothing , _lgprsIsTruncated = Nothing - , _lgprsStatus = pStatus_ + , _lgprsResponseStatus = pResponseStatus_ , _lgprsPolicyNames = mempty } @@ -185,8 +185,8 @@ lgprsIsTruncated = lens _lgprsIsTruncated (\ s a -> s{_lgprsIsTruncated = a}); -- | The response status code. -lgprsStatus :: Lens' ListGroupPoliciesResponse Int -lgprsStatus = lens _lgprsStatus (\ s a -> s{_lgprsStatus = a}); +lgprsResponseStatus :: Lens' ListGroupPoliciesResponse Int +lgprsResponseStatus = lens _lgprsResponseStatus (\ s a -> s{_lgprsResponseStatus = a}); -- | A list of policy names. lgprsPolicyNames :: Lens' ListGroupPoliciesResponse [Text] diff --git a/gen/Network/AWS/IAM/ListGroups.hs b/gen/Network/AWS/IAM/ListGroups.hs --- a/gen/Network/AWS/IAM/ListGroups.hs +++ b/gen/Network/AWS/IAM/ListGroups.hs @@ -33,8 +33,8 @@ , ListGroups -- * Request Lenses , lgPathPrefix - , lgMaxItems , lgMarker + , lgMaxItems -- * Destructuring the Response , listGroupsResponse @@ -42,7 +42,7 @@ -- * Response Lenses , lgrsMarker , lgrsIsTruncated - , lgrsStatus + , lgrsResponseStatus , lgrsGroups ) where @@ -56,8 +56,8 @@ -- | /See:/ 'listGroups' smart constructor. data ListGroups = ListGroups' { _lgPathPrefix :: !(Maybe Text) - , _lgMaxItems :: !(Maybe Nat) , _lgMarker :: !(Maybe Text) + , _lgMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListGroups' with the minimum fields required to make a request. @@ -66,16 +66,16 @@ -- -- * 'lgPathPrefix' -- --- * 'lgMaxItems' --- -- * 'lgMarker' +-- +-- * 'lgMaxItems' listGroups :: ListGroups listGroups = ListGroups' { _lgPathPrefix = Nothing - , _lgMaxItems = Nothing , _lgMarker = Nothing + , _lgMaxItems = Nothing } -- | The path prefix for filtering the results. For example, the prefix @@ -87,6 +87,12 @@ lgPathPrefix :: Lens' ListGroups (Maybe Text) lgPathPrefix = lens _lgPathPrefix (\ s a -> s{_lgPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lgMarker :: Lens' ListGroups (Maybe Text) +lgMarker = lens _lgMarker (\ s a -> s{_lgMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -96,16 +102,10 @@ lgMaxItems :: Lens' ListGroups (Maybe Natural) lgMaxItems = lens _lgMaxItems (\ s a -> s{_lgMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lgMarker :: Lens' ListGroups (Maybe Text) -lgMarker = lens _lgMarker (\ s a -> s{_lgMarker = a}); - instance AWSPager ListGroups where page rq rs - | stop (rs ^. lgrsIsTruncated) = Nothing - | isNothing (rs ^. lgrsMarker) = Nothing + | stop (rs ^. lgrsMarker) = Nothing + | stop (rs ^. lgrsGroups) = Nothing | otherwise = Just $ rq & lgMarker .~ rs ^. lgrsMarker @@ -133,17 +133,17 @@ = mconcat ["Action" =: ("ListGroups" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "PathPrefix" =: _lgPathPrefix, - "MaxItems" =: _lgMaxItems, "Marker" =: _lgMarker] + "PathPrefix" =: _lgPathPrefix, "Marker" =: _lgMarker, + "MaxItems" =: _lgMaxItems] -- | Contains the response to a successful ListGroups request. -- -- /See:/ 'listGroupsResponse' smart constructor. data ListGroupsResponse = ListGroupsResponse' - { _lgrsMarker :: !(Maybe Text) - , _lgrsIsTruncated :: !(Maybe Bool) - , _lgrsStatus :: !Int - , _lgrsGroups :: ![Group] + { _lgrsMarker :: !(Maybe Text) + , _lgrsIsTruncated :: !(Maybe Bool) + , _lgrsResponseStatus :: !Int + , _lgrsGroups :: ![Group] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListGroupsResponse' with the minimum fields required to make a request. @@ -154,17 +154,17 @@ -- -- * 'lgrsIsTruncated' -- --- * 'lgrsStatus' +-- * 'lgrsResponseStatus' -- -- * 'lgrsGroups' listGroupsResponse - :: Int -- ^ 'lgrsStatus' + :: Int -- ^ 'lgrsResponseStatus' -> ListGroupsResponse -listGroupsResponse pStatus_ = +listGroupsResponse pResponseStatus_ = ListGroupsResponse' { _lgrsMarker = Nothing , _lgrsIsTruncated = Nothing - , _lgrsStatus = pStatus_ + , _lgrsResponseStatus = pResponseStatus_ , _lgrsGroups = mempty } @@ -181,8 +181,8 @@ lgrsIsTruncated = lens _lgrsIsTruncated (\ s a -> s{_lgrsIsTruncated = a}); -- | The response status code. -lgrsStatus :: Lens' ListGroupsResponse Int -lgrsStatus = lens _lgrsStatus (\ s a -> s{_lgrsStatus = a}); +lgrsResponseStatus :: Lens' ListGroupsResponse Int +lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a}); -- | A list of groups. lgrsGroups :: Lens' ListGroupsResponse [Group] diff --git a/gen/Network/AWS/IAM/ListGroupsForUser.hs b/gen/Network/AWS/IAM/ListGroupsForUser.hs --- a/gen/Network/AWS/IAM/ListGroupsForUser.hs +++ b/gen/Network/AWS/IAM/ListGroupsForUser.hs @@ -32,8 +32,8 @@ listGroupsForUser , ListGroupsForUser -- * Request Lenses - , lgfuMaxItems , lgfuMarker + , lgfuMaxItems , lgfuUserName -- * Destructuring the Response @@ -42,7 +42,7 @@ -- * Response Lenses , lgfursMarker , lgfursIsTruncated - , lgfursStatus + , lgfursResponseStatus , lgfursGroups ) where @@ -55,8 +55,8 @@ -- | /See:/ 'listGroupsForUser' smart constructor. data ListGroupsForUser = ListGroupsForUser' - { _lgfuMaxItems :: !(Maybe Nat) - , _lgfuMarker :: !(Maybe Text) + { _lgfuMarker :: !(Maybe Text) + , _lgfuMaxItems :: !(Maybe Nat) , _lgfuUserName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -64,21 +64,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lgfuMaxItems' --- -- * 'lgfuMarker' -- +-- * 'lgfuMaxItems' +-- -- * 'lgfuUserName' listGroupsForUser :: Text -- ^ 'lgfuUserName' -> ListGroupsForUser listGroupsForUser pUserName_ = ListGroupsForUser' - { _lgfuMaxItems = Nothing - , _lgfuMarker = Nothing + { _lgfuMarker = Nothing + , _lgfuMaxItems = Nothing , _lgfuUserName = pUserName_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lgfuMarker :: Lens' ListGroupsForUser (Maybe Text) +lgfuMarker = lens _lgfuMarker (\ s a -> s{_lgfuMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -88,20 +94,14 @@ lgfuMaxItems :: Lens' ListGroupsForUser (Maybe Natural) lgfuMaxItems = lens _lgfuMaxItems (\ s a -> s{_lgfuMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lgfuMarker :: Lens' ListGroupsForUser (Maybe Text) -lgfuMarker = lens _lgfuMarker (\ s a -> s{_lgfuMarker = a}); - -- | The name of the user to list groups for. lgfuUserName :: Lens' ListGroupsForUser Text lgfuUserName = lens _lgfuUserName (\ s a -> s{_lgfuUserName = a}); instance AWSPager ListGroupsForUser where page rq rs - | stop (rs ^. lgfursIsTruncated) = Nothing - | isNothing (rs ^. lgfursMarker) = Nothing + | stop (rs ^. lgfursMarker) = Nothing + | stop (rs ^. lgfursGroups) = Nothing | otherwise = Just $ rq & lgfuMarker .~ rs ^. lgfursMarker @@ -129,17 +129,17 @@ = mconcat ["Action" =: ("ListGroupsForUser" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _lgfuMaxItems, "Marker" =: _lgfuMarker, + "Marker" =: _lgfuMarker, "MaxItems" =: _lgfuMaxItems, "UserName" =: _lgfuUserName] -- | Contains the response to a successful ListGroupsForUser request. -- -- /See:/ 'listGroupsForUserResponse' smart constructor. data ListGroupsForUserResponse = ListGroupsForUserResponse' - { _lgfursMarker :: !(Maybe Text) - , _lgfursIsTruncated :: !(Maybe Bool) - , _lgfursStatus :: !Int - , _lgfursGroups :: ![Group] + { _lgfursMarker :: !(Maybe Text) + , _lgfursIsTruncated :: !(Maybe Bool) + , _lgfursResponseStatus :: !Int + , _lgfursGroups :: ![Group] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListGroupsForUserResponse' with the minimum fields required to make a request. @@ -150,17 +150,17 @@ -- -- * 'lgfursIsTruncated' -- --- * 'lgfursStatus' +-- * 'lgfursResponseStatus' -- -- * 'lgfursGroups' listGroupsForUserResponse - :: Int -- ^ 'lgfursStatus' + :: Int -- ^ 'lgfursResponseStatus' -> ListGroupsForUserResponse -listGroupsForUserResponse pStatus_ = +listGroupsForUserResponse pResponseStatus_ = ListGroupsForUserResponse' { _lgfursMarker = Nothing , _lgfursIsTruncated = Nothing - , _lgfursStatus = pStatus_ + , _lgfursResponseStatus = pResponseStatus_ , _lgfursGroups = mempty } @@ -177,8 +177,8 @@ lgfursIsTruncated = lens _lgfursIsTruncated (\ s a -> s{_lgfursIsTruncated = a}); -- | The response status code. -lgfursStatus :: Lens' ListGroupsForUserResponse Int -lgfursStatus = lens _lgfursStatus (\ s a -> s{_lgfursStatus = a}); +lgfursResponseStatus :: Lens' ListGroupsForUserResponse Int +lgfursResponseStatus = lens _lgfursResponseStatus (\ s a -> s{_lgfursResponseStatus = a}); -- | A list of groups. lgfursGroups :: Lens' ListGroupsForUserResponse [Group] diff --git a/gen/Network/AWS/IAM/ListInstanceProfiles.hs b/gen/Network/AWS/IAM/ListInstanceProfiles.hs --- a/gen/Network/AWS/IAM/ListInstanceProfiles.hs +++ b/gen/Network/AWS/IAM/ListInstanceProfiles.hs @@ -36,8 +36,8 @@ , ListInstanceProfiles -- * Request Lenses , lipPathPrefix - , lipMaxItems , lipMarker + , lipMaxItems -- * Destructuring the Response , listInstanceProfilesResponse @@ -45,7 +45,7 @@ -- * Response Lenses , liprsMarker , liprsIsTruncated - , liprsStatus + , liprsResponseStatus , liprsInstanceProfiles ) where @@ -59,8 +59,8 @@ -- | /See:/ 'listInstanceProfiles' smart constructor. data ListInstanceProfiles = ListInstanceProfiles' { _lipPathPrefix :: !(Maybe Text) - , _lipMaxItems :: !(Maybe Nat) , _lipMarker :: !(Maybe Text) + , _lipMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListInstanceProfiles' with the minimum fields required to make a request. @@ -69,16 +69,16 @@ -- -- * 'lipPathPrefix' -- --- * 'lipMaxItems' --- -- * 'lipMarker' +-- +-- * 'lipMaxItems' listInstanceProfiles :: ListInstanceProfiles listInstanceProfiles = ListInstanceProfiles' { _lipPathPrefix = Nothing - , _lipMaxItems = Nothing , _lipMarker = Nothing + , _lipMaxItems = Nothing } -- | The path prefix for filtering the results. For example, the prefix @@ -90,6 +90,12 @@ lipPathPrefix :: Lens' ListInstanceProfiles (Maybe Text) lipPathPrefix = lens _lipPathPrefix (\ s a -> s{_lipPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lipMarker :: Lens' ListInstanceProfiles (Maybe Text) +lipMarker = lens _lipMarker (\ s a -> s{_lipMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -99,16 +105,10 @@ lipMaxItems :: Lens' ListInstanceProfiles (Maybe Natural) lipMaxItems = lens _lipMaxItems (\ s a -> s{_lipMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lipMarker :: Lens' ListInstanceProfiles (Maybe Text) -lipMarker = lens _lipMarker (\ s a -> s{_lipMarker = a}); - instance AWSPager ListInstanceProfiles where page rq rs - | stop (rs ^. liprsIsTruncated) = Nothing - | isNothing (rs ^. liprsMarker) = Nothing + | stop (rs ^. liprsMarker) = Nothing + | stop (rs ^. liprsInstanceProfiles) = Nothing | otherwise = Just $ rq & lipMarker .~ rs ^. liprsMarker @@ -138,7 +138,7 @@ ["Action" =: ("ListInstanceProfiles" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _lipPathPrefix, - "MaxItems" =: _lipMaxItems, "Marker" =: _lipMarker] + "Marker" =: _lipMarker, "MaxItems" =: _lipMaxItems] -- | Contains the response to a successful ListInstanceProfiles request. -- @@ -146,7 +146,7 @@ data ListInstanceProfilesResponse = ListInstanceProfilesResponse' { _liprsMarker :: !(Maybe Text) , _liprsIsTruncated :: !(Maybe Bool) - , _liprsStatus :: !Int + , _liprsResponseStatus :: !Int , _liprsInstanceProfiles :: ![InstanceProfile] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -158,17 +158,17 @@ -- -- * 'liprsIsTruncated' -- --- * 'liprsStatus' +-- * 'liprsResponseStatus' -- -- * 'liprsInstanceProfiles' listInstanceProfilesResponse - :: Int -- ^ 'liprsStatus' + :: Int -- ^ 'liprsResponseStatus' -> ListInstanceProfilesResponse -listInstanceProfilesResponse pStatus_ = +listInstanceProfilesResponse pResponseStatus_ = ListInstanceProfilesResponse' { _liprsMarker = Nothing , _liprsIsTruncated = Nothing - , _liprsStatus = pStatus_ + , _liprsResponseStatus = pResponseStatus_ , _liprsInstanceProfiles = mempty } @@ -185,8 +185,8 @@ liprsIsTruncated = lens _liprsIsTruncated (\ s a -> s{_liprsIsTruncated = a}); -- | The response status code. -liprsStatus :: Lens' ListInstanceProfilesResponse Int -liprsStatus = lens _liprsStatus (\ s a -> s{_liprsStatus = a}); +liprsResponseStatus :: Lens' ListInstanceProfilesResponse Int +liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a}); -- | A list of instance profiles. liprsInstanceProfiles :: Lens' ListInstanceProfilesResponse [InstanceProfile] diff --git a/gen/Network/AWS/IAM/ListInstanceProfilesForRole.hs b/gen/Network/AWS/IAM/ListInstanceProfilesForRole.hs --- a/gen/Network/AWS/IAM/ListInstanceProfilesForRole.hs +++ b/gen/Network/AWS/IAM/ListInstanceProfilesForRole.hs @@ -35,8 +35,8 @@ listInstanceProfilesForRole , ListInstanceProfilesForRole -- * Request Lenses - , lipfrMaxItems , lipfrMarker + , lipfrMaxItems , lipfrRoleName -- * Destructuring the Response @@ -45,7 +45,7 @@ -- * Response Lenses , lipfrrsMarker , lipfrrsIsTruncated - , lipfrrsStatus + , lipfrrsResponseStatus , lipfrrsInstanceProfiles ) where @@ -58,8 +58,8 @@ -- | /See:/ 'listInstanceProfilesForRole' smart constructor. data ListInstanceProfilesForRole = ListInstanceProfilesForRole' - { _lipfrMaxItems :: !(Maybe Nat) - , _lipfrMarker :: !(Maybe Text) + { _lipfrMarker :: !(Maybe Text) + , _lipfrMaxItems :: !(Maybe Nat) , _lipfrRoleName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -67,21 +67,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lipfrMaxItems' --- -- * 'lipfrMarker' -- +-- * 'lipfrMaxItems' +-- -- * 'lipfrRoleName' listInstanceProfilesForRole :: Text -- ^ 'lipfrRoleName' -> ListInstanceProfilesForRole listInstanceProfilesForRole pRoleName_ = ListInstanceProfilesForRole' - { _lipfrMaxItems = Nothing - , _lipfrMarker = Nothing + { _lipfrMarker = Nothing + , _lipfrMaxItems = Nothing , _lipfrRoleName = pRoleName_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lipfrMarker :: Lens' ListInstanceProfilesForRole (Maybe Text) +lipfrMarker = lens _lipfrMarker (\ s a -> s{_lipfrMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -91,20 +97,14 @@ lipfrMaxItems :: Lens' ListInstanceProfilesForRole (Maybe Natural) lipfrMaxItems = lens _lipfrMaxItems (\ s a -> s{_lipfrMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lipfrMarker :: Lens' ListInstanceProfilesForRole (Maybe Text) -lipfrMarker = lens _lipfrMarker (\ s a -> s{_lipfrMarker = a}); - -- | The name of the role to list instance profiles for. lipfrRoleName :: Lens' ListInstanceProfilesForRole Text lipfrRoleName = lens _lipfrRoleName (\ s a -> s{_lipfrRoleName = a}); instance AWSPager ListInstanceProfilesForRole where page rq rs - | stop (rs ^. lipfrrsIsTruncated) = Nothing - | isNothing (rs ^. lipfrrsMarker) = Nothing + | stop (rs ^. lipfrrsMarker) = Nothing + | stop (rs ^. lipfrrsInstanceProfiles) = Nothing | otherwise = Just $ rq & lipfrMarker .~ rs ^. lipfrrsMarker @@ -135,8 +135,8 @@ ["Action" =: ("ListInstanceProfilesForRole" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _lipfrMaxItems, "Marker" =: _lipfrMarker, + "MaxItems" =: _lipfrMaxItems, "RoleName" =: _lipfrRoleName] -- | Contains the response to a successful ListInstanceProfilesForRole @@ -146,7 +146,7 @@ data ListInstanceProfilesForRoleResponse = ListInstanceProfilesForRoleResponse' { _lipfrrsMarker :: !(Maybe Text) , _lipfrrsIsTruncated :: !(Maybe Bool) - , _lipfrrsStatus :: !Int + , _lipfrrsResponseStatus :: !Int , _lipfrrsInstanceProfiles :: ![InstanceProfile] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -158,17 +158,17 @@ -- -- * 'lipfrrsIsTruncated' -- --- * 'lipfrrsStatus' +-- * 'lipfrrsResponseStatus' -- -- * 'lipfrrsInstanceProfiles' listInstanceProfilesForRoleResponse - :: Int -- ^ 'lipfrrsStatus' + :: Int -- ^ 'lipfrrsResponseStatus' -> ListInstanceProfilesForRoleResponse -listInstanceProfilesForRoleResponse pStatus_ = +listInstanceProfilesForRoleResponse pResponseStatus_ = ListInstanceProfilesForRoleResponse' { _lipfrrsMarker = Nothing , _lipfrrsIsTruncated = Nothing - , _lipfrrsStatus = pStatus_ + , _lipfrrsResponseStatus = pResponseStatus_ , _lipfrrsInstanceProfiles = mempty } @@ -185,8 +185,8 @@ lipfrrsIsTruncated = lens _lipfrrsIsTruncated (\ s a -> s{_lipfrrsIsTruncated = a}); -- | The response status code. -lipfrrsStatus :: Lens' ListInstanceProfilesForRoleResponse Int -lipfrrsStatus = lens _lipfrrsStatus (\ s a -> s{_lipfrrsStatus = a}); +lipfrrsResponseStatus :: Lens' ListInstanceProfilesForRoleResponse Int +lipfrrsResponseStatus = lens _lipfrrsResponseStatus (\ s a -> s{_lipfrrsResponseStatus = a}); -- | A list of instance profiles. lipfrrsInstanceProfiles :: Lens' ListInstanceProfilesForRoleResponse [InstanceProfile] diff --git a/gen/Network/AWS/IAM/ListMFADevices.hs b/gen/Network/AWS/IAM/ListMFADevices.hs --- a/gen/Network/AWS/IAM/ListMFADevices.hs +++ b/gen/Network/AWS/IAM/ListMFADevices.hs @@ -36,8 +36,8 @@ , ListMFADevices -- * Request Lenses , lmdUserName - , lmdMaxItems , lmdMarker + , lmdMaxItems -- * Destructuring the Response , listMFADevicesResponse @@ -45,7 +45,7 @@ -- * Response Lenses , lmdrsMarker , lmdrsIsTruncated - , lmdrsStatus + , lmdrsResponseStatus , lmdrsMFADevices ) where @@ -59,8 +59,8 @@ -- | /See:/ 'listMFADevices' smart constructor. data ListMFADevices = ListMFADevices' { _lmdUserName :: !(Maybe Text) - , _lmdMaxItems :: !(Maybe Nat) , _lmdMarker :: !(Maybe Text) + , _lmdMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListMFADevices' with the minimum fields required to make a request. @@ -69,22 +69,28 @@ -- -- * 'lmdUserName' -- --- * 'lmdMaxItems' --- -- * 'lmdMarker' +-- +-- * 'lmdMaxItems' listMFADevices :: ListMFADevices listMFADevices = ListMFADevices' { _lmdUserName = Nothing - , _lmdMaxItems = Nothing , _lmdMarker = Nothing + , _lmdMaxItems = Nothing } -- | The name of the user whose MFA devices you want to list. lmdUserName :: Lens' ListMFADevices (Maybe Text) lmdUserName = lens _lmdUserName (\ s a -> s{_lmdUserName = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lmdMarker :: Lens' ListMFADevices (Maybe Text) +lmdMarker = lens _lmdMarker (\ s a -> s{_lmdMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -94,16 +100,10 @@ lmdMaxItems :: Lens' ListMFADevices (Maybe Natural) lmdMaxItems = lens _lmdMaxItems (\ s a -> s{_lmdMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lmdMarker :: Lens' ListMFADevices (Maybe Text) -lmdMarker = lens _lmdMarker (\ s a -> s{_lmdMarker = a}); - instance AWSPager ListMFADevices where page rq rs - | stop (rs ^. lmdrsIsTruncated) = Nothing - | isNothing (rs ^. lmdrsMarker) = Nothing + | stop (rs ^. lmdrsMarker) = Nothing + | stop (rs ^. lmdrsMFADevices) = Nothing | otherwise = Just $ rq & lmdMarker .~ rs ^. lmdrsMarker @@ -131,17 +131,17 @@ = mconcat ["Action" =: ("ListMFADevices" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "UserName" =: _lmdUserName, - "MaxItems" =: _lmdMaxItems, "Marker" =: _lmdMarker] + "UserName" =: _lmdUserName, "Marker" =: _lmdMarker, + "MaxItems" =: _lmdMaxItems] -- | Contains the response to a successful ListMFADevices request. -- -- /See:/ 'listMFADevicesResponse' smart constructor. data ListMFADevicesResponse = ListMFADevicesResponse' - { _lmdrsMarker :: !(Maybe Text) - , _lmdrsIsTruncated :: !(Maybe Bool) - , _lmdrsStatus :: !Int - , _lmdrsMFADevices :: ![MFADevice] + { _lmdrsMarker :: !(Maybe Text) + , _lmdrsIsTruncated :: !(Maybe Bool) + , _lmdrsResponseStatus :: !Int + , _lmdrsMFADevices :: ![MFADevice] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListMFADevicesResponse' with the minimum fields required to make a request. @@ -152,17 +152,17 @@ -- -- * 'lmdrsIsTruncated' -- --- * 'lmdrsStatus' +-- * 'lmdrsResponseStatus' -- -- * 'lmdrsMFADevices' listMFADevicesResponse - :: Int -- ^ 'lmdrsStatus' + :: Int -- ^ 'lmdrsResponseStatus' -> ListMFADevicesResponse -listMFADevicesResponse pStatus_ = +listMFADevicesResponse pResponseStatus_ = ListMFADevicesResponse' { _lmdrsMarker = Nothing , _lmdrsIsTruncated = Nothing - , _lmdrsStatus = pStatus_ + , _lmdrsResponseStatus = pResponseStatus_ , _lmdrsMFADevices = mempty } @@ -179,8 +179,8 @@ lmdrsIsTruncated = lens _lmdrsIsTruncated (\ s a -> s{_lmdrsIsTruncated = a}); -- | The response status code. -lmdrsStatus :: Lens' ListMFADevicesResponse Int -lmdrsStatus = lens _lmdrsStatus (\ s a -> s{_lmdrsStatus = a}); +lmdrsResponseStatus :: Lens' ListMFADevicesResponse Int +lmdrsResponseStatus = lens _lmdrsResponseStatus (\ s a -> s{_lmdrsResponseStatus = a}); -- | A list of MFA devices. lmdrsMFADevices :: Lens' ListMFADevicesResponse [MFADevice] diff --git a/gen/Network/AWS/IAM/ListOpenIdConnectProviders.hs b/gen/Network/AWS/IAM/ListOpenIdConnectProviders.hs --- a/gen/Network/AWS/IAM/ListOpenIdConnectProviders.hs +++ b/gen/Network/AWS/IAM/ListOpenIdConnectProviders.hs @@ -32,7 +32,7 @@ , ListOpenIdConnectProvidersResponse -- * Response Lenses , loicprsOpenIdConnectProviderList - , loicprsStatus + , loicprsResponseStatus ) where import Network.AWS.IAM.Types @@ -85,7 +85,7 @@ -- /See:/ 'listOpenIdConnectProvidersResponse' smart constructor. data ListOpenIdConnectProvidersResponse = ListOpenIdConnectProvidersResponse' { _loicprsOpenIdConnectProviderList :: !(Maybe [OpenIdConnectProviderListEntry]) - , _loicprsStatus :: !Int + , _loicprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListOpenIdConnectProvidersResponse' with the minimum fields required to make a request. @@ -94,14 +94,14 @@ -- -- * 'loicprsOpenIdConnectProviderList' -- --- * 'loicprsStatus' +-- * 'loicprsResponseStatus' listOpenIdConnectProvidersResponse - :: Int -- ^ 'loicprsStatus' + :: Int -- ^ 'loicprsResponseStatus' -> ListOpenIdConnectProvidersResponse -listOpenIdConnectProvidersResponse pStatus_ = +listOpenIdConnectProvidersResponse pResponseStatus_ = ListOpenIdConnectProvidersResponse' { _loicprsOpenIdConnectProviderList = Nothing - , _loicprsStatus = pStatus_ + , _loicprsResponseStatus = pResponseStatus_ } -- | The list of IAM OpenID Connect providers in the AWS account. @@ -109,5 +109,5 @@ loicprsOpenIdConnectProviderList = lens _loicprsOpenIdConnectProviderList (\ s a -> s{_loicprsOpenIdConnectProviderList = a}) . _Default . _Coerce; -- | The response status code. -loicprsStatus :: Lens' ListOpenIdConnectProvidersResponse Int -loicprsStatus = lens _loicprsStatus (\ s a -> s{_loicprsStatus = a}); +loicprsResponseStatus :: Lens' ListOpenIdConnectProvidersResponse Int +loicprsResponseStatus = lens _loicprsResponseStatus (\ s a -> s{_loicprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListPolicies.hs b/gen/Network/AWS/IAM/ListPolicies.hs --- a/gen/Network/AWS/IAM/ListPolicies.hs +++ b/gen/Network/AWS/IAM/ListPolicies.hs @@ -45,9 +45,9 @@ -- * Request Lenses , lpPathPrefix , lpOnlyAttached + , lpMarker , lpScope , lpMaxItems - , lpMarker -- * Destructuring the Response , listPoliciesResponse @@ -56,7 +56,7 @@ , lprsMarker , lprsIsTruncated , lprsPolicies - , lprsStatus + , lprsResponseStatus ) where import Network.AWS.IAM.Types @@ -70,9 +70,9 @@ data ListPolicies = ListPolicies' { _lpPathPrefix :: !(Maybe Text) , _lpOnlyAttached :: !(Maybe Bool) + , _lpMarker :: !(Maybe Text) , _lpScope :: !(Maybe PolicyScopeType) , _lpMaxItems :: !(Maybe Nat) - , _lpMarker :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListPolicies' with the minimum fields required to make a request. @@ -83,20 +83,20 @@ -- -- * 'lpOnlyAttached' -- +-- * 'lpMarker' +-- -- * 'lpScope' -- -- * 'lpMaxItems' --- --- * 'lpMarker' listPolicies :: ListPolicies listPolicies = ListPolicies' { _lpPathPrefix = Nothing , _lpOnlyAttached = Nothing + , _lpMarker = Nothing , _lpScope = Nothing , _lpMaxItems = Nothing - , _lpMarker = Nothing } -- | The path prefix for filtering the results. This parameter is optional. @@ -114,6 +114,12 @@ lpOnlyAttached :: Lens' ListPolicies (Maybe Bool) lpOnlyAttached = lens _lpOnlyAttached (\ s a -> s{_lpOnlyAttached = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lpMarker :: Lens' ListPolicies (Maybe Text) +lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a}); + -- | The scope to use for filtering the results. -- -- To list only AWS managed policies, set 'Scope' to 'AWS'. To list only @@ -134,16 +140,10 @@ lpMaxItems :: Lens' ListPolicies (Maybe Natural) lpMaxItems = lens _lpMaxItems (\ s a -> s{_lpMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lpMarker :: Lens' ListPolicies (Maybe Text) -lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a}); - instance AWSPager ListPolicies where page rq rs - | stop (rs ^. lprsIsTruncated) = Nothing - | isNothing (rs ^. lprsMarker) = Nothing + | stop (rs ^. lprsMarker) = Nothing + | stop (rs ^. lprsPolicies) = Nothing | otherwise = Just $ rq & lpMarker .~ rs ^. lprsMarker @@ -172,17 +172,17 @@ "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _lpPathPrefix, "OnlyAttached" =: _lpOnlyAttached, - "Scope" =: _lpScope, "MaxItems" =: _lpMaxItems, - "Marker" =: _lpMarker] + "Marker" =: _lpMarker, "Scope" =: _lpScope, + "MaxItems" =: _lpMaxItems] -- | Contains the response to a successful ListPolicies request. -- -- /See:/ 'listPoliciesResponse' smart constructor. data ListPoliciesResponse = ListPoliciesResponse' - { _lprsMarker :: !(Maybe Text) - , _lprsIsTruncated :: !(Maybe Bool) - , _lprsPolicies :: !(Maybe [Policy]) - , _lprsStatus :: !Int + { _lprsMarker :: !(Maybe Text) + , _lprsIsTruncated :: !(Maybe Bool) + , _lprsPolicies :: !(Maybe [Policy]) + , _lprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListPoliciesResponse' with the minimum fields required to make a request. @@ -195,16 +195,16 @@ -- -- * 'lprsPolicies' -- --- * 'lprsStatus' +-- * 'lprsResponseStatus' listPoliciesResponse - :: Int -- ^ 'lprsStatus' + :: Int -- ^ 'lprsResponseStatus' -> ListPoliciesResponse -listPoliciesResponse pStatus_ = +listPoliciesResponse pResponseStatus_ = ListPoliciesResponse' { _lprsMarker = Nothing , _lprsIsTruncated = Nothing , _lprsPolicies = Nothing - , _lprsStatus = pStatus_ + , _lprsResponseStatus = pResponseStatus_ } -- | When 'IsTruncated' is 'true', this element is present and contains the @@ -224,5 +224,5 @@ lprsPolicies = lens _lprsPolicies (\ s a -> s{_lprsPolicies = a}) . _Default . _Coerce; -- | The response status code. -lprsStatus :: Lens' ListPoliciesResponse Int -lprsStatus = lens _lprsStatus (\ s a -> s{_lprsStatus = a}); +lprsResponseStatus :: Lens' ListPoliciesResponse Int +lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListPolicyVersions.hs b/gen/Network/AWS/IAM/ListPolicyVersions.hs --- a/gen/Network/AWS/IAM/ListPolicyVersions.hs +++ b/gen/Network/AWS/IAM/ListPolicyVersions.hs @@ -32,8 +32,8 @@ listPolicyVersions , ListPolicyVersions -- * Request Lenses - , lpvMaxItems , lpvMarker + , lpvMaxItems , lpvPolicyARN -- * Destructuring the Response @@ -43,7 +43,7 @@ , lpvrsVersions , lpvrsMarker , lpvrsIsTruncated - , lpvrsStatus + , lpvrsResponseStatus ) where import Network.AWS.IAM.Types @@ -54,8 +54,8 @@ -- | /See:/ 'listPolicyVersions' smart constructor. data ListPolicyVersions = ListPolicyVersions' - { _lpvMaxItems :: !(Maybe Nat) - , _lpvMarker :: !(Maybe Text) + { _lpvMarker :: !(Maybe Text) + , _lpvMaxItems :: !(Maybe Nat) , _lpvPolicyARN :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -63,21 +63,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lpvMaxItems' --- -- * 'lpvMarker' -- +-- * 'lpvMaxItems' +-- -- * 'lpvPolicyARN' listPolicyVersions :: Text -- ^ 'lpvPolicyARN' -> ListPolicyVersions listPolicyVersions pPolicyARN_ = ListPolicyVersions' - { _lpvMaxItems = Nothing - , _lpvMarker = Nothing + { _lpvMarker = Nothing + , _lpvMaxItems = Nothing , _lpvPolicyARN = pPolicyARN_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lpvMarker :: Lens' ListPolicyVersions (Maybe Text) +lpvMarker = lens _lpvMarker (\ s a -> s{_lpvMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -87,12 +93,6 @@ lpvMaxItems :: Lens' ListPolicyVersions (Maybe Natural) lpvMaxItems = lens _lpvMaxItems (\ s a -> s{_lpvMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lpvMarker :: Lens' ListPolicyVersions (Maybe Text) -lpvMarker = lens _lpvMarker (\ s a -> s{_lpvMarker = a}); - -- | Undocumented member. lpvPolicyARN :: Lens' ListPolicyVersions Text lpvPolicyARN = lens _lpvPolicyARN (\ s a -> s{_lpvPolicyARN = a}); @@ -122,17 +122,17 @@ = mconcat ["Action" =: ("ListPolicyVersions" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _lpvMaxItems, "Marker" =: _lpvMarker, + "Marker" =: _lpvMarker, "MaxItems" =: _lpvMaxItems, "PolicyArn" =: _lpvPolicyARN] -- | Contains the response to a successful ListPolicyVersions request. -- -- /See:/ 'listPolicyVersionsResponse' smart constructor. data ListPolicyVersionsResponse = ListPolicyVersionsResponse' - { _lpvrsVersions :: !(Maybe [PolicyVersion]) - , _lpvrsMarker :: !(Maybe Text) - , _lpvrsIsTruncated :: !(Maybe Bool) - , _lpvrsStatus :: !Int + { _lpvrsVersions :: !(Maybe [PolicyVersion]) + , _lpvrsMarker :: !(Maybe Text) + , _lpvrsIsTruncated :: !(Maybe Bool) + , _lpvrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListPolicyVersionsResponse' with the minimum fields required to make a request. @@ -145,16 +145,16 @@ -- -- * 'lpvrsIsTruncated' -- --- * 'lpvrsStatus' +-- * 'lpvrsResponseStatus' listPolicyVersionsResponse - :: Int -- ^ 'lpvrsStatus' + :: Int -- ^ 'lpvrsResponseStatus' -> ListPolicyVersionsResponse -listPolicyVersionsResponse pStatus_ = +listPolicyVersionsResponse pResponseStatus_ = ListPolicyVersionsResponse' { _lpvrsVersions = Nothing , _lpvrsMarker = Nothing , _lpvrsIsTruncated = Nothing - , _lpvrsStatus = pStatus_ + , _lpvrsResponseStatus = pResponseStatus_ } -- | A list of policy versions. @@ -178,5 +178,5 @@ lpvrsIsTruncated = lens _lpvrsIsTruncated (\ s a -> s{_lpvrsIsTruncated = a}); -- | The response status code. -lpvrsStatus :: Lens' ListPolicyVersionsResponse Int -lpvrsStatus = lens _lpvrsStatus (\ s a -> s{_lpvrsStatus = a}); +lpvrsResponseStatus :: Lens' ListPolicyVersionsResponse Int +lpvrsResponseStatus = lens _lpvrsResponseStatus (\ s a -> s{_lpvrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListRolePolicies.hs b/gen/Network/AWS/IAM/ListRolePolicies.hs --- a/gen/Network/AWS/IAM/ListRolePolicies.hs +++ b/gen/Network/AWS/IAM/ListRolePolicies.hs @@ -40,8 +40,8 @@ listRolePolicies , ListRolePolicies -- * Request Lenses - , lrpMaxItems , lrpMarker + , lrpMaxItems , lrpRoleName -- * Destructuring the Response @@ -50,7 +50,7 @@ -- * Response Lenses , lrprsMarker , lrprsIsTruncated - , lrprsStatus + , lrprsResponseStatus , lrprsPolicyNames ) where @@ -63,8 +63,8 @@ -- | /See:/ 'listRolePolicies' smart constructor. data ListRolePolicies = ListRolePolicies' - { _lrpMaxItems :: !(Maybe Nat) - , _lrpMarker :: !(Maybe Text) + { _lrpMarker :: !(Maybe Text) + , _lrpMaxItems :: !(Maybe Nat) , _lrpRoleName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -72,21 +72,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lrpMaxItems' --- -- * 'lrpMarker' -- +-- * 'lrpMaxItems' +-- -- * 'lrpRoleName' listRolePolicies :: Text -- ^ 'lrpRoleName' -> ListRolePolicies listRolePolicies pRoleName_ = ListRolePolicies' - { _lrpMaxItems = Nothing - , _lrpMarker = Nothing + { _lrpMarker = Nothing + , _lrpMaxItems = Nothing , _lrpRoleName = pRoleName_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lrpMarker :: Lens' ListRolePolicies (Maybe Text) +lrpMarker = lens _lrpMarker (\ s a -> s{_lrpMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -96,20 +102,14 @@ lrpMaxItems :: Lens' ListRolePolicies (Maybe Natural) lrpMaxItems = lens _lrpMaxItems (\ s a -> s{_lrpMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lrpMarker :: Lens' ListRolePolicies (Maybe Text) -lrpMarker = lens _lrpMarker (\ s a -> s{_lrpMarker = a}); - -- | The name of the role to list policies for. lrpRoleName :: Lens' ListRolePolicies Text lrpRoleName = lens _lrpRoleName (\ s a -> s{_lrpRoleName = a}); instance AWSPager ListRolePolicies where page rq rs - | stop (rs ^. lrprsIsTruncated) = Nothing - | isNothing (rs ^. lrprsMarker) = Nothing + | stop (rs ^. lrprsMarker) = Nothing + | stop (rs ^. lrprsPolicyNames) = Nothing | otherwise = Just $ rq & lrpMarker .~ rs ^. lrprsMarker @@ -137,17 +137,17 @@ = mconcat ["Action" =: ("ListRolePolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _lrpMaxItems, "Marker" =: _lrpMarker, + "Marker" =: _lrpMarker, "MaxItems" =: _lrpMaxItems, "RoleName" =: _lrpRoleName] -- | Contains the response to a successful ListRolePolicies request. -- -- /See:/ 'listRolePoliciesResponse' smart constructor. data ListRolePoliciesResponse = ListRolePoliciesResponse' - { _lrprsMarker :: !(Maybe Text) - , _lrprsIsTruncated :: !(Maybe Bool) - , _lrprsStatus :: !Int - , _lrprsPolicyNames :: ![Text] + { _lrprsMarker :: !(Maybe Text) + , _lrprsIsTruncated :: !(Maybe Bool) + , _lrprsResponseStatus :: !Int + , _lrprsPolicyNames :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListRolePoliciesResponse' with the minimum fields required to make a request. @@ -158,17 +158,17 @@ -- -- * 'lrprsIsTruncated' -- --- * 'lrprsStatus' +-- * 'lrprsResponseStatus' -- -- * 'lrprsPolicyNames' listRolePoliciesResponse - :: Int -- ^ 'lrprsStatus' + :: Int -- ^ 'lrprsResponseStatus' -> ListRolePoliciesResponse -listRolePoliciesResponse pStatus_ = +listRolePoliciesResponse pResponseStatus_ = ListRolePoliciesResponse' { _lrprsMarker = Nothing , _lrprsIsTruncated = Nothing - , _lrprsStatus = pStatus_ + , _lrprsResponseStatus = pResponseStatus_ , _lrprsPolicyNames = mempty } @@ -185,8 +185,8 @@ lrprsIsTruncated = lens _lrprsIsTruncated (\ s a -> s{_lrprsIsTruncated = a}); -- | The response status code. -lrprsStatus :: Lens' ListRolePoliciesResponse Int -lrprsStatus = lens _lrprsStatus (\ s a -> s{_lrprsStatus = a}); +lrprsResponseStatus :: Lens' ListRolePoliciesResponse Int +lrprsResponseStatus = lens _lrprsResponseStatus (\ s a -> s{_lrprsResponseStatus = a}); -- | A list of policy names. lrprsPolicyNames :: Lens' ListRolePoliciesResponse [Text] diff --git a/gen/Network/AWS/IAM/ListRoles.hs b/gen/Network/AWS/IAM/ListRoles.hs --- a/gen/Network/AWS/IAM/ListRoles.hs +++ b/gen/Network/AWS/IAM/ListRoles.hs @@ -36,8 +36,8 @@ , ListRoles -- * Request Lenses , lrPathPrefix - , lrMaxItems , lrMarker + , lrMaxItems -- * Destructuring the Response , listRolesResponse @@ -45,7 +45,7 @@ -- * Response Lenses , lrrsMarker , lrrsIsTruncated - , lrrsStatus + , lrrsResponseStatus , lrrsRoles ) where @@ -59,8 +59,8 @@ -- | /See:/ 'listRoles' smart constructor. data ListRoles = ListRoles' { _lrPathPrefix :: !(Maybe Text) - , _lrMaxItems :: !(Maybe Nat) , _lrMarker :: !(Maybe Text) + , _lrMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListRoles' with the minimum fields required to make a request. @@ -69,16 +69,16 @@ -- -- * 'lrPathPrefix' -- --- * 'lrMaxItems' --- -- * 'lrMarker' +-- +-- * 'lrMaxItems' listRoles :: ListRoles listRoles = ListRoles' { _lrPathPrefix = Nothing - , _lrMaxItems = Nothing , _lrMarker = Nothing + , _lrMaxItems = Nothing } -- | The path prefix for filtering the results. For example, the prefix @@ -90,6 +90,12 @@ lrPathPrefix :: Lens' ListRoles (Maybe Text) lrPathPrefix = lens _lrPathPrefix (\ s a -> s{_lrPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lrMarker :: Lens' ListRoles (Maybe Text) +lrMarker = lens _lrMarker (\ s a -> s{_lrMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -99,16 +105,10 @@ lrMaxItems :: Lens' ListRoles (Maybe Natural) lrMaxItems = lens _lrMaxItems (\ s a -> s{_lrMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lrMarker :: Lens' ListRoles (Maybe Text) -lrMarker = lens _lrMarker (\ s a -> s{_lrMarker = a}); - instance AWSPager ListRoles where page rq rs - | stop (rs ^. lrrsIsTruncated) = Nothing - | isNothing (rs ^. lrrsMarker) = Nothing + | stop (rs ^. lrrsMarker) = Nothing + | stop (rs ^. lrrsRoles) = Nothing | otherwise = Just $ rq & lrMarker .~ rs ^. lrrsMarker @@ -135,17 +135,17 @@ = mconcat ["Action" =: ("ListRoles" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "PathPrefix" =: _lrPathPrefix, - "MaxItems" =: _lrMaxItems, "Marker" =: _lrMarker] + "PathPrefix" =: _lrPathPrefix, "Marker" =: _lrMarker, + "MaxItems" =: _lrMaxItems] -- | Contains the response to a successful ListRoles request. -- -- /See:/ 'listRolesResponse' smart constructor. data ListRolesResponse = ListRolesResponse' - { _lrrsMarker :: !(Maybe Text) - , _lrrsIsTruncated :: !(Maybe Bool) - , _lrrsStatus :: !Int - , _lrrsRoles :: ![Role] + { _lrrsMarker :: !(Maybe Text) + , _lrrsIsTruncated :: !(Maybe Bool) + , _lrrsResponseStatus :: !Int + , _lrrsRoles :: ![Role] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListRolesResponse' with the minimum fields required to make a request. @@ -156,17 +156,17 @@ -- -- * 'lrrsIsTruncated' -- --- * 'lrrsStatus' +-- * 'lrrsResponseStatus' -- -- * 'lrrsRoles' listRolesResponse - :: Int -- ^ 'lrrsStatus' + :: Int -- ^ 'lrrsResponseStatus' -> ListRolesResponse -listRolesResponse pStatus_ = +listRolesResponse pResponseStatus_ = ListRolesResponse' { _lrrsMarker = Nothing , _lrrsIsTruncated = Nothing - , _lrrsStatus = pStatus_ + , _lrrsResponseStatus = pResponseStatus_ , _lrrsRoles = mempty } @@ -183,8 +183,8 @@ lrrsIsTruncated = lens _lrrsIsTruncated (\ s a -> s{_lrrsIsTruncated = a}); -- | The response status code. -lrrsStatus :: Lens' ListRolesResponse Int -lrrsStatus = lens _lrrsStatus (\ s a -> s{_lrrsStatus = a}); +lrrsResponseStatus :: Lens' ListRolesResponse Int +lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a}); -- | A list of roles. lrrsRoles :: Lens' ListRolesResponse [Role] diff --git a/gen/Network/AWS/IAM/ListSAMLProviders.hs b/gen/Network/AWS/IAM/ListSAMLProviders.hs --- a/gen/Network/AWS/IAM/ListSAMLProviders.hs +++ b/gen/Network/AWS/IAM/ListSAMLProviders.hs @@ -35,7 +35,7 @@ , ListSAMLProvidersResponse -- * Response Lenses , lsamlprsSAMLProviderList - , lsamlprsStatus + , lsamlprsResponseStatus ) where import Network.AWS.IAM.Types @@ -84,7 +84,7 @@ -- /See:/ 'listSAMLProvidersResponse' smart constructor. data ListSAMLProvidersResponse = ListSAMLProvidersResponse' { _lsamlprsSAMLProviderList :: !(Maybe [SAMLProviderListEntry]) - , _lsamlprsStatus :: !Int + , _lsamlprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSAMLProvidersResponse' with the minimum fields required to make a request. @@ -93,14 +93,14 @@ -- -- * 'lsamlprsSAMLProviderList' -- --- * 'lsamlprsStatus' +-- * 'lsamlprsResponseStatus' listSAMLProvidersResponse - :: Int -- ^ 'lsamlprsStatus' + :: Int -- ^ 'lsamlprsResponseStatus' -> ListSAMLProvidersResponse -listSAMLProvidersResponse pStatus_ = +listSAMLProvidersResponse pResponseStatus_ = ListSAMLProvidersResponse' { _lsamlprsSAMLProviderList = Nothing - , _lsamlprsStatus = pStatus_ + , _lsamlprsResponseStatus = pResponseStatus_ } -- | The list of SAML providers for this account. @@ -108,5 +108,5 @@ lsamlprsSAMLProviderList = lens _lsamlprsSAMLProviderList (\ s a -> s{_lsamlprsSAMLProviderList = a}) . _Default . _Coerce; -- | The response status code. -lsamlprsStatus :: Lens' ListSAMLProvidersResponse Int -lsamlprsStatus = lens _lsamlprsStatus (\ s a -> s{_lsamlprsStatus = a}); +lsamlprsResponseStatus :: Lens' ListSAMLProvidersResponse Int +lsamlprsResponseStatus = lens _lsamlprsResponseStatus (\ s a -> s{_lsamlprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListSSHPublicKeys.hs b/gen/Network/AWS/IAM/ListSSHPublicKeys.hs --- a/gen/Network/AWS/IAM/ListSSHPublicKeys.hs +++ b/gen/Network/AWS/IAM/ListSSHPublicKeys.hs @@ -39,8 +39,8 @@ , ListSSHPublicKeys -- * Request Lenses , lspkUserName - , lspkMaxItems , lspkMarker + , lspkMaxItems -- * Destructuring the Response , listSSHPublicKeysResponse @@ -49,7 +49,7 @@ , lspkrsSSHPublicKeys , lspkrsMarker , lspkrsIsTruncated - , lspkrsStatus + , lspkrsResponseStatus ) where import Network.AWS.IAM.Types @@ -61,8 +61,8 @@ -- | /See:/ 'listSSHPublicKeys' smart constructor. data ListSSHPublicKeys = ListSSHPublicKeys' { _lspkUserName :: !(Maybe Text) - , _lspkMaxItems :: !(Maybe Nat) , _lspkMarker :: !(Maybe Text) + , _lspkMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSSHPublicKeys' with the minimum fields required to make a request. @@ -71,16 +71,16 @@ -- -- * 'lspkUserName' -- --- * 'lspkMaxItems' --- -- * 'lspkMarker' +-- +-- * 'lspkMaxItems' listSSHPublicKeys :: ListSSHPublicKeys listSSHPublicKeys = ListSSHPublicKeys' { _lspkUserName = Nothing - , _lspkMaxItems = Nothing , _lspkMarker = Nothing + , _lspkMaxItems = Nothing } -- | The name of the IAM user to list SSH public keys for. If none is @@ -89,6 +89,12 @@ lspkUserName :: Lens' ListSSHPublicKeys (Maybe Text) lspkUserName = lens _lspkUserName (\ s a -> s{_lspkUserName = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lspkMarker :: Lens' ListSSHPublicKeys (Maybe Text) +lspkMarker = lens _lspkMarker (\ s a -> s{_lspkMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -98,12 +104,6 @@ lspkMaxItems :: Lens' ListSSHPublicKeys (Maybe Natural) lspkMaxItems = lens _lspkMaxItems (\ s a -> s{_lspkMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lspkMarker :: Lens' ListSSHPublicKeys (Maybe Text) -lspkMarker = lens _lspkMarker (\ s a -> s{_lspkMarker = a}); - instance AWSRequest ListSSHPublicKeys where type Rs ListSSHPublicKeys = ListSSHPublicKeysResponse request = postQuery iAM @@ -128,17 +128,17 @@ = mconcat ["Action" =: ("ListSSHPublicKeys" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "UserName" =: _lspkUserName, - "MaxItems" =: _lspkMaxItems, "Marker" =: _lspkMarker] + "UserName" =: _lspkUserName, "Marker" =: _lspkMarker, + "MaxItems" =: _lspkMaxItems] -- | Contains the response to a successful ListSSHPublicKeys request. -- -- /See:/ 'listSSHPublicKeysResponse' smart constructor. data ListSSHPublicKeysResponse = ListSSHPublicKeysResponse' - { _lspkrsSSHPublicKeys :: !(Maybe [SSHPublicKeyMetadata]) - , _lspkrsMarker :: !(Maybe Text) - , _lspkrsIsTruncated :: !(Maybe Bool) - , _lspkrsStatus :: !Int + { _lspkrsSSHPublicKeys :: !(Maybe [SSHPublicKeyMetadata]) + , _lspkrsMarker :: !(Maybe Text) + , _lspkrsIsTruncated :: !(Maybe Bool) + , _lspkrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSSHPublicKeysResponse' with the minimum fields required to make a request. @@ -151,16 +151,16 @@ -- -- * 'lspkrsIsTruncated' -- --- * 'lspkrsStatus' +-- * 'lspkrsResponseStatus' listSSHPublicKeysResponse - :: Int -- ^ 'lspkrsStatus' + :: Int -- ^ 'lspkrsResponseStatus' -> ListSSHPublicKeysResponse -listSSHPublicKeysResponse pStatus_ = +listSSHPublicKeysResponse pResponseStatus_ = ListSSHPublicKeysResponse' { _lspkrsSSHPublicKeys = Nothing , _lspkrsMarker = Nothing , _lspkrsIsTruncated = Nothing - , _lspkrsStatus = pStatus_ + , _lspkrsResponseStatus = pResponseStatus_ } -- | A list of SSH public keys. @@ -180,5 +180,5 @@ lspkrsIsTruncated = lens _lspkrsIsTruncated (\ s a -> s{_lspkrsIsTruncated = a}); -- | The response status code. -lspkrsStatus :: Lens' ListSSHPublicKeysResponse Int -lspkrsStatus = lens _lspkrsStatus (\ s a -> s{_lspkrsStatus = a}); +lspkrsResponseStatus :: Lens' ListSSHPublicKeysResponse Int +lspkrsResponseStatus = lens _lspkrsResponseStatus (\ s a -> s{_lspkrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/ListServerCertificates.hs b/gen/Network/AWS/IAM/ListServerCertificates.hs --- a/gen/Network/AWS/IAM/ListServerCertificates.hs +++ b/gen/Network/AWS/IAM/ListServerCertificates.hs @@ -34,8 +34,8 @@ , ListServerCertificates -- * Request Lenses , lscPathPrefix - , lscMaxItems , lscMarker + , lscMaxItems -- * Destructuring the Response , listServerCertificatesResponse @@ -43,7 +43,7 @@ -- * Response Lenses , lscrsMarker , lscrsIsTruncated - , lscrsStatus + , lscrsResponseStatus , lscrsServerCertificateMetadataList ) where @@ -57,8 +57,8 @@ -- | /See:/ 'listServerCertificates' smart constructor. data ListServerCertificates = ListServerCertificates' { _lscPathPrefix :: !(Maybe Text) - , _lscMaxItems :: !(Maybe Nat) , _lscMarker :: !(Maybe Text) + , _lscMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListServerCertificates' with the minimum fields required to make a request. @@ -67,16 +67,16 @@ -- -- * 'lscPathPrefix' -- --- * 'lscMaxItems' --- -- * 'lscMarker' +-- +-- * 'lscMaxItems' listServerCertificates :: ListServerCertificates listServerCertificates = ListServerCertificates' { _lscPathPrefix = Nothing - , _lscMaxItems = Nothing , _lscMarker = Nothing + , _lscMaxItems = Nothing } -- | The path prefix for filtering the results. For example: @@ -88,6 +88,12 @@ lscPathPrefix :: Lens' ListServerCertificates (Maybe Text) lscPathPrefix = lens _lscPathPrefix (\ s a -> s{_lscPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lscMarker :: Lens' ListServerCertificates (Maybe Text) +lscMarker = lens _lscMarker (\ s a -> s{_lscMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -97,16 +103,11 @@ lscMaxItems :: Lens' ListServerCertificates (Maybe Natural) lscMaxItems = lens _lscMaxItems (\ s a -> s{_lscMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lscMarker :: Lens' ListServerCertificates (Maybe Text) -lscMarker = lens _lscMarker (\ s a -> s{_lscMarker = a}); - instance AWSPager ListServerCertificates where page rq rs - | stop (rs ^. lscrsIsTruncated) = Nothing - | isNothing (rs ^. lscrsMarker) = Nothing + | stop (rs ^. lscrsMarker) = Nothing + | stop (rs ^. lscrsServerCertificateMetadataList) = + Nothing | otherwise = Just $ rq & lscMarker .~ rs ^. lscrsMarker @@ -137,7 +138,7 @@ ("ListServerCertificates" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "PathPrefix" =: _lscPathPrefix, - "MaxItems" =: _lscMaxItems, "Marker" =: _lscMarker] + "Marker" =: _lscMarker, "MaxItems" =: _lscMaxItems] -- | Contains the response to a successful ListServerCertificates request. -- @@ -145,7 +146,7 @@ data ListServerCertificatesResponse = ListServerCertificatesResponse' { _lscrsMarker :: !(Maybe Text) , _lscrsIsTruncated :: !(Maybe Bool) - , _lscrsStatus :: !Int + , _lscrsResponseStatus :: !Int , _lscrsServerCertificateMetadataList :: ![ServerCertificateMetadata] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -157,17 +158,17 @@ -- -- * 'lscrsIsTruncated' -- --- * 'lscrsStatus' +-- * 'lscrsResponseStatus' -- -- * 'lscrsServerCertificateMetadataList' listServerCertificatesResponse - :: Int -- ^ 'lscrsStatus' + :: Int -- ^ 'lscrsResponseStatus' -> ListServerCertificatesResponse -listServerCertificatesResponse pStatus_ = +listServerCertificatesResponse pResponseStatus_ = ListServerCertificatesResponse' { _lscrsMarker = Nothing , _lscrsIsTruncated = Nothing - , _lscrsStatus = pStatus_ + , _lscrsResponseStatus = pResponseStatus_ , _lscrsServerCertificateMetadataList = mempty } @@ -184,8 +185,8 @@ lscrsIsTruncated = lens _lscrsIsTruncated (\ s a -> s{_lscrsIsTruncated = a}); -- | The response status code. -lscrsStatus :: Lens' ListServerCertificatesResponse Int -lscrsStatus = lens _lscrsStatus (\ s a -> s{_lscrsStatus = a}); +lscrsResponseStatus :: Lens' ListServerCertificatesResponse Int +lscrsResponseStatus = lens _lscrsResponseStatus (\ s a -> s{_lscrsResponseStatus = a}); -- | A list of server certificates. lscrsServerCertificateMetadataList :: Lens' ListServerCertificatesResponse [ServerCertificateMetadata] diff --git a/gen/Network/AWS/IAM/ListSigningCertificates.hs b/gen/Network/AWS/IAM/ListSigningCertificates.hs --- a/gen/Network/AWS/IAM/ListSigningCertificates.hs +++ b/gen/Network/AWS/IAM/ListSigningCertificates.hs @@ -41,8 +41,8 @@ , ListSigningCertificates -- * Request Lenses , lUserName - , lMaxItems , lMarker + , lMaxItems -- * Destructuring the Response , listSigningCertificatesResponse @@ -50,7 +50,7 @@ -- * Response Lenses , lrsMarker , lrsIsTruncated - , lrsStatus + , lrsResponseStatus , lrsCertificates ) where @@ -64,8 +64,8 @@ -- | /See:/ 'listSigningCertificates' smart constructor. data ListSigningCertificates = ListSigningCertificates' { _lUserName :: !(Maybe Text) - , _lMaxItems :: !(Maybe Nat) , _lMarker :: !(Maybe Text) + , _lMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSigningCertificates' with the minimum fields required to make a request. @@ -74,22 +74,28 @@ -- -- * 'lUserName' -- --- * 'lMaxItems' --- -- * 'lMarker' +-- +-- * 'lMaxItems' listSigningCertificates :: ListSigningCertificates listSigningCertificates = ListSigningCertificates' { _lUserName = Nothing - , _lMaxItems = Nothing , _lMarker = Nothing + , _lMaxItems = Nothing } -- | The name of the user. lUserName :: Lens' ListSigningCertificates (Maybe Text) lUserName = lens _lUserName (\ s a -> s{_lUserName = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lMarker :: Lens' ListSigningCertificates (Maybe Text) +lMarker = lens _lMarker (\ s a -> s{_lMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -99,16 +105,10 @@ lMaxItems :: Lens' ListSigningCertificates (Maybe Natural) lMaxItems = lens _lMaxItems (\ s a -> s{_lMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lMarker :: Lens' ListSigningCertificates (Maybe Text) -lMarker = lens _lMarker (\ s a -> s{_lMarker = a}); - instance AWSPager ListSigningCertificates where page rq rs - | stop (rs ^. lrsIsTruncated) = Nothing - | isNothing (rs ^. lrsMarker) = Nothing + | stop (rs ^. lrsMarker) = Nothing + | stop (rs ^. lrsCertificates) = Nothing | otherwise = Just $ rq & lMarker .~ rs ^. lrsMarker instance AWSRequest ListSigningCertificates where @@ -137,17 +137,17 @@ ["Action" =: ("ListSigningCertificates" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "UserName" =: _lUserName, "MaxItems" =: _lMaxItems, - "Marker" =: _lMarker] + "UserName" =: _lUserName, "Marker" =: _lMarker, + "MaxItems" =: _lMaxItems] -- | Contains the response to a successful ListSigningCertificates request. -- -- /See:/ 'listSigningCertificatesResponse' smart constructor. data ListSigningCertificatesResponse = ListSigningCertificatesResponse' - { _lrsMarker :: !(Maybe Text) - , _lrsIsTruncated :: !(Maybe Bool) - , _lrsStatus :: !Int - , _lrsCertificates :: ![SigningCertificate] + { _lrsMarker :: !(Maybe Text) + , _lrsIsTruncated :: !(Maybe Bool) + , _lrsResponseStatus :: !Int + , _lrsCertificates :: ![SigningCertificate] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSigningCertificatesResponse' with the minimum fields required to make a request. @@ -158,17 +158,17 @@ -- -- * 'lrsIsTruncated' -- --- * 'lrsStatus' +-- * 'lrsResponseStatus' -- -- * 'lrsCertificates' listSigningCertificatesResponse - :: Int -- ^ 'lrsStatus' + :: Int -- ^ 'lrsResponseStatus' -> ListSigningCertificatesResponse -listSigningCertificatesResponse pStatus_ = +listSigningCertificatesResponse pResponseStatus_ = ListSigningCertificatesResponse' { _lrsMarker = Nothing , _lrsIsTruncated = Nothing - , _lrsStatus = pStatus_ + , _lrsResponseStatus = pResponseStatus_ , _lrsCertificates = mempty } @@ -185,8 +185,8 @@ lrsIsTruncated = lens _lrsIsTruncated (\ s a -> s{_lrsIsTruncated = a}); -- | The response status code. -lrsStatus :: Lens' ListSigningCertificatesResponse Int -lrsStatus = lens _lrsStatus (\ s a -> s{_lrsStatus = a}); +lrsResponseStatus :: Lens' ListSigningCertificatesResponse Int +lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a}); -- | A list of the user\'s signing certificate information. lrsCertificates :: Lens' ListSigningCertificatesResponse [SigningCertificate] diff --git a/gen/Network/AWS/IAM/ListUserPolicies.hs b/gen/Network/AWS/IAM/ListUserPolicies.hs --- a/gen/Network/AWS/IAM/ListUserPolicies.hs +++ b/gen/Network/AWS/IAM/ListUserPolicies.hs @@ -39,8 +39,8 @@ listUserPolicies , ListUserPolicies -- * Request Lenses - , lupMaxItems , lupMarker + , lupMaxItems , lupUserName -- * Destructuring the Response @@ -49,7 +49,7 @@ -- * Response Lenses , luprsMarker , luprsIsTruncated - , luprsStatus + , luprsResponseStatus , luprsPolicyNames ) where @@ -62,8 +62,8 @@ -- | /See:/ 'listUserPolicies' smart constructor. data ListUserPolicies = ListUserPolicies' - { _lupMaxItems :: !(Maybe Nat) - , _lupMarker :: !(Maybe Text) + { _lupMarker :: !(Maybe Text) + , _lupMaxItems :: !(Maybe Nat) , _lupUserName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -71,21 +71,27 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lupMaxItems' --- -- * 'lupMarker' -- +-- * 'lupMaxItems' +-- -- * 'lupUserName' listUserPolicies :: Text -- ^ 'lupUserName' -> ListUserPolicies listUserPolicies pUserName_ = ListUserPolicies' - { _lupMaxItems = Nothing - , _lupMarker = Nothing + { _lupMarker = Nothing + , _lupMaxItems = Nothing , _lupUserName = pUserName_ } +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lupMarker :: Lens' ListUserPolicies (Maybe Text) +lupMarker = lens _lupMarker (\ s a -> s{_lupMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -95,20 +101,14 @@ lupMaxItems :: Lens' ListUserPolicies (Maybe Natural) lupMaxItems = lens _lupMaxItems (\ s a -> s{_lupMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lupMarker :: Lens' ListUserPolicies (Maybe Text) -lupMarker = lens _lupMarker (\ s a -> s{_lupMarker = a}); - -- | The name of the user to list policies for. lupUserName :: Lens' ListUserPolicies Text lupUserName = lens _lupUserName (\ s a -> s{_lupUserName = a}); instance AWSPager ListUserPolicies where page rq rs - | stop (rs ^. luprsIsTruncated) = Nothing - | isNothing (rs ^. luprsMarker) = Nothing + | stop (rs ^. luprsMarker) = Nothing + | stop (rs ^. luprsPolicyNames) = Nothing | otherwise = Just $ rq & lupMarker .~ rs ^. luprsMarker @@ -136,17 +136,17 @@ = mconcat ["Action" =: ("ListUserPolicies" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "MaxItems" =: _lupMaxItems, "Marker" =: _lupMarker, + "Marker" =: _lupMarker, "MaxItems" =: _lupMaxItems, "UserName" =: _lupUserName] -- | Contains the response to a successful ListUserPolicies request. -- -- /See:/ 'listUserPoliciesResponse' smart constructor. data ListUserPoliciesResponse = ListUserPoliciesResponse' - { _luprsMarker :: !(Maybe Text) - , _luprsIsTruncated :: !(Maybe Bool) - , _luprsStatus :: !Int - , _luprsPolicyNames :: ![Text] + { _luprsMarker :: !(Maybe Text) + , _luprsIsTruncated :: !(Maybe Bool) + , _luprsResponseStatus :: !Int + , _luprsPolicyNames :: ![Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListUserPoliciesResponse' with the minimum fields required to make a request. @@ -157,17 +157,17 @@ -- -- * 'luprsIsTruncated' -- --- * 'luprsStatus' +-- * 'luprsResponseStatus' -- -- * 'luprsPolicyNames' listUserPoliciesResponse - :: Int -- ^ 'luprsStatus' + :: Int -- ^ 'luprsResponseStatus' -> ListUserPoliciesResponse -listUserPoliciesResponse pStatus_ = +listUserPoliciesResponse pResponseStatus_ = ListUserPoliciesResponse' { _luprsMarker = Nothing , _luprsIsTruncated = Nothing - , _luprsStatus = pStatus_ + , _luprsResponseStatus = pResponseStatus_ , _luprsPolicyNames = mempty } @@ -184,8 +184,8 @@ luprsIsTruncated = lens _luprsIsTruncated (\ s a -> s{_luprsIsTruncated = a}); -- | The response status code. -luprsStatus :: Lens' ListUserPoliciesResponse Int -luprsStatus = lens _luprsStatus (\ s a -> s{_luprsStatus = a}); +luprsResponseStatus :: Lens' ListUserPoliciesResponse Int +luprsResponseStatus = lens _luprsResponseStatus (\ s a -> s{_luprsResponseStatus = a}); -- | A list of policy names. luprsPolicyNames :: Lens' ListUserPoliciesResponse [Text] diff --git a/gen/Network/AWS/IAM/ListUsers.hs b/gen/Network/AWS/IAM/ListUsers.hs --- a/gen/Network/AWS/IAM/ListUsers.hs +++ b/gen/Network/AWS/IAM/ListUsers.hs @@ -35,8 +35,8 @@ , ListUsers -- * Request Lenses , luPathPrefix - , luMaxItems , luMarker + , luMaxItems -- * Destructuring the Response , listUsersResponse @@ -44,7 +44,7 @@ -- * Response Lenses , lursMarker , lursIsTruncated - , lursStatus + , lursResponseStatus , lursUsers ) where @@ -58,8 +58,8 @@ -- | /See:/ 'listUsers' smart constructor. data ListUsers = ListUsers' { _luPathPrefix :: !(Maybe Text) - , _luMaxItems :: !(Maybe Nat) , _luMarker :: !(Maybe Text) + , _luMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListUsers' with the minimum fields required to make a request. @@ -68,16 +68,16 @@ -- -- * 'luPathPrefix' -- --- * 'luMaxItems' --- -- * 'luMarker' +-- +-- * 'luMaxItems' listUsers :: ListUsers listUsers = ListUsers' { _luPathPrefix = Nothing - , _luMaxItems = Nothing , _luMarker = Nothing + , _luMaxItems = Nothing } -- | The path prefix for filtering the results. For example: @@ -89,6 +89,12 @@ luPathPrefix :: Lens' ListUsers (Maybe Text) luPathPrefix = lens _luPathPrefix (\ s a -> s{_luPathPrefix = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +luMarker :: Lens' ListUsers (Maybe Text) +luMarker = lens _luMarker (\ s a -> s{_luMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -98,16 +104,10 @@ luMaxItems :: Lens' ListUsers (Maybe Natural) luMaxItems = lens _luMaxItems (\ s a -> s{_luMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -luMarker :: Lens' ListUsers (Maybe Text) -luMarker = lens _luMarker (\ s a -> s{_luMarker = a}); - instance AWSPager ListUsers where page rq rs - | stop (rs ^. lursIsTruncated) = Nothing - | isNothing (rs ^. lursMarker) = Nothing + | stop (rs ^. lursMarker) = Nothing + | stop (rs ^. lursUsers) = Nothing | otherwise = Just $ rq & luMarker .~ rs ^. lursMarker @@ -134,17 +134,17 @@ = mconcat ["Action" =: ("ListUsers" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "PathPrefix" =: _luPathPrefix, - "MaxItems" =: _luMaxItems, "Marker" =: _luMarker] + "PathPrefix" =: _luPathPrefix, "Marker" =: _luMarker, + "MaxItems" =: _luMaxItems] -- | Contains the response to a successful ListUsers request. -- -- /See:/ 'listUsersResponse' smart constructor. data ListUsersResponse = ListUsersResponse' - { _lursMarker :: !(Maybe Text) - , _lursIsTruncated :: !(Maybe Bool) - , _lursStatus :: !Int - , _lursUsers :: ![User] + { _lursMarker :: !(Maybe Text) + , _lursIsTruncated :: !(Maybe Bool) + , _lursResponseStatus :: !Int + , _lursUsers :: ![User] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListUsersResponse' with the minimum fields required to make a request. @@ -155,17 +155,17 @@ -- -- * 'lursIsTruncated' -- --- * 'lursStatus' +-- * 'lursResponseStatus' -- -- * 'lursUsers' listUsersResponse - :: Int -- ^ 'lursStatus' + :: Int -- ^ 'lursResponseStatus' -> ListUsersResponse -listUsersResponse pStatus_ = +listUsersResponse pResponseStatus_ = ListUsersResponse' { _lursMarker = Nothing , _lursIsTruncated = Nothing - , _lursStatus = pStatus_ + , _lursResponseStatus = pResponseStatus_ , _lursUsers = mempty } @@ -182,8 +182,8 @@ lursIsTruncated = lens _lursIsTruncated (\ s a -> s{_lursIsTruncated = a}); -- | The response status code. -lursStatus :: Lens' ListUsersResponse Int -lursStatus = lens _lursStatus (\ s a -> s{_lursStatus = a}); +lursResponseStatus :: Lens' ListUsersResponse Int +lursResponseStatus = lens _lursResponseStatus (\ s a -> s{_lursResponseStatus = a}); -- | A list of users. lursUsers :: Lens' ListUsersResponse [User] diff --git a/gen/Network/AWS/IAM/ListVirtualMFADevices.hs b/gen/Network/AWS/IAM/ListVirtualMFADevices.hs --- a/gen/Network/AWS/IAM/ListVirtualMFADevices.hs +++ b/gen/Network/AWS/IAM/ListVirtualMFADevices.hs @@ -36,8 +36,8 @@ , ListVirtualMFADevices -- * Request Lenses , lvmdAssignmentStatus - , lvmdMaxItems , lvmdMarker + , lvmdMaxItems -- * Destructuring the Response , listVirtualMFADevicesResponse @@ -45,7 +45,7 @@ -- * Response Lenses , lvmdrsMarker , lvmdrsIsTruncated - , lvmdrsStatus + , lvmdrsResponseStatus , lvmdrsVirtualMFADevices ) where @@ -59,8 +59,8 @@ -- | /See:/ 'listVirtualMFADevices' smart constructor. data ListVirtualMFADevices = ListVirtualMFADevices' { _lvmdAssignmentStatus :: !(Maybe AssignmentStatusType) - , _lvmdMaxItems :: !(Maybe Nat) , _lvmdMarker :: !(Maybe Text) + , _lvmdMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListVirtualMFADevices' with the minimum fields required to make a request. @@ -69,16 +69,16 @@ -- -- * 'lvmdAssignmentStatus' -- --- * 'lvmdMaxItems' --- -- * 'lvmdMarker' +-- +-- * 'lvmdMaxItems' listVirtualMFADevices :: ListVirtualMFADevices listVirtualMFADevices = ListVirtualMFADevices' { _lvmdAssignmentStatus = Nothing - , _lvmdMaxItems = Nothing , _lvmdMarker = Nothing + , _lvmdMaxItems = Nothing } -- | The status (unassigned or assigned) of the devices to list. If you do @@ -87,6 +87,12 @@ lvmdAssignmentStatus :: Lens' ListVirtualMFADevices (Maybe AssignmentStatusType) lvmdAssignmentStatus = lens _lvmdAssignmentStatus (\ s a -> s{_lvmdAssignmentStatus = a}); +-- | Use this parameter only when paginating results and only after you have +-- received a response where the results are truncated. Set it to the value +-- of the 'Marker' element in the response you just received. +lvmdMarker :: Lens' ListVirtualMFADevices (Maybe Text) +lvmdMarker = lens _lvmdMarker (\ s a -> s{_lvmdMarker = a}); + -- | Use this only when paginating results to indicate the maximum number of -- items you want in the response. If there are additional items beyond the -- maximum you specify, the 'IsTruncated' response element is 'true'. @@ -96,16 +102,10 @@ lvmdMaxItems :: Lens' ListVirtualMFADevices (Maybe Natural) lvmdMaxItems = lens _lvmdMaxItems (\ s a -> s{_lvmdMaxItems = a}) . mapping _Nat; --- | Use this parameter only when paginating results and only after you have --- received a response where the results are truncated. Set it to the value --- of the 'Marker' element in the response you just received. -lvmdMarker :: Lens' ListVirtualMFADevices (Maybe Text) -lvmdMarker = lens _lvmdMarker (\ s a -> s{_lvmdMarker = a}); - instance AWSPager ListVirtualMFADevices where page rq rs - | stop (rs ^. lvmdrsIsTruncated) = Nothing - | isNothing (rs ^. lvmdrsMarker) = Nothing + | stop (rs ^. lvmdrsMarker) = Nothing + | stop (rs ^. lvmdrsVirtualMFADevices) = Nothing | otherwise = Just $ rq & lvmdMarker .~ rs ^. lvmdrsMarker @@ -135,7 +135,7 @@ ["Action" =: ("ListVirtualMFADevices" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), "AssignmentStatus" =: _lvmdAssignmentStatus, - "MaxItems" =: _lvmdMaxItems, "Marker" =: _lvmdMarker] + "Marker" =: _lvmdMarker, "MaxItems" =: _lvmdMaxItems] -- | Contains the response to a successful ListVirtualMFADevices request. -- @@ -143,7 +143,7 @@ data ListVirtualMFADevicesResponse = ListVirtualMFADevicesResponse' { _lvmdrsMarker :: !(Maybe Text) , _lvmdrsIsTruncated :: !(Maybe Bool) - , _lvmdrsStatus :: !Int + , _lvmdrsResponseStatus :: !Int , _lvmdrsVirtualMFADevices :: ![VirtualMFADevice] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -155,17 +155,17 @@ -- -- * 'lvmdrsIsTruncated' -- --- * 'lvmdrsStatus' +-- * 'lvmdrsResponseStatus' -- -- * 'lvmdrsVirtualMFADevices' listVirtualMFADevicesResponse - :: Int -- ^ 'lvmdrsStatus' + :: Int -- ^ 'lvmdrsResponseStatus' -> ListVirtualMFADevicesResponse -listVirtualMFADevicesResponse pStatus_ = +listVirtualMFADevicesResponse pResponseStatus_ = ListVirtualMFADevicesResponse' { _lvmdrsMarker = Nothing , _lvmdrsIsTruncated = Nothing - , _lvmdrsStatus = pStatus_ + , _lvmdrsResponseStatus = pResponseStatus_ , _lvmdrsVirtualMFADevices = mempty } @@ -182,8 +182,8 @@ lvmdrsIsTruncated = lens _lvmdrsIsTruncated (\ s a -> s{_lvmdrsIsTruncated = a}); -- | The response status code. -lvmdrsStatus :: Lens' ListVirtualMFADevicesResponse Int -lvmdrsStatus = lens _lvmdrsStatus (\ s a -> s{_lvmdrsStatus = a}); +lvmdrsResponseStatus :: Lens' ListVirtualMFADevicesResponse Int +lvmdrsResponseStatus = lens _lvmdrsResponseStatus (\ s a -> s{_lvmdrsResponseStatus = a}); -- | The list of virtual MFA devices in the current account that match the -- 'AssignmentStatus' value that was passed in the request. diff --git a/gen/Network/AWS/IAM/Types.hs b/gen/Network/AWS/IAM/Types.hs --- a/gen/Network/AWS/IAM/Types.hs +++ b/gen/Network/AWS/IAM/Types.hs @@ -21,10 +21,10 @@ , _MalformedPolicyDocumentException , _EntityAlreadyExistsException , _MalformedCertificateException - , _DuplicateCertificateException , _CredentialReportExpiredException - , _NoSuchEntityException + , _DuplicateCertificateException , _DeleteConflictException + , _NoSuchEntityException , _InvalidCertificateException , _UnrecognizedPublicKeyEncodingException , _InvalidUserTypeException @@ -35,8 +35,8 @@ , _EntityTemporarilyUnmodifiableException , _DuplicateSSHPublicKeyException , _KeyPairMismatchException - , _LimitExceededException , _PasswordPolicyViolationException + , _LimitExceededException -- * AssignmentStatusType , AssignmentStatusType (..) @@ -141,11 +141,11 @@ , managedPolicyDetail , mpdPolicyName , mpdARN - , mpdPath , mpdUpdateDate , mpdPolicyId - , mpdCreateDate + , mpdPath , mpdPolicyVersionList + , mpdCreateDate , mpdIsAttachable , mpdDefaultVersionId , mpdAttachmentCount @@ -160,8 +160,8 @@ , PasswordPolicy , passwordPolicy , ppExpirePasswords - , ppRequireNumbers , ppMinimumPasswordLength + , ppRequireNumbers , ppPasswordReusePrevention , ppRequireLowercaseCharacters , ppMaxPasswordAge @@ -175,9 +175,9 @@ , policy , pPolicyName , pARN - , pPath , pUpdateDate , pPolicyId + , pPath , pCreateDate , pIsAttachable , pDefaultVersionId @@ -300,9 +300,9 @@ -- * UserDetail , UserDetail , userDetail + , udGroupList , udARN , udPath - , udGroupList , udCreateDate , udUserName , udUserId @@ -385,12 +385,6 @@ _MalformedCertificateException = _ServiceError . hasStatus 400 . hasCode "MalformedCertificate" --- | The request was rejected because the same certificate is associated with --- an IAM user in the account. -_DuplicateCertificateException :: AsError a => Getting (First ServiceError) a ServiceError -_DuplicateCertificateException = - _ServiceError . hasStatus 409 . hasCode "DuplicateCertificate" - -- | The request was rejected because the most recent credential report has -- expired. To generate a new credential report, use -- GenerateCredentialReport. For more information about credential report @@ -401,10 +395,11 @@ _CredentialReportExpiredException = _ServiceError . hasStatus 410 . hasCode "ReportExpired" --- | The request was rejected because it referenced an entity that does not --- exist. The error message describes the entity. -_NoSuchEntityException :: AsError a => Getting (First ServiceError) a ServiceError -_NoSuchEntityException = _ServiceError . hasStatus 404 . hasCode "NoSuchEntity" +-- | The request was rejected because the same certificate is associated with +-- an IAM user in the account. +_DuplicateCertificateException :: AsError a => Getting (First ServiceError) a ServiceError +_DuplicateCertificateException = + _ServiceError . hasStatus 409 . hasCode "DuplicateCertificate" -- | The request was rejected because it attempted to delete a resource that -- has attached subordinate entities. The error message describes these @@ -413,6 +408,11 @@ _DeleteConflictException = _ServiceError . hasStatus 409 . hasCode "DeleteConflict" +-- | The request was rejected because it referenced an entity that does not +-- exist. The error message describes the entity. +_NoSuchEntityException :: AsError a => Getting (First ServiceError) a ServiceError +_NoSuchEntityException = _ServiceError . hasStatus 404 . hasCode "NoSuchEntity" + -- | The request was rejected because the certificate is invalid. _InvalidCertificateException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidCertificateException = @@ -474,15 +474,15 @@ _KeyPairMismatchException = _ServiceError . hasStatus 400 . hasCode "KeyPairMismatch" +-- | The request was rejected because the provided password did not meet the +-- requirements imposed by the account password policy. +_PasswordPolicyViolationException :: AsError a => Getting (First ServiceError) a ServiceError +_PasswordPolicyViolationException = + _ServiceError . hasStatus 400 . hasCode "PasswordPolicyViolation" + -- | The request was rejected because it attempted to create resources beyond -- the current AWS account limits. The error message describes the limit -- exceeded. _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException = _ServiceError . hasStatus 409 . hasCode "LimitExceeded" - --- | The request was rejected because the provided password did not meet the --- requirements imposed by the account password policy. -_PasswordPolicyViolationException :: AsError a => Getting (First ServiceError) a ServiceError -_PasswordPolicyViolationException = - _ServiceError . hasStatus 400 . hasCode "PasswordPolicyViolation" diff --git a/gen/Network/AWS/IAM/Types/Product.hs b/gen/Network/AWS/IAM/Types/Product.hs --- a/gen/Network/AWS/IAM/Types/Product.hs +++ b/gen/Network/AWS/IAM/Types/Product.hs @@ -677,11 +677,11 @@ data ManagedPolicyDetail = ManagedPolicyDetail' { _mpdPolicyName :: !(Maybe Text) , _mpdARN :: !(Maybe Text) - , _mpdPath :: !(Maybe Text) , _mpdUpdateDate :: !(Maybe ISO8601) , _mpdPolicyId :: !(Maybe Text) - , _mpdCreateDate :: !(Maybe ISO8601) + , _mpdPath :: !(Maybe Text) , _mpdPolicyVersionList :: !(Maybe [PolicyVersion]) + , _mpdCreateDate :: !(Maybe ISO8601) , _mpdIsAttachable :: !(Maybe Bool) , _mpdDefaultVersionId :: !(Maybe Text) , _mpdAttachmentCount :: !(Maybe Int) @@ -696,16 +696,16 @@ -- -- * 'mpdARN' -- --- * 'mpdPath' --- -- * 'mpdUpdateDate' -- -- * 'mpdPolicyId' -- --- * 'mpdCreateDate' +-- * 'mpdPath' -- -- * 'mpdPolicyVersionList' -- +-- * 'mpdCreateDate' +-- -- * 'mpdIsAttachable' -- -- * 'mpdDefaultVersionId' @@ -719,11 +719,11 @@ ManagedPolicyDetail' { _mpdPolicyName = Nothing , _mpdARN = Nothing - , _mpdPath = Nothing , _mpdUpdateDate = Nothing , _mpdPolicyId = Nothing - , _mpdCreateDate = Nothing + , _mpdPath = Nothing , _mpdPolicyVersionList = Nothing + , _mpdCreateDate = Nothing , _mpdIsAttachable = Nothing , _mpdDefaultVersionId = Nothing , _mpdAttachmentCount = Nothing @@ -738,14 +738,6 @@ mpdARN :: Lens' ManagedPolicyDetail (Maybe Text) mpdARN = lens _mpdARN (\ s a -> s{_mpdARN = a}); --- | The path to the policy. --- --- For more information about paths, see --- --- in the /Using IAM/ guide. -mpdPath :: Lens' ManagedPolicyDetail (Maybe Text) -mpdPath = lens _mpdPath (\ s a -> s{_mpdPath = a}); - -- | The date and time, in -- , when the -- policy was last updated. @@ -765,16 +757,24 @@ mpdPolicyId :: Lens' ManagedPolicyDetail (Maybe Text) mpdPolicyId = lens _mpdPolicyId (\ s a -> s{_mpdPolicyId = a}); +-- | The path to the policy. +-- +-- For more information about paths, see +-- +-- in the /Using IAM/ guide. +mpdPath :: Lens' ManagedPolicyDetail (Maybe Text) +mpdPath = lens _mpdPath (\ s a -> s{_mpdPath = a}); + +-- | A list containing information about the versions of the policy. +mpdPolicyVersionList :: Lens' ManagedPolicyDetail [PolicyVersion] +mpdPolicyVersionList = lens _mpdPolicyVersionList (\ s a -> s{_mpdPolicyVersionList = a}) . _Default . _Coerce; + -- | The date and time, in -- , when the -- policy was created. mpdCreateDate :: Lens' ManagedPolicyDetail (Maybe UTCTime) mpdCreateDate = lens _mpdCreateDate (\ s a -> s{_mpdCreateDate = a}) . mapping _Time; --- | A list containing information about the versions of the policy. -mpdPolicyVersionList :: Lens' ManagedPolicyDetail [PolicyVersion] -mpdPolicyVersionList = lens _mpdPolicyVersionList (\ s a -> s{_mpdPolicyVersionList = a}) . _Default . _Coerce; - -- | Specifies whether the policy can be attached to an IAM user, group, or -- role. mpdIsAttachable :: Lens' ManagedPolicyDetail (Maybe Bool) @@ -802,13 +802,13 @@ parseXML x = ManagedPolicyDetail' <$> (x .@? "PolicyName") <*> (x .@? "Arn") <*> - (x .@? "Path") - <*> (x .@? "UpdateDate") + (x .@? "UpdateDate") <*> (x .@? "PolicyId") - <*> (x .@? "CreateDate") + <*> (x .@? "Path") <*> (x .@? "PolicyVersionList" .!@ mempty >>= may (parseXMLList "member")) + <*> (x .@? "CreateDate") <*> (x .@? "IsAttachable") <*> (x .@? "DefaultVersionId") <*> (x .@? "AttachmentCount") @@ -850,8 +850,8 @@ -- /See:/ 'passwordPolicy' smart constructor. data PasswordPolicy = PasswordPolicy' { _ppExpirePasswords :: !(Maybe Bool) - , _ppRequireNumbers :: !(Maybe Bool) , _ppMinimumPasswordLength :: !(Maybe Nat) + , _ppRequireNumbers :: !(Maybe Bool) , _ppPasswordReusePrevention :: !(Maybe Nat) , _ppRequireLowercaseCharacters :: !(Maybe Bool) , _ppMaxPasswordAge :: !(Maybe Nat) @@ -867,10 +867,10 @@ -- -- * 'ppExpirePasswords' -- --- * 'ppRequireNumbers' --- -- * 'ppMinimumPasswordLength' -- +-- * 'ppRequireNumbers' +-- -- * 'ppPasswordReusePrevention' -- -- * 'ppRequireLowercaseCharacters' @@ -889,8 +889,8 @@ passwordPolicy = PasswordPolicy' { _ppExpirePasswords = Nothing - , _ppRequireNumbers = Nothing , _ppMinimumPasswordLength = Nothing + , _ppRequireNumbers = Nothing , _ppPasswordReusePrevention = Nothing , _ppRequireLowercaseCharacters = Nothing , _ppMaxPasswordAge = Nothing @@ -905,14 +905,14 @@ ppExpirePasswords :: Lens' PasswordPolicy (Maybe Bool) ppExpirePasswords = lens _ppExpirePasswords (\ s a -> s{_ppExpirePasswords = a}); --- | Specifies whether to require numbers for IAM user passwords. -ppRequireNumbers :: Lens' PasswordPolicy (Maybe Bool) -ppRequireNumbers = lens _ppRequireNumbers (\ s a -> s{_ppRequireNumbers = a}); - -- | Minimum length to require for IAM user passwords. ppMinimumPasswordLength :: Lens' PasswordPolicy (Maybe Natural) ppMinimumPasswordLength = lens _ppMinimumPasswordLength (\ s a -> s{_ppMinimumPasswordLength = a}) . mapping _Nat; +-- | Specifies whether to require numbers for IAM user passwords. +ppRequireNumbers :: Lens' PasswordPolicy (Maybe Bool) +ppRequireNumbers = lens _ppRequireNumbers (\ s a -> s{_ppRequireNumbers = a}); + -- | Specifies the number of previous passwords that IAM users are prevented -- from reusing. ppPasswordReusePrevention :: Lens' PasswordPolicy (Maybe Natural) @@ -949,8 +949,8 @@ parseXML x = PasswordPolicy' <$> (x .@? "ExpirePasswords") <*> - (x .@? "RequireNumbers") - <*> (x .@? "MinimumPasswordLength") + (x .@? "MinimumPasswordLength") + <*> (x .@? "RequireNumbers") <*> (x .@? "PasswordReusePrevention") <*> (x .@? "RequireLowercaseCharacters") <*> (x .@? "MaxPasswordAge") @@ -972,9 +972,9 @@ data Policy = Policy' { _pPolicyName :: !(Maybe Text) , _pARN :: !(Maybe Text) - , _pPath :: !(Maybe Text) , _pUpdateDate :: !(Maybe ISO8601) , _pPolicyId :: !(Maybe Text) + , _pPath :: !(Maybe Text) , _pCreateDate :: !(Maybe ISO8601) , _pIsAttachable :: !(Maybe Bool) , _pDefaultVersionId :: !(Maybe Text) @@ -990,12 +990,12 @@ -- -- * 'pARN' -- --- * 'pPath' --- -- * 'pUpdateDate' -- -- * 'pPolicyId' -- +-- * 'pPath' +-- -- * 'pCreateDate' -- -- * 'pIsAttachable' @@ -1011,9 +1011,9 @@ Policy' { _pPolicyName = Nothing , _pARN = Nothing - , _pPath = Nothing , _pUpdateDate = Nothing , _pPolicyId = Nothing + , _pPath = Nothing , _pCreateDate = Nothing , _pIsAttachable = Nothing , _pDefaultVersionId = Nothing @@ -1029,14 +1029,6 @@ pARN :: Lens' Policy (Maybe Text) pARN = lens _pARN (\ s a -> s{_pARN = a}); --- | The path to the policy. --- --- For more information about paths, see --- --- in the /Using IAM/ guide. -pPath :: Lens' Policy (Maybe Text) -pPath = lens _pPath (\ s a -> s{_pPath = a}); - -- | The date and time, in -- , when the -- policy was last updated. @@ -1056,6 +1048,14 @@ pPolicyId :: Lens' Policy (Maybe Text) pPolicyId = lens _pPolicyId (\ s a -> s{_pPolicyId = a}); +-- | The path to the policy. +-- +-- For more information about paths, see +-- +-- in the /Using IAM/ guide. +pPath :: Lens' Policy (Maybe Text) +pPath = lens _pPath (\ s a -> s{_pPath = a}); + -- | The date and time, in -- , when the -- policy was created. @@ -1088,9 +1088,9 @@ parseXML x = Policy' <$> (x .@? "PolicyName") <*> (x .@? "Arn") <*> - (x .@? "Path") - <*> (x .@? "UpdateDate") + (x .@? "UpdateDate") <*> (x .@? "PolicyId") + <*> (x .@? "Path") <*> (x .@? "CreateDate") <*> (x .@? "IsAttachable") <*> (x .@? "DefaultVersionId") @@ -2048,9 +2048,9 @@ -- -- /See:/ 'userDetail' smart constructor. data UserDetail = UserDetail' - { _udARN :: !(Maybe Text) + { _udGroupList :: !(Maybe [Text]) + , _udARN :: !(Maybe Text) , _udPath :: !(Maybe Text) - , _udGroupList :: !(Maybe [Text]) , _udCreateDate :: !(Maybe ISO8601) , _udUserName :: !(Maybe Text) , _udUserId :: !(Maybe Text) @@ -2062,12 +2062,12 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'udGroupList' +-- -- * 'udARN' -- -- * 'udPath' -- --- * 'udGroupList' --- -- * 'udCreateDate' -- -- * 'udUserName' @@ -2081,9 +2081,9 @@ :: UserDetail userDetail = UserDetail' - { _udARN = Nothing + { _udGroupList = Nothing + , _udARN = Nothing , _udPath = Nothing - , _udGroupList = Nothing , _udCreateDate = Nothing , _udUserName = Nothing , _udUserId = Nothing @@ -2091,6 +2091,10 @@ , _udAttachedManagedPolicies = Nothing } +-- | A list of IAM groups that the user is in. +udGroupList :: Lens' UserDetail [Text] +udGroupList = lens _udGroupList (\ s a -> s{_udGroupList = a}) . _Default . _Coerce; + -- | Undocumented member. udARN :: Lens' UserDetail (Maybe Text) udARN = lens _udARN (\ s a -> s{_udARN = a}); @@ -2101,10 +2105,6 @@ udPath :: Lens' UserDetail (Maybe Text) udPath = lens _udPath (\ s a -> s{_udPath = a}); --- | A list of IAM groups that the user is in. -udGroupList :: Lens' UserDetail [Text] -udGroupList = lens _udGroupList (\ s a -> s{_udGroupList = a}) . _Default . _Coerce; - -- | The date and time, in -- , when the -- user was created. @@ -2133,9 +2133,10 @@ instance FromXML UserDetail where parseXML x = UserDetail' <$> - (x .@? "Arn") <*> (x .@? "Path") <*> - (x .@? "GroupList" .!@ mempty >>= - may (parseXMLList "member")) + (x .@? "GroupList" .!@ mempty >>= + may (parseXMLList "member")) + <*> (x .@? "Arn") + <*> (x .@? "Path") <*> (x .@? "CreateDate") <*> (x .@? "UserName") <*> (x .@? "UserId") diff --git a/gen/Network/AWS/IAM/UpdateAccountPasswordPolicy.hs b/gen/Network/AWS/IAM/UpdateAccountPasswordPolicy.hs --- a/gen/Network/AWS/IAM/UpdateAccountPasswordPolicy.hs +++ b/gen/Network/AWS/IAM/UpdateAccountPasswordPolicy.hs @@ -36,8 +36,8 @@ updateAccountPasswordPolicy , UpdateAccountPasswordPolicy -- * Request Lenses - , uappRequireNumbers , uappMinimumPasswordLength + , uappRequireNumbers , uappPasswordReusePrevention , uappRequireLowercaseCharacters , uappMaxPasswordAge @@ -59,8 +59,8 @@ -- | /See:/ 'updateAccountPasswordPolicy' smart constructor. data UpdateAccountPasswordPolicy = UpdateAccountPasswordPolicy' - { _uappRequireNumbers :: !(Maybe Bool) - , _uappMinimumPasswordLength :: !(Maybe Nat) + { _uappMinimumPasswordLength :: !(Maybe Nat) + , _uappRequireNumbers :: !(Maybe Bool) , _uappPasswordReusePrevention :: !(Maybe Nat) , _uappRequireLowercaseCharacters :: !(Maybe Bool) , _uappMaxPasswordAge :: !(Maybe Nat) @@ -74,10 +74,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'uappRequireNumbers' --- -- * 'uappMinimumPasswordLength' -- +-- * 'uappRequireNumbers' +-- -- * 'uappPasswordReusePrevention' -- -- * 'uappRequireLowercaseCharacters' @@ -95,8 +95,8 @@ :: UpdateAccountPasswordPolicy updateAccountPasswordPolicy = UpdateAccountPasswordPolicy' - { _uappRequireNumbers = Nothing - , _uappMinimumPasswordLength = Nothing + { _uappMinimumPasswordLength = Nothing + , _uappRequireNumbers = Nothing , _uappPasswordReusePrevention = Nothing , _uappRequireLowercaseCharacters = Nothing , _uappMaxPasswordAge = Nothing @@ -106,6 +106,12 @@ , _uappAllowUsersToChangePassword = Nothing } +-- | The minimum number of characters allowed in an IAM user password. +-- +-- Default value: 6 +uappMinimumPasswordLength :: Lens' UpdateAccountPasswordPolicy (Maybe Natural) +uappMinimumPasswordLength = lens _uappMinimumPasswordLength (\ s a -> s{_uappMinimumPasswordLength = a}) . mapping _Nat; + -- | Specifies whether IAM user passwords must contain at least one numeric -- character (0 to 9). -- @@ -113,12 +119,6 @@ uappRequireNumbers :: Lens' UpdateAccountPasswordPolicy (Maybe Bool) uappRequireNumbers = lens _uappRequireNumbers (\ s a -> s{_uappRequireNumbers = a}); --- | The minimum number of characters allowed in an IAM user password. --- --- Default value: 6 -uappMinimumPasswordLength :: Lens' UpdateAccountPasswordPolicy (Maybe Natural) -uappMinimumPasswordLength = lens _uappMinimumPasswordLength (\ s a -> s{_uappMinimumPasswordLength = a}) . mapping _Nat; - -- | Specifies the number of previous passwords that IAM users are prevented -- from reusing. The default value of 0 means IAM users are not prevented -- from reusing previous passwords. @@ -192,9 +192,9 @@ ["Action" =: ("UpdateAccountPasswordPolicy" :: ByteString), "Version" =: ("2010-05-08" :: ByteString), - "RequireNumbers" =: _uappRequireNumbers, "MinimumPasswordLength" =: _uappMinimumPasswordLength, + "RequireNumbers" =: _uappRequireNumbers, "PasswordReusePrevention" =: _uappPasswordReusePrevention, "RequireLowercaseCharacters" =: diff --git a/gen/Network/AWS/IAM/UpdateSAMLProvider.hs b/gen/Network/AWS/IAM/UpdateSAMLProvider.hs --- a/gen/Network/AWS/IAM/UpdateSAMLProvider.hs +++ b/gen/Network/AWS/IAM/UpdateSAMLProvider.hs @@ -38,7 +38,7 @@ , UpdateSAMLProviderResponse -- * Response Lenses , usamlprsSAMLProviderARN - , usamlprsStatus + , usamlprsResponseStatus ) where import Network.AWS.IAM.Types @@ -113,7 +113,7 @@ -- /See:/ 'updateSAMLProviderResponse' smart constructor. data UpdateSAMLProviderResponse = UpdateSAMLProviderResponse' { _usamlprsSAMLProviderARN :: !(Maybe Text) - , _usamlprsStatus :: !Int + , _usamlprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateSAMLProviderResponse' with the minimum fields required to make a request. @@ -122,14 +122,14 @@ -- -- * 'usamlprsSAMLProviderARN' -- --- * 'usamlprsStatus' +-- * 'usamlprsResponseStatus' updateSAMLProviderResponse - :: Int -- ^ 'usamlprsStatus' + :: Int -- ^ 'usamlprsResponseStatus' -> UpdateSAMLProviderResponse -updateSAMLProviderResponse pStatus_ = +updateSAMLProviderResponse pResponseStatus_ = UpdateSAMLProviderResponse' { _usamlprsSAMLProviderARN = Nothing - , _usamlprsStatus = pStatus_ + , _usamlprsResponseStatus = pResponseStatus_ } -- | The Amazon Resource Name (ARN) of the SAML provider that was updated. @@ -137,5 +137,5 @@ usamlprsSAMLProviderARN = lens _usamlprsSAMLProviderARN (\ s a -> s{_usamlprsSAMLProviderARN = a}); -- | The response status code. -usamlprsStatus :: Lens' UpdateSAMLProviderResponse Int -usamlprsStatus = lens _usamlprsStatus (\ s a -> s{_usamlprsStatus = a}); +usamlprsResponseStatus :: Lens' UpdateSAMLProviderResponse Int +usamlprsResponseStatus = lens _usamlprsResponseStatus (\ s a -> s{_usamlprsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/UploadSSHPublicKey.hs b/gen/Network/AWS/IAM/UploadSSHPublicKey.hs --- a/gen/Network/AWS/IAM/UploadSSHPublicKey.hs +++ b/gen/Network/AWS/IAM/UploadSSHPublicKey.hs @@ -42,7 +42,7 @@ , UploadSSHPublicKeyResponse -- * Response Lenses , uspkrsSSHPublicKey - , uspkrsStatus + , uspkrsResponseStatus ) where import Network.AWS.IAM.Types @@ -111,8 +111,8 @@ -- -- /See:/ 'uploadSSHPublicKeyResponse' smart constructor. data UploadSSHPublicKeyResponse = UploadSSHPublicKeyResponse' - { _uspkrsSSHPublicKey :: !(Maybe SSHPublicKey) - , _uspkrsStatus :: !Int + { _uspkrsSSHPublicKey :: !(Maybe SSHPublicKey) + , _uspkrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UploadSSHPublicKeyResponse' with the minimum fields required to make a request. @@ -121,14 +121,14 @@ -- -- * 'uspkrsSSHPublicKey' -- --- * 'uspkrsStatus' +-- * 'uspkrsResponseStatus' uploadSSHPublicKeyResponse - :: Int -- ^ 'uspkrsStatus' + :: Int -- ^ 'uspkrsResponseStatus' -> UploadSSHPublicKeyResponse -uploadSSHPublicKeyResponse pStatus_ = +uploadSSHPublicKeyResponse pResponseStatus_ = UploadSSHPublicKeyResponse' { _uspkrsSSHPublicKey = Nothing - , _uspkrsStatus = pStatus_ + , _uspkrsResponseStatus = pResponseStatus_ } -- | Contains information about the SSH public key. @@ -136,5 +136,5 @@ uspkrsSSHPublicKey = lens _uspkrsSSHPublicKey (\ s a -> s{_uspkrsSSHPublicKey = a}); -- | The response status code. -uspkrsStatus :: Lens' UploadSSHPublicKeyResponse Int -uspkrsStatus = lens _uspkrsStatus (\ s a -> s{_uspkrsStatus = a}); +uspkrsResponseStatus :: Lens' UploadSSHPublicKeyResponse Int +uspkrsResponseStatus = lens _uspkrsResponseStatus (\ s a -> s{_uspkrsResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/UploadServerCertificate.hs b/gen/Network/AWS/IAM/UploadServerCertificate.hs --- a/gen/Network/AWS/IAM/UploadServerCertificate.hs +++ b/gen/Network/AWS/IAM/UploadServerCertificate.hs @@ -55,7 +55,7 @@ , UploadServerCertificateResponse -- * Response Lenses , ursServerCertificateMetadata - , ursStatus + , ursResponseStatus ) where import Network.AWS.IAM.Types @@ -167,7 +167,7 @@ -- /See:/ 'uploadServerCertificateResponse' smart constructor. data UploadServerCertificateResponse = UploadServerCertificateResponse' { _ursServerCertificateMetadata :: !(Maybe ServerCertificateMetadata) - , _ursStatus :: !Int + , _ursResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UploadServerCertificateResponse' with the minimum fields required to make a request. @@ -176,14 +176,14 @@ -- -- * 'ursServerCertificateMetadata' -- --- * 'ursStatus' +-- * 'ursResponseStatus' uploadServerCertificateResponse - :: Int -- ^ 'ursStatus' + :: Int -- ^ 'ursResponseStatus' -> UploadServerCertificateResponse -uploadServerCertificateResponse pStatus_ = +uploadServerCertificateResponse pResponseStatus_ = UploadServerCertificateResponse' { _ursServerCertificateMetadata = Nothing - , _ursStatus = pStatus_ + , _ursResponseStatus = pResponseStatus_ } -- | The meta information of the uploaded server certificate without its @@ -192,5 +192,5 @@ ursServerCertificateMetadata = lens _ursServerCertificateMetadata (\ s a -> s{_ursServerCertificateMetadata = a}); -- | The response status code. -ursStatus :: Lens' UploadServerCertificateResponse Int -ursStatus = lens _ursStatus (\ s a -> s{_ursStatus = a}); +ursResponseStatus :: Lens' UploadServerCertificateResponse Int +ursResponseStatus = lens _ursResponseStatus (\ s a -> s{_ursResponseStatus = a}); diff --git a/gen/Network/AWS/IAM/UploadSigningCertificate.hs b/gen/Network/AWS/IAM/UploadSigningCertificate.hs --- a/gen/Network/AWS/IAM/UploadSigningCertificate.hs +++ b/gen/Network/AWS/IAM/UploadSigningCertificate.hs @@ -53,7 +53,7 @@ , uploadSigningCertificateResponse , UploadSigningCertificateResponse -- * Response Lenses - , uscrsStatus + , uscrsResponseStatus , uscrsCertificate ) where @@ -122,30 +122,30 @@ -- -- /See:/ 'uploadSigningCertificateResponse' smart constructor. data UploadSigningCertificateResponse = UploadSigningCertificateResponse' - { _uscrsStatus :: !Int - , _uscrsCertificate :: !SigningCertificate + { _uscrsResponseStatus :: !Int + , _uscrsCertificate :: !SigningCertificate } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UploadSigningCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'uscrsStatus' +-- * 'uscrsResponseStatus' -- -- * 'uscrsCertificate' uploadSigningCertificateResponse - :: Int -- ^ 'uscrsStatus' + :: Int -- ^ 'uscrsResponseStatus' -> SigningCertificate -- ^ 'uscrsCertificate' -> UploadSigningCertificateResponse -uploadSigningCertificateResponse pStatus_ pCertificate_ = +uploadSigningCertificateResponse pResponseStatus_ pCertificate_ = UploadSigningCertificateResponse' - { _uscrsStatus = pStatus_ + { _uscrsResponseStatus = pResponseStatus_ , _uscrsCertificate = pCertificate_ } -- | The response status code. -uscrsStatus :: Lens' UploadSigningCertificateResponse Int -uscrsStatus = lens _uscrsStatus (\ s a -> s{_uscrsStatus = a}); +uscrsResponseStatus :: Lens' UploadSigningCertificateResponse Int +uscrsResponseStatus = lens _uscrsResponseStatus (\ s a -> s{_uscrsResponseStatus = a}); -- | Information about the certificate. uscrsCertificate :: Lens' UploadSigningCertificateResponse SigningCertificate diff --git a/test/Test/AWS/Gen/IAM.hs b/test/Test/AWS/Gen/IAM.hs --- a/test/Test/AWS/Gen/IAM.hs +++ b/test/Test/AWS/Gen/IAM.hs @@ -28,1970 +28,1970 @@ -- fixtures :: TestTree -- fixtures = -- [ testGroup "request" --- [ testAttachGroupPolicy $ --- attachGroupPolicy --- --- , testListInstanceProfilesForRole $ --- listInstanceProfilesForRole --- --- , testCreatePolicy $ --- createPolicy --- --- , testListPolicies $ --- listPolicies --- --- , testAttachRolePolicy $ --- attachRolePolicy --- --- , testListSSHPublicKeys $ --- listSSHPublicKeys --- --- , testDeleteSSHPublicKey $ --- deleteSSHPublicKey --- --- , testUpdateSSHPublicKey $ --- updateSSHPublicKey --- --- , testListOpenIdConnectProviders $ --- listOpenIdConnectProviders --- --- , testDeleteAccountPasswordPolicy $ --- deleteAccountPasswordPolicy --- --- , testUpdateAccountPasswordPolicy $ --- updateAccountPasswordPolicy --- --- , testCreateAccessKey $ --- createAccessKey --- --- , testGetUserPolicy $ --- getUserPolicy --- --- , testCreateVirtualMFADevice $ --- createVirtualMFADevice --- --- , testCreateOpenIdConnectProvider $ --- createOpenIdConnectProvider --- --- , testListAttachedRolePolicies $ --- listAttachedRolePolicies --- --- , testDeleteVirtualMFADevice $ --- deleteVirtualMFADevice --- --- , testGetRole $ --- getRole --- --- , testDeactivateMFADevice $ --- deactivateMFADevice --- --- , testListRoles $ --- listRoles --- --- , testDeleteRole $ --- deleteRole --- --- , testListUserPolicies $ --- listUserPolicies --- --- , testUploadSSHPublicKey $ --- uploadSSHPublicKey --- --- , testListUsers $ --- listUsers --- --- , testUpdateOpenIdConnectProviderThumbprint $ --- updateOpenIdConnectProviderThumbprint --- --- , testGetSSHPublicKey $ --- getSSHPublicKey --- --- , testPutUserPolicy $ --- putUserPolicy --- --- , testCreateRole $ --- createRole --- --- , testDeleteUserPolicy $ --- deleteUserPolicy --- --- , testGetOpenIdConnectProvider $ --- getOpenIdConnectProvider --- --- , testDetachGroupPolicy $ --- detachGroupPolicy --- --- , testGetCredentialReport $ --- getCredentialReport --- --- , testDeletePolicyVersion $ --- deletePolicyVersion --- --- , testDetachRolePolicy $ --- detachRolePolicy --- --- , testDeleteInstanceProfile $ --- deleteInstanceProfile --- --- , testListGroupPolicies $ --- listGroupPolicies --- --- , testGetAccountSummary $ --- getAccountSummary --- --- , testCreateInstanceProfile $ --- createInstanceProfile --- --- , testPutGroupPolicy $ --- putGroupPolicy --- --- , testDeleteGroupPolicy $ --- deleteGroupPolicy --- --- , testGetAccountAuthorizationDetails $ --- getAccountAuthorizationDetails --- --- , testDeleteAccountAlias $ --- deleteAccountAlias --- --- , testRemoveRoleFromInstanceProfile $ --- removeRoleFromInstanceProfile --- --- , testGetLoginProfile $ --- getLoginProfile --- --- , testRemoveUserFromGroup $ --- removeUserFromGroup --- --- , testDetachUserPolicy $ --- detachUserPolicy --- --- , testCreateSAMLProvider $ --- createSAMLProvider --- --- , testCreatePolicyVersion $ --- createPolicyVersion --- --- , testGetGroupPolicy $ --- getGroupPolicy --- --- , testDeletePolicy $ --- deletePolicy --- --- , testListServerCertificates $ --- listServerCertificates --- --- , testUpdateAssumeRolePolicy $ --- updateAssumeRolePolicy --- --- , testChangePassword $ --- changePassword --- --- , testListGroupsForUser $ --- listGroupsForUser --- --- , testGetPolicyVersion $ --- getPolicyVersion --- --- , testCreateLoginProfile $ --- createLoginProfile --- --- , testGetInstanceProfile $ --- getInstanceProfile --- --- , testListEntitiesForPolicy $ --- listEntitiesForPolicy --- --- , testGetSAMLProvider $ --- getSAMLProvider --- --- , testAddRoleToInstanceProfile $ --- addRoleToInstanceProfile --- --- , testAddUserToGroup $ --- addUserToGroup --- --- , testDeleteOpenIdConnectProvider $ --- deleteOpenIdConnectProvider --- --- , testGetUser $ --- getUser --- --- , testListAttachedUserPolicies $ --- listAttachedUserPolicies --- --- , testDeleteSigningCertificate $ --- deleteSigningCertificate --- --- , testUpdateSigningCertificate $ --- updateSigningCertificate --- --- , testListSigningCertificates $ --- listSigningCertificates --- --- , testRemoveClientIdFromOpenIdConnectProvider $ --- removeClientIdFromOpenIdConnectProvider --- --- , testListAccessKeys $ --- listAccessKeys --- --- , testListVirtualMFADevices $ --- listVirtualMFADevices --- --- , testDeleteAccessKey $ --- deleteAccessKey --- --- , testUpdateAccessKey $ --- updateAccessKey --- --- , testGetRolePolicy $ --- getRolePolicy --- --- , testAttachUserPolicy $ --- attachUserPolicy --- --- , testResyncMFADevice $ --- resyncMFADevice --- --- , testCreateUser $ --- createUser --- --- , testUploadSigningCertificate $ --- uploadSigningCertificate --- --- , testPutRolePolicy $ --- putRolePolicy --- --- , testDeleteRolePolicy $ --- deleteRolePolicy --- --- , testUpdateUser $ --- updateUser --- --- , testDeleteUser $ --- deleteUser --- --- , testListRolePolicies $ --- listRolePolicies --- --- , testAddClientIdToOpenIdConnectProvider $ --- addClientIdToOpenIdConnectProvider --- --- , testGetAccessKeyLastUsed $ --- getAccessKeyLastUsed --- --- , testGetAccountPasswordPolicy $ --- getAccountPasswordPolicy --- --- , testListAccountAliases $ --- listAccountAliases --- --- , testCreateAccountAlias $ --- createAccountAlias --- --- , testUploadServerCertificate $ --- uploadServerCertificate --- --- , testListMFADevices $ --- listMFADevices --- --- , testEnableMFADevice $ --- enableMFADevice --- --- , testListPolicyVersions $ --- listPolicyVersions --- --- , testListSAMLProviders $ --- listSAMLProviders --- --- , testUpdateSAMLProvider $ --- updateSAMLProvider --- --- , testDeleteSAMLProvider $ --- deleteSAMLProvider --- --- , testCreateGroup $ --- createGroup --- --- , testSetDefaultPolicyVersion $ --- setDefaultPolicyVersion --- --- , testListInstanceProfiles $ --- listInstanceProfiles --- --- , testListGroups $ --- listGroups --- --- , testDeleteGroup $ --- deleteGroup --- --- , testUpdateGroup $ --- updateGroup --- --- , testGetServerCertificate $ --- getServerCertificate --- --- , testGetPolicy $ --- getPolicy --- --- , testGenerateCredentialReport $ --- generateCredentialReport --- --- , testGetGroup $ --- getGroup --- --- , testDeleteServerCertificate $ --- deleteServerCertificate --- --- , testUpdateServerCertificate $ --- updateServerCertificate --- --- , testDeleteLoginProfile $ --- deleteLoginProfile --- --- , testUpdateLoginProfile $ --- updateLoginProfile --- --- , testListAttachedGroupPolicies $ --- listAttachedGroupPolicies --- --- ] - --- , testGroup "response" --- [ testAttachGroupPolicyResponse $ --- attachGroupPolicyResponse --- --- , testListInstanceProfilesForRoleResponse $ --- listInstanceProfilesForRoleResponse --- --- , testCreatePolicyResponse $ --- createPolicyResponse --- --- , testListPoliciesResponse $ --- listPoliciesResponse --- --- , testAttachRolePolicyResponse $ --- attachRolePolicyResponse --- --- , testListSSHPublicKeysResponse $ --- listSSHPublicKeysResponse --- --- , testDeleteSSHPublicKeyResponse $ --- deleteSSHPublicKeyResponse --- --- , testUpdateSSHPublicKeyResponse $ --- updateSSHPublicKeyResponse --- --- , testListOpenIdConnectProvidersResponse $ --- listOpenIdConnectProvidersResponse --- --- , testDeleteAccountPasswordPolicyResponse $ --- deleteAccountPasswordPolicyResponse --- --- , testUpdateAccountPasswordPolicyResponse $ --- updateAccountPasswordPolicyResponse --- --- , testCreateAccessKeyResponse $ --- createAccessKeyResponse --- --- , testGetUserPolicyResponse $ --- getUserPolicyResponse --- --- , testCreateVirtualMFADeviceResponse $ --- createVirtualMFADeviceResponse --- --- , testCreateOpenIdConnectProviderResponse $ --- createOpenIdConnectProviderResponse --- --- , testListAttachedRolePoliciesResponse $ --- listAttachedRolePoliciesResponse --- --- , testDeleteVirtualMFADeviceResponse $ --- deleteVirtualMFADeviceResponse --- --- , testGetRoleResponse $ --- getRoleResponse --- --- , testDeactivateMFADeviceResponse $ --- deactivateMFADeviceResponse --- --- , testListRolesResponse $ --- listRolesResponse --- --- , testDeleteRoleResponse $ --- deleteRoleResponse --- --- , testListUserPoliciesResponse $ --- listUserPoliciesResponse --- --- , testUploadSSHPublicKeyResponse $ --- uploadSSHPublicKeyResponse --- --- , testListUsersResponse $ --- listUsersResponse --- --- , testUpdateOpenIdConnectProviderThumbprintResponse $ --- updateOpenIdConnectProviderThumbprintResponse --- --- , testGetSSHPublicKeyResponse $ --- getSSHPublicKeyResponse --- --- , testPutUserPolicyResponse $ --- putUserPolicyResponse --- --- , testCreateRoleResponse $ --- createRoleResponse --- --- , testDeleteUserPolicyResponse $ --- deleteUserPolicyResponse --- --- , testGetOpenIdConnectProviderResponse $ --- getOpenIdConnectProviderResponse --- --- , testDetachGroupPolicyResponse $ --- detachGroupPolicyResponse --- --- , testGetCredentialReportResponse $ --- getCredentialReportResponse --- --- , testDeletePolicyVersionResponse $ --- deletePolicyVersionResponse --- --- , testDetachRolePolicyResponse $ --- detachRolePolicyResponse --- --- , testDeleteInstanceProfileResponse $ --- deleteInstanceProfileResponse --- --- , testListGroupPoliciesResponse $ --- listGroupPoliciesResponse --- --- , testGetAccountSummaryResponse $ --- getAccountSummaryResponse --- --- , testCreateInstanceProfileResponse $ --- createInstanceProfileResponse --- --- , testPutGroupPolicyResponse $ --- putGroupPolicyResponse --- --- , testDeleteGroupPolicyResponse $ --- deleteGroupPolicyResponse --- --- , testGetAccountAuthorizationDetailsResponse $ --- getAccountAuthorizationDetailsResponse --- --- , testDeleteAccountAliasResponse $ --- deleteAccountAliasResponse --- --- , testRemoveRoleFromInstanceProfileResponse $ --- removeRoleFromInstanceProfileResponse --- --- , testGetLoginProfileResponse $ --- getLoginProfileResponse --- --- , testRemoveUserFromGroupResponse $ --- removeUserFromGroupResponse --- --- , testDetachUserPolicyResponse $ --- detachUserPolicyResponse --- --- , testCreateSAMLProviderResponse $ --- createSAMLProviderResponse --- --- , testCreatePolicyVersionResponse $ --- createPolicyVersionResponse --- --- , testGetGroupPolicyResponse $ --- getGroupPolicyResponse --- --- , testDeletePolicyResponse $ --- deletePolicyResponse --- --- , testListServerCertificatesResponse $ --- listServerCertificatesResponse --- --- , testUpdateAssumeRolePolicyResponse $ --- updateAssumeRolePolicyResponse --- --- , testChangePasswordResponse $ --- changePasswordResponse --- --- , testListGroupsForUserResponse $ --- listGroupsForUserResponse --- --- , testGetPolicyVersionResponse $ --- getPolicyVersionResponse --- --- , testCreateLoginProfileResponse $ --- createLoginProfileResponse --- --- , testGetInstanceProfileResponse $ --- getInstanceProfileResponse --- --- , testListEntitiesForPolicyResponse $ --- listEntitiesForPolicyResponse --- --- , testGetSAMLProviderResponse $ --- getSAMLProviderResponse --- --- , testAddRoleToInstanceProfileResponse $ --- addRoleToInstanceProfileResponse --- --- , testAddUserToGroupResponse $ --- addUserToGroupResponse --- --- , testDeleteOpenIdConnectProviderResponse $ --- deleteOpenIdConnectProviderResponse --- --- , testGetUserResponse $ --- getUserResponse --- --- , testListAttachedUserPoliciesResponse $ --- listAttachedUserPoliciesResponse --- --- , testDeleteSigningCertificateResponse $ --- deleteSigningCertificateResponse --- --- , testUpdateSigningCertificateResponse $ --- updateSigningCertificateResponse --- --- , testListSigningCertificatesResponse $ --- listSigningCertificatesResponse --- --- , testRemoveClientIdFromOpenIdConnectProviderResponse $ --- removeClientIdFromOpenIdConnectProviderResponse --- --- , testListAccessKeysResponse $ --- listAccessKeysResponse --- --- , testListVirtualMFADevicesResponse $ --- listVirtualMFADevicesResponse --- --- , testDeleteAccessKeyResponse $ --- deleteAccessKeyResponse --- --- , testUpdateAccessKeyResponse $ --- updateAccessKeyResponse --- --- , testGetRolePolicyResponse $ --- getRolePolicyResponse --- --- , testAttachUserPolicyResponse $ --- attachUserPolicyResponse --- --- , testResyncMFADeviceResponse $ --- resyncMFADeviceResponse --- --- , testCreateUserResponse $ --- createUserResponse --- --- , testUploadSigningCertificateResponse $ --- uploadSigningCertificateResponse --- --- , testPutRolePolicyResponse $ --- putRolePolicyResponse --- --- , testDeleteRolePolicyResponse $ --- deleteRolePolicyResponse --- --- , testUpdateUserResponse $ --- updateUserResponse --- --- , testDeleteUserResponse $ --- deleteUserResponse --- --- , testListRolePoliciesResponse $ --- listRolePoliciesResponse --- --- , testAddClientIdToOpenIdConnectProviderResponse $ --- addClientIdToOpenIdConnectProviderResponse --- --- , testGetAccessKeyLastUsedResponse $ --- getAccessKeyLastUsedResponse --- --- , testGetAccountPasswordPolicyResponse $ --- getAccountPasswordPolicyResponse --- --- , testListAccountAliasesResponse $ --- listAccountAliasesResponse --- --- , testCreateAccountAliasResponse $ --- createAccountAliasResponse --- --- , testUploadServerCertificateResponse $ --- uploadServerCertificateResponse --- --- , testListMFADevicesResponse $ --- listMFADevicesResponse --- --- , testEnableMFADeviceResponse $ --- enableMFADeviceResponse --- --- , testListPolicyVersionsResponse $ --- listPolicyVersionsResponse --- --- , testListSAMLProvidersResponse $ --- listSAMLProvidersResponse --- --- , testUpdateSAMLProviderResponse $ --- updateSAMLProviderResponse --- --- , testDeleteSAMLProviderResponse $ --- deleteSAMLProviderResponse --- --- , testCreateGroupResponse $ --- createGroupResponse --- --- , testSetDefaultPolicyVersionResponse $ --- setDefaultPolicyVersionResponse --- --- , testListInstanceProfilesResponse $ --- listInstanceProfilesResponse --- --- , testListGroupsResponse $ --- listGroupsResponse --- --- , testDeleteGroupResponse $ --- deleteGroupResponse --- --- , testUpdateGroupResponse $ --- updateGroupResponse --- --- , testGetServerCertificateResponse $ --- getServerCertificateResponse --- --- , testGetPolicyResponse $ --- getPolicyResponse --- --- , testGenerateCredentialReportResponse $ --- generateCredentialReportResponse --- --- , testGetGroupResponse $ --- getGroupResponse --- --- , testDeleteServerCertificateResponse $ --- deleteServerCertificateResponse --- --- , testUpdateServerCertificateResponse $ --- updateServerCertificateResponse --- --- , testDeleteLoginProfileResponse $ --- deleteLoginProfileResponse --- --- , testUpdateLoginProfileResponse $ --- updateLoginProfileResponse --- --- , testListAttachedGroupPoliciesResponse $ --- listAttachedGroupPoliciesResponse --- --- ] --- ] - --- Requests - -testAttachGroupPolicy :: AttachGroupPolicy -> TestTree -testAttachGroupPolicy = req - "AttachGroupPolicy" - "fixture/AttachGroupPolicy.yaml" - -testListInstanceProfilesForRole :: ListInstanceProfilesForRole -> TestTree -testListInstanceProfilesForRole = req - "ListInstanceProfilesForRole" - "fixture/ListInstanceProfilesForRole.yaml" - -testCreatePolicy :: CreatePolicy -> TestTree -testCreatePolicy = req - "CreatePolicy" - "fixture/CreatePolicy.yaml" - -testListPolicies :: ListPolicies -> TestTree -testListPolicies = req - "ListPolicies" - "fixture/ListPolicies.yaml" - -testAttachRolePolicy :: AttachRolePolicy -> TestTree -testAttachRolePolicy = req - "AttachRolePolicy" - "fixture/AttachRolePolicy.yaml" - -testListSSHPublicKeys :: ListSSHPublicKeys -> TestTree -testListSSHPublicKeys = req - "ListSSHPublicKeys" - "fixture/ListSSHPublicKeys.yaml" - -testDeleteSSHPublicKey :: DeleteSSHPublicKey -> TestTree -testDeleteSSHPublicKey = req - "DeleteSSHPublicKey" - "fixture/DeleteSSHPublicKey.yaml" - -testUpdateSSHPublicKey :: UpdateSSHPublicKey -> TestTree -testUpdateSSHPublicKey = req - "UpdateSSHPublicKey" - "fixture/UpdateSSHPublicKey.yaml" - -testListOpenIdConnectProviders :: ListOpenIdConnectProviders -> TestTree -testListOpenIdConnectProviders = req - "ListOpenIdConnectProviders" - "fixture/ListOpenIdConnectProviders.yaml" - -testDeleteAccountPasswordPolicy :: DeleteAccountPasswordPolicy -> TestTree -testDeleteAccountPasswordPolicy = req - "DeleteAccountPasswordPolicy" - "fixture/DeleteAccountPasswordPolicy.yaml" - -testUpdateAccountPasswordPolicy :: UpdateAccountPasswordPolicy -> TestTree -testUpdateAccountPasswordPolicy = req - "UpdateAccountPasswordPolicy" - "fixture/UpdateAccountPasswordPolicy.yaml" - -testCreateAccessKey :: CreateAccessKey -> TestTree -testCreateAccessKey = req - "CreateAccessKey" - "fixture/CreateAccessKey.yaml" - -testGetUserPolicy :: GetUserPolicy -> TestTree -testGetUserPolicy = req - "GetUserPolicy" - "fixture/GetUserPolicy.yaml" - -testCreateVirtualMFADevice :: CreateVirtualMFADevice -> TestTree -testCreateVirtualMFADevice = req - "CreateVirtualMFADevice" - "fixture/CreateVirtualMFADevice.yaml" - -testCreateOpenIdConnectProvider :: CreateOpenIdConnectProvider -> TestTree -testCreateOpenIdConnectProvider = req - "CreateOpenIdConnectProvider" - "fixture/CreateOpenIdConnectProvider.yaml" - -testListAttachedRolePolicies :: ListAttachedRolePolicies -> TestTree -testListAttachedRolePolicies = req - "ListAttachedRolePolicies" - "fixture/ListAttachedRolePolicies.yaml" - -testDeleteVirtualMFADevice :: DeleteVirtualMFADevice -> TestTree -testDeleteVirtualMFADevice = req - "DeleteVirtualMFADevice" - "fixture/DeleteVirtualMFADevice.yaml" - -testGetRole :: GetRole -> TestTree -testGetRole = req - "GetRole" - "fixture/GetRole.yaml" - -testDeactivateMFADevice :: DeactivateMFADevice -> TestTree -testDeactivateMFADevice = req - "DeactivateMFADevice" - "fixture/DeactivateMFADevice.yaml" - -testListRoles :: ListRoles -> TestTree -testListRoles = req - "ListRoles" - "fixture/ListRoles.yaml" - -testDeleteRole :: DeleteRole -> TestTree -testDeleteRole = req - "DeleteRole" - "fixture/DeleteRole.yaml" - -testListUserPolicies :: ListUserPolicies -> TestTree -testListUserPolicies = req - "ListUserPolicies" - "fixture/ListUserPolicies.yaml" - -testUploadSSHPublicKey :: UploadSSHPublicKey -> TestTree -testUploadSSHPublicKey = req - "UploadSSHPublicKey" - "fixture/UploadSSHPublicKey.yaml" - -testListUsers :: ListUsers -> TestTree -testListUsers = req - "ListUsers" - "fixture/ListUsers.yaml" - -testUpdateOpenIdConnectProviderThumbprint :: UpdateOpenIdConnectProviderThumbprint -> TestTree -testUpdateOpenIdConnectProviderThumbprint = req - "UpdateOpenIdConnectProviderThumbprint" - "fixture/UpdateOpenIdConnectProviderThumbprint.yaml" - -testGetSSHPublicKey :: GetSSHPublicKey -> TestTree -testGetSSHPublicKey = req - "GetSSHPublicKey" - "fixture/GetSSHPublicKey.yaml" - -testPutUserPolicy :: PutUserPolicy -> TestTree -testPutUserPolicy = req - "PutUserPolicy" - "fixture/PutUserPolicy.yaml" - -testCreateRole :: CreateRole -> TestTree -testCreateRole = req - "CreateRole" - "fixture/CreateRole.yaml" - -testDeleteUserPolicy :: DeleteUserPolicy -> TestTree -testDeleteUserPolicy = req - "DeleteUserPolicy" - "fixture/DeleteUserPolicy.yaml" - -testGetOpenIdConnectProvider :: GetOpenIdConnectProvider -> TestTree -testGetOpenIdConnectProvider = req - "GetOpenIdConnectProvider" - "fixture/GetOpenIdConnectProvider.yaml" - -testDetachGroupPolicy :: DetachGroupPolicy -> TestTree -testDetachGroupPolicy = req - "DetachGroupPolicy" - "fixture/DetachGroupPolicy.yaml" - -testGetCredentialReport :: GetCredentialReport -> TestTree -testGetCredentialReport = req - "GetCredentialReport" - "fixture/GetCredentialReport.yaml" - -testDeletePolicyVersion :: DeletePolicyVersion -> TestTree -testDeletePolicyVersion = req - "DeletePolicyVersion" - "fixture/DeletePolicyVersion.yaml" - -testDetachRolePolicy :: DetachRolePolicy -> TestTree -testDetachRolePolicy = req - "DetachRolePolicy" - "fixture/DetachRolePolicy.yaml" - -testDeleteInstanceProfile :: DeleteInstanceProfile -> TestTree -testDeleteInstanceProfile = req - "DeleteInstanceProfile" - "fixture/DeleteInstanceProfile.yaml" - -testListGroupPolicies :: ListGroupPolicies -> TestTree -testListGroupPolicies = req - "ListGroupPolicies" - "fixture/ListGroupPolicies.yaml" - -testGetAccountSummary :: GetAccountSummary -> TestTree -testGetAccountSummary = req - "GetAccountSummary" - "fixture/GetAccountSummary.yaml" - -testCreateInstanceProfile :: CreateInstanceProfile -> TestTree -testCreateInstanceProfile = req - "CreateInstanceProfile" - "fixture/CreateInstanceProfile.yaml" - -testPutGroupPolicy :: PutGroupPolicy -> TestTree -testPutGroupPolicy = req - "PutGroupPolicy" - "fixture/PutGroupPolicy.yaml" - -testDeleteGroupPolicy :: DeleteGroupPolicy -> TestTree -testDeleteGroupPolicy = req - "DeleteGroupPolicy" - "fixture/DeleteGroupPolicy.yaml" - -testGetAccountAuthorizationDetails :: GetAccountAuthorizationDetails -> TestTree -testGetAccountAuthorizationDetails = req - "GetAccountAuthorizationDetails" - "fixture/GetAccountAuthorizationDetails.yaml" - -testDeleteAccountAlias :: DeleteAccountAlias -> TestTree -testDeleteAccountAlias = req - "DeleteAccountAlias" - "fixture/DeleteAccountAlias.yaml" - -testRemoveRoleFromInstanceProfile :: RemoveRoleFromInstanceProfile -> TestTree -testRemoveRoleFromInstanceProfile = req - "RemoveRoleFromInstanceProfile" - "fixture/RemoveRoleFromInstanceProfile.yaml" - -testGetLoginProfile :: GetLoginProfile -> TestTree -testGetLoginProfile = req - "GetLoginProfile" - "fixture/GetLoginProfile.yaml" - -testRemoveUserFromGroup :: RemoveUserFromGroup -> TestTree -testRemoveUserFromGroup = req - "RemoveUserFromGroup" - "fixture/RemoveUserFromGroup.yaml" - -testDetachUserPolicy :: DetachUserPolicy -> TestTree -testDetachUserPolicy = req - "DetachUserPolicy" - "fixture/DetachUserPolicy.yaml" - -testCreateSAMLProvider :: CreateSAMLProvider -> TestTree -testCreateSAMLProvider = req - "CreateSAMLProvider" - "fixture/CreateSAMLProvider.yaml" - -testCreatePolicyVersion :: CreatePolicyVersion -> TestTree -testCreatePolicyVersion = req - "CreatePolicyVersion" - "fixture/CreatePolicyVersion.yaml" - -testGetGroupPolicy :: GetGroupPolicy -> TestTree -testGetGroupPolicy = req - "GetGroupPolicy" - "fixture/GetGroupPolicy.yaml" - -testDeletePolicy :: DeletePolicy -> TestTree -testDeletePolicy = req - "DeletePolicy" - "fixture/DeletePolicy.yaml" - -testListServerCertificates :: ListServerCertificates -> TestTree -testListServerCertificates = req - "ListServerCertificates" - "fixture/ListServerCertificates.yaml" - -testUpdateAssumeRolePolicy :: UpdateAssumeRolePolicy -> TestTree -testUpdateAssumeRolePolicy = req - "UpdateAssumeRolePolicy" - "fixture/UpdateAssumeRolePolicy.yaml" - -testChangePassword :: ChangePassword -> TestTree -testChangePassword = req - "ChangePassword" - "fixture/ChangePassword.yaml" - -testListGroupsForUser :: ListGroupsForUser -> TestTree -testListGroupsForUser = req - "ListGroupsForUser" - "fixture/ListGroupsForUser.yaml" - -testGetPolicyVersion :: GetPolicyVersion -> TestTree -testGetPolicyVersion = req - "GetPolicyVersion" - "fixture/GetPolicyVersion.yaml" - -testCreateLoginProfile :: CreateLoginProfile -> TestTree -testCreateLoginProfile = req - "CreateLoginProfile" - "fixture/CreateLoginProfile.yaml" - -testGetInstanceProfile :: GetInstanceProfile -> TestTree -testGetInstanceProfile = req - "GetInstanceProfile" - "fixture/GetInstanceProfile.yaml" - -testListEntitiesForPolicy :: ListEntitiesForPolicy -> TestTree -testListEntitiesForPolicy = req - "ListEntitiesForPolicy" - "fixture/ListEntitiesForPolicy.yaml" - -testGetSAMLProvider :: GetSAMLProvider -> TestTree -testGetSAMLProvider = req - "GetSAMLProvider" - "fixture/GetSAMLProvider.yaml" - -testAddRoleToInstanceProfile :: AddRoleToInstanceProfile -> TestTree -testAddRoleToInstanceProfile = req - "AddRoleToInstanceProfile" - "fixture/AddRoleToInstanceProfile.yaml" - -testAddUserToGroup :: AddUserToGroup -> TestTree -testAddUserToGroup = req - "AddUserToGroup" - "fixture/AddUserToGroup.yaml" - -testDeleteOpenIdConnectProvider :: DeleteOpenIdConnectProvider -> TestTree -testDeleteOpenIdConnectProvider = req - "DeleteOpenIdConnectProvider" - "fixture/DeleteOpenIdConnectProvider.yaml" - -testGetUser :: GetUser -> TestTree -testGetUser = req - "GetUser" - "fixture/GetUser.yaml" - -testListAttachedUserPolicies :: ListAttachedUserPolicies -> TestTree -testListAttachedUserPolicies = req - "ListAttachedUserPolicies" - "fixture/ListAttachedUserPolicies.yaml" - -testDeleteSigningCertificate :: DeleteSigningCertificate -> TestTree -testDeleteSigningCertificate = req - "DeleteSigningCertificate" - "fixture/DeleteSigningCertificate.yaml" - -testUpdateSigningCertificate :: UpdateSigningCertificate -> TestTree -testUpdateSigningCertificate = req - "UpdateSigningCertificate" - "fixture/UpdateSigningCertificate.yaml" - -testListSigningCertificates :: ListSigningCertificates -> TestTree -testListSigningCertificates = req - "ListSigningCertificates" - "fixture/ListSigningCertificates.yaml" - -testRemoveClientIdFromOpenIdConnectProvider :: RemoveClientIdFromOpenIdConnectProvider -> TestTree -testRemoveClientIdFromOpenIdConnectProvider = req - "RemoveClientIdFromOpenIdConnectProvider" - "fixture/RemoveClientIdFromOpenIdConnectProvider.yaml" - -testListAccessKeys :: ListAccessKeys -> TestTree -testListAccessKeys = req - "ListAccessKeys" - "fixture/ListAccessKeys.yaml" - -testListVirtualMFADevices :: ListVirtualMFADevices -> TestTree -testListVirtualMFADevices = req - "ListVirtualMFADevices" - "fixture/ListVirtualMFADevices.yaml" - -testDeleteAccessKey :: DeleteAccessKey -> TestTree -testDeleteAccessKey = req - "DeleteAccessKey" - "fixture/DeleteAccessKey.yaml" - -testUpdateAccessKey :: UpdateAccessKey -> TestTree -testUpdateAccessKey = req - "UpdateAccessKey" - "fixture/UpdateAccessKey.yaml" - -testGetRolePolicy :: GetRolePolicy -> TestTree -testGetRolePolicy = req - "GetRolePolicy" - "fixture/GetRolePolicy.yaml" - -testAttachUserPolicy :: AttachUserPolicy -> TestTree -testAttachUserPolicy = req - "AttachUserPolicy" - "fixture/AttachUserPolicy.yaml" - -testResyncMFADevice :: ResyncMFADevice -> TestTree -testResyncMFADevice = req - "ResyncMFADevice" - "fixture/ResyncMFADevice.yaml" - -testCreateUser :: CreateUser -> TestTree -testCreateUser = req - "CreateUser" - "fixture/CreateUser.yaml" - -testUploadSigningCertificate :: UploadSigningCertificate -> TestTree -testUploadSigningCertificate = req - "UploadSigningCertificate" - "fixture/UploadSigningCertificate.yaml" - -testPutRolePolicy :: PutRolePolicy -> TestTree -testPutRolePolicy = req - "PutRolePolicy" - "fixture/PutRolePolicy.yaml" - -testDeleteRolePolicy :: DeleteRolePolicy -> TestTree -testDeleteRolePolicy = req - "DeleteRolePolicy" - "fixture/DeleteRolePolicy.yaml" - -testUpdateUser :: UpdateUser -> TestTree -testUpdateUser = req - "UpdateUser" - "fixture/UpdateUser.yaml" - -testDeleteUser :: DeleteUser -> TestTree -testDeleteUser = req - "DeleteUser" - "fixture/DeleteUser.yaml" - -testListRolePolicies :: ListRolePolicies -> TestTree -testListRolePolicies = req - "ListRolePolicies" - "fixture/ListRolePolicies.yaml" - -testAddClientIdToOpenIdConnectProvider :: AddClientIdToOpenIdConnectProvider -> TestTree -testAddClientIdToOpenIdConnectProvider = req - "AddClientIdToOpenIdConnectProvider" - "fixture/AddClientIdToOpenIdConnectProvider.yaml" - -testGetAccessKeyLastUsed :: GetAccessKeyLastUsed -> TestTree -testGetAccessKeyLastUsed = req - "GetAccessKeyLastUsed" - "fixture/GetAccessKeyLastUsed.yaml" - -testGetAccountPasswordPolicy :: GetAccountPasswordPolicy -> TestTree -testGetAccountPasswordPolicy = req - "GetAccountPasswordPolicy" - "fixture/GetAccountPasswordPolicy.yaml" - -testListAccountAliases :: ListAccountAliases -> TestTree -testListAccountAliases = req - "ListAccountAliases" - "fixture/ListAccountAliases.yaml" - -testCreateAccountAlias :: CreateAccountAlias -> TestTree -testCreateAccountAlias = req - "CreateAccountAlias" - "fixture/CreateAccountAlias.yaml" - -testUploadServerCertificate :: UploadServerCertificate -> TestTree -testUploadServerCertificate = req - "UploadServerCertificate" - "fixture/UploadServerCertificate.yaml" - -testListMFADevices :: ListMFADevices -> TestTree -testListMFADevices = req - "ListMFADevices" - "fixture/ListMFADevices.yaml" - -testEnableMFADevice :: EnableMFADevice -> TestTree -testEnableMFADevice = req - "EnableMFADevice" - "fixture/EnableMFADevice.yaml" - -testListPolicyVersions :: ListPolicyVersions -> TestTree -testListPolicyVersions = req - "ListPolicyVersions" - "fixture/ListPolicyVersions.yaml" - -testListSAMLProviders :: ListSAMLProviders -> TestTree -testListSAMLProviders = req - "ListSAMLProviders" - "fixture/ListSAMLProviders.yaml" - -testUpdateSAMLProvider :: UpdateSAMLProvider -> TestTree -testUpdateSAMLProvider = req - "UpdateSAMLProvider" - "fixture/UpdateSAMLProvider.yaml" - -testDeleteSAMLProvider :: DeleteSAMLProvider -> TestTree -testDeleteSAMLProvider = req - "DeleteSAMLProvider" - "fixture/DeleteSAMLProvider.yaml" - -testCreateGroup :: CreateGroup -> TestTree -testCreateGroup = req - "CreateGroup" - "fixture/CreateGroup.yaml" - -testSetDefaultPolicyVersion :: SetDefaultPolicyVersion -> TestTree -testSetDefaultPolicyVersion = req - "SetDefaultPolicyVersion" - "fixture/SetDefaultPolicyVersion.yaml" - -testListInstanceProfiles :: ListInstanceProfiles -> TestTree -testListInstanceProfiles = req - "ListInstanceProfiles" - "fixture/ListInstanceProfiles.yaml" - -testListGroups :: ListGroups -> TestTree -testListGroups = req - "ListGroups" - "fixture/ListGroups.yaml" - -testDeleteGroup :: DeleteGroup -> TestTree -testDeleteGroup = req - "DeleteGroup" - "fixture/DeleteGroup.yaml" - -testUpdateGroup :: UpdateGroup -> TestTree -testUpdateGroup = req - "UpdateGroup" - "fixture/UpdateGroup.yaml" - -testGetServerCertificate :: GetServerCertificate -> TestTree -testGetServerCertificate = req - "GetServerCertificate" - "fixture/GetServerCertificate.yaml" - -testGetPolicy :: GetPolicy -> TestTree -testGetPolicy = req - "GetPolicy" - "fixture/GetPolicy.yaml" - -testGenerateCredentialReport :: GenerateCredentialReport -> TestTree -testGenerateCredentialReport = req - "GenerateCredentialReport" - "fixture/GenerateCredentialReport.yaml" - -testGetGroup :: GetGroup -> TestTree -testGetGroup = req - "GetGroup" - "fixture/GetGroup.yaml" - -testDeleteServerCertificate :: DeleteServerCertificate -> TestTree -testDeleteServerCertificate = req - "DeleteServerCertificate" - "fixture/DeleteServerCertificate.yaml" - -testUpdateServerCertificate :: UpdateServerCertificate -> TestTree -testUpdateServerCertificate = req - "UpdateServerCertificate" - "fixture/UpdateServerCertificate.yaml" - -testDeleteLoginProfile :: DeleteLoginProfile -> TestTree -testDeleteLoginProfile = req - "DeleteLoginProfile" - "fixture/DeleteLoginProfile.yaml" - -testUpdateLoginProfile :: UpdateLoginProfile -> TestTree -testUpdateLoginProfile = req - "UpdateLoginProfile" - "fixture/UpdateLoginProfile.yaml" - -testListAttachedGroupPolicies :: ListAttachedGroupPolicies -> TestTree -testListAttachedGroupPolicies = req - "ListAttachedGroupPolicies" - "fixture/ListAttachedGroupPolicies.yaml" - --- Responses - -testAttachGroupPolicyResponse :: AttachGroupPolicyResponse -> TestTree -testAttachGroupPolicyResponse = res - "AttachGroupPolicyResponse" - "fixture/AttachGroupPolicyResponse.proto" - iAM - (Proxy :: Proxy AttachGroupPolicy) - -testListInstanceProfilesForRoleResponse :: ListInstanceProfilesForRoleResponse -> TestTree -testListInstanceProfilesForRoleResponse = res - "ListInstanceProfilesForRoleResponse" - "fixture/ListInstanceProfilesForRoleResponse.proto" - iAM - (Proxy :: Proxy ListInstanceProfilesForRole) - -testCreatePolicyResponse :: CreatePolicyResponse -> TestTree -testCreatePolicyResponse = res - "CreatePolicyResponse" - "fixture/CreatePolicyResponse.proto" - iAM - (Proxy :: Proxy CreatePolicy) - -testListPoliciesResponse :: ListPoliciesResponse -> TestTree -testListPoliciesResponse = res - "ListPoliciesResponse" - "fixture/ListPoliciesResponse.proto" - iAM - (Proxy :: Proxy ListPolicies) - -testAttachRolePolicyResponse :: AttachRolePolicyResponse -> TestTree -testAttachRolePolicyResponse = res - "AttachRolePolicyResponse" - "fixture/AttachRolePolicyResponse.proto" - iAM - (Proxy :: Proxy AttachRolePolicy) - -testListSSHPublicKeysResponse :: ListSSHPublicKeysResponse -> TestTree -testListSSHPublicKeysResponse = res - "ListSSHPublicKeysResponse" - "fixture/ListSSHPublicKeysResponse.proto" - iAM - (Proxy :: Proxy ListSSHPublicKeys) - -testDeleteSSHPublicKeyResponse :: DeleteSSHPublicKeyResponse -> TestTree -testDeleteSSHPublicKeyResponse = res - "DeleteSSHPublicKeyResponse" - "fixture/DeleteSSHPublicKeyResponse.proto" - iAM - (Proxy :: Proxy DeleteSSHPublicKey) - -testUpdateSSHPublicKeyResponse :: UpdateSSHPublicKeyResponse -> TestTree -testUpdateSSHPublicKeyResponse = res - "UpdateSSHPublicKeyResponse" - "fixture/UpdateSSHPublicKeyResponse.proto" - iAM - (Proxy :: Proxy UpdateSSHPublicKey) - -testListOpenIdConnectProvidersResponse :: ListOpenIdConnectProvidersResponse -> TestTree -testListOpenIdConnectProvidersResponse = res - "ListOpenIdConnectProvidersResponse" - "fixture/ListOpenIdConnectProvidersResponse.proto" - iAM - (Proxy :: Proxy ListOpenIdConnectProviders) - -testDeleteAccountPasswordPolicyResponse :: DeleteAccountPasswordPolicyResponse -> TestTree -testDeleteAccountPasswordPolicyResponse = res - "DeleteAccountPasswordPolicyResponse" - "fixture/DeleteAccountPasswordPolicyResponse.proto" - iAM - (Proxy :: Proxy DeleteAccountPasswordPolicy) - -testUpdateAccountPasswordPolicyResponse :: UpdateAccountPasswordPolicyResponse -> TestTree -testUpdateAccountPasswordPolicyResponse = res - "UpdateAccountPasswordPolicyResponse" - "fixture/UpdateAccountPasswordPolicyResponse.proto" - iAM - (Proxy :: Proxy UpdateAccountPasswordPolicy) - -testCreateAccessKeyResponse :: CreateAccessKeyResponse -> TestTree -testCreateAccessKeyResponse = res - "CreateAccessKeyResponse" - "fixture/CreateAccessKeyResponse.proto" - iAM - (Proxy :: Proxy CreateAccessKey) - -testGetUserPolicyResponse :: GetUserPolicyResponse -> TestTree -testGetUserPolicyResponse = res - "GetUserPolicyResponse" - "fixture/GetUserPolicyResponse.proto" - iAM - (Proxy :: Proxy GetUserPolicy) - -testCreateVirtualMFADeviceResponse :: CreateVirtualMFADeviceResponse -> TestTree -testCreateVirtualMFADeviceResponse = res - "CreateVirtualMFADeviceResponse" - "fixture/CreateVirtualMFADeviceResponse.proto" - iAM - (Proxy :: Proxy CreateVirtualMFADevice) - -testCreateOpenIdConnectProviderResponse :: CreateOpenIdConnectProviderResponse -> TestTree -testCreateOpenIdConnectProviderResponse = res - "CreateOpenIdConnectProviderResponse" - "fixture/CreateOpenIdConnectProviderResponse.proto" - iAM - (Proxy :: Proxy CreateOpenIdConnectProvider) - -testListAttachedRolePoliciesResponse :: ListAttachedRolePoliciesResponse -> TestTree -testListAttachedRolePoliciesResponse = res - "ListAttachedRolePoliciesResponse" - "fixture/ListAttachedRolePoliciesResponse.proto" - iAM - (Proxy :: Proxy ListAttachedRolePolicies) - -testDeleteVirtualMFADeviceResponse :: DeleteVirtualMFADeviceResponse -> TestTree -testDeleteVirtualMFADeviceResponse = res - "DeleteVirtualMFADeviceResponse" - "fixture/DeleteVirtualMFADeviceResponse.proto" - iAM - (Proxy :: Proxy DeleteVirtualMFADevice) - -testGetRoleResponse :: GetRoleResponse -> TestTree -testGetRoleResponse = res - "GetRoleResponse" - "fixture/GetRoleResponse.proto" - iAM - (Proxy :: Proxy GetRole) - -testDeactivateMFADeviceResponse :: DeactivateMFADeviceResponse -> TestTree -testDeactivateMFADeviceResponse = res - "DeactivateMFADeviceResponse" - "fixture/DeactivateMFADeviceResponse.proto" - iAM - (Proxy :: Proxy DeactivateMFADevice) - -testListRolesResponse :: ListRolesResponse -> TestTree -testListRolesResponse = res - "ListRolesResponse" - "fixture/ListRolesResponse.proto" - iAM - (Proxy :: Proxy ListRoles) - -testDeleteRoleResponse :: DeleteRoleResponse -> TestTree -testDeleteRoleResponse = res - "DeleteRoleResponse" - "fixture/DeleteRoleResponse.proto" - iAM - (Proxy :: Proxy DeleteRole) - -testListUserPoliciesResponse :: ListUserPoliciesResponse -> TestTree -testListUserPoliciesResponse = res - "ListUserPoliciesResponse" - "fixture/ListUserPoliciesResponse.proto" - iAM - (Proxy :: Proxy ListUserPolicies) - -testUploadSSHPublicKeyResponse :: UploadSSHPublicKeyResponse -> TestTree -testUploadSSHPublicKeyResponse = res - "UploadSSHPublicKeyResponse" - "fixture/UploadSSHPublicKeyResponse.proto" - iAM - (Proxy :: Proxy UploadSSHPublicKey) - -testListUsersResponse :: ListUsersResponse -> TestTree -testListUsersResponse = res - "ListUsersResponse" - "fixture/ListUsersResponse.proto" - iAM - (Proxy :: Proxy ListUsers) - -testUpdateOpenIdConnectProviderThumbprintResponse :: UpdateOpenIdConnectProviderThumbprintResponse -> TestTree -testUpdateOpenIdConnectProviderThumbprintResponse = res - "UpdateOpenIdConnectProviderThumbprintResponse" - "fixture/UpdateOpenIdConnectProviderThumbprintResponse.proto" - iAM - (Proxy :: Proxy UpdateOpenIdConnectProviderThumbprint) - -testGetSSHPublicKeyResponse :: GetSSHPublicKeyResponse -> TestTree -testGetSSHPublicKeyResponse = res - "GetSSHPublicKeyResponse" - "fixture/GetSSHPublicKeyResponse.proto" - iAM - (Proxy :: Proxy GetSSHPublicKey) - -testPutUserPolicyResponse :: PutUserPolicyResponse -> TestTree -testPutUserPolicyResponse = res - "PutUserPolicyResponse" - "fixture/PutUserPolicyResponse.proto" - iAM - (Proxy :: Proxy PutUserPolicy) - -testCreateRoleResponse :: CreateRoleResponse -> TestTree -testCreateRoleResponse = res - "CreateRoleResponse" - "fixture/CreateRoleResponse.proto" - iAM - (Proxy :: Proxy CreateRole) - -testDeleteUserPolicyResponse :: DeleteUserPolicyResponse -> TestTree -testDeleteUserPolicyResponse = res - "DeleteUserPolicyResponse" - "fixture/DeleteUserPolicyResponse.proto" - iAM - (Proxy :: Proxy DeleteUserPolicy) - -testGetOpenIdConnectProviderResponse :: GetOpenIdConnectProviderResponse -> TestTree -testGetOpenIdConnectProviderResponse = res - "GetOpenIdConnectProviderResponse" - "fixture/GetOpenIdConnectProviderResponse.proto" - iAM - (Proxy :: Proxy GetOpenIdConnectProvider) - -testDetachGroupPolicyResponse :: DetachGroupPolicyResponse -> TestTree -testDetachGroupPolicyResponse = res - "DetachGroupPolicyResponse" - "fixture/DetachGroupPolicyResponse.proto" - iAM - (Proxy :: Proxy DetachGroupPolicy) - -testGetCredentialReportResponse :: GetCredentialReportResponse -> TestTree -testGetCredentialReportResponse = res - "GetCredentialReportResponse" - "fixture/GetCredentialReportResponse.proto" - iAM - (Proxy :: Proxy GetCredentialReport) - -testDeletePolicyVersionResponse :: DeletePolicyVersionResponse -> TestTree -testDeletePolicyVersionResponse = res - "DeletePolicyVersionResponse" - "fixture/DeletePolicyVersionResponse.proto" - iAM - (Proxy :: Proxy DeletePolicyVersion) - -testDetachRolePolicyResponse :: DetachRolePolicyResponse -> TestTree -testDetachRolePolicyResponse = res - "DetachRolePolicyResponse" - "fixture/DetachRolePolicyResponse.proto" - iAM - (Proxy :: Proxy DetachRolePolicy) - -testDeleteInstanceProfileResponse :: DeleteInstanceProfileResponse -> TestTree -testDeleteInstanceProfileResponse = res - "DeleteInstanceProfileResponse" - "fixture/DeleteInstanceProfileResponse.proto" - iAM - (Proxy :: Proxy DeleteInstanceProfile) - -testListGroupPoliciesResponse :: ListGroupPoliciesResponse -> TestTree -testListGroupPoliciesResponse = res - "ListGroupPoliciesResponse" - "fixture/ListGroupPoliciesResponse.proto" - iAM - (Proxy :: Proxy ListGroupPolicies) - -testGetAccountSummaryResponse :: GetAccountSummaryResponse -> TestTree -testGetAccountSummaryResponse = res - "GetAccountSummaryResponse" - "fixture/GetAccountSummaryResponse.proto" - iAM - (Proxy :: Proxy GetAccountSummary) - -testCreateInstanceProfileResponse :: CreateInstanceProfileResponse -> TestTree -testCreateInstanceProfileResponse = res - "CreateInstanceProfileResponse" - "fixture/CreateInstanceProfileResponse.proto" - iAM - (Proxy :: Proxy CreateInstanceProfile) - -testPutGroupPolicyResponse :: PutGroupPolicyResponse -> TestTree -testPutGroupPolicyResponse = res - "PutGroupPolicyResponse" - "fixture/PutGroupPolicyResponse.proto" - iAM - (Proxy :: Proxy PutGroupPolicy) - -testDeleteGroupPolicyResponse :: DeleteGroupPolicyResponse -> TestTree -testDeleteGroupPolicyResponse = res - "DeleteGroupPolicyResponse" - "fixture/DeleteGroupPolicyResponse.proto" - iAM - (Proxy :: Proxy DeleteGroupPolicy) - -testGetAccountAuthorizationDetailsResponse :: GetAccountAuthorizationDetailsResponse -> TestTree -testGetAccountAuthorizationDetailsResponse = res - "GetAccountAuthorizationDetailsResponse" - "fixture/GetAccountAuthorizationDetailsResponse.proto" - iAM - (Proxy :: Proxy GetAccountAuthorizationDetails) - -testDeleteAccountAliasResponse :: DeleteAccountAliasResponse -> TestTree -testDeleteAccountAliasResponse = res - "DeleteAccountAliasResponse" - "fixture/DeleteAccountAliasResponse.proto" - iAM - (Proxy :: Proxy DeleteAccountAlias) - -testRemoveRoleFromInstanceProfileResponse :: RemoveRoleFromInstanceProfileResponse -> TestTree -testRemoveRoleFromInstanceProfileResponse = res - "RemoveRoleFromInstanceProfileResponse" - "fixture/RemoveRoleFromInstanceProfileResponse.proto" - iAM - (Proxy :: Proxy RemoveRoleFromInstanceProfile) - -testGetLoginProfileResponse :: GetLoginProfileResponse -> TestTree -testGetLoginProfileResponse = res - "GetLoginProfileResponse" - "fixture/GetLoginProfileResponse.proto" - iAM - (Proxy :: Proxy GetLoginProfile) - -testRemoveUserFromGroupResponse :: RemoveUserFromGroupResponse -> TestTree -testRemoveUserFromGroupResponse = res - "RemoveUserFromGroupResponse" - "fixture/RemoveUserFromGroupResponse.proto" - iAM - (Proxy :: Proxy RemoveUserFromGroup) - -testDetachUserPolicyResponse :: DetachUserPolicyResponse -> TestTree -testDetachUserPolicyResponse = res - "DetachUserPolicyResponse" - "fixture/DetachUserPolicyResponse.proto" - iAM - (Proxy :: Proxy DetachUserPolicy) - -testCreateSAMLProviderResponse :: CreateSAMLProviderResponse -> TestTree -testCreateSAMLProviderResponse = res - "CreateSAMLProviderResponse" - "fixture/CreateSAMLProviderResponse.proto" - iAM - (Proxy :: Proxy CreateSAMLProvider) - -testCreatePolicyVersionResponse :: CreatePolicyVersionResponse -> TestTree -testCreatePolicyVersionResponse = res - "CreatePolicyVersionResponse" - "fixture/CreatePolicyVersionResponse.proto" - iAM - (Proxy :: Proxy CreatePolicyVersion) - -testGetGroupPolicyResponse :: GetGroupPolicyResponse -> TestTree -testGetGroupPolicyResponse = res - "GetGroupPolicyResponse" - "fixture/GetGroupPolicyResponse.proto" - iAM - (Proxy :: Proxy GetGroupPolicy) - -testDeletePolicyResponse :: DeletePolicyResponse -> TestTree -testDeletePolicyResponse = res - "DeletePolicyResponse" - "fixture/DeletePolicyResponse.proto" - iAM - (Proxy :: Proxy DeletePolicy) - -testListServerCertificatesResponse :: ListServerCertificatesResponse -> TestTree -testListServerCertificatesResponse = res - "ListServerCertificatesResponse" - "fixture/ListServerCertificatesResponse.proto" - iAM - (Proxy :: Proxy ListServerCertificates) - -testUpdateAssumeRolePolicyResponse :: UpdateAssumeRolePolicyResponse -> TestTree -testUpdateAssumeRolePolicyResponse = res - "UpdateAssumeRolePolicyResponse" - "fixture/UpdateAssumeRolePolicyResponse.proto" - iAM - (Proxy :: Proxy UpdateAssumeRolePolicy) - -testChangePasswordResponse :: ChangePasswordResponse -> TestTree -testChangePasswordResponse = res - "ChangePasswordResponse" - "fixture/ChangePasswordResponse.proto" - iAM - (Proxy :: Proxy ChangePassword) - -testListGroupsForUserResponse :: ListGroupsForUserResponse -> TestTree -testListGroupsForUserResponse = res - "ListGroupsForUserResponse" - "fixture/ListGroupsForUserResponse.proto" - iAM - (Proxy :: Proxy ListGroupsForUser) - -testGetPolicyVersionResponse :: GetPolicyVersionResponse -> TestTree -testGetPolicyVersionResponse = res - "GetPolicyVersionResponse" - "fixture/GetPolicyVersionResponse.proto" - iAM - (Proxy :: Proxy GetPolicyVersion) - -testCreateLoginProfileResponse :: CreateLoginProfileResponse -> TestTree -testCreateLoginProfileResponse = res - "CreateLoginProfileResponse" - "fixture/CreateLoginProfileResponse.proto" - iAM - (Proxy :: Proxy CreateLoginProfile) - -testGetInstanceProfileResponse :: GetInstanceProfileResponse -> TestTree -testGetInstanceProfileResponse = res - "GetInstanceProfileResponse" - "fixture/GetInstanceProfileResponse.proto" - iAM - (Proxy :: Proxy GetInstanceProfile) - -testListEntitiesForPolicyResponse :: ListEntitiesForPolicyResponse -> TestTree -testListEntitiesForPolicyResponse = res - "ListEntitiesForPolicyResponse" - "fixture/ListEntitiesForPolicyResponse.proto" - iAM - (Proxy :: Proxy ListEntitiesForPolicy) - -testGetSAMLProviderResponse :: GetSAMLProviderResponse -> TestTree -testGetSAMLProviderResponse = res - "GetSAMLProviderResponse" - "fixture/GetSAMLProviderResponse.proto" - iAM - (Proxy :: Proxy GetSAMLProvider) - -testAddRoleToInstanceProfileResponse :: AddRoleToInstanceProfileResponse -> TestTree -testAddRoleToInstanceProfileResponse = res - "AddRoleToInstanceProfileResponse" - "fixture/AddRoleToInstanceProfileResponse.proto" - iAM - (Proxy :: Proxy AddRoleToInstanceProfile) - -testAddUserToGroupResponse :: AddUserToGroupResponse -> TestTree -testAddUserToGroupResponse = res - "AddUserToGroupResponse" - "fixture/AddUserToGroupResponse.proto" - iAM - (Proxy :: Proxy AddUserToGroup) - -testDeleteOpenIdConnectProviderResponse :: DeleteOpenIdConnectProviderResponse -> TestTree -testDeleteOpenIdConnectProviderResponse = res - "DeleteOpenIdConnectProviderResponse" - "fixture/DeleteOpenIdConnectProviderResponse.proto" - iAM - (Proxy :: Proxy DeleteOpenIdConnectProvider) - -testGetUserResponse :: GetUserResponse -> TestTree -testGetUserResponse = res - "GetUserResponse" - "fixture/GetUserResponse.proto" - iAM - (Proxy :: Proxy GetUser) - -testListAttachedUserPoliciesResponse :: ListAttachedUserPoliciesResponse -> TestTree -testListAttachedUserPoliciesResponse = res - "ListAttachedUserPoliciesResponse" - "fixture/ListAttachedUserPoliciesResponse.proto" - iAM - (Proxy :: Proxy ListAttachedUserPolicies) - -testDeleteSigningCertificateResponse :: DeleteSigningCertificateResponse -> TestTree -testDeleteSigningCertificateResponse = res - "DeleteSigningCertificateResponse" - "fixture/DeleteSigningCertificateResponse.proto" - iAM - (Proxy :: Proxy DeleteSigningCertificate) - -testUpdateSigningCertificateResponse :: UpdateSigningCertificateResponse -> TestTree -testUpdateSigningCertificateResponse = res - "UpdateSigningCertificateResponse" - "fixture/UpdateSigningCertificateResponse.proto" - iAM - (Proxy :: Proxy UpdateSigningCertificate) - -testListSigningCertificatesResponse :: ListSigningCertificatesResponse -> TestTree -testListSigningCertificatesResponse = res - "ListSigningCertificatesResponse" - "fixture/ListSigningCertificatesResponse.proto" - iAM - (Proxy :: Proxy ListSigningCertificates) - -testRemoveClientIdFromOpenIdConnectProviderResponse :: RemoveClientIdFromOpenIdConnectProviderResponse -> TestTree -testRemoveClientIdFromOpenIdConnectProviderResponse = res - "RemoveClientIdFromOpenIdConnectProviderResponse" - "fixture/RemoveClientIdFromOpenIdConnectProviderResponse.proto" - iAM - (Proxy :: Proxy RemoveClientIdFromOpenIdConnectProvider) - -testListAccessKeysResponse :: ListAccessKeysResponse -> TestTree -testListAccessKeysResponse = res - "ListAccessKeysResponse" - "fixture/ListAccessKeysResponse.proto" - iAM - (Proxy :: Proxy ListAccessKeys) - -testListVirtualMFADevicesResponse :: ListVirtualMFADevicesResponse -> TestTree -testListVirtualMFADevicesResponse = res - "ListVirtualMFADevicesResponse" - "fixture/ListVirtualMFADevicesResponse.proto" - iAM - (Proxy :: Proxy ListVirtualMFADevices) - -testDeleteAccessKeyResponse :: DeleteAccessKeyResponse -> TestTree -testDeleteAccessKeyResponse = res - "DeleteAccessKeyResponse" - "fixture/DeleteAccessKeyResponse.proto" - iAM - (Proxy :: Proxy DeleteAccessKey) - -testUpdateAccessKeyResponse :: UpdateAccessKeyResponse -> TestTree -testUpdateAccessKeyResponse = res - "UpdateAccessKeyResponse" - "fixture/UpdateAccessKeyResponse.proto" - iAM - (Proxy :: Proxy UpdateAccessKey) - -testGetRolePolicyResponse :: GetRolePolicyResponse -> TestTree -testGetRolePolicyResponse = res - "GetRolePolicyResponse" - "fixture/GetRolePolicyResponse.proto" - iAM - (Proxy :: Proxy GetRolePolicy) - -testAttachUserPolicyResponse :: AttachUserPolicyResponse -> TestTree -testAttachUserPolicyResponse = res - "AttachUserPolicyResponse" - "fixture/AttachUserPolicyResponse.proto" - iAM - (Proxy :: Proxy AttachUserPolicy) - -testResyncMFADeviceResponse :: ResyncMFADeviceResponse -> TestTree -testResyncMFADeviceResponse = res - "ResyncMFADeviceResponse" - "fixture/ResyncMFADeviceResponse.proto" - iAM - (Proxy :: Proxy ResyncMFADevice) - -testCreateUserResponse :: CreateUserResponse -> TestTree -testCreateUserResponse = res - "CreateUserResponse" - "fixture/CreateUserResponse.proto" - iAM - (Proxy :: Proxy CreateUser) - -testUploadSigningCertificateResponse :: UploadSigningCertificateResponse -> TestTree -testUploadSigningCertificateResponse = res - "UploadSigningCertificateResponse" - "fixture/UploadSigningCertificateResponse.proto" - iAM - (Proxy :: Proxy UploadSigningCertificate) - -testPutRolePolicyResponse :: PutRolePolicyResponse -> TestTree -testPutRolePolicyResponse = res - "PutRolePolicyResponse" - "fixture/PutRolePolicyResponse.proto" - iAM - (Proxy :: Proxy PutRolePolicy) - -testDeleteRolePolicyResponse :: DeleteRolePolicyResponse -> TestTree -testDeleteRolePolicyResponse = res - "DeleteRolePolicyResponse" - "fixture/DeleteRolePolicyResponse.proto" - iAM - (Proxy :: Proxy DeleteRolePolicy) - -testUpdateUserResponse :: UpdateUserResponse -> TestTree -testUpdateUserResponse = res - "UpdateUserResponse" - "fixture/UpdateUserResponse.proto" - iAM - (Proxy :: Proxy UpdateUser) - -testDeleteUserResponse :: DeleteUserResponse -> TestTree -testDeleteUserResponse = res - "DeleteUserResponse" - "fixture/DeleteUserResponse.proto" - iAM - (Proxy :: Proxy DeleteUser) - -testListRolePoliciesResponse :: ListRolePoliciesResponse -> TestTree -testListRolePoliciesResponse = res - "ListRolePoliciesResponse" - "fixture/ListRolePoliciesResponse.proto" - iAM - (Proxy :: Proxy ListRolePolicies) - -testAddClientIdToOpenIdConnectProviderResponse :: AddClientIdToOpenIdConnectProviderResponse -> TestTree -testAddClientIdToOpenIdConnectProviderResponse = res - "AddClientIdToOpenIdConnectProviderResponse" - "fixture/AddClientIdToOpenIdConnectProviderResponse.proto" - iAM - (Proxy :: Proxy AddClientIdToOpenIdConnectProvider) - -testGetAccessKeyLastUsedResponse :: GetAccessKeyLastUsedResponse -> TestTree -testGetAccessKeyLastUsedResponse = res - "GetAccessKeyLastUsedResponse" - "fixture/GetAccessKeyLastUsedResponse.proto" - iAM - (Proxy :: Proxy GetAccessKeyLastUsed) - -testGetAccountPasswordPolicyResponse :: GetAccountPasswordPolicyResponse -> TestTree -testGetAccountPasswordPolicyResponse = res - "GetAccountPasswordPolicyResponse" - "fixture/GetAccountPasswordPolicyResponse.proto" - iAM - (Proxy :: Proxy GetAccountPasswordPolicy) - -testListAccountAliasesResponse :: ListAccountAliasesResponse -> TestTree -testListAccountAliasesResponse = res - "ListAccountAliasesResponse" - "fixture/ListAccountAliasesResponse.proto" - iAM - (Proxy :: Proxy ListAccountAliases) - -testCreateAccountAliasResponse :: CreateAccountAliasResponse -> TestTree -testCreateAccountAliasResponse = res - "CreateAccountAliasResponse" - "fixture/CreateAccountAliasResponse.proto" - iAM - (Proxy :: Proxy CreateAccountAlias) - -testUploadServerCertificateResponse :: UploadServerCertificateResponse -> TestTree -testUploadServerCertificateResponse = res - "UploadServerCertificateResponse" - "fixture/UploadServerCertificateResponse.proto" - iAM - (Proxy :: Proxy UploadServerCertificate) - -testListMFADevicesResponse :: ListMFADevicesResponse -> TestTree -testListMFADevicesResponse = res - "ListMFADevicesResponse" - "fixture/ListMFADevicesResponse.proto" - iAM - (Proxy :: Proxy ListMFADevices) - -testEnableMFADeviceResponse :: EnableMFADeviceResponse -> TestTree -testEnableMFADeviceResponse = res - "EnableMFADeviceResponse" - "fixture/EnableMFADeviceResponse.proto" - iAM - (Proxy :: Proxy EnableMFADevice) - -testListPolicyVersionsResponse :: ListPolicyVersionsResponse -> TestTree -testListPolicyVersionsResponse = res - "ListPolicyVersionsResponse" - "fixture/ListPolicyVersionsResponse.proto" - iAM - (Proxy :: Proxy ListPolicyVersions) - -testListSAMLProvidersResponse :: ListSAMLProvidersResponse -> TestTree -testListSAMLProvidersResponse = res - "ListSAMLProvidersResponse" - "fixture/ListSAMLProvidersResponse.proto" - iAM - (Proxy :: Proxy ListSAMLProviders) - -testUpdateSAMLProviderResponse :: UpdateSAMLProviderResponse -> TestTree -testUpdateSAMLProviderResponse = res - "UpdateSAMLProviderResponse" - "fixture/UpdateSAMLProviderResponse.proto" - iAM - (Proxy :: Proxy UpdateSAMLProvider) - -testDeleteSAMLProviderResponse :: DeleteSAMLProviderResponse -> TestTree -testDeleteSAMLProviderResponse = res - "DeleteSAMLProviderResponse" - "fixture/DeleteSAMLProviderResponse.proto" - iAM - (Proxy :: Proxy DeleteSAMLProvider) - -testCreateGroupResponse :: CreateGroupResponse -> TestTree -testCreateGroupResponse = res - "CreateGroupResponse" - "fixture/CreateGroupResponse.proto" - iAM - (Proxy :: Proxy CreateGroup) - -testSetDefaultPolicyVersionResponse :: SetDefaultPolicyVersionResponse -> TestTree -testSetDefaultPolicyVersionResponse = res - "SetDefaultPolicyVersionResponse" - "fixture/SetDefaultPolicyVersionResponse.proto" - iAM - (Proxy :: Proxy SetDefaultPolicyVersion) - -testListInstanceProfilesResponse :: ListInstanceProfilesResponse -> TestTree -testListInstanceProfilesResponse = res - "ListInstanceProfilesResponse" - "fixture/ListInstanceProfilesResponse.proto" - iAM - (Proxy :: Proxy ListInstanceProfiles) - -testListGroupsResponse :: ListGroupsResponse -> TestTree -testListGroupsResponse = res - "ListGroupsResponse" - "fixture/ListGroupsResponse.proto" - iAM - (Proxy :: Proxy ListGroups) - -testDeleteGroupResponse :: DeleteGroupResponse -> TestTree -testDeleteGroupResponse = res - "DeleteGroupResponse" - "fixture/DeleteGroupResponse.proto" - iAM - (Proxy :: Proxy DeleteGroup) - -testUpdateGroupResponse :: UpdateGroupResponse -> TestTree -testUpdateGroupResponse = res - "UpdateGroupResponse" - "fixture/UpdateGroupResponse.proto" - iAM - (Proxy :: Proxy UpdateGroup) - -testGetServerCertificateResponse :: GetServerCertificateResponse -> TestTree -testGetServerCertificateResponse = res - "GetServerCertificateResponse" - "fixture/GetServerCertificateResponse.proto" - iAM - (Proxy :: Proxy GetServerCertificate) - -testGetPolicyResponse :: GetPolicyResponse -> TestTree -testGetPolicyResponse = res - "GetPolicyResponse" - "fixture/GetPolicyResponse.proto" - iAM - (Proxy :: Proxy GetPolicy) - -testGenerateCredentialReportResponse :: GenerateCredentialReportResponse -> TestTree -testGenerateCredentialReportResponse = res - "GenerateCredentialReportResponse" - "fixture/GenerateCredentialReportResponse.proto" - iAM - (Proxy :: Proxy GenerateCredentialReport) - -testGetGroupResponse :: GetGroupResponse -> TestTree -testGetGroupResponse = res - "GetGroupResponse" - "fixture/GetGroupResponse.proto" - iAM - (Proxy :: Proxy GetGroup) - -testDeleteServerCertificateResponse :: DeleteServerCertificateResponse -> TestTree -testDeleteServerCertificateResponse = res - "DeleteServerCertificateResponse" - "fixture/DeleteServerCertificateResponse.proto" - iAM - (Proxy :: Proxy DeleteServerCertificate) - -testUpdateServerCertificateResponse :: UpdateServerCertificateResponse -> TestTree -testUpdateServerCertificateResponse = res - "UpdateServerCertificateResponse" - "fixture/UpdateServerCertificateResponse.proto" - iAM - (Proxy :: Proxy UpdateServerCertificate) - -testDeleteLoginProfileResponse :: DeleteLoginProfileResponse -> TestTree -testDeleteLoginProfileResponse = res - "DeleteLoginProfileResponse" - "fixture/DeleteLoginProfileResponse.proto" - iAM - (Proxy :: Proxy DeleteLoginProfile) - -testUpdateLoginProfileResponse :: UpdateLoginProfileResponse -> TestTree -testUpdateLoginProfileResponse = res - "UpdateLoginProfileResponse" - "fixture/UpdateLoginProfileResponse.proto" - iAM - (Proxy :: Proxy UpdateLoginProfile) +-- [ testListPolicies $ +-- listPolicies +-- +-- , testCreatePolicy $ +-- createPolicy +-- +-- , testListInstanceProfilesForRole $ +-- listInstanceProfilesForRole +-- +-- , testAttachGroupPolicy $ +-- attachGroupPolicy +-- +-- , testCreateAccessKey $ +-- createAccessKey +-- +-- , testListSSHPublicKeys $ +-- listSSHPublicKeys +-- +-- , testListOpenIdConnectProviders $ +-- listOpenIdConnectProviders +-- +-- , testCreateVirtualMFADevice $ +-- createVirtualMFADevice +-- +-- , testDeleteAccountPasswordPolicy $ +-- deleteAccountPasswordPolicy +-- +-- , testUpdateAccountPasswordPolicy $ +-- updateAccountPasswordPolicy +-- +-- , testAttachRolePolicy $ +-- attachRolePolicy +-- +-- , testUpdateSSHPublicKey $ +-- updateSSHPublicKey +-- +-- , testDeleteSSHPublicKey $ +-- deleteSSHPublicKey +-- +-- , testGetUserPolicy $ +-- getUserPolicy +-- +-- , testListAttachedRolePolicies $ +-- listAttachedRolePolicies +-- +-- , testGetRole $ +-- getRole +-- +-- , testDeactivateMFADevice $ +-- deactivateMFADevice +-- +-- , testCreateOpenIdConnectProvider $ +-- createOpenIdConnectProvider +-- +-- , testDeleteVirtualMFADevice $ +-- deleteVirtualMFADevice +-- +-- , testListRoles $ +-- listRoles +-- +-- , testListUserPolicies $ +-- listUserPolicies +-- +-- , testUploadSSHPublicKey $ +-- uploadSSHPublicKey +-- +-- , testDeleteRole $ +-- deleteRole +-- +-- , testListUsers $ +-- listUsers +-- +-- , testUpdateOpenIdConnectProviderThumbprint $ +-- updateOpenIdConnectProviderThumbprint +-- +-- , testPutUserPolicy $ +-- putUserPolicy +-- +-- , testGetSSHPublicKey $ +-- getSSHPublicKey +-- +-- , testDetachGroupPolicy $ +-- detachGroupPolicy +-- +-- , testGetOpenIdConnectProvider $ +-- getOpenIdConnectProvider +-- +-- , testDeleteUserPolicy $ +-- deleteUserPolicy +-- +-- , testCreateRole $ +-- createRole +-- +-- , testGetCredentialReport $ +-- getCredentialReport +-- +-- , testGetAccountSummary $ +-- getAccountSummary +-- +-- , testListGroupPolicies $ +-- listGroupPolicies +-- +-- , testDeletePolicyVersion $ +-- deletePolicyVersion +-- +-- , testDeleteInstanceProfile $ +-- deleteInstanceProfile +-- +-- , testDetachRolePolicy $ +-- detachRolePolicy +-- +-- , testRemoveRoleFromInstanceProfile $ +-- removeRoleFromInstanceProfile +-- +-- , testCreatePolicyVersion $ +-- createPolicyVersion +-- +-- , testCreateInstanceProfile $ +-- createInstanceProfile +-- +-- , testCreateSAMLProvider $ +-- createSAMLProvider +-- +-- , testGetAccountAuthorizationDetails $ +-- getAccountAuthorizationDetails +-- +-- , testDeleteAccountAlias $ +-- deleteAccountAlias +-- +-- , testDetachUserPolicy $ +-- detachUserPolicy +-- +-- , testRemoveUserFromGroup $ +-- removeUserFromGroup +-- +-- , testDeleteGroupPolicy $ +-- deleteGroupPolicy +-- +-- , testPutGroupPolicy $ +-- putGroupPolicy +-- +-- , testGetLoginProfile $ +-- getLoginProfile +-- +-- , testGetGroupPolicy $ +-- getGroupPolicy +-- +-- , testChangePassword $ +-- changePassword +-- +-- , testListServerCertificates $ +-- listServerCertificates +-- +-- , testDeletePolicy $ +-- deletePolicy +-- +-- , testUpdateAssumeRolePolicy $ +-- updateAssumeRolePolicy +-- +-- , testGetInstanceProfile $ +-- getInstanceProfile +-- +-- , testCreateLoginProfile $ +-- createLoginProfile +-- +-- , testGetSAMLProvider $ +-- getSAMLProvider +-- +-- , testAddRoleToInstanceProfile $ +-- addRoleToInstanceProfile +-- +-- , testListGroupsForUser $ +-- listGroupsForUser +-- +-- , testListEntitiesForPolicy $ +-- listEntitiesForPolicy +-- +-- , testAddUserToGroup $ +-- addUserToGroup +-- +-- , testGetPolicyVersion $ +-- getPolicyVersion +-- +-- , testDeleteOpenIdConnectProvider $ +-- deleteOpenIdConnectProvider +-- +-- , testGetUser $ +-- getUser +-- +-- , testListSigningCertificates $ +-- listSigningCertificates +-- +-- , testDeleteSigningCertificate $ +-- deleteSigningCertificate +-- +-- , testUpdateSigningCertificate $ +-- updateSigningCertificate +-- +-- , testListAttachedUserPolicies $ +-- listAttachedUserPolicies +-- +-- , testRemoveClientIdFromOpenIdConnectProvider $ +-- removeClientIdFromOpenIdConnectProvider +-- +-- , testAttachUserPolicy $ +-- attachUserPolicy +-- +-- , testListVirtualMFADevices $ +-- listVirtualMFADevices +-- +-- , testResyncMFADevice $ +-- resyncMFADevice +-- +-- , testDeleteAccessKey $ +-- deleteAccessKey +-- +-- , testUpdateAccessKey $ +-- updateAccessKey +-- +-- , testListAccessKeys $ +-- listAccessKeys +-- +-- , testGetRolePolicy $ +-- getRolePolicy +-- +-- , testCreateUser $ +-- createUser +-- +-- , testPutRolePolicy $ +-- putRolePolicy +-- +-- , testUploadSigningCertificate $ +-- uploadSigningCertificate +-- +-- , testDeleteRolePolicy $ +-- deleteRolePolicy +-- +-- , testGetAccountPasswordPolicy $ +-- getAccountPasswordPolicy +-- +-- , testGetAccessKeyLastUsed $ +-- getAccessKeyLastUsed +-- +-- , testUpdateUser $ +-- updateUser +-- +-- , testDeleteUser $ +-- deleteUser +-- +-- , testAddClientIdToOpenIdConnectProvider $ +-- addClientIdToOpenIdConnectProvider +-- +-- , testListRolePolicies $ +-- listRolePolicies +-- +-- , testCreateAccountAlias $ +-- createAccountAlias +-- +-- , testListInstanceProfiles $ +-- listInstanceProfiles +-- +-- , testEnableMFADevice $ +-- enableMFADevice +-- +-- , testListAccountAliases $ +-- listAccountAliases +-- +-- , testDeleteSAMLProvider $ +-- deleteSAMLProvider +-- +-- , testUpdateSAMLProvider $ +-- updateSAMLProvider +-- +-- , testCreateGroup $ +-- createGroup +-- +-- , testListMFADevices $ +-- listMFADevices +-- +-- , testUploadServerCertificate $ +-- uploadServerCertificate +-- +-- , testSetDefaultPolicyVersion $ +-- setDefaultPolicyVersion +-- +-- , testListPolicyVersions $ +-- listPolicyVersions +-- +-- , testListSAMLProviders $ +-- listSAMLProviders +-- +-- , testGetServerCertificate $ +-- getServerCertificate +-- +-- , testDeleteGroup $ +-- deleteGroup +-- +-- , testUpdateGroup $ +-- updateGroup +-- +-- , testListGroups $ +-- listGroups +-- +-- , testGenerateCredentialReport $ +-- generateCredentialReport +-- +-- , testGetPolicy $ +-- getPolicy +-- +-- , testUpdateLoginProfile $ +-- updateLoginProfile +-- +-- , testDeleteLoginProfile $ +-- deleteLoginProfile +-- +-- , testGetGroup $ +-- getGroup +-- +-- , testDeleteServerCertificate $ +-- deleteServerCertificate +-- +-- , testUpdateServerCertificate $ +-- updateServerCertificate +-- +-- , testListAttachedGroupPolicies $ +-- listAttachedGroupPolicies +-- +-- ] + +-- , testGroup "response" +-- [ testListPoliciesResponse $ +-- listPoliciesResponse +-- +-- , testCreatePolicyResponse $ +-- createPolicyResponse +-- +-- , testListInstanceProfilesForRoleResponse $ +-- listInstanceProfilesForRoleResponse +-- +-- , testAttachGroupPolicyResponse $ +-- attachGroupPolicyResponse +-- +-- , testCreateAccessKeyResponse $ +-- createAccessKeyResponse +-- +-- , testListSSHPublicKeysResponse $ +-- listSSHPublicKeysResponse +-- +-- , testListOpenIdConnectProvidersResponse $ +-- listOpenIdConnectProvidersResponse +-- +-- , testCreateVirtualMFADeviceResponse $ +-- createVirtualMFADeviceResponse +-- +-- , testDeleteAccountPasswordPolicyResponse $ +-- deleteAccountPasswordPolicyResponse +-- +-- , testUpdateAccountPasswordPolicyResponse $ +-- updateAccountPasswordPolicyResponse +-- +-- , testAttachRolePolicyResponse $ +-- attachRolePolicyResponse +-- +-- , testUpdateSSHPublicKeyResponse $ +-- updateSSHPublicKeyResponse +-- +-- , testDeleteSSHPublicKeyResponse $ +-- deleteSSHPublicKeyResponse +-- +-- , testGetUserPolicyResponse $ +-- getUserPolicyResponse +-- +-- , testListAttachedRolePoliciesResponse $ +-- listAttachedRolePoliciesResponse +-- +-- , testGetRoleResponse $ +-- getRoleResponse +-- +-- , testDeactivateMFADeviceResponse $ +-- deactivateMFADeviceResponse +-- +-- , testCreateOpenIdConnectProviderResponse $ +-- createOpenIdConnectProviderResponse +-- +-- , testDeleteVirtualMFADeviceResponse $ +-- deleteVirtualMFADeviceResponse +-- +-- , testListRolesResponse $ +-- listRolesResponse +-- +-- , testListUserPoliciesResponse $ +-- listUserPoliciesResponse +-- +-- , testUploadSSHPublicKeyResponse $ +-- uploadSSHPublicKeyResponse +-- +-- , testDeleteRoleResponse $ +-- deleteRoleResponse +-- +-- , testListUsersResponse $ +-- listUsersResponse +-- +-- , testUpdateOpenIdConnectProviderThumbprintResponse $ +-- updateOpenIdConnectProviderThumbprintResponse +-- +-- , testPutUserPolicyResponse $ +-- putUserPolicyResponse +-- +-- , testGetSSHPublicKeyResponse $ +-- getSSHPublicKeyResponse +-- +-- , testDetachGroupPolicyResponse $ +-- detachGroupPolicyResponse +-- +-- , testGetOpenIdConnectProviderResponse $ +-- getOpenIdConnectProviderResponse +-- +-- , testDeleteUserPolicyResponse $ +-- deleteUserPolicyResponse +-- +-- , testCreateRoleResponse $ +-- createRoleResponse +-- +-- , testGetCredentialReportResponse $ +-- getCredentialReportResponse +-- +-- , testGetAccountSummaryResponse $ +-- getAccountSummaryResponse +-- +-- , testListGroupPoliciesResponse $ +-- listGroupPoliciesResponse +-- +-- , testDeletePolicyVersionResponse $ +-- deletePolicyVersionResponse +-- +-- , testDeleteInstanceProfileResponse $ +-- deleteInstanceProfileResponse +-- +-- , testDetachRolePolicyResponse $ +-- detachRolePolicyResponse +-- +-- , testRemoveRoleFromInstanceProfileResponse $ +-- removeRoleFromInstanceProfileResponse +-- +-- , testCreatePolicyVersionResponse $ +-- createPolicyVersionResponse +-- +-- , testCreateInstanceProfileResponse $ +-- createInstanceProfileResponse +-- +-- , testCreateSAMLProviderResponse $ +-- createSAMLProviderResponse +-- +-- , testGetAccountAuthorizationDetailsResponse $ +-- getAccountAuthorizationDetailsResponse +-- +-- , testDeleteAccountAliasResponse $ +-- deleteAccountAliasResponse +-- +-- , testDetachUserPolicyResponse $ +-- detachUserPolicyResponse +-- +-- , testRemoveUserFromGroupResponse $ +-- removeUserFromGroupResponse +-- +-- , testDeleteGroupPolicyResponse $ +-- deleteGroupPolicyResponse +-- +-- , testPutGroupPolicyResponse $ +-- putGroupPolicyResponse +-- +-- , testGetLoginProfileResponse $ +-- getLoginProfileResponse +-- +-- , testGetGroupPolicyResponse $ +-- getGroupPolicyResponse +-- +-- , testChangePasswordResponse $ +-- changePasswordResponse +-- +-- , testListServerCertificatesResponse $ +-- listServerCertificatesResponse +-- +-- , testDeletePolicyResponse $ +-- deletePolicyResponse +-- +-- , testUpdateAssumeRolePolicyResponse $ +-- updateAssumeRolePolicyResponse +-- +-- , testGetInstanceProfileResponse $ +-- getInstanceProfileResponse +-- +-- , testCreateLoginProfileResponse $ +-- createLoginProfileResponse +-- +-- , testGetSAMLProviderResponse $ +-- getSAMLProviderResponse +-- +-- , testAddRoleToInstanceProfileResponse $ +-- addRoleToInstanceProfileResponse +-- +-- , testListGroupsForUserResponse $ +-- listGroupsForUserResponse +-- +-- , testListEntitiesForPolicyResponse $ +-- listEntitiesForPolicyResponse +-- +-- , testAddUserToGroupResponse $ +-- addUserToGroupResponse +-- +-- , testGetPolicyVersionResponse $ +-- getPolicyVersionResponse +-- +-- , testDeleteOpenIdConnectProviderResponse $ +-- deleteOpenIdConnectProviderResponse +-- +-- , testGetUserResponse $ +-- getUserResponse +-- +-- , testListSigningCertificatesResponse $ +-- listSigningCertificatesResponse +-- +-- , testDeleteSigningCertificateResponse $ +-- deleteSigningCertificateResponse +-- +-- , testUpdateSigningCertificateResponse $ +-- updateSigningCertificateResponse +-- +-- , testListAttachedUserPoliciesResponse $ +-- listAttachedUserPoliciesResponse +-- +-- , testRemoveClientIdFromOpenIdConnectProviderResponse $ +-- removeClientIdFromOpenIdConnectProviderResponse +-- +-- , testAttachUserPolicyResponse $ +-- attachUserPolicyResponse +-- +-- , testListVirtualMFADevicesResponse $ +-- listVirtualMFADevicesResponse +-- +-- , testResyncMFADeviceResponse $ +-- resyncMFADeviceResponse +-- +-- , testDeleteAccessKeyResponse $ +-- deleteAccessKeyResponse +-- +-- , testUpdateAccessKeyResponse $ +-- updateAccessKeyResponse +-- +-- , testListAccessKeysResponse $ +-- listAccessKeysResponse +-- +-- , testGetRolePolicyResponse $ +-- getRolePolicyResponse +-- +-- , testCreateUserResponse $ +-- createUserResponse +-- +-- , testPutRolePolicyResponse $ +-- putRolePolicyResponse +-- +-- , testUploadSigningCertificateResponse $ +-- uploadSigningCertificateResponse +-- +-- , testDeleteRolePolicyResponse $ +-- deleteRolePolicyResponse +-- +-- , testGetAccountPasswordPolicyResponse $ +-- getAccountPasswordPolicyResponse +-- +-- , testGetAccessKeyLastUsedResponse $ +-- getAccessKeyLastUsedResponse +-- +-- , testUpdateUserResponse $ +-- updateUserResponse +-- +-- , testDeleteUserResponse $ +-- deleteUserResponse +-- +-- , testAddClientIdToOpenIdConnectProviderResponse $ +-- addClientIdToOpenIdConnectProviderResponse +-- +-- , testListRolePoliciesResponse $ +-- listRolePoliciesResponse +-- +-- , testCreateAccountAliasResponse $ +-- createAccountAliasResponse +-- +-- , testListInstanceProfilesResponse $ +-- listInstanceProfilesResponse +-- +-- , testEnableMFADeviceResponse $ +-- enableMFADeviceResponse +-- +-- , testListAccountAliasesResponse $ +-- listAccountAliasesResponse +-- +-- , testDeleteSAMLProviderResponse $ +-- deleteSAMLProviderResponse +-- +-- , testUpdateSAMLProviderResponse $ +-- updateSAMLProviderResponse +-- +-- , testCreateGroupResponse $ +-- createGroupResponse +-- +-- , testListMFADevicesResponse $ +-- listMFADevicesResponse +-- +-- , testUploadServerCertificateResponse $ +-- uploadServerCertificateResponse +-- +-- , testSetDefaultPolicyVersionResponse $ +-- setDefaultPolicyVersionResponse +-- +-- , testListPolicyVersionsResponse $ +-- listPolicyVersionsResponse +-- +-- , testListSAMLProvidersResponse $ +-- listSAMLProvidersResponse +-- +-- , testGetServerCertificateResponse $ +-- getServerCertificateResponse +-- +-- , testDeleteGroupResponse $ +-- deleteGroupResponse +-- +-- , testUpdateGroupResponse $ +-- updateGroupResponse +-- +-- , testListGroupsResponse $ +-- listGroupsResponse +-- +-- , testGenerateCredentialReportResponse $ +-- generateCredentialReportResponse +-- +-- , testGetPolicyResponse $ +-- getPolicyResponse +-- +-- , testUpdateLoginProfileResponse $ +-- updateLoginProfileResponse +-- +-- , testDeleteLoginProfileResponse $ +-- deleteLoginProfileResponse +-- +-- , testGetGroupResponse $ +-- getGroupResponse +-- +-- , testDeleteServerCertificateResponse $ +-- deleteServerCertificateResponse +-- +-- , testUpdateServerCertificateResponse $ +-- updateServerCertificateResponse +-- +-- , testListAttachedGroupPoliciesResponse $ +-- listAttachedGroupPoliciesResponse +-- +-- ] +-- ] + +-- Requests + +testListPolicies :: ListPolicies -> TestTree +testListPolicies = req + "ListPolicies" + "fixture/ListPolicies.yaml" + +testCreatePolicy :: CreatePolicy -> TestTree +testCreatePolicy = req + "CreatePolicy" + "fixture/CreatePolicy.yaml" + +testListInstanceProfilesForRole :: ListInstanceProfilesForRole -> TestTree +testListInstanceProfilesForRole = req + "ListInstanceProfilesForRole" + "fixture/ListInstanceProfilesForRole.yaml" + +testAttachGroupPolicy :: AttachGroupPolicy -> TestTree +testAttachGroupPolicy = req + "AttachGroupPolicy" + "fixture/AttachGroupPolicy.yaml" + +testCreateAccessKey :: CreateAccessKey -> TestTree +testCreateAccessKey = req + "CreateAccessKey" + "fixture/CreateAccessKey.yaml" + +testListSSHPublicKeys :: ListSSHPublicKeys -> TestTree +testListSSHPublicKeys = req + "ListSSHPublicKeys" + "fixture/ListSSHPublicKeys.yaml" + +testListOpenIdConnectProviders :: ListOpenIdConnectProviders -> TestTree +testListOpenIdConnectProviders = req + "ListOpenIdConnectProviders" + "fixture/ListOpenIdConnectProviders.yaml" + +testCreateVirtualMFADevice :: CreateVirtualMFADevice -> TestTree +testCreateVirtualMFADevice = req + "CreateVirtualMFADevice" + "fixture/CreateVirtualMFADevice.yaml" + +testDeleteAccountPasswordPolicy :: DeleteAccountPasswordPolicy -> TestTree +testDeleteAccountPasswordPolicy = req + "DeleteAccountPasswordPolicy" + "fixture/DeleteAccountPasswordPolicy.yaml" + +testUpdateAccountPasswordPolicy :: UpdateAccountPasswordPolicy -> TestTree +testUpdateAccountPasswordPolicy = req + "UpdateAccountPasswordPolicy" + "fixture/UpdateAccountPasswordPolicy.yaml" + +testAttachRolePolicy :: AttachRolePolicy -> TestTree +testAttachRolePolicy = req + "AttachRolePolicy" + "fixture/AttachRolePolicy.yaml" + +testUpdateSSHPublicKey :: UpdateSSHPublicKey -> TestTree +testUpdateSSHPublicKey = req + "UpdateSSHPublicKey" + "fixture/UpdateSSHPublicKey.yaml" + +testDeleteSSHPublicKey :: DeleteSSHPublicKey -> TestTree +testDeleteSSHPublicKey = req + "DeleteSSHPublicKey" + "fixture/DeleteSSHPublicKey.yaml" + +testGetUserPolicy :: GetUserPolicy -> TestTree +testGetUserPolicy = req + "GetUserPolicy" + "fixture/GetUserPolicy.yaml" + +testListAttachedRolePolicies :: ListAttachedRolePolicies -> TestTree +testListAttachedRolePolicies = req + "ListAttachedRolePolicies" + "fixture/ListAttachedRolePolicies.yaml" + +testGetRole :: GetRole -> TestTree +testGetRole = req + "GetRole" + "fixture/GetRole.yaml" + +testDeactivateMFADevice :: DeactivateMFADevice -> TestTree +testDeactivateMFADevice = req + "DeactivateMFADevice" + "fixture/DeactivateMFADevice.yaml" + +testCreateOpenIdConnectProvider :: CreateOpenIdConnectProvider -> TestTree +testCreateOpenIdConnectProvider = req + "CreateOpenIdConnectProvider" + "fixture/CreateOpenIdConnectProvider.yaml" + +testDeleteVirtualMFADevice :: DeleteVirtualMFADevice -> TestTree +testDeleteVirtualMFADevice = req + "DeleteVirtualMFADevice" + "fixture/DeleteVirtualMFADevice.yaml" + +testListRoles :: ListRoles -> TestTree +testListRoles = req + "ListRoles" + "fixture/ListRoles.yaml" + +testListUserPolicies :: ListUserPolicies -> TestTree +testListUserPolicies = req + "ListUserPolicies" + "fixture/ListUserPolicies.yaml" + +testUploadSSHPublicKey :: UploadSSHPublicKey -> TestTree +testUploadSSHPublicKey = req + "UploadSSHPublicKey" + "fixture/UploadSSHPublicKey.yaml" + +testDeleteRole :: DeleteRole -> TestTree +testDeleteRole = req + "DeleteRole" + "fixture/DeleteRole.yaml" + +testListUsers :: ListUsers -> TestTree +testListUsers = req + "ListUsers" + "fixture/ListUsers.yaml" + +testUpdateOpenIdConnectProviderThumbprint :: UpdateOpenIdConnectProviderThumbprint -> TestTree +testUpdateOpenIdConnectProviderThumbprint = req + "UpdateOpenIdConnectProviderThumbprint" + "fixture/UpdateOpenIdConnectProviderThumbprint.yaml" + +testPutUserPolicy :: PutUserPolicy -> TestTree +testPutUserPolicy = req + "PutUserPolicy" + "fixture/PutUserPolicy.yaml" + +testGetSSHPublicKey :: GetSSHPublicKey -> TestTree +testGetSSHPublicKey = req + "GetSSHPublicKey" + "fixture/GetSSHPublicKey.yaml" + +testDetachGroupPolicy :: DetachGroupPolicy -> TestTree +testDetachGroupPolicy = req + "DetachGroupPolicy" + "fixture/DetachGroupPolicy.yaml" + +testGetOpenIdConnectProvider :: GetOpenIdConnectProvider -> TestTree +testGetOpenIdConnectProvider = req + "GetOpenIdConnectProvider" + "fixture/GetOpenIdConnectProvider.yaml" + +testDeleteUserPolicy :: DeleteUserPolicy -> TestTree +testDeleteUserPolicy = req + "DeleteUserPolicy" + "fixture/DeleteUserPolicy.yaml" + +testCreateRole :: CreateRole -> TestTree +testCreateRole = req + "CreateRole" + "fixture/CreateRole.yaml" + +testGetCredentialReport :: GetCredentialReport -> TestTree +testGetCredentialReport = req + "GetCredentialReport" + "fixture/GetCredentialReport.yaml" + +testGetAccountSummary :: GetAccountSummary -> TestTree +testGetAccountSummary = req + "GetAccountSummary" + "fixture/GetAccountSummary.yaml" + +testListGroupPolicies :: ListGroupPolicies -> TestTree +testListGroupPolicies = req + "ListGroupPolicies" + "fixture/ListGroupPolicies.yaml" + +testDeletePolicyVersion :: DeletePolicyVersion -> TestTree +testDeletePolicyVersion = req + "DeletePolicyVersion" + "fixture/DeletePolicyVersion.yaml" + +testDeleteInstanceProfile :: DeleteInstanceProfile -> TestTree +testDeleteInstanceProfile = req + "DeleteInstanceProfile" + "fixture/DeleteInstanceProfile.yaml" + +testDetachRolePolicy :: DetachRolePolicy -> TestTree +testDetachRolePolicy = req + "DetachRolePolicy" + "fixture/DetachRolePolicy.yaml" + +testRemoveRoleFromInstanceProfile :: RemoveRoleFromInstanceProfile -> TestTree +testRemoveRoleFromInstanceProfile = req + "RemoveRoleFromInstanceProfile" + "fixture/RemoveRoleFromInstanceProfile.yaml" + +testCreatePolicyVersion :: CreatePolicyVersion -> TestTree +testCreatePolicyVersion = req + "CreatePolicyVersion" + "fixture/CreatePolicyVersion.yaml" + +testCreateInstanceProfile :: CreateInstanceProfile -> TestTree +testCreateInstanceProfile = req + "CreateInstanceProfile" + "fixture/CreateInstanceProfile.yaml" + +testCreateSAMLProvider :: CreateSAMLProvider -> TestTree +testCreateSAMLProvider = req + "CreateSAMLProvider" + "fixture/CreateSAMLProvider.yaml" + +testGetAccountAuthorizationDetails :: GetAccountAuthorizationDetails -> TestTree +testGetAccountAuthorizationDetails = req + "GetAccountAuthorizationDetails" + "fixture/GetAccountAuthorizationDetails.yaml" + +testDeleteAccountAlias :: DeleteAccountAlias -> TestTree +testDeleteAccountAlias = req + "DeleteAccountAlias" + "fixture/DeleteAccountAlias.yaml" + +testDetachUserPolicy :: DetachUserPolicy -> TestTree +testDetachUserPolicy = req + "DetachUserPolicy" + "fixture/DetachUserPolicy.yaml" + +testRemoveUserFromGroup :: RemoveUserFromGroup -> TestTree +testRemoveUserFromGroup = req + "RemoveUserFromGroup" + "fixture/RemoveUserFromGroup.yaml" + +testDeleteGroupPolicy :: DeleteGroupPolicy -> TestTree +testDeleteGroupPolicy = req + "DeleteGroupPolicy" + "fixture/DeleteGroupPolicy.yaml" + +testPutGroupPolicy :: PutGroupPolicy -> TestTree +testPutGroupPolicy = req + "PutGroupPolicy" + "fixture/PutGroupPolicy.yaml" + +testGetLoginProfile :: GetLoginProfile -> TestTree +testGetLoginProfile = req + "GetLoginProfile" + "fixture/GetLoginProfile.yaml" + +testGetGroupPolicy :: GetGroupPolicy -> TestTree +testGetGroupPolicy = req + "GetGroupPolicy" + "fixture/GetGroupPolicy.yaml" + +testChangePassword :: ChangePassword -> TestTree +testChangePassword = req + "ChangePassword" + "fixture/ChangePassword.yaml" + +testListServerCertificates :: ListServerCertificates -> TestTree +testListServerCertificates = req + "ListServerCertificates" + "fixture/ListServerCertificates.yaml" + +testDeletePolicy :: DeletePolicy -> TestTree +testDeletePolicy = req + "DeletePolicy" + "fixture/DeletePolicy.yaml" + +testUpdateAssumeRolePolicy :: UpdateAssumeRolePolicy -> TestTree +testUpdateAssumeRolePolicy = req + "UpdateAssumeRolePolicy" + "fixture/UpdateAssumeRolePolicy.yaml" + +testGetInstanceProfile :: GetInstanceProfile -> TestTree +testGetInstanceProfile = req + "GetInstanceProfile" + "fixture/GetInstanceProfile.yaml" + +testCreateLoginProfile :: CreateLoginProfile -> TestTree +testCreateLoginProfile = req + "CreateLoginProfile" + "fixture/CreateLoginProfile.yaml" + +testGetSAMLProvider :: GetSAMLProvider -> TestTree +testGetSAMLProvider = req + "GetSAMLProvider" + "fixture/GetSAMLProvider.yaml" + +testAddRoleToInstanceProfile :: AddRoleToInstanceProfile -> TestTree +testAddRoleToInstanceProfile = req + "AddRoleToInstanceProfile" + "fixture/AddRoleToInstanceProfile.yaml" + +testListGroupsForUser :: ListGroupsForUser -> TestTree +testListGroupsForUser = req + "ListGroupsForUser" + "fixture/ListGroupsForUser.yaml" + +testListEntitiesForPolicy :: ListEntitiesForPolicy -> TestTree +testListEntitiesForPolicy = req + "ListEntitiesForPolicy" + "fixture/ListEntitiesForPolicy.yaml" + +testAddUserToGroup :: AddUserToGroup -> TestTree +testAddUserToGroup = req + "AddUserToGroup" + "fixture/AddUserToGroup.yaml" + +testGetPolicyVersion :: GetPolicyVersion -> TestTree +testGetPolicyVersion = req + "GetPolicyVersion" + "fixture/GetPolicyVersion.yaml" + +testDeleteOpenIdConnectProvider :: DeleteOpenIdConnectProvider -> TestTree +testDeleteOpenIdConnectProvider = req + "DeleteOpenIdConnectProvider" + "fixture/DeleteOpenIdConnectProvider.yaml" + +testGetUser :: GetUser -> TestTree +testGetUser = req + "GetUser" + "fixture/GetUser.yaml" + +testListSigningCertificates :: ListSigningCertificates -> TestTree +testListSigningCertificates = req + "ListSigningCertificates" + "fixture/ListSigningCertificates.yaml" + +testDeleteSigningCertificate :: DeleteSigningCertificate -> TestTree +testDeleteSigningCertificate = req + "DeleteSigningCertificate" + "fixture/DeleteSigningCertificate.yaml" + +testUpdateSigningCertificate :: UpdateSigningCertificate -> TestTree +testUpdateSigningCertificate = req + "UpdateSigningCertificate" + "fixture/UpdateSigningCertificate.yaml" + +testListAttachedUserPolicies :: ListAttachedUserPolicies -> TestTree +testListAttachedUserPolicies = req + "ListAttachedUserPolicies" + "fixture/ListAttachedUserPolicies.yaml" + +testRemoveClientIdFromOpenIdConnectProvider :: RemoveClientIdFromOpenIdConnectProvider -> TestTree +testRemoveClientIdFromOpenIdConnectProvider = req + "RemoveClientIdFromOpenIdConnectProvider" + "fixture/RemoveClientIdFromOpenIdConnectProvider.yaml" + +testAttachUserPolicy :: AttachUserPolicy -> TestTree +testAttachUserPolicy = req + "AttachUserPolicy" + "fixture/AttachUserPolicy.yaml" + +testListVirtualMFADevices :: ListVirtualMFADevices -> TestTree +testListVirtualMFADevices = req + "ListVirtualMFADevices" + "fixture/ListVirtualMFADevices.yaml" + +testResyncMFADevice :: ResyncMFADevice -> TestTree +testResyncMFADevice = req + "ResyncMFADevice" + "fixture/ResyncMFADevice.yaml" + +testDeleteAccessKey :: DeleteAccessKey -> TestTree +testDeleteAccessKey = req + "DeleteAccessKey" + "fixture/DeleteAccessKey.yaml" + +testUpdateAccessKey :: UpdateAccessKey -> TestTree +testUpdateAccessKey = req + "UpdateAccessKey" + "fixture/UpdateAccessKey.yaml" + +testListAccessKeys :: ListAccessKeys -> TestTree +testListAccessKeys = req + "ListAccessKeys" + "fixture/ListAccessKeys.yaml" + +testGetRolePolicy :: GetRolePolicy -> TestTree +testGetRolePolicy = req + "GetRolePolicy" + "fixture/GetRolePolicy.yaml" + +testCreateUser :: CreateUser -> TestTree +testCreateUser = req + "CreateUser" + "fixture/CreateUser.yaml" + +testPutRolePolicy :: PutRolePolicy -> TestTree +testPutRolePolicy = req + "PutRolePolicy" + "fixture/PutRolePolicy.yaml" + +testUploadSigningCertificate :: UploadSigningCertificate -> TestTree +testUploadSigningCertificate = req + "UploadSigningCertificate" + "fixture/UploadSigningCertificate.yaml" + +testDeleteRolePolicy :: DeleteRolePolicy -> TestTree +testDeleteRolePolicy = req + "DeleteRolePolicy" + "fixture/DeleteRolePolicy.yaml" + +testGetAccountPasswordPolicy :: GetAccountPasswordPolicy -> TestTree +testGetAccountPasswordPolicy = req + "GetAccountPasswordPolicy" + "fixture/GetAccountPasswordPolicy.yaml" + +testGetAccessKeyLastUsed :: GetAccessKeyLastUsed -> TestTree +testGetAccessKeyLastUsed = req + "GetAccessKeyLastUsed" + "fixture/GetAccessKeyLastUsed.yaml" + +testUpdateUser :: UpdateUser -> TestTree +testUpdateUser = req + "UpdateUser" + "fixture/UpdateUser.yaml" + +testDeleteUser :: DeleteUser -> TestTree +testDeleteUser = req + "DeleteUser" + "fixture/DeleteUser.yaml" + +testAddClientIdToOpenIdConnectProvider :: AddClientIdToOpenIdConnectProvider -> TestTree +testAddClientIdToOpenIdConnectProvider = req + "AddClientIdToOpenIdConnectProvider" + "fixture/AddClientIdToOpenIdConnectProvider.yaml" + +testListRolePolicies :: ListRolePolicies -> TestTree +testListRolePolicies = req + "ListRolePolicies" + "fixture/ListRolePolicies.yaml" + +testCreateAccountAlias :: CreateAccountAlias -> TestTree +testCreateAccountAlias = req + "CreateAccountAlias" + "fixture/CreateAccountAlias.yaml" + +testListInstanceProfiles :: ListInstanceProfiles -> TestTree +testListInstanceProfiles = req + "ListInstanceProfiles" + "fixture/ListInstanceProfiles.yaml" + +testEnableMFADevice :: EnableMFADevice -> TestTree +testEnableMFADevice = req + "EnableMFADevice" + "fixture/EnableMFADevice.yaml" + +testListAccountAliases :: ListAccountAliases -> TestTree +testListAccountAliases = req + "ListAccountAliases" + "fixture/ListAccountAliases.yaml" + +testDeleteSAMLProvider :: DeleteSAMLProvider -> TestTree +testDeleteSAMLProvider = req + "DeleteSAMLProvider" + "fixture/DeleteSAMLProvider.yaml" + +testUpdateSAMLProvider :: UpdateSAMLProvider -> TestTree +testUpdateSAMLProvider = req + "UpdateSAMLProvider" + "fixture/UpdateSAMLProvider.yaml" + +testCreateGroup :: CreateGroup -> TestTree +testCreateGroup = req + "CreateGroup" + "fixture/CreateGroup.yaml" + +testListMFADevices :: ListMFADevices -> TestTree +testListMFADevices = req + "ListMFADevices" + "fixture/ListMFADevices.yaml" + +testUploadServerCertificate :: UploadServerCertificate -> TestTree +testUploadServerCertificate = req + "UploadServerCertificate" + "fixture/UploadServerCertificate.yaml" + +testSetDefaultPolicyVersion :: SetDefaultPolicyVersion -> TestTree +testSetDefaultPolicyVersion = req + "SetDefaultPolicyVersion" + "fixture/SetDefaultPolicyVersion.yaml" + +testListPolicyVersions :: ListPolicyVersions -> TestTree +testListPolicyVersions = req + "ListPolicyVersions" + "fixture/ListPolicyVersions.yaml" + +testListSAMLProviders :: ListSAMLProviders -> TestTree +testListSAMLProviders = req + "ListSAMLProviders" + "fixture/ListSAMLProviders.yaml" + +testGetServerCertificate :: GetServerCertificate -> TestTree +testGetServerCertificate = req + "GetServerCertificate" + "fixture/GetServerCertificate.yaml" + +testDeleteGroup :: DeleteGroup -> TestTree +testDeleteGroup = req + "DeleteGroup" + "fixture/DeleteGroup.yaml" + +testUpdateGroup :: UpdateGroup -> TestTree +testUpdateGroup = req + "UpdateGroup" + "fixture/UpdateGroup.yaml" + +testListGroups :: ListGroups -> TestTree +testListGroups = req + "ListGroups" + "fixture/ListGroups.yaml" + +testGenerateCredentialReport :: GenerateCredentialReport -> TestTree +testGenerateCredentialReport = req + "GenerateCredentialReport" + "fixture/GenerateCredentialReport.yaml" + +testGetPolicy :: GetPolicy -> TestTree +testGetPolicy = req + "GetPolicy" + "fixture/GetPolicy.yaml" + +testUpdateLoginProfile :: UpdateLoginProfile -> TestTree +testUpdateLoginProfile = req + "UpdateLoginProfile" + "fixture/UpdateLoginProfile.yaml" + +testDeleteLoginProfile :: DeleteLoginProfile -> TestTree +testDeleteLoginProfile = req + "DeleteLoginProfile" + "fixture/DeleteLoginProfile.yaml" + +testGetGroup :: GetGroup -> TestTree +testGetGroup = req + "GetGroup" + "fixture/GetGroup.yaml" + +testDeleteServerCertificate :: DeleteServerCertificate -> TestTree +testDeleteServerCertificate = req + "DeleteServerCertificate" + "fixture/DeleteServerCertificate.yaml" + +testUpdateServerCertificate :: UpdateServerCertificate -> TestTree +testUpdateServerCertificate = req + "UpdateServerCertificate" + "fixture/UpdateServerCertificate.yaml" + +testListAttachedGroupPolicies :: ListAttachedGroupPolicies -> TestTree +testListAttachedGroupPolicies = req + "ListAttachedGroupPolicies" + "fixture/ListAttachedGroupPolicies.yaml" + +-- Responses + +testListPoliciesResponse :: ListPoliciesResponse -> TestTree +testListPoliciesResponse = res + "ListPoliciesResponse" + "fixture/ListPoliciesResponse.proto" + iAM + (Proxy :: Proxy ListPolicies) + +testCreatePolicyResponse :: CreatePolicyResponse -> TestTree +testCreatePolicyResponse = res + "CreatePolicyResponse" + "fixture/CreatePolicyResponse.proto" + iAM + (Proxy :: Proxy CreatePolicy) + +testListInstanceProfilesForRoleResponse :: ListInstanceProfilesForRoleResponse -> TestTree +testListInstanceProfilesForRoleResponse = res + "ListInstanceProfilesForRoleResponse" + "fixture/ListInstanceProfilesForRoleResponse.proto" + iAM + (Proxy :: Proxy ListInstanceProfilesForRole) + +testAttachGroupPolicyResponse :: AttachGroupPolicyResponse -> TestTree +testAttachGroupPolicyResponse = res + "AttachGroupPolicyResponse" + "fixture/AttachGroupPolicyResponse.proto" + iAM + (Proxy :: Proxy AttachGroupPolicy) + +testCreateAccessKeyResponse :: CreateAccessKeyResponse -> TestTree +testCreateAccessKeyResponse = res + "CreateAccessKeyResponse" + "fixture/CreateAccessKeyResponse.proto" + iAM + (Proxy :: Proxy CreateAccessKey) + +testListSSHPublicKeysResponse :: ListSSHPublicKeysResponse -> TestTree +testListSSHPublicKeysResponse = res + "ListSSHPublicKeysResponse" + "fixture/ListSSHPublicKeysResponse.proto" + iAM + (Proxy :: Proxy ListSSHPublicKeys) + +testListOpenIdConnectProvidersResponse :: ListOpenIdConnectProvidersResponse -> TestTree +testListOpenIdConnectProvidersResponse = res + "ListOpenIdConnectProvidersResponse" + "fixture/ListOpenIdConnectProvidersResponse.proto" + iAM + (Proxy :: Proxy ListOpenIdConnectProviders) + +testCreateVirtualMFADeviceResponse :: CreateVirtualMFADeviceResponse -> TestTree +testCreateVirtualMFADeviceResponse = res + "CreateVirtualMFADeviceResponse" + "fixture/CreateVirtualMFADeviceResponse.proto" + iAM + (Proxy :: Proxy CreateVirtualMFADevice) + +testDeleteAccountPasswordPolicyResponse :: DeleteAccountPasswordPolicyResponse -> TestTree +testDeleteAccountPasswordPolicyResponse = res + "DeleteAccountPasswordPolicyResponse" + "fixture/DeleteAccountPasswordPolicyResponse.proto" + iAM + (Proxy :: Proxy DeleteAccountPasswordPolicy) + +testUpdateAccountPasswordPolicyResponse :: UpdateAccountPasswordPolicyResponse -> TestTree +testUpdateAccountPasswordPolicyResponse = res + "UpdateAccountPasswordPolicyResponse" + "fixture/UpdateAccountPasswordPolicyResponse.proto" + iAM + (Proxy :: Proxy UpdateAccountPasswordPolicy) + +testAttachRolePolicyResponse :: AttachRolePolicyResponse -> TestTree +testAttachRolePolicyResponse = res + "AttachRolePolicyResponse" + "fixture/AttachRolePolicyResponse.proto" + iAM + (Proxy :: Proxy AttachRolePolicy) + +testUpdateSSHPublicKeyResponse :: UpdateSSHPublicKeyResponse -> TestTree +testUpdateSSHPublicKeyResponse = res + "UpdateSSHPublicKeyResponse" + "fixture/UpdateSSHPublicKeyResponse.proto" + iAM + (Proxy :: Proxy UpdateSSHPublicKey) + +testDeleteSSHPublicKeyResponse :: DeleteSSHPublicKeyResponse -> TestTree +testDeleteSSHPublicKeyResponse = res + "DeleteSSHPublicKeyResponse" + "fixture/DeleteSSHPublicKeyResponse.proto" + iAM + (Proxy :: Proxy DeleteSSHPublicKey) + +testGetUserPolicyResponse :: GetUserPolicyResponse -> TestTree +testGetUserPolicyResponse = res + "GetUserPolicyResponse" + "fixture/GetUserPolicyResponse.proto" + iAM + (Proxy :: Proxy GetUserPolicy) + +testListAttachedRolePoliciesResponse :: ListAttachedRolePoliciesResponse -> TestTree +testListAttachedRolePoliciesResponse = res + "ListAttachedRolePoliciesResponse" + "fixture/ListAttachedRolePoliciesResponse.proto" + iAM + (Proxy :: Proxy ListAttachedRolePolicies) + +testGetRoleResponse :: GetRoleResponse -> TestTree +testGetRoleResponse = res + "GetRoleResponse" + "fixture/GetRoleResponse.proto" + iAM + (Proxy :: Proxy GetRole) + +testDeactivateMFADeviceResponse :: DeactivateMFADeviceResponse -> TestTree +testDeactivateMFADeviceResponse = res + "DeactivateMFADeviceResponse" + "fixture/DeactivateMFADeviceResponse.proto" + iAM + (Proxy :: Proxy DeactivateMFADevice) + +testCreateOpenIdConnectProviderResponse :: CreateOpenIdConnectProviderResponse -> TestTree +testCreateOpenIdConnectProviderResponse = res + "CreateOpenIdConnectProviderResponse" + "fixture/CreateOpenIdConnectProviderResponse.proto" + iAM + (Proxy :: Proxy CreateOpenIdConnectProvider) + +testDeleteVirtualMFADeviceResponse :: DeleteVirtualMFADeviceResponse -> TestTree +testDeleteVirtualMFADeviceResponse = res + "DeleteVirtualMFADeviceResponse" + "fixture/DeleteVirtualMFADeviceResponse.proto" + iAM + (Proxy :: Proxy DeleteVirtualMFADevice) + +testListRolesResponse :: ListRolesResponse -> TestTree +testListRolesResponse = res + "ListRolesResponse" + "fixture/ListRolesResponse.proto" + iAM + (Proxy :: Proxy ListRoles) + +testListUserPoliciesResponse :: ListUserPoliciesResponse -> TestTree +testListUserPoliciesResponse = res + "ListUserPoliciesResponse" + "fixture/ListUserPoliciesResponse.proto" + iAM + (Proxy :: Proxy ListUserPolicies) + +testUploadSSHPublicKeyResponse :: UploadSSHPublicKeyResponse -> TestTree +testUploadSSHPublicKeyResponse = res + "UploadSSHPublicKeyResponse" + "fixture/UploadSSHPublicKeyResponse.proto" + iAM + (Proxy :: Proxy UploadSSHPublicKey) + +testDeleteRoleResponse :: DeleteRoleResponse -> TestTree +testDeleteRoleResponse = res + "DeleteRoleResponse" + "fixture/DeleteRoleResponse.proto" + iAM + (Proxy :: Proxy DeleteRole) + +testListUsersResponse :: ListUsersResponse -> TestTree +testListUsersResponse = res + "ListUsersResponse" + "fixture/ListUsersResponse.proto" + iAM + (Proxy :: Proxy ListUsers) + +testUpdateOpenIdConnectProviderThumbprintResponse :: UpdateOpenIdConnectProviderThumbprintResponse -> TestTree +testUpdateOpenIdConnectProviderThumbprintResponse = res + "UpdateOpenIdConnectProviderThumbprintResponse" + "fixture/UpdateOpenIdConnectProviderThumbprintResponse.proto" + iAM + (Proxy :: Proxy UpdateOpenIdConnectProviderThumbprint) + +testPutUserPolicyResponse :: PutUserPolicyResponse -> TestTree +testPutUserPolicyResponse = res + "PutUserPolicyResponse" + "fixture/PutUserPolicyResponse.proto" + iAM + (Proxy :: Proxy PutUserPolicy) + +testGetSSHPublicKeyResponse :: GetSSHPublicKeyResponse -> TestTree +testGetSSHPublicKeyResponse = res + "GetSSHPublicKeyResponse" + "fixture/GetSSHPublicKeyResponse.proto" + iAM + (Proxy :: Proxy GetSSHPublicKey) + +testDetachGroupPolicyResponse :: DetachGroupPolicyResponse -> TestTree +testDetachGroupPolicyResponse = res + "DetachGroupPolicyResponse" + "fixture/DetachGroupPolicyResponse.proto" + iAM + (Proxy :: Proxy DetachGroupPolicy) + +testGetOpenIdConnectProviderResponse :: GetOpenIdConnectProviderResponse -> TestTree +testGetOpenIdConnectProviderResponse = res + "GetOpenIdConnectProviderResponse" + "fixture/GetOpenIdConnectProviderResponse.proto" + iAM + (Proxy :: Proxy GetOpenIdConnectProvider) + +testDeleteUserPolicyResponse :: DeleteUserPolicyResponse -> TestTree +testDeleteUserPolicyResponse = res + "DeleteUserPolicyResponse" + "fixture/DeleteUserPolicyResponse.proto" + iAM + (Proxy :: Proxy DeleteUserPolicy) + +testCreateRoleResponse :: CreateRoleResponse -> TestTree +testCreateRoleResponse = res + "CreateRoleResponse" + "fixture/CreateRoleResponse.proto" + iAM + (Proxy :: Proxy CreateRole) + +testGetCredentialReportResponse :: GetCredentialReportResponse -> TestTree +testGetCredentialReportResponse = res + "GetCredentialReportResponse" + "fixture/GetCredentialReportResponse.proto" + iAM + (Proxy :: Proxy GetCredentialReport) + +testGetAccountSummaryResponse :: GetAccountSummaryResponse -> TestTree +testGetAccountSummaryResponse = res + "GetAccountSummaryResponse" + "fixture/GetAccountSummaryResponse.proto" + iAM + (Proxy :: Proxy GetAccountSummary) + +testListGroupPoliciesResponse :: ListGroupPoliciesResponse -> TestTree +testListGroupPoliciesResponse = res + "ListGroupPoliciesResponse" + "fixture/ListGroupPoliciesResponse.proto" + iAM + (Proxy :: Proxy ListGroupPolicies) + +testDeletePolicyVersionResponse :: DeletePolicyVersionResponse -> TestTree +testDeletePolicyVersionResponse = res + "DeletePolicyVersionResponse" + "fixture/DeletePolicyVersionResponse.proto" + iAM + (Proxy :: Proxy DeletePolicyVersion) + +testDeleteInstanceProfileResponse :: DeleteInstanceProfileResponse -> TestTree +testDeleteInstanceProfileResponse = res + "DeleteInstanceProfileResponse" + "fixture/DeleteInstanceProfileResponse.proto" + iAM + (Proxy :: Proxy DeleteInstanceProfile) + +testDetachRolePolicyResponse :: DetachRolePolicyResponse -> TestTree +testDetachRolePolicyResponse = res + "DetachRolePolicyResponse" + "fixture/DetachRolePolicyResponse.proto" + iAM + (Proxy :: Proxy DetachRolePolicy) + +testRemoveRoleFromInstanceProfileResponse :: RemoveRoleFromInstanceProfileResponse -> TestTree +testRemoveRoleFromInstanceProfileResponse = res + "RemoveRoleFromInstanceProfileResponse" + "fixture/RemoveRoleFromInstanceProfileResponse.proto" + iAM + (Proxy :: Proxy RemoveRoleFromInstanceProfile) + +testCreatePolicyVersionResponse :: CreatePolicyVersionResponse -> TestTree +testCreatePolicyVersionResponse = res + "CreatePolicyVersionResponse" + "fixture/CreatePolicyVersionResponse.proto" + iAM + (Proxy :: Proxy CreatePolicyVersion) + +testCreateInstanceProfileResponse :: CreateInstanceProfileResponse -> TestTree +testCreateInstanceProfileResponse = res + "CreateInstanceProfileResponse" + "fixture/CreateInstanceProfileResponse.proto" + iAM + (Proxy :: Proxy CreateInstanceProfile) + +testCreateSAMLProviderResponse :: CreateSAMLProviderResponse -> TestTree +testCreateSAMLProviderResponse = res + "CreateSAMLProviderResponse" + "fixture/CreateSAMLProviderResponse.proto" + iAM + (Proxy :: Proxy CreateSAMLProvider) + +testGetAccountAuthorizationDetailsResponse :: GetAccountAuthorizationDetailsResponse -> TestTree +testGetAccountAuthorizationDetailsResponse = res + "GetAccountAuthorizationDetailsResponse" + "fixture/GetAccountAuthorizationDetailsResponse.proto" + iAM + (Proxy :: Proxy GetAccountAuthorizationDetails) + +testDeleteAccountAliasResponse :: DeleteAccountAliasResponse -> TestTree +testDeleteAccountAliasResponse = res + "DeleteAccountAliasResponse" + "fixture/DeleteAccountAliasResponse.proto" + iAM + (Proxy :: Proxy DeleteAccountAlias) + +testDetachUserPolicyResponse :: DetachUserPolicyResponse -> TestTree +testDetachUserPolicyResponse = res + "DetachUserPolicyResponse" + "fixture/DetachUserPolicyResponse.proto" + iAM + (Proxy :: Proxy DetachUserPolicy) + +testRemoveUserFromGroupResponse :: RemoveUserFromGroupResponse -> TestTree +testRemoveUserFromGroupResponse = res + "RemoveUserFromGroupResponse" + "fixture/RemoveUserFromGroupResponse.proto" + iAM + (Proxy :: Proxy RemoveUserFromGroup) + +testDeleteGroupPolicyResponse :: DeleteGroupPolicyResponse -> TestTree +testDeleteGroupPolicyResponse = res + "DeleteGroupPolicyResponse" + "fixture/DeleteGroupPolicyResponse.proto" + iAM + (Proxy :: Proxy DeleteGroupPolicy) + +testPutGroupPolicyResponse :: PutGroupPolicyResponse -> TestTree +testPutGroupPolicyResponse = res + "PutGroupPolicyResponse" + "fixture/PutGroupPolicyResponse.proto" + iAM + (Proxy :: Proxy PutGroupPolicy) + +testGetLoginProfileResponse :: GetLoginProfileResponse -> TestTree +testGetLoginProfileResponse = res + "GetLoginProfileResponse" + "fixture/GetLoginProfileResponse.proto" + iAM + (Proxy :: Proxy GetLoginProfile) + +testGetGroupPolicyResponse :: GetGroupPolicyResponse -> TestTree +testGetGroupPolicyResponse = res + "GetGroupPolicyResponse" + "fixture/GetGroupPolicyResponse.proto" + iAM + (Proxy :: Proxy GetGroupPolicy) + +testChangePasswordResponse :: ChangePasswordResponse -> TestTree +testChangePasswordResponse = res + "ChangePasswordResponse" + "fixture/ChangePasswordResponse.proto" + iAM + (Proxy :: Proxy ChangePassword) + +testListServerCertificatesResponse :: ListServerCertificatesResponse -> TestTree +testListServerCertificatesResponse = res + "ListServerCertificatesResponse" + "fixture/ListServerCertificatesResponse.proto" + iAM + (Proxy :: Proxy ListServerCertificates) + +testDeletePolicyResponse :: DeletePolicyResponse -> TestTree +testDeletePolicyResponse = res + "DeletePolicyResponse" + "fixture/DeletePolicyResponse.proto" + iAM + (Proxy :: Proxy DeletePolicy) + +testUpdateAssumeRolePolicyResponse :: UpdateAssumeRolePolicyResponse -> TestTree +testUpdateAssumeRolePolicyResponse = res + "UpdateAssumeRolePolicyResponse" + "fixture/UpdateAssumeRolePolicyResponse.proto" + iAM + (Proxy :: Proxy UpdateAssumeRolePolicy) + +testGetInstanceProfileResponse :: GetInstanceProfileResponse -> TestTree +testGetInstanceProfileResponse = res + "GetInstanceProfileResponse" + "fixture/GetInstanceProfileResponse.proto" + iAM + (Proxy :: Proxy GetInstanceProfile) + +testCreateLoginProfileResponse :: CreateLoginProfileResponse -> TestTree +testCreateLoginProfileResponse = res + "CreateLoginProfileResponse" + "fixture/CreateLoginProfileResponse.proto" + iAM + (Proxy :: Proxy CreateLoginProfile) + +testGetSAMLProviderResponse :: GetSAMLProviderResponse -> TestTree +testGetSAMLProviderResponse = res + "GetSAMLProviderResponse" + "fixture/GetSAMLProviderResponse.proto" + iAM + (Proxy :: Proxy GetSAMLProvider) + +testAddRoleToInstanceProfileResponse :: AddRoleToInstanceProfileResponse -> TestTree +testAddRoleToInstanceProfileResponse = res + "AddRoleToInstanceProfileResponse" + "fixture/AddRoleToInstanceProfileResponse.proto" + iAM + (Proxy :: Proxy AddRoleToInstanceProfile) + +testListGroupsForUserResponse :: ListGroupsForUserResponse -> TestTree +testListGroupsForUserResponse = res + "ListGroupsForUserResponse" + "fixture/ListGroupsForUserResponse.proto" + iAM + (Proxy :: Proxy ListGroupsForUser) + +testListEntitiesForPolicyResponse :: ListEntitiesForPolicyResponse -> TestTree +testListEntitiesForPolicyResponse = res + "ListEntitiesForPolicyResponse" + "fixture/ListEntitiesForPolicyResponse.proto" + iAM + (Proxy :: Proxy ListEntitiesForPolicy) + +testAddUserToGroupResponse :: AddUserToGroupResponse -> TestTree +testAddUserToGroupResponse = res + "AddUserToGroupResponse" + "fixture/AddUserToGroupResponse.proto" + iAM + (Proxy :: Proxy AddUserToGroup) + +testGetPolicyVersionResponse :: GetPolicyVersionResponse -> TestTree +testGetPolicyVersionResponse = res + "GetPolicyVersionResponse" + "fixture/GetPolicyVersionResponse.proto" + iAM + (Proxy :: Proxy GetPolicyVersion) + +testDeleteOpenIdConnectProviderResponse :: DeleteOpenIdConnectProviderResponse -> TestTree +testDeleteOpenIdConnectProviderResponse = res + "DeleteOpenIdConnectProviderResponse" + "fixture/DeleteOpenIdConnectProviderResponse.proto" + iAM + (Proxy :: Proxy DeleteOpenIdConnectProvider) + +testGetUserResponse :: GetUserResponse -> TestTree +testGetUserResponse = res + "GetUserResponse" + "fixture/GetUserResponse.proto" + iAM + (Proxy :: Proxy GetUser) + +testListSigningCertificatesResponse :: ListSigningCertificatesResponse -> TestTree +testListSigningCertificatesResponse = res + "ListSigningCertificatesResponse" + "fixture/ListSigningCertificatesResponse.proto" + iAM + (Proxy :: Proxy ListSigningCertificates) + +testDeleteSigningCertificateResponse :: DeleteSigningCertificateResponse -> TestTree +testDeleteSigningCertificateResponse = res + "DeleteSigningCertificateResponse" + "fixture/DeleteSigningCertificateResponse.proto" + iAM + (Proxy :: Proxy DeleteSigningCertificate) + +testUpdateSigningCertificateResponse :: UpdateSigningCertificateResponse -> TestTree +testUpdateSigningCertificateResponse = res + "UpdateSigningCertificateResponse" + "fixture/UpdateSigningCertificateResponse.proto" + iAM + (Proxy :: Proxy UpdateSigningCertificate) + +testListAttachedUserPoliciesResponse :: ListAttachedUserPoliciesResponse -> TestTree +testListAttachedUserPoliciesResponse = res + "ListAttachedUserPoliciesResponse" + "fixture/ListAttachedUserPoliciesResponse.proto" + iAM + (Proxy :: Proxy ListAttachedUserPolicies) + +testRemoveClientIdFromOpenIdConnectProviderResponse :: RemoveClientIdFromOpenIdConnectProviderResponse -> TestTree +testRemoveClientIdFromOpenIdConnectProviderResponse = res + "RemoveClientIdFromOpenIdConnectProviderResponse" + "fixture/RemoveClientIdFromOpenIdConnectProviderResponse.proto" + iAM + (Proxy :: Proxy RemoveClientIdFromOpenIdConnectProvider) + +testAttachUserPolicyResponse :: AttachUserPolicyResponse -> TestTree +testAttachUserPolicyResponse = res + "AttachUserPolicyResponse" + "fixture/AttachUserPolicyResponse.proto" + iAM + (Proxy :: Proxy AttachUserPolicy) + +testListVirtualMFADevicesResponse :: ListVirtualMFADevicesResponse -> TestTree +testListVirtualMFADevicesResponse = res + "ListVirtualMFADevicesResponse" + "fixture/ListVirtualMFADevicesResponse.proto" + iAM + (Proxy :: Proxy ListVirtualMFADevices) + +testResyncMFADeviceResponse :: ResyncMFADeviceResponse -> TestTree +testResyncMFADeviceResponse = res + "ResyncMFADeviceResponse" + "fixture/ResyncMFADeviceResponse.proto" + iAM + (Proxy :: Proxy ResyncMFADevice) + +testDeleteAccessKeyResponse :: DeleteAccessKeyResponse -> TestTree +testDeleteAccessKeyResponse = res + "DeleteAccessKeyResponse" + "fixture/DeleteAccessKeyResponse.proto" + iAM + (Proxy :: Proxy DeleteAccessKey) + +testUpdateAccessKeyResponse :: UpdateAccessKeyResponse -> TestTree +testUpdateAccessKeyResponse = res + "UpdateAccessKeyResponse" + "fixture/UpdateAccessKeyResponse.proto" + iAM + (Proxy :: Proxy UpdateAccessKey) + +testListAccessKeysResponse :: ListAccessKeysResponse -> TestTree +testListAccessKeysResponse = res + "ListAccessKeysResponse" + "fixture/ListAccessKeysResponse.proto" + iAM + (Proxy :: Proxy ListAccessKeys) + +testGetRolePolicyResponse :: GetRolePolicyResponse -> TestTree +testGetRolePolicyResponse = res + "GetRolePolicyResponse" + "fixture/GetRolePolicyResponse.proto" + iAM + (Proxy :: Proxy GetRolePolicy) + +testCreateUserResponse :: CreateUserResponse -> TestTree +testCreateUserResponse = res + "CreateUserResponse" + "fixture/CreateUserResponse.proto" + iAM + (Proxy :: Proxy CreateUser) + +testPutRolePolicyResponse :: PutRolePolicyResponse -> TestTree +testPutRolePolicyResponse = res + "PutRolePolicyResponse" + "fixture/PutRolePolicyResponse.proto" + iAM + (Proxy :: Proxy PutRolePolicy) + +testUploadSigningCertificateResponse :: UploadSigningCertificateResponse -> TestTree +testUploadSigningCertificateResponse = res + "UploadSigningCertificateResponse" + "fixture/UploadSigningCertificateResponse.proto" + iAM + (Proxy :: Proxy UploadSigningCertificate) + +testDeleteRolePolicyResponse :: DeleteRolePolicyResponse -> TestTree +testDeleteRolePolicyResponse = res + "DeleteRolePolicyResponse" + "fixture/DeleteRolePolicyResponse.proto" + iAM + (Proxy :: Proxy DeleteRolePolicy) + +testGetAccountPasswordPolicyResponse :: GetAccountPasswordPolicyResponse -> TestTree +testGetAccountPasswordPolicyResponse = res + "GetAccountPasswordPolicyResponse" + "fixture/GetAccountPasswordPolicyResponse.proto" + iAM + (Proxy :: Proxy GetAccountPasswordPolicy) + +testGetAccessKeyLastUsedResponse :: GetAccessKeyLastUsedResponse -> TestTree +testGetAccessKeyLastUsedResponse = res + "GetAccessKeyLastUsedResponse" + "fixture/GetAccessKeyLastUsedResponse.proto" + iAM + (Proxy :: Proxy GetAccessKeyLastUsed) + +testUpdateUserResponse :: UpdateUserResponse -> TestTree +testUpdateUserResponse = res + "UpdateUserResponse" + "fixture/UpdateUserResponse.proto" + iAM + (Proxy :: Proxy UpdateUser) + +testDeleteUserResponse :: DeleteUserResponse -> TestTree +testDeleteUserResponse = res + "DeleteUserResponse" + "fixture/DeleteUserResponse.proto" + iAM + (Proxy :: Proxy DeleteUser) + +testAddClientIdToOpenIdConnectProviderResponse :: AddClientIdToOpenIdConnectProviderResponse -> TestTree +testAddClientIdToOpenIdConnectProviderResponse = res + "AddClientIdToOpenIdConnectProviderResponse" + "fixture/AddClientIdToOpenIdConnectProviderResponse.proto" + iAM + (Proxy :: Proxy AddClientIdToOpenIdConnectProvider) + +testListRolePoliciesResponse :: ListRolePoliciesResponse -> TestTree +testListRolePoliciesResponse = res + "ListRolePoliciesResponse" + "fixture/ListRolePoliciesResponse.proto" + iAM + (Proxy :: Proxy ListRolePolicies) + +testCreateAccountAliasResponse :: CreateAccountAliasResponse -> TestTree +testCreateAccountAliasResponse = res + "CreateAccountAliasResponse" + "fixture/CreateAccountAliasResponse.proto" + iAM + (Proxy :: Proxy CreateAccountAlias) + +testListInstanceProfilesResponse :: ListInstanceProfilesResponse -> TestTree +testListInstanceProfilesResponse = res + "ListInstanceProfilesResponse" + "fixture/ListInstanceProfilesResponse.proto" + iAM + (Proxy :: Proxy ListInstanceProfiles) + +testEnableMFADeviceResponse :: EnableMFADeviceResponse -> TestTree +testEnableMFADeviceResponse = res + "EnableMFADeviceResponse" + "fixture/EnableMFADeviceResponse.proto" + iAM + (Proxy :: Proxy EnableMFADevice) + +testListAccountAliasesResponse :: ListAccountAliasesResponse -> TestTree +testListAccountAliasesResponse = res + "ListAccountAliasesResponse" + "fixture/ListAccountAliasesResponse.proto" + iAM + (Proxy :: Proxy ListAccountAliases) + +testDeleteSAMLProviderResponse :: DeleteSAMLProviderResponse -> TestTree +testDeleteSAMLProviderResponse = res + "DeleteSAMLProviderResponse" + "fixture/DeleteSAMLProviderResponse.proto" + iAM + (Proxy :: Proxy DeleteSAMLProvider) + +testUpdateSAMLProviderResponse :: UpdateSAMLProviderResponse -> TestTree +testUpdateSAMLProviderResponse = res + "UpdateSAMLProviderResponse" + "fixture/UpdateSAMLProviderResponse.proto" + iAM + (Proxy :: Proxy UpdateSAMLProvider) + +testCreateGroupResponse :: CreateGroupResponse -> TestTree +testCreateGroupResponse = res + "CreateGroupResponse" + "fixture/CreateGroupResponse.proto" + iAM + (Proxy :: Proxy CreateGroup) + +testListMFADevicesResponse :: ListMFADevicesResponse -> TestTree +testListMFADevicesResponse = res + "ListMFADevicesResponse" + "fixture/ListMFADevicesResponse.proto" + iAM + (Proxy :: Proxy ListMFADevices) + +testUploadServerCertificateResponse :: UploadServerCertificateResponse -> TestTree +testUploadServerCertificateResponse = res + "UploadServerCertificateResponse" + "fixture/UploadServerCertificateResponse.proto" + iAM + (Proxy :: Proxy UploadServerCertificate) + +testSetDefaultPolicyVersionResponse :: SetDefaultPolicyVersionResponse -> TestTree +testSetDefaultPolicyVersionResponse = res + "SetDefaultPolicyVersionResponse" + "fixture/SetDefaultPolicyVersionResponse.proto" + iAM + (Proxy :: Proxy SetDefaultPolicyVersion) + +testListPolicyVersionsResponse :: ListPolicyVersionsResponse -> TestTree +testListPolicyVersionsResponse = res + "ListPolicyVersionsResponse" + "fixture/ListPolicyVersionsResponse.proto" + iAM + (Proxy :: Proxy ListPolicyVersions) + +testListSAMLProvidersResponse :: ListSAMLProvidersResponse -> TestTree +testListSAMLProvidersResponse = res + "ListSAMLProvidersResponse" + "fixture/ListSAMLProvidersResponse.proto" + iAM + (Proxy :: Proxy ListSAMLProviders) + +testGetServerCertificateResponse :: GetServerCertificateResponse -> TestTree +testGetServerCertificateResponse = res + "GetServerCertificateResponse" + "fixture/GetServerCertificateResponse.proto" + iAM + (Proxy :: Proxy GetServerCertificate) + +testDeleteGroupResponse :: DeleteGroupResponse -> TestTree +testDeleteGroupResponse = res + "DeleteGroupResponse" + "fixture/DeleteGroupResponse.proto" + iAM + (Proxy :: Proxy DeleteGroup) + +testUpdateGroupResponse :: UpdateGroupResponse -> TestTree +testUpdateGroupResponse = res + "UpdateGroupResponse" + "fixture/UpdateGroupResponse.proto" + iAM + (Proxy :: Proxy UpdateGroup) + +testListGroupsResponse :: ListGroupsResponse -> TestTree +testListGroupsResponse = res + "ListGroupsResponse" + "fixture/ListGroupsResponse.proto" + iAM + (Proxy :: Proxy ListGroups) + +testGenerateCredentialReportResponse :: GenerateCredentialReportResponse -> TestTree +testGenerateCredentialReportResponse = res + "GenerateCredentialReportResponse" + "fixture/GenerateCredentialReportResponse.proto" + iAM + (Proxy :: Proxy GenerateCredentialReport) + +testGetPolicyResponse :: GetPolicyResponse -> TestTree +testGetPolicyResponse = res + "GetPolicyResponse" + "fixture/GetPolicyResponse.proto" + iAM + (Proxy :: Proxy GetPolicy) + +testUpdateLoginProfileResponse :: UpdateLoginProfileResponse -> TestTree +testUpdateLoginProfileResponse = res + "UpdateLoginProfileResponse" + "fixture/UpdateLoginProfileResponse.proto" + iAM + (Proxy :: Proxy UpdateLoginProfile) + +testDeleteLoginProfileResponse :: DeleteLoginProfileResponse -> TestTree +testDeleteLoginProfileResponse = res + "DeleteLoginProfileResponse" + "fixture/DeleteLoginProfileResponse.proto" + iAM + (Proxy :: Proxy DeleteLoginProfile) + +testGetGroupResponse :: GetGroupResponse -> TestTree +testGetGroupResponse = res + "GetGroupResponse" + "fixture/GetGroupResponse.proto" + iAM + (Proxy :: Proxy GetGroup) + +testDeleteServerCertificateResponse :: DeleteServerCertificateResponse -> TestTree +testDeleteServerCertificateResponse = res + "DeleteServerCertificateResponse" + "fixture/DeleteServerCertificateResponse.proto" + iAM + (Proxy :: Proxy DeleteServerCertificate) + +testUpdateServerCertificateResponse :: UpdateServerCertificateResponse -> TestTree +testUpdateServerCertificateResponse = res + "UpdateServerCertificateResponse" + "fixture/UpdateServerCertificateResponse.proto" + iAM + (Proxy :: Proxy UpdateServerCertificate) testListAttachedGroupPoliciesResponse :: ListAttachedGroupPoliciesResponse -> TestTree testListAttachedGroupPoliciesResponse = res