diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.2.0.2`
+`1.3.0`
 
 
 ## Description
diff --git a/amazonka-cognito-identity.cabal b/amazonka-cognito-identity.cabal
--- a/amazonka-cognito-identity.cabal
+++ b/amazonka-cognito-identity.cabal
@@ -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
diff --git a/gen/Network/AWS/CognitoIdentity.hs b/gen/Network/AWS/CognitoIdentity.hs
--- a/gen/Network/AWS/CognitoIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity.hs
@@ -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
diff --git a/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs b/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
--- a/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs b/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
--- a/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/GetId.hs b/gen/Network/AWS/CognitoIdentity/GetId.hs
--- a/gen/Network/AWS/CognitoIdentity/GetId.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetId.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs b/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
--- a/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs b/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
--- a/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
--- a/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/ListIdentities.hs b/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
--- a/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs b/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
--- a/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
+++ b/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
--- a/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs b/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
--- a/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
@@ -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});
diff --git a/gen/Network/AWS/CognitoIdentity/Types.hs b/gen/Network/AWS/CognitoIdentity/Types.hs
--- a/gen/Network/AWS/CognitoIdentity/Types.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types.hs
@@ -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.
diff --git a/test/Test/AWS/Gen/CognitoIdentity.hs b/test/Test/AWS/Gen/CognitoIdentity.hs
--- a/test/Test/AWS/Gen/CognitoIdentity.hs
+++ b/test/Test/AWS/Gen/CognitoIdentity.hs
@@ -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