amazonka-iam 1.2.0.2 → 1.3.0

raw patch · 66 files changed

+3106/−3104 lines, 66 filesdep ~amazonka-coredep ~amazonka-iamdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-iam, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-iam.cabal +5/−5
• gen/Network/AWS/IAM.hs +142/−142
• gen/Network/AWS/IAM/CreateAccessKey.hs +9/−9
• gen/Network/AWS/IAM/CreateGroup.hs +9/−9
• gen/Network/AWS/IAM/CreateInstanceProfile.hs +8/−8
• gen/Network/AWS/IAM/CreateLoginProfile.hs +9/−9
• gen/Network/AWS/IAM/CreateOpenIdConnectProvider.hs +8/−8
• gen/Network/AWS/IAM/CreatePolicy.hs +9/−9
• gen/Network/AWS/IAM/CreatePolicyVersion.hs +9/−9
• gen/Network/AWS/IAM/CreateRole.hs +9/−9
• gen/Network/AWS/IAM/CreateSAMLProvider.hs +8/−8
• gen/Network/AWS/IAM/CreateUser.hs +9/−9
• gen/Network/AWS/IAM/CreateVirtualMFADevice.hs +8/−8
• gen/Network/AWS/IAM/GenerateCredentialReport.hs +10/−10
• gen/Network/AWS/IAM/GetAccessKeyLastUsed.hs +8/−8
• gen/Network/AWS/IAM/GetAccountAuthorizationDetails.hs +22/−22
• gen/Network/AWS/IAM/GetAccountPasswordPolicy.hs +8/−8
• gen/Network/AWS/IAM/GetAccountSummary.hs +9/−9
• gen/Network/AWS/IAM/GetCredentialReport.hs +11/−11
• gen/Network/AWS/IAM/GetGroup.hs +28/−28
• gen/Network/AWS/IAM/GetGroupPolicy.hs +8/−8
• gen/Network/AWS/IAM/GetInstanceProfile.hs +8/−8
• gen/Network/AWS/IAM/GetLoginProfile.hs +9/−9
• gen/Network/AWS/IAM/GetOpenIdConnectProvider.hs +8/−8
• gen/Network/AWS/IAM/GetPolicy.hs +9/−9
• gen/Network/AWS/IAM/GetPolicyVersion.hs +9/−9
• gen/Network/AWS/IAM/GetRole.hs +9/−9
• gen/Network/AWS/IAM/GetRolePolicy.hs +8/−8
• gen/Network/AWS/IAM/GetSAMLProvider.hs +8/−8
• gen/Network/AWS/IAM/GetSSHPublicKey.hs +9/−9
• gen/Network/AWS/IAM/GetServerCertificate.hs +8/−8
• gen/Network/AWS/IAM/GetUser.hs +9/−9
• gen/Network/AWS/IAM/GetUserPolicy.hs +8/−8
• gen/Network/AWS/IAM/ListAccessKeys.hs +23/−23
• gen/Network/AWS/IAM/ListAccountAliases.hs +24/−24
• gen/Network/AWS/IAM/ListAttachedGroupPolicies.hs +20/−20
• gen/Network/AWS/IAM/ListAttachedRolePolicies.hs +20/−20
• gen/Network/AWS/IAM/ListAttachedUserPolicies.hs +20/−20
• gen/Network/AWS/IAM/ListEntitiesForPolicy.hs +34/−34
• gen/Network/AWS/IAM/ListGroupPolicies.hs +27/−27
• gen/Network/AWS/IAM/ListGroups.hs +26/−26
• gen/Network/AWS/IAM/ListGroupsForUser.hs +27/−27
• gen/Network/AWS/IAM/ListInstanceProfiles.hs +22/−22
• gen/Network/AWS/IAM/ListInstanceProfilesForRole.hs +24/−24
• gen/Network/AWS/IAM/ListMFADevices.hs +26/−26
• gen/Network/AWS/IAM/ListOpenIdConnectProviders.hs +8/−8
• gen/Network/AWS/IAM/ListPolicies.hs +26/−26
• gen/Network/AWS/IAM/ListPolicyVersions.hs +25/−25
• gen/Network/AWS/IAM/ListRolePolicies.hs +27/−27
• gen/Network/AWS/IAM/ListRoles.hs +26/−26
• gen/Network/AWS/IAM/ListSAMLProviders.hs +8/−8
• gen/Network/AWS/IAM/ListSSHPublicKeys.hs +24/−24
• gen/Network/AWS/IAM/ListServerCertificates.hs +23/−22
• gen/Network/AWS/IAM/ListSigningCertificates.hs +26/−26
• gen/Network/AWS/IAM/ListUserPolicies.hs +27/−27
• gen/Network/AWS/IAM/ListUsers.hs +26/−26
• gen/Network/AWS/IAM/ListVirtualMFADevices.hs +22/−22
• gen/Network/AWS/IAM/Types.hs +24/−24
• gen/Network/AWS/IAM/Types/Product.hs +60/−59
• gen/Network/AWS/IAM/UpdateAccountPasswordPolicy.hs +14/−14
• gen/Network/AWS/IAM/UpdateSAMLProvider.hs +8/−8
• gen/Network/AWS/IAM/UploadSSHPublicKey.hs +9/−9
• gen/Network/AWS/IAM/UploadServerCertificate.hs +8/−8
• gen/Network/AWS/IAM/UploadSigningCertificate.hs +9/−9
• test/Test/AWS/Gen/IAM.hs +1964/−1964

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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

@@ -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});

@@ -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});

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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

@@ -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});

@@ -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});

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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

@@ -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

@@ -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});

@@ -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});

@@ -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

@@ -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

@@ -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

@@ -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]

@@ -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]

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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]

@@ -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]

@@ -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]

@@ -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]

@@ -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]

@@ -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]

@@ -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});

@@ -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});

@@ -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});

@@ -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]

@@ -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]

@@ -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});

@@ -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});

@@ -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]

@@ -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]

@@ -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]

@@ -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]

@@ -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.

@@ -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"

@@ -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--- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html IAM Identifiers>--- in the /Using IAM/ guide.-mpdPath :: Lens' ManagedPolicyDetail (Maybe Text)-mpdPath = lens _mpdPath (\ s a -> s{_mpdPath = a});- -- | The date and time, in -- <http://www.iso.org/iso/iso8601 ISO 8601 date-time format>, 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+-- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html IAM Identifiers>+-- 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 -- <http://www.iso.org/iso/iso8601 ISO 8601 date-time format>, 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--- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html IAM Identifiers>--- in the /Using IAM/ guide.-pPath :: Lens' Policy (Maybe Text)-pPath = lens _pPath (\ s a -> s{_pPath = a});- -- | The date and time, in -- <http://www.iso.org/iso/iso8601 ISO 8601 date-time format>, 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+-- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html IAM Identifiers>+-- in the /Using IAM/ guide.+pPath :: Lens' Policy (Maybe Text)+pPath = lens _pPath (\ s a -> s{_pPath = a});+ -- | The date and time, in -- <http://www.iso.org/iso/iso8601 ISO 8601 date-time format>, 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 -- <http://www.iso.org/iso/iso8601 ISO 8601 date-time format>, 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")

@@ -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" =:

@@ -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});

@@ -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});

@@ -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});

@@ -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

@@ -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