amazonka-cognito-identity 1.2.0.2 → 1.3.0

raw patch · 15 files changed

+213/−213 lines, 15 filesdep ~amazonka-cognito-identitydep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-cognito-identity, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cognito-identity.cabal +5/−5
• gen/Network/AWS/CognitoIdentity.hs +18/−18
• gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs +8/−8
• gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs +10/−10
• gen/Network/AWS/CognitoIdentity/GetId.hs +9/−9
• gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs +8/−8
• gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs +10/−10
• gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs +10/−10
• gen/Network/AWS/CognitoIdentity/ListIdentities.hs +8/−8
• gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs +10/−10
• gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs +8/−8
• gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs +9/−9
• gen/Network/AWS/CognitoIdentity/Types.hs +6/−6
• test/Test/AWS/Gen/CognitoIdentity.hs +93/−93

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

@@ -1,5 +1,5 @@ name:                  amazonka-cognito-identity-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Cognito Identity SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -103,7 +103,7 @@         , Network.AWS.CognitoIdentity.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cognito-identity-test@@ -123,9 +123,9 @@         , Test.AWS.CognitoIdentity.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-cognito-identity == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-cognito-identity == 1.3.0.*         , base         , bytestring         , lens

@@ -73,12 +73,12 @@     -- ** ExternalServiceException     , _ExternalServiceException -    -- ** ConcurrentModificationException-    , _ConcurrentModificationException-     -- ** TooManyRequestsException     , _TooManyRequestsException +    -- ** ConcurrentModificationException+    , _ConcurrentModificationException+     -- ** ResourceConflictException     , _ResourceConflictException @@ -100,23 +100,14 @@     -- ** GetOpenIdToken     , module Network.AWS.CognitoIdentity.GetOpenIdToken -    -- ** DescribeIdentityPool-    , module Network.AWS.CognitoIdentity.DescribeIdentityPool-     -- ** GetOpenIdTokenForDeveloperIdentity     , module Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity -    -- ** UnlinkDeveloperIdentity-    , module Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity--    -- ** GetCredentialsForIdentity-    , module Network.AWS.CognitoIdentity.GetCredentialsForIdentity--    -- ** ListIdentityPools-    , module Network.AWS.CognitoIdentity.ListIdentityPools+    -- ** DescribeIdentityPool+    , module Network.AWS.CognitoIdentity.DescribeIdentityPool -    -- ** GetIdentityPoolRoles-    , module Network.AWS.CognitoIdentity.GetIdentityPoolRoles+    -- ** GetId+    , module Network.AWS.CognitoIdentity.GetId      -- ** DeleteIdentityPool     , module Network.AWS.CognitoIdentity.DeleteIdentityPool@@ -124,8 +115,17 @@     -- ** UpdateIdentityPool     , module Network.AWS.CognitoIdentity.UpdateIdentityPool -    -- ** GetId-    , module Network.AWS.CognitoIdentity.GetId+    -- ** UnlinkDeveloperIdentity+    , module Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity++    -- ** GetIdentityPoolRoles+    , module Network.AWS.CognitoIdentity.GetIdentityPoolRoles++    -- ** ListIdentityPools+    , module Network.AWS.CognitoIdentity.ListIdentityPools++    -- ** GetCredentialsForIdentity+    , module Network.AWS.CognitoIdentity.GetCredentialsForIdentity      -- ** DeleteIdentities     , module Network.AWS.CognitoIdentity.DeleteIdentities

@@ -37,7 +37,7 @@     , DeleteIdentitiesResponse     -- * Response Lenses     , dirsUnprocessedIdentityIds-    , dirsStatus+    , dirsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -108,7 +108,7 @@ -- /See:/ 'deleteIdentitiesResponse' smart constructor. data DeleteIdentitiesResponse = DeleteIdentitiesResponse'     { _dirsUnprocessedIdentityIds :: !(Maybe [UnprocessedIdentityId])-    , _dirsStatus                 :: !Int+    , _dirsResponseStatus         :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteIdentitiesResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'dirsUnprocessedIdentityIds' ----- * 'dirsStatus'+-- * 'dirsResponseStatus' deleteIdentitiesResponse-    :: Int -- ^ 'dirsStatus'+    :: Int -- ^ 'dirsResponseStatus'     -> DeleteIdentitiesResponse-deleteIdentitiesResponse pStatus_ =+deleteIdentitiesResponse pResponseStatus_ =     DeleteIdentitiesResponse'     { _dirsUnprocessedIdentityIds = Nothing-    , _dirsStatus = pStatus_+    , _dirsResponseStatus = pResponseStatus_     }  -- | An array of UnprocessedIdentityId objects, each of which contains an@@ -133,5 +133,5 @@ dirsUnprocessedIdentityIds = lens _dirsUnprocessedIdentityIds (\ s a -> s{_dirsUnprocessedIdentityIds = a}) . _Default . _Coerce;  -- | The response status code.-dirsStatus :: Lens' DeleteIdentitiesResponse Int-dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a});+dirsResponseStatus :: Lens' DeleteIdentitiesResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});

@@ -41,7 +41,7 @@     -- * Response Lenses     , gcfirsCredentials     , gcfirsIdentityId-    , gcfirsStatus+    , gcfirsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -122,9 +122,9 @@ -- -- /See:/ 'getCredentialsForIdentityResponse' smart constructor. data GetCredentialsForIdentityResponse = GetCredentialsForIdentityResponse'-    { _gcfirsCredentials :: !(Maybe Credentials)-    , _gcfirsIdentityId  :: !(Maybe Text)-    , _gcfirsStatus      :: !Int+    { _gcfirsCredentials    :: !(Maybe Credentials)+    , _gcfirsIdentityId     :: !(Maybe Text)+    , _gcfirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetCredentialsForIdentityResponse' with the minimum fields required to make a request.@@ -135,15 +135,15 @@ -- -- * 'gcfirsIdentityId' ----- * 'gcfirsStatus'+-- * 'gcfirsResponseStatus' getCredentialsForIdentityResponse-    :: Int -- ^ 'gcfirsStatus'+    :: Int -- ^ 'gcfirsResponseStatus'     -> GetCredentialsForIdentityResponse-getCredentialsForIdentityResponse pStatus_ =+getCredentialsForIdentityResponse pResponseStatus_ =     GetCredentialsForIdentityResponse'     { _gcfirsCredentials = Nothing     , _gcfirsIdentityId = Nothing-    , _gcfirsStatus = pStatus_+    , _gcfirsResponseStatus = pResponseStatus_     }  -- | Credentials for the the provided identity ID.@@ -155,5 +155,5 @@ gcfirsIdentityId = lens _gcfirsIdentityId (\ s a -> s{_gcfirsIdentityId = a});  -- | The response status code.-gcfirsStatus :: Lens' GetCredentialsForIdentityResponse Int-gcfirsStatus = lens _gcfirsStatus (\ s a -> s{_gcfirsStatus = a});+gcfirsResponseStatus :: Lens' GetCredentialsForIdentityResponse Int+gcfirsResponseStatus = lens _gcfirsResponseStatus (\ s a -> s{_gcfirsResponseStatus = a});

@@ -41,7 +41,7 @@     , GetIdResponse     -- * Response Lenses     , girsIdentityId-    , girsStatus+    , girsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -135,8 +135,8 @@ -- -- /See:/ 'getIdResponse' smart constructor. data GetIdResponse = GetIdResponse'-    { _girsIdentityId :: !(Maybe Text)-    , _girsStatus     :: !Int+    { _girsIdentityId     :: !(Maybe Text)+    , _girsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetIdResponse' with the minimum fields required to make a request.@@ -145,14 +145,14 @@ -- -- * 'girsIdentityId' ----- * 'girsStatus'+-- * 'girsResponseStatus' getIdResponse-    :: Int -- ^ 'girsStatus'+    :: Int -- ^ 'girsResponseStatus'     -> GetIdResponse-getIdResponse pStatus_ =+getIdResponse pResponseStatus_ =     GetIdResponse'     { _girsIdentityId = Nothing-    , _girsStatus = pStatus_+    , _girsResponseStatus = pResponseStatus_     }  -- | A unique identifier in the format REGION:GUID.@@ -160,5 +160,5 @@ girsIdentityId = lens _girsIdentityId (\ s a -> s{_girsIdentityId = a});  -- | The response status code.-girsStatus :: Lens' GetIdResponse Int-girsStatus = lens _girsStatus (\ s a -> s{_girsStatus = a});+girsResponseStatus :: Lens' GetIdResponse Int+girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a});

@@ -37,7 +37,7 @@     -- * Response Lenses     , giprrsRoles     , giprrsIdentityPoolId-    , giprrsStatus+    , giprrsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -110,7 +110,7 @@ data GetIdentityPoolRolesResponse = GetIdentityPoolRolesResponse'     { _giprrsRoles          :: !(Maybe (Map Text Text))     , _giprrsIdentityPoolId :: !(Maybe Text)-    , _giprrsStatus         :: !Int+    , _giprrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetIdentityPoolRolesResponse' with the minimum fields required to make a request.@@ -121,15 +121,15 @@ -- -- * 'giprrsIdentityPoolId' ----- * 'giprrsStatus'+-- * 'giprrsResponseStatus' getIdentityPoolRolesResponse-    :: Int -- ^ 'giprrsStatus'+    :: Int -- ^ 'giprrsResponseStatus'     -> GetIdentityPoolRolesResponse-getIdentityPoolRolesResponse pStatus_ =+getIdentityPoolRolesResponse pResponseStatus_ =     GetIdentityPoolRolesResponse'     { _giprrsRoles = Nothing     , _giprrsIdentityPoolId = Nothing-    , _giprrsStatus = pStatus_+    , _giprrsResponseStatus = pResponseStatus_     }  -- | The map of roles associated with this pool. Currently only authenticated@@ -142,5 +142,5 @@ giprrsIdentityPoolId = lens _giprrsIdentityPoolId (\ s a -> s{_giprrsIdentityPoolId = a});  -- | The response status code.-giprrsStatus :: Lens' GetIdentityPoolRolesResponse Int-giprrsStatus = lens _giprrsStatus (\ s a -> s{_giprrsStatus = a});+giprrsResponseStatus :: Lens' GetIdentityPoolRolesResponse Int+giprrsResponseStatus = lens _giprrsResponseStatus (\ s a -> s{_giprrsResponseStatus = a});

@@ -42,7 +42,7 @@     -- * Response Lenses     , goitrsToken     , goitrsIdentityId-    , goitrsStatus+    , goitrsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -124,9 +124,9 @@ -- -- /See:/ 'getOpenIdTokenResponse' smart constructor. data GetOpenIdTokenResponse = GetOpenIdTokenResponse'-    { _goitrsToken      :: !(Maybe Text)-    , _goitrsIdentityId :: !(Maybe Text)-    , _goitrsStatus     :: !Int+    { _goitrsToken          :: !(Maybe Text)+    , _goitrsIdentityId     :: !(Maybe Text)+    , _goitrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetOpenIdTokenResponse' with the minimum fields required to make a request.@@ -137,15 +137,15 @@ -- -- * 'goitrsIdentityId' ----- * 'goitrsStatus'+-- * 'goitrsResponseStatus' getOpenIdTokenResponse-    :: Int -- ^ 'goitrsStatus'+    :: Int -- ^ 'goitrsResponseStatus'     -> GetOpenIdTokenResponse-getOpenIdTokenResponse pStatus_ =+getOpenIdTokenResponse pResponseStatus_ =     GetOpenIdTokenResponse'     { _goitrsToken = Nothing     , _goitrsIdentityId = Nothing-    , _goitrsStatus = pStatus_+    , _goitrsResponseStatus = pResponseStatus_     }  -- | An OpenID token, valid for 15 minutes.@@ -158,5 +158,5 @@ goitrsIdentityId = lens _goitrsIdentityId (\ s a -> s{_goitrsIdentityId = a});  -- | The response status code.-goitrsStatus :: Lens' GetOpenIdTokenResponse Int-goitrsStatus = lens _goitrsStatus (\ s a -> s{_goitrsStatus = a});+goitrsResponseStatus :: Lens' GetOpenIdTokenResponse Int+goitrsResponseStatus = lens _goitrsResponseStatus (\ s a -> s{_goitrsResponseStatus = a});

@@ -54,7 +54,7 @@     -- * Response Lenses     , goitfdirsToken     , goitfdirsIdentityId-    , goitfdirsStatus+    , goitfdirsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -174,9 +174,9 @@ -- -- /See:/ 'getOpenIdTokenForDeveloperIdentityResponse' smart constructor. data GetOpenIdTokenForDeveloperIdentityResponse = GetOpenIdTokenForDeveloperIdentityResponse'-    { _goitfdirsToken      :: !(Maybe Text)-    , _goitfdirsIdentityId :: !(Maybe Text)-    , _goitfdirsStatus     :: !Int+    { _goitfdirsToken          :: !(Maybe Text)+    , _goitfdirsIdentityId     :: !(Maybe Text)+    , _goitfdirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetOpenIdTokenForDeveloperIdentityResponse' with the minimum fields required to make a request.@@ -187,15 +187,15 @@ -- -- * 'goitfdirsIdentityId' ----- * 'goitfdirsStatus'+-- * 'goitfdirsResponseStatus' getOpenIdTokenForDeveloperIdentityResponse-    :: Int -- ^ 'goitfdirsStatus'+    :: Int -- ^ 'goitfdirsResponseStatus'     -> GetOpenIdTokenForDeveloperIdentityResponse-getOpenIdTokenForDeveloperIdentityResponse pStatus_ =+getOpenIdTokenForDeveloperIdentityResponse pResponseStatus_ =     GetOpenIdTokenForDeveloperIdentityResponse'     { _goitfdirsToken = Nothing     , _goitfdirsIdentityId = Nothing-    , _goitfdirsStatus = pStatus_+    , _goitfdirsResponseStatus = pResponseStatus_     }  -- | An OpenID token.@@ -207,5 +207,5 @@ goitfdirsIdentityId = lens _goitfdirsIdentityId (\ s a -> s{_goitfdirsIdentityId = a});  -- | The response status code.-goitfdirsStatus :: Lens' GetOpenIdTokenForDeveloperIdentityResponse Int-goitfdirsStatus = lens _goitfdirsStatus (\ s a -> s{_goitfdirsStatus = a});+goitfdirsResponseStatus :: Lens' GetOpenIdTokenForDeveloperIdentityResponse Int+goitfdirsResponseStatus = lens _goitfdirsResponseStatus (\ s a -> s{_goitfdirsResponseStatus = a});

@@ -41,7 +41,7 @@     , lirsIdentityPoolId     , lirsNextToken     , lirsIdentities-    , lirsStatus+    , lirsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -144,7 +144,7 @@     { _lirsIdentityPoolId :: !(Maybe Text)     , _lirsNextToken      :: !(Maybe Text)     , _lirsIdentities     :: !(Maybe [IdentityDescription])-    , _lirsStatus         :: !Int+    , _lirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListIdentitiesResponse' with the minimum fields required to make a request.@@ -157,16 +157,16 @@ -- -- * 'lirsIdentities' ----- * 'lirsStatus'+-- * 'lirsResponseStatus' listIdentitiesResponse-    :: Int -- ^ 'lirsStatus'+    :: Int -- ^ 'lirsResponseStatus'     -> ListIdentitiesResponse-listIdentitiesResponse pStatus_ =+listIdentitiesResponse pResponseStatus_ =     ListIdentitiesResponse'     { _lirsIdentityPoolId = Nothing     , _lirsNextToken = Nothing     , _lirsIdentities = Nothing-    , _lirsStatus = pStatus_+    , _lirsResponseStatus = pResponseStatus_     }  -- | An identity pool ID in the format REGION:GUID.@@ -182,5 +182,5 @@ lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Default . _Coerce;  -- | The response status code.-lirsStatus :: Lens' ListIdentitiesResponse Int-lirsStatus = lens _lirsStatus (\ s a -> s{_lirsStatus = a});+lirsResponseStatus :: Lens' ListIdentitiesResponse Int+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});

@@ -38,7 +38,7 @@     -- * Response Lenses     , liprsIdentityPools     , liprsNextToken-    , liprsStatus+    , liprsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -117,9 +117,9 @@ -- -- /See:/ 'listIdentityPoolsResponse' smart constructor. data ListIdentityPoolsResponse = ListIdentityPoolsResponse'-    { _liprsIdentityPools :: !(Maybe [IdentityPoolShortDescription])-    , _liprsNextToken     :: !(Maybe Text)-    , _liprsStatus        :: !Int+    { _liprsIdentityPools  :: !(Maybe [IdentityPoolShortDescription])+    , _liprsNextToken      :: !(Maybe Text)+    , _liprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListIdentityPoolsResponse' with the minimum fields required to make a request.@@ -130,15 +130,15 @@ -- -- * 'liprsNextToken' ----- * 'liprsStatus'+-- * 'liprsResponseStatus' listIdentityPoolsResponse-    :: Int -- ^ 'liprsStatus'+    :: Int -- ^ 'liprsResponseStatus'     -> ListIdentityPoolsResponse-listIdentityPoolsResponse pStatus_ =+listIdentityPoolsResponse pResponseStatus_ =     ListIdentityPoolsResponse'     { _liprsIdentityPools = Nothing     , _liprsNextToken = Nothing-    , _liprsStatus = pStatus_+    , _liprsResponseStatus = pResponseStatus_     }  -- | The identity pools returned by the ListIdentityPools action.@@ -150,5 +150,5 @@ liprsNextToken = lens _liprsNextToken (\ s a -> s{_liprsNextToken = a});  -- | The response status code.-liprsStatus :: Lens' ListIdentityPoolsResponse Int-liprsStatus = lens _liprsStatus (\ s a -> s{_liprsStatus = a});+liprsResponseStatus :: Lens' ListIdentityPoolsResponse Int+liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a});

@@ -51,7 +51,7 @@     , ldirsNextToken     , ldirsIdentityId     , ldirsDeveloperUserIdentifierList-    , ldirsStatus+    , ldirsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -169,7 +169,7 @@     { _ldirsNextToken                   :: !(Maybe Text)     , _ldirsIdentityId                  :: !(Maybe Text)     , _ldirsDeveloperUserIdentifierList :: !(Maybe [Text])-    , _ldirsStatus                      :: !Int+    , _ldirsResponseStatus              :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'LookupDeveloperIdentityResponse' with the minimum fields required to make a request.@@ -182,16 +182,16 @@ -- -- * 'ldirsDeveloperUserIdentifierList' ----- * 'ldirsStatus'+-- * 'ldirsResponseStatus' lookupDeveloperIdentityResponse-    :: Int -- ^ 'ldirsStatus'+    :: Int -- ^ 'ldirsResponseStatus'     -> LookupDeveloperIdentityResponse-lookupDeveloperIdentityResponse pStatus_ =+lookupDeveloperIdentityResponse pResponseStatus_ =     LookupDeveloperIdentityResponse'     { _ldirsNextToken = Nothing     , _ldirsIdentityId = Nothing     , _ldirsDeveloperUserIdentifierList = Nothing-    , _ldirsStatus = pStatus_+    , _ldirsResponseStatus = pResponseStatus_     }  -- | A pagination token. The first call you make will have 'NextToken' set to@@ -214,5 +214,5 @@ ldirsDeveloperUserIdentifierList = lens _ldirsDeveloperUserIdentifierList (\ s a -> s{_ldirsDeveloperUserIdentifierList = a}) . _Default . _Coerce;  -- | The response status code.-ldirsStatus :: Lens' LookupDeveloperIdentityResponse Int-ldirsStatus = lens _ldirsStatus (\ s a -> s{_ldirsStatus = a});+ldirsResponseStatus :: Lens' LookupDeveloperIdentityResponse Int+ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});

@@ -46,7 +46,7 @@     , MergeDeveloperIdentitiesResponse     -- * Response Lenses     , mdirsIdentityId-    , mdirsStatus+    , mdirsResponseStatus     ) where  import           Network.AWS.CognitoIdentity.Types@@ -157,8 +157,8 @@ -- -- /See:/ 'mergeDeveloperIdentitiesResponse' smart constructor. data MergeDeveloperIdentitiesResponse = MergeDeveloperIdentitiesResponse'-    { _mdirsIdentityId :: !(Maybe Text)-    , _mdirsStatus     :: !Int+    { _mdirsIdentityId     :: !(Maybe Text)+    , _mdirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'MergeDeveloperIdentitiesResponse' with the minimum fields required to make a request.@@ -167,14 +167,14 @@ -- -- * 'mdirsIdentityId' ----- * 'mdirsStatus'+-- * 'mdirsResponseStatus' mergeDeveloperIdentitiesResponse-    :: Int -- ^ 'mdirsStatus'+    :: Int -- ^ 'mdirsResponseStatus'     -> MergeDeveloperIdentitiesResponse-mergeDeveloperIdentitiesResponse pStatus_ =+mergeDeveloperIdentitiesResponse pResponseStatus_ =     MergeDeveloperIdentitiesResponse'     { _mdirsIdentityId = Nothing-    , _mdirsStatus = pStatus_+    , _mdirsResponseStatus = pResponseStatus_     }  -- | A unique identifier in the format REGION:GUID.@@ -182,5 +182,5 @@ mdirsIdentityId = lens _mdirsIdentityId (\ s a -> s{_mdirsIdentityId = a});  -- | The response status code.-mdirsStatus :: Lens' MergeDeveloperIdentitiesResponse Int-mdirsStatus = lens _mdirsStatus (\ s a -> s{_mdirsStatus = a});+mdirsResponseStatus :: Lens' MergeDeveloperIdentitiesResponse Int+mdirsResponseStatus = lens _mdirsResponseStatus (\ s a -> s{_mdirsResponseStatus = a});

@@ -21,8 +21,8 @@     , _NotAuthorizedException     , _InternalErrorException     , _ExternalServiceException-    , _ConcurrentModificationException     , _TooManyRequestsException+    , _ConcurrentModificationException     , _ResourceConflictException     , _DeveloperUserAlreadyRegisteredException     , _ResourceNotFoundException@@ -134,15 +134,15 @@ _ExternalServiceException =     _ServiceError . hasStatus 400 . hasCode "ExternalServiceException" --- | Thrown if there are parallel requests to modify a resource.-_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError-_ConcurrentModificationException =-    _ServiceError . hasStatus 400 . hasCode "ConcurrentModificationException"- -- | Thrown when a request is throttled. _TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyRequestsException =     _ServiceError . hasStatus 429 . hasCode "TooManyRequestsException"++-- | Thrown if there are parallel requests to modify a resource.+_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError+_ConcurrentModificationException =+    _ServiceError . hasStatus 400 . hasCode "ConcurrentModificationException"  -- | Thrown when a user tries to use a login which is already linked to -- another account.

@@ -31,23 +31,14 @@ --         [ testGetOpenIdToken $ --             getOpenIdToken -----         , testDescribeIdentityPool $---             describeIdentityPool--- --         , testGetOpenIdTokenForDeveloperIdentity $ --             getOpenIdTokenForDeveloperIdentity -----         , testUnlinkDeveloperIdentity $---             unlinkDeveloperIdentity------         , testGetCredentialsForIdentity $---             getCredentialsForIdentity------         , testListIdentityPools $---             listIdentityPools+--         , testDescribeIdentityPool $+--             describeIdentityPool -----         , testGetIdentityPoolRoles $---             getIdentityPoolRoles+--         , testGetId $+--             getId -- --         , testDeleteIdentityPool $ --             deleteIdentityPool@@ -55,9 +46,18 @@ --         , testUpdateIdentityPool $ --             updateIdentityPool -----         , testGetId $---             getId+--         , testUnlinkDeveloperIdentity $+--             unlinkDeveloperIdentity --+--         , testGetIdentityPoolRoles $+--             getIdentityPoolRoles+--+--         , testListIdentityPools $+--             listIdentityPools+--+--         , testGetCredentialsForIdentity $+--             getCredentialsForIdentity+-- --         , testDeleteIdentities $ --             deleteIdentities --@@ -88,23 +88,14 @@ --         [ testGetOpenIdTokenResponse $ --             getOpenIdTokenResponse -----         , testDescribeIdentityPoolResponse $---             identityPool--- --         , testGetOpenIdTokenForDeveloperIdentityResponse $ --             getOpenIdTokenForDeveloperIdentityResponse -----         , testUnlinkDeveloperIdentityResponse $---             unlinkDeveloperIdentityResponse------         , testGetCredentialsForIdentityResponse $---             getCredentialsForIdentityResponse------         , testListIdentityPoolsResponse $---             listIdentityPoolsResponse+--         , testDescribeIdentityPoolResponse $+--             identityPool -----         , testGetIdentityPoolRolesResponse $---             getIdentityPoolRolesResponse+--         , testGetIdResponse $+--             getIdResponse -- --         , testDeleteIdentityPoolResponse $ --             deleteIdentityPoolResponse@@ -112,9 +103,18 @@ --         , testUpdateIdentityPoolResponse $ --             identityPool -----         , testGetIdResponse $---             getIdResponse+--         , testUnlinkDeveloperIdentityResponse $+--             unlinkDeveloperIdentityResponse --+--         , testGetIdentityPoolRolesResponse $+--             getIdentityPoolRolesResponse+--+--         , testListIdentityPoolsResponse $+--             listIdentityPoolsResponse+--+--         , testGetCredentialsForIdentityResponse $+--             getCredentialsForIdentityResponse+-- --         , testDeleteIdentitiesResponse $ --             deleteIdentitiesResponse --@@ -149,35 +149,20 @@     "GetOpenIdToken"     "fixture/GetOpenIdToken.yaml" -testDescribeIdentityPool :: DescribeIdentityPool -> TestTree-testDescribeIdentityPool = req-    "DescribeIdentityPool"-    "fixture/DescribeIdentityPool.yaml"- testGetOpenIdTokenForDeveloperIdentity :: GetOpenIdTokenForDeveloperIdentity -> TestTree testGetOpenIdTokenForDeveloperIdentity = req     "GetOpenIdTokenForDeveloperIdentity"     "fixture/GetOpenIdTokenForDeveloperIdentity.yaml" -testUnlinkDeveloperIdentity :: UnlinkDeveloperIdentity -> TestTree-testUnlinkDeveloperIdentity = req-    "UnlinkDeveloperIdentity"-    "fixture/UnlinkDeveloperIdentity.yaml"--testGetCredentialsForIdentity :: GetCredentialsForIdentity -> TestTree-testGetCredentialsForIdentity = req-    "GetCredentialsForIdentity"-    "fixture/GetCredentialsForIdentity.yaml"--testListIdentityPools :: ListIdentityPools -> TestTree-testListIdentityPools = req-    "ListIdentityPools"-    "fixture/ListIdentityPools.yaml"+testDescribeIdentityPool :: DescribeIdentityPool -> TestTree+testDescribeIdentityPool = req+    "DescribeIdentityPool"+    "fixture/DescribeIdentityPool.yaml" -testGetIdentityPoolRoles :: GetIdentityPoolRoles -> TestTree-testGetIdentityPoolRoles = req-    "GetIdentityPoolRoles"-    "fixture/GetIdentityPoolRoles.yaml"+testGetId :: GetId -> TestTree+testGetId = req+    "GetId"+    "fixture/GetId.yaml"  testDeleteIdentityPool :: DeleteIdentityPool -> TestTree testDeleteIdentityPool = req@@ -189,11 +174,26 @@     "UpdateIdentityPool"     "fixture/UpdateIdentityPool.yaml" -testGetId :: GetId -> TestTree-testGetId = req-    "GetId"-    "fixture/GetId.yaml"+testUnlinkDeveloperIdentity :: UnlinkDeveloperIdentity -> TestTree+testUnlinkDeveloperIdentity = req+    "UnlinkDeveloperIdentity"+    "fixture/UnlinkDeveloperIdentity.yaml" +testGetIdentityPoolRoles :: GetIdentityPoolRoles -> TestTree+testGetIdentityPoolRoles = req+    "GetIdentityPoolRoles"+    "fixture/GetIdentityPoolRoles.yaml"++testListIdentityPools :: ListIdentityPools -> TestTree+testListIdentityPools = req+    "ListIdentityPools"+    "fixture/ListIdentityPools.yaml"++testGetCredentialsForIdentity :: GetCredentialsForIdentity -> TestTree+testGetCredentialsForIdentity = req+    "GetCredentialsForIdentity"+    "fixture/GetCredentialsForIdentity.yaml"+ testDeleteIdentities :: DeleteIdentities -> TestTree testDeleteIdentities = req     "DeleteIdentities"@@ -243,13 +243,6 @@     cognitoIdentity     (Proxy :: Proxy GetOpenIdToken) -testDescribeIdentityPoolResponse :: IdentityPool -> TestTree-testDescribeIdentityPoolResponse = res-    "DescribeIdentityPoolResponse"-    "fixture/DescribeIdentityPoolResponse.proto"-    cognitoIdentity-    (Proxy :: Proxy DescribeIdentityPool)- testGetOpenIdTokenForDeveloperIdentityResponse :: GetOpenIdTokenForDeveloperIdentityResponse -> TestTree testGetOpenIdTokenForDeveloperIdentityResponse = res     "GetOpenIdTokenForDeveloperIdentityResponse"@@ -257,33 +250,19 @@     cognitoIdentity     (Proxy :: Proxy GetOpenIdTokenForDeveloperIdentity) -testUnlinkDeveloperIdentityResponse :: UnlinkDeveloperIdentityResponse -> TestTree-testUnlinkDeveloperIdentityResponse = res-    "UnlinkDeveloperIdentityResponse"-    "fixture/UnlinkDeveloperIdentityResponse.proto"-    cognitoIdentity-    (Proxy :: Proxy UnlinkDeveloperIdentity)--testGetCredentialsForIdentityResponse :: GetCredentialsForIdentityResponse -> TestTree-testGetCredentialsForIdentityResponse = res-    "GetCredentialsForIdentityResponse"-    "fixture/GetCredentialsForIdentityResponse.proto"-    cognitoIdentity-    (Proxy :: Proxy GetCredentialsForIdentity)--testListIdentityPoolsResponse :: ListIdentityPoolsResponse -> TestTree-testListIdentityPoolsResponse = res-    "ListIdentityPoolsResponse"-    "fixture/ListIdentityPoolsResponse.proto"+testDescribeIdentityPoolResponse :: IdentityPool -> TestTree+testDescribeIdentityPoolResponse = res+    "DescribeIdentityPoolResponse"+    "fixture/DescribeIdentityPoolResponse.proto"     cognitoIdentity-    (Proxy :: Proxy ListIdentityPools)+    (Proxy :: Proxy DescribeIdentityPool) -testGetIdentityPoolRolesResponse :: GetIdentityPoolRolesResponse -> TestTree-testGetIdentityPoolRolesResponse = res-    "GetIdentityPoolRolesResponse"-    "fixture/GetIdentityPoolRolesResponse.proto"+testGetIdResponse :: GetIdResponse -> TestTree+testGetIdResponse = res+    "GetIdResponse"+    "fixture/GetIdResponse.proto"     cognitoIdentity-    (Proxy :: Proxy GetIdentityPoolRoles)+    (Proxy :: Proxy GetId)  testDeleteIdentityPoolResponse :: DeleteIdentityPoolResponse -> TestTree testDeleteIdentityPoolResponse = res@@ -299,12 +278,33 @@     cognitoIdentity     (Proxy :: Proxy UpdateIdentityPool) -testGetIdResponse :: GetIdResponse -> TestTree-testGetIdResponse = res-    "GetIdResponse"-    "fixture/GetIdResponse.proto"+testUnlinkDeveloperIdentityResponse :: UnlinkDeveloperIdentityResponse -> TestTree+testUnlinkDeveloperIdentityResponse = res+    "UnlinkDeveloperIdentityResponse"+    "fixture/UnlinkDeveloperIdentityResponse.proto"     cognitoIdentity-    (Proxy :: Proxy GetId)+    (Proxy :: Proxy UnlinkDeveloperIdentity)++testGetIdentityPoolRolesResponse :: GetIdentityPoolRolesResponse -> TestTree+testGetIdentityPoolRolesResponse = res+    "GetIdentityPoolRolesResponse"+    "fixture/GetIdentityPoolRolesResponse.proto"+    cognitoIdentity+    (Proxy :: Proxy GetIdentityPoolRoles)++testListIdentityPoolsResponse :: ListIdentityPoolsResponse -> TestTree+testListIdentityPoolsResponse = res+    "ListIdentityPoolsResponse"+    "fixture/ListIdentityPoolsResponse.proto"+    cognitoIdentity+    (Proxy :: Proxy ListIdentityPools)++testGetCredentialsForIdentityResponse :: GetCredentialsForIdentityResponse -> TestTree+testGetCredentialsForIdentityResponse = res+    "GetCredentialsForIdentityResponse"+    "fixture/GetCredentialsForIdentityResponse.proto"+    cognitoIdentity+    (Proxy :: Proxy GetCredentialsForIdentity)  testDeleteIdentitiesResponse :: DeleteIdentitiesResponse -> TestTree testDeleteIdentitiesResponse = res