packages feed

amazonka-cognito-identity 1.5.0 → 1.6.0

raw patch · 29 files changed

+297/−292 lines, 29 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-cognito-identity.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-cognito-identity-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Cognito Identity SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -71,7 +71,7 @@         , Network.AWS.CognitoIdentity.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cognito-identity-test@@ -91,8 +91,8 @@         , Test.AWS.CognitoIdentity.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-cognito-identity         , base         , bytestring
gen/Network/AWS/CognitoIdentity.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.CreateIdentityPool--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -109,43 +109,43 @@     -> CreateIdentityPool createIdentityPool pIdentityPoolName_ pAllowUnauthenticatedIdentities_ =   CreateIdentityPool'-  { _cipSamlProviderARNs = Nothing-  , _cipSupportedLoginProviders = Nothing-  , _cipDeveloperProviderName = Nothing-  , _cipOpenIdConnectProviderARNs = Nothing-  , _cipCognitoIdentityProviders = Nothing-  , _cipIdentityPoolName = pIdentityPoolName_-  , _cipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_-  }+    { _cipSamlProviderARNs = Nothing+    , _cipSupportedLoginProviders = Nothing+    , _cipDeveloperProviderName = Nothing+    , _cipOpenIdConnectProviderARNs = Nothing+    , _cipCognitoIdentityProviders = Nothing+    , _cipIdentityPoolName = pIdentityPoolName_+    , _cipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_+    }   -- | An array of Amazon Resource Names (ARNs) of the SAML provider for your identity pool. cipSamlProviderARNs :: Lens' CreateIdentityPool [Text]-cipSamlProviderARNs = lens _cipSamlProviderARNs (\ s a -> s{_cipSamlProviderARNs = a}) . _Default . _Coerce;+cipSamlProviderARNs = lens _cipSamlProviderARNs (\ s a -> s{_cipSamlProviderARNs = a}) . _Default . _Coerce  -- | Optional key:value pairs mapping provider names to provider app IDs. cipSupportedLoginProviders :: Lens' CreateIdentityPool (HashMap Text Text)-cipSupportedLoginProviders = lens _cipSupportedLoginProviders (\ s a -> s{_cipSupportedLoginProviders = a}) . _Default . _Map;+cipSupportedLoginProviders = lens _cipSupportedLoginProviders (\ s a -> s{_cipSupportedLoginProviders = a}) . _Default . _Map  -- | The "domain" by which Cognito will refer to your users. This name acts as a placeholder that allows your backend and the Cognito service to communicate about the developer provider. For the @DeveloperProviderName@ , you can use letters as well as period (@.@ ), underscore (@_@ ), and dash (@-@ ). Once you have set a developer provider name, you cannot change it. Please take care in setting this parameter. cipDeveloperProviderName :: Lens' CreateIdentityPool (Maybe Text)-cipDeveloperProviderName = lens _cipDeveloperProviderName (\ s a -> s{_cipDeveloperProviderName = a});+cipDeveloperProviderName = lens _cipDeveloperProviderName (\ s a -> s{_cipDeveloperProviderName = a})  -- | A list of OpendID Connect provider ARNs. cipOpenIdConnectProviderARNs :: Lens' CreateIdentityPool [Text]-cipOpenIdConnectProviderARNs = lens _cipOpenIdConnectProviderARNs (\ s a -> s{_cipOpenIdConnectProviderARNs = a}) . _Default . _Coerce;+cipOpenIdConnectProviderARNs = lens _cipOpenIdConnectProviderARNs (\ s a -> s{_cipOpenIdConnectProviderARNs = a}) . _Default . _Coerce  -- | An array of Amazon Cognito Identity user pools and their client IDs. cipCognitoIdentityProviders :: Lens' CreateIdentityPool [CognitoIdentityProvider]-cipCognitoIdentityProviders = lens _cipCognitoIdentityProviders (\ s a -> s{_cipCognitoIdentityProviders = a}) . _Default . _Coerce;+cipCognitoIdentityProviders = lens _cipCognitoIdentityProviders (\ s a -> s{_cipCognitoIdentityProviders = a}) . _Default . _Coerce  -- | A string that you provide. cipIdentityPoolName :: Lens' CreateIdentityPool Text-cipIdentityPoolName = lens _cipIdentityPoolName (\ s a -> s{_cipIdentityPoolName = a});+cipIdentityPoolName = lens _cipIdentityPoolName (\ s a -> s{_cipIdentityPoolName = a})  -- | TRUE if the identity pool supports unauthenticated logins. cipAllowUnauthenticatedIdentities :: Lens' CreateIdentityPool Bool-cipAllowUnauthenticatedIdentities = lens _cipAllowUnauthenticatedIdentities (\ s a -> s{_cipAllowUnauthenticatedIdentities = a});+cipAllowUnauthenticatedIdentities = lens _cipAllowUnauthenticatedIdentities (\ s a -> s{_cipAllowUnauthenticatedIdentities = a})  instance AWSRequest CreateIdentityPool where         type Rs CreateIdentityPool = IdentityPool
gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.DeleteIdentities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | A list of 1-60 identities that you want to delete. diIdentityIdsToDelete :: Lens' DeleteIdentities (NonEmpty Text)-diIdentityIdsToDelete = lens _diIdentityIdsToDelete (\ s a -> s{_diIdentityIdsToDelete = a}) . _List1;+diIdentityIdsToDelete = lens _diIdentityIdsToDelete (\ s a -> s{_diIdentityIdsToDelete = a}) . _List1  instance AWSRequest DeleteIdentities where         type Rs DeleteIdentities = DeleteIdentitiesResponse@@ -132,17 +132,17 @@     -> DeleteIdentitiesResponse deleteIdentitiesResponse pResponseStatus_ =   DeleteIdentitiesResponse'-  { _dirsUnprocessedIdentityIds = Nothing-  , _dirsResponseStatus = pResponseStatus_-  }+    { _dirsUnprocessedIdentityIds = Nothing+    , _dirsResponseStatus = pResponseStatus_+    }   -- | An array of UnprocessedIdentityId objects, each of which contains an ErrorCode and IdentityId. dirsUnprocessedIdentityIds :: Lens' DeleteIdentitiesResponse [UnprocessedIdentityId]-dirsUnprocessedIdentityIds = lens _dirsUnprocessedIdentityIds (\ s a -> s{_dirsUnprocessedIdentityIds = a}) . _Default . _Coerce;+dirsUnprocessedIdentityIds = lens _dirsUnprocessedIdentityIds (\ s a -> s{_dirsUnprocessedIdentityIds = a}) . _Default . _Coerce  -- | -- | The response status code. dirsResponseStatus :: Lens' DeleteIdentitiesResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})  instance NFData DeleteIdentitiesResponse where
gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.DeleteIdentityPool--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | An identity pool ID in the format REGION:GUID. dIdentityPoolId :: Lens' DeleteIdentityPool Text-dIdentityPoolId = lens _dIdentityPoolId (\ s a -> s{_dIdentityPoolId = a});+dIdentityPoolId = lens _dIdentityPoolId (\ s a -> s{_dIdentityPoolId = a})  instance AWSRequest DeleteIdentityPool where         type Rs DeleteIdentityPool =
gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.DescribeIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | A unique identifier in the format REGION:GUID. diIdentityId :: Lens' DescribeIdentity Text-diIdentityId = lens _diIdentityId (\ s a -> s{_diIdentityId = a});+diIdentityId = lens _diIdentityId (\ s a -> s{_diIdentityId = a})  instance AWSRequest DescribeIdentity where         type Rs DescribeIdentity = IdentityDescription
gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.DescribeIdentityPool--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,7 +76,7 @@  -- | An identity pool ID in the format REGION:GUID. dipIdentityPoolId :: Lens' DescribeIdentityPool Text-dipIdentityPoolId = lens _dipIdentityPoolId (\ s a -> s{_dipIdentityPoolId = a});+dipIdentityPoolId = lens _dipIdentityPoolId (\ s a -> s{_dipIdentityPoolId = a})  instance AWSRequest DescribeIdentityPool where         type Rs DescribeIdentityPool = IdentityPool
gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.GetCredentialsForIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> GetCredentialsForIdentity getCredentialsForIdentity pIdentityId_ =   GetCredentialsForIdentity'-  { _gcfiCustomRoleARN = Nothing-  , _gcfiLogins = Nothing-  , _gcfiIdentityId = pIdentityId_-  }+    { _gcfiCustomRoleARN = Nothing+    , _gcfiLogins = Nothing+    , _gcfiIdentityId = pIdentityId_+    }   -- | The Amazon Resource Name (ARN) of the role to be assumed when multiple roles were received in the token from the identity provider. For example, a SAML-based identity provider. This parameter is optional for identity providers that do not support role customization. gcfiCustomRoleARN :: Lens' GetCredentialsForIdentity (Maybe Text)-gcfiCustomRoleARN = lens _gcfiCustomRoleARN (\ s a -> s{_gcfiCustomRoleARN = a});+gcfiCustomRoleARN = lens _gcfiCustomRoleARN (\ s a -> s{_gcfiCustomRoleARN = a})  -- | A set of optional name-value pairs that map provider names to provider tokens. gcfiLogins :: Lens' GetCredentialsForIdentity (HashMap Text Text)-gcfiLogins = lens _gcfiLogins (\ s a -> s{_gcfiLogins = a}) . _Default . _Map;+gcfiLogins = lens _gcfiLogins (\ s a -> s{_gcfiLogins = a}) . _Default . _Map  -- | A unique identifier in the format REGION:GUID. gcfiIdentityId :: Lens' GetCredentialsForIdentity Text-gcfiIdentityId = lens _gcfiIdentityId (\ s a -> s{_gcfiIdentityId = a});+gcfiIdentityId = lens _gcfiIdentityId (\ s a -> s{_gcfiIdentityId = a})  instance AWSRequest GetCredentialsForIdentity where         type Rs GetCredentialsForIdentity =@@ -158,23 +158,23 @@     -> GetCredentialsForIdentityResponse getCredentialsForIdentityResponse pResponseStatus_ =   GetCredentialsForIdentityResponse'-  { _gcfirsCredentials = Nothing-  , _gcfirsIdentityId = Nothing-  , _gcfirsResponseStatus = pResponseStatus_-  }+    { _gcfirsCredentials = Nothing+    , _gcfirsIdentityId = Nothing+    , _gcfirsResponseStatus = pResponseStatus_+    }   -- | Credentials for the provided identity ID. gcfirsCredentials :: Lens' GetCredentialsForIdentityResponse (Maybe Credentials)-gcfirsCredentials = lens _gcfirsCredentials (\ s a -> s{_gcfirsCredentials = a});+gcfirsCredentials = lens _gcfirsCredentials (\ s a -> s{_gcfirsCredentials = a})  -- | A unique identifier in the format REGION:GUID. gcfirsIdentityId :: Lens' GetCredentialsForIdentityResponse (Maybe Text)-gcfirsIdentityId = lens _gcfirsIdentityId (\ s a -> s{_gcfirsIdentityId = a});+gcfirsIdentityId = lens _gcfirsIdentityId (\ s a -> s{_gcfirsIdentityId = a})  -- | -- | The response status code. gcfirsResponseStatus :: Lens' GetCredentialsForIdentityResponse Int-gcfirsResponseStatus = lens _gcfirsResponseStatus (\ s a -> s{_gcfirsResponseStatus = a});+gcfirsResponseStatus = lens _gcfirsResponseStatus (\ s a -> s{_gcfirsResponseStatus = a})  instance NFData GetCredentialsForIdentityResponse          where
gen/Network/AWS/CognitoIdentity/GetId.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.GetId--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> GetId getId pIdentityPoolId_ =   GetId'-  { _giAccountId = Nothing-  , _giLogins = Nothing-  , _giIdentityPoolId = pIdentityPoolId_-  }+    { _giAccountId = Nothing+    , _giLogins = Nothing+    , _giIdentityPoolId = pIdentityPoolId_+    }   -- | A standard AWS account ID (9+ digits). giAccountId :: Lens' GetId (Maybe Text)-giAccountId = lens _giAccountId (\ s a -> s{_giAccountId = a});+giAccountId = lens _giAccountId (\ s a -> s{_giAccountId = a})  -- | A set of optional name-value pairs that map provider names to provider tokens. The available provider names for @Logins@ are as follows:     * Facebook: @graph.facebook.com@      * Amazon Cognito Identity Provider: @cognito-idp.us-east-1.amazonaws.com/us-east-1_123456789@      * Google: @accounts.google.com@      * Amazon: @www.amazon.com@      * Twitter: @api.twitter.com@      * Digits: @www.digits.com@ giLogins :: Lens' GetId (HashMap Text Text)-giLogins = lens _giLogins (\ s a -> s{_giLogins = a}) . _Default . _Map;+giLogins = lens _giLogins (\ s a -> s{_giLogins = a}) . _Default . _Map  -- | An identity pool ID in the format REGION:GUID. giIdentityPoolId :: Lens' GetId Text-giIdentityPoolId = lens _giIdentityPoolId (\ s a -> s{_giIdentityPoolId = a});+giIdentityPoolId = lens _giIdentityPoolId (\ s a -> s{_giIdentityPoolId = a})  instance AWSRequest GetId where         type Rs GetId = GetIdResponse@@ -151,15 +151,15 @@     -> GetIdResponse getIdResponse pResponseStatus_ =   GetIdResponse'-  {_girsIdentityId = Nothing, _girsResponseStatus = pResponseStatus_}+    {_girsIdentityId = Nothing, _girsResponseStatus = pResponseStatus_}   -- | A unique identifier in the format REGION:GUID. girsIdentityId :: Lens' GetIdResponse (Maybe Text)-girsIdentityId = lens _girsIdentityId (\ s a -> s{_girsIdentityId = a});+girsIdentityId = lens _girsIdentityId (\ s a -> s{_girsIdentityId = a})  -- | -- | The response status code. girsResponseStatus :: Lens' GetIdResponse Int-girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a});+girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a})  instance NFData GetIdResponse where
gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.GetIdentityPoolRoles--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | An identity pool ID in the format REGION:GUID. giprIdentityPoolId :: Lens' GetIdentityPoolRoles Text-giprIdentityPoolId = lens _giprIdentityPoolId (\ s a -> s{_giprIdentityPoolId = a});+giprIdentityPoolId = lens _giprIdentityPoolId (\ s a -> s{_giprIdentityPoolId = a})  instance AWSRequest GetIdentityPoolRoles where         type Rs GetIdentityPoolRoles =@@ -142,27 +142,27 @@     -> GetIdentityPoolRolesResponse getIdentityPoolRolesResponse pResponseStatus_ =   GetIdentityPoolRolesResponse'-  { _giprrsRoles = Nothing-  , _giprrsIdentityPoolId = Nothing-  , _giprrsRoleMappings = Nothing-  , _giprrsResponseStatus = pResponseStatus_-  }+    { _giprrsRoles = Nothing+    , _giprrsIdentityPoolId = Nothing+    , _giprrsRoleMappings = Nothing+    , _giprrsResponseStatus = pResponseStatus_+    }   -- | The map of roles associated with this pool. Currently only authenticated and unauthenticated roles are supported. giprrsRoles :: Lens' GetIdentityPoolRolesResponse (HashMap Text Text)-giprrsRoles = lens _giprrsRoles (\ s a -> s{_giprrsRoles = a}) . _Default . _Map;+giprrsRoles = lens _giprrsRoles (\ s a -> s{_giprrsRoles = a}) . _Default . _Map  -- | An identity pool ID in the format REGION:GUID. giprrsIdentityPoolId :: Lens' GetIdentityPoolRolesResponse (Maybe Text)-giprrsIdentityPoolId = lens _giprrsIdentityPoolId (\ s a -> s{_giprrsIdentityPoolId = a});+giprrsIdentityPoolId = lens _giprrsIdentityPoolId (\ s a -> s{_giprrsIdentityPoolId = a})  -- | How users for a specific identity provider are to mapped to roles. This is a String-to-'RoleMapping' object map. The string identifies the identity provider, for example, "graph.facebook.com" or "cognito-idp-east-1.amazonaws.com/us-east-1_abcdefghi:app_client_id". giprrsRoleMappings :: Lens' GetIdentityPoolRolesResponse (HashMap Text RoleMapping)-giprrsRoleMappings = lens _giprrsRoleMappings (\ s a -> s{_giprrsRoleMappings = a}) . _Default . _Map;+giprrsRoleMappings = lens _giprrsRoleMappings (\ s a -> s{_giprrsRoleMappings = a}) . _Default . _Map  -- | -- | The response status code. giprrsResponseStatus :: Lens' GetIdentityPoolRolesResponse Int-giprrsResponseStatus = lens _giprrsResponseStatus (\ s a -> s{_giprrsResponseStatus = a});+giprrsResponseStatus = lens _giprrsResponseStatus (\ s a -> s{_giprrsResponseStatus = a})  instance NFData GetIdentityPoolRolesResponse where
gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.GetOpenIdToken--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,11 +77,11 @@  -- | A set of optional name-value pairs that map provider names to provider tokens. When using graph.facebook.com and www.amazon.com, supply the access_token returned from the provider's authflow. For accounts.google.com, an Amazon Cognito Identity Provider, or any other OpenId Connect provider, always include the @id_token@ . goitLogins :: Lens' GetOpenIdToken (HashMap Text Text)-goitLogins = lens _goitLogins (\ s a -> s{_goitLogins = a}) . _Default . _Map;+goitLogins = lens _goitLogins (\ s a -> s{_goitLogins = a}) . _Default . _Map  -- | A unique identifier in the format REGION:GUID. goitIdentityId :: Lens' GetOpenIdToken Text-goitIdentityId = lens _goitIdentityId (\ s a -> s{_goitIdentityId = a});+goitIdentityId = lens _goitIdentityId (\ s a -> s{_goitIdentityId = a})  instance AWSRequest GetOpenIdToken where         type Rs GetOpenIdToken = GetOpenIdTokenResponse@@ -146,22 +146,22 @@     -> GetOpenIdTokenResponse getOpenIdTokenResponse pResponseStatus_ =   GetOpenIdTokenResponse'-  { _goitrsToken = Nothing-  , _goitrsIdentityId = Nothing-  , _goitrsResponseStatus = pResponseStatus_-  }+    { _goitrsToken = Nothing+    , _goitrsIdentityId = Nothing+    , _goitrsResponseStatus = pResponseStatus_+    }   -- | An OpenID token, valid for 15 minutes. goitrsToken :: Lens' GetOpenIdTokenResponse (Maybe Text)-goitrsToken = lens _goitrsToken (\ s a -> s{_goitrsToken = a});+goitrsToken = lens _goitrsToken (\ s a -> s{_goitrsToken = a})  -- | A unique identifier in the format REGION:GUID. Note that the IdentityId returned may not match the one passed on input. goitrsIdentityId :: Lens' GetOpenIdTokenResponse (Maybe Text)-goitrsIdentityId = lens _goitrsIdentityId (\ s a -> s{_goitrsIdentityId = a});+goitrsIdentityId = lens _goitrsIdentityId (\ s a -> s{_goitrsIdentityId = a})  -- | -- | The response status code. goitrsResponseStatus :: Lens' GetOpenIdTokenResponse Int-goitrsResponseStatus = lens _goitrsResponseStatus (\ s a -> s{_goitrsResponseStatus = a});+goitrsResponseStatus = lens _goitrsResponseStatus (\ s a -> s{_goitrsResponseStatus = a})  instance NFData GetOpenIdTokenResponse where
gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,28 +81,28 @@     -> GetOpenIdTokenForDeveloperIdentity getOpenIdTokenForDeveloperIdentity pIdentityPoolId_ =   GetOpenIdTokenForDeveloperIdentity'-  { _goitfdiTokenDuration = Nothing-  , _goitfdiIdentityId = Nothing-  , _goitfdiIdentityPoolId = pIdentityPoolId_-  , _goitfdiLogins = mempty-  }+    { _goitfdiTokenDuration = Nothing+    , _goitfdiIdentityId = Nothing+    , _goitfdiIdentityPoolId = pIdentityPoolId_+    , _goitfdiLogins = mempty+    }   -- | The expiration time of the token, in seconds. You can specify a custom expiration time for the token so that you can cache it. If you don't provide an expiration time, the token is valid for 15 minutes. You can exchange the token with Amazon STS for temporary AWS credentials, which are valid for a maximum of one hour. The maximum token duration you can set is 24 hours. You should take care in setting the expiration time for a token, as there are significant security implications: an attacker could use a leaked token to access your AWS resources for the token's duration. goitfdiTokenDuration :: Lens' GetOpenIdTokenForDeveloperIdentity (Maybe Natural)-goitfdiTokenDuration = lens _goitfdiTokenDuration (\ s a -> s{_goitfdiTokenDuration = a}) . mapping _Nat;+goitfdiTokenDuration = lens _goitfdiTokenDuration (\ s a -> s{_goitfdiTokenDuration = a}) . mapping _Nat  -- | A unique identifier in the format REGION:GUID. goitfdiIdentityId :: Lens' GetOpenIdTokenForDeveloperIdentity (Maybe Text)-goitfdiIdentityId = lens _goitfdiIdentityId (\ s a -> s{_goitfdiIdentityId = a});+goitfdiIdentityId = lens _goitfdiIdentityId (\ s a -> s{_goitfdiIdentityId = a})  -- | An identity pool ID in the format REGION:GUID. goitfdiIdentityPoolId :: Lens' GetOpenIdTokenForDeveloperIdentity Text-goitfdiIdentityPoolId = lens _goitfdiIdentityPoolId (\ s a -> s{_goitfdiIdentityPoolId = a});+goitfdiIdentityPoolId = lens _goitfdiIdentityPoolId (\ s a -> s{_goitfdiIdentityPoolId = a})  -- | A set of optional name-value pairs that map provider names to provider tokens. Each name-value pair represents a user from a public provider or developer provider. If the user is from a developer provider, the name-value pair will follow the syntax @"developer_provider_name": "developer_user_identifier"@ . The developer provider is the "domain" by which Cognito will refer to your users; you provided this domain while creating/updating the identity pool. The developer user identifier is an identifier from your backend that uniquely identifies a user. When you create an identity pool, you can specify the supported logins. goitfdiLogins :: Lens' GetOpenIdTokenForDeveloperIdentity (HashMap Text Text)-goitfdiLogins = lens _goitfdiLogins (\ s a -> s{_goitfdiLogins = a}) . _Map;+goitfdiLogins = lens _goitfdiLogins (\ s a -> s{_goitfdiLogins = a}) . _Map  instance AWSRequest            GetOpenIdTokenForDeveloperIdentity@@ -178,23 +178,23 @@     -> GetOpenIdTokenForDeveloperIdentityResponse getOpenIdTokenForDeveloperIdentityResponse pResponseStatus_ =   GetOpenIdTokenForDeveloperIdentityResponse'-  { _goitfdirsToken = Nothing-  , _goitfdirsIdentityId = Nothing-  , _goitfdirsResponseStatus = pResponseStatus_-  }+    { _goitfdirsToken = Nothing+    , _goitfdirsIdentityId = Nothing+    , _goitfdirsResponseStatus = pResponseStatus_+    }   -- | An OpenID token. goitfdirsToken :: Lens' GetOpenIdTokenForDeveloperIdentityResponse (Maybe Text)-goitfdirsToken = lens _goitfdirsToken (\ s a -> s{_goitfdirsToken = a});+goitfdirsToken = lens _goitfdirsToken (\ s a -> s{_goitfdirsToken = a})  -- | A unique identifier in the format REGION:GUID. goitfdirsIdentityId :: Lens' GetOpenIdTokenForDeveloperIdentityResponse (Maybe Text)-goitfdirsIdentityId = lens _goitfdirsIdentityId (\ s a -> s{_goitfdirsIdentityId = a});+goitfdirsIdentityId = lens _goitfdirsIdentityId (\ s a -> s{_goitfdirsIdentityId = a})  -- | -- | The response status code. goitfdirsResponseStatus :: Lens' GetOpenIdTokenForDeveloperIdentityResponse Int-goitfdirsResponseStatus = lens _goitfdirsResponseStatus (\ s a -> s{_goitfdirsResponseStatus = a});+goitfdirsResponseStatus = lens _goitfdirsResponseStatus (\ s a -> s{_goitfdirsResponseStatus = a})  instance NFData            GetOpenIdTokenForDeveloperIdentityResponse
gen/Network/AWS/CognitoIdentity/ListIdentities.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.ListIdentities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,28 +81,28 @@     -> ListIdentities listIdentities pIdentityPoolId_ pMaxResults_ =   ListIdentities'-  { _liHideDisabled = Nothing-  , _liNextToken = Nothing-  , _liIdentityPoolId = pIdentityPoolId_-  , _liMaxResults = _Nat # pMaxResults_-  }+    { _liHideDisabled = Nothing+    , _liNextToken = Nothing+    , _liIdentityPoolId = pIdentityPoolId_+    , _liMaxResults = _Nat # pMaxResults_+    }   -- | An optional boolean parameter that allows you to hide disabled identities. If omitted, the ListIdentities API will include disabled identities in the response. liHideDisabled :: Lens' ListIdentities (Maybe Bool)-liHideDisabled = lens _liHideDisabled (\ s a -> s{_liHideDisabled = a});+liHideDisabled = lens _liHideDisabled (\ s a -> s{_liHideDisabled = a})  -- | A pagination token. liNextToken :: Lens' ListIdentities (Maybe Text)-liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a});+liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})  -- | An identity pool ID in the format REGION:GUID. liIdentityPoolId :: Lens' ListIdentities Text-liIdentityPoolId = lens _liIdentityPoolId (\ s a -> s{_liIdentityPoolId = a});+liIdentityPoolId = lens _liIdentityPoolId (\ s a -> s{_liIdentityPoolId = a})  -- | The maximum number of identities to return. liMaxResults :: Lens' ListIdentities Natural-liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . _Nat;+liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . _Nat  instance AWSRequest ListIdentities where         type Rs ListIdentities = ListIdentitiesResponse@@ -173,27 +173,27 @@     -> ListIdentitiesResponse listIdentitiesResponse pResponseStatus_ =   ListIdentitiesResponse'-  { _lirsIdentityPoolId = Nothing-  , _lirsNextToken = Nothing-  , _lirsIdentities = Nothing-  , _lirsResponseStatus = pResponseStatus_-  }+    { _lirsIdentityPoolId = Nothing+    , _lirsNextToken = Nothing+    , _lirsIdentities = Nothing+    , _lirsResponseStatus = pResponseStatus_+    }   -- | An identity pool ID in the format REGION:GUID. lirsIdentityPoolId :: Lens' ListIdentitiesResponse (Maybe Text)-lirsIdentityPoolId = lens _lirsIdentityPoolId (\ s a -> s{_lirsIdentityPoolId = a});+lirsIdentityPoolId = lens _lirsIdentityPoolId (\ s a -> s{_lirsIdentityPoolId = a})  -- | A pagination token. lirsNextToken :: Lens' ListIdentitiesResponse (Maybe Text)-lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a});+lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})  -- | An object containing a set of identities and associated mappings. lirsIdentities :: Lens' ListIdentitiesResponse [IdentityDescription]-lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Default . _Coerce;+lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Default . _Coerce  -- | -- | The response status code. lirsResponseStatus :: Lens' ListIdentitiesResponse Int-lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});+lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})  instance NFData ListIdentitiesResponse where
gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.ListIdentityPools--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,16 +71,16 @@     -> ListIdentityPools listIdentityPools pMaxResults_ =   ListIdentityPools'-  {_lipNextToken = Nothing, _lipMaxResults = _Nat # pMaxResults_}+    {_lipNextToken = Nothing, _lipMaxResults = _Nat # pMaxResults_}   -- | A pagination token. lipNextToken :: Lens' ListIdentityPools (Maybe Text)-lipNextToken = lens _lipNextToken (\ s a -> s{_lipNextToken = a});+lipNextToken = lens _lipNextToken (\ s a -> s{_lipNextToken = a})  -- | The maximum number of identities to return. lipMaxResults :: Lens' ListIdentityPools Natural-lipMaxResults = lens _lipMaxResults (\ s a -> s{_lipMaxResults = a}) . _Nat;+lipMaxResults = lens _lipMaxResults (\ s a -> s{_lipMaxResults = a}) . _Nat  instance AWSRequest ListIdentityPools where         type Rs ListIdentityPools = ListIdentityPoolsResponse@@ -146,22 +146,22 @@     -> ListIdentityPoolsResponse listIdentityPoolsResponse pResponseStatus_ =   ListIdentityPoolsResponse'-  { _liprsIdentityPools = Nothing-  , _liprsNextToken = Nothing-  , _liprsResponseStatus = pResponseStatus_-  }+    { _liprsIdentityPools = Nothing+    , _liprsNextToken = Nothing+    , _liprsResponseStatus = pResponseStatus_+    }   -- | The identity pools returned by the ListIdentityPools action. liprsIdentityPools :: Lens' ListIdentityPoolsResponse [IdentityPoolShortDescription]-liprsIdentityPools = lens _liprsIdentityPools (\ s a -> s{_liprsIdentityPools = a}) . _Default . _Coerce;+liprsIdentityPools = lens _liprsIdentityPools (\ s a -> s{_liprsIdentityPools = a}) . _Default . _Coerce  -- | A pagination token. liprsNextToken :: Lens' ListIdentityPoolsResponse (Maybe Text)-liprsNextToken = lens _liprsNextToken (\ s a -> s{_liprsNextToken = a});+liprsNextToken = lens _liprsNextToken (\ s a -> s{_liprsNextToken = a})  -- | -- | The response status code. liprsResponseStatus :: Lens' ListIdentityPoolsResponse Int-liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a});+liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a})  instance NFData ListIdentityPoolsResponse where
gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.LookupDeveloperIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,33 +84,33 @@     -> LookupDeveloperIdentity lookupDeveloperIdentity pIdentityPoolId_ =   LookupDeveloperIdentity'-  { _ldiDeveloperUserIdentifier = Nothing-  , _ldiNextToken = Nothing-  , _ldiIdentityId = Nothing-  , _ldiMaxResults = Nothing-  , _ldiIdentityPoolId = pIdentityPoolId_-  }+    { _ldiDeveloperUserIdentifier = Nothing+    , _ldiNextToken = Nothing+    , _ldiIdentityId = Nothing+    , _ldiMaxResults = Nothing+    , _ldiIdentityPoolId = pIdentityPoolId_+    }   -- | A unique ID used by your backend authentication process to identify a user. Typically, a developer identity provider would issue many developer user identifiers, in keeping with the number of users. ldiDeveloperUserIdentifier :: Lens' LookupDeveloperIdentity (Maybe Text)-ldiDeveloperUserIdentifier = lens _ldiDeveloperUserIdentifier (\ s a -> s{_ldiDeveloperUserIdentifier = a});+ldiDeveloperUserIdentifier = lens _ldiDeveloperUserIdentifier (\ s a -> s{_ldiDeveloperUserIdentifier = a})  -- | A pagination token. The first call you make will have @NextToken@ set to null. After that the service will return @NextToken@ values as needed. For example, let's say you make a request with @MaxResults@ set to 10, and there are 20 matches in the database. The service will return a pagination token as a part of the response. This token can be used to call the API again and get results starting from the 11th match. ldiNextToken :: Lens' LookupDeveloperIdentity (Maybe Text)-ldiNextToken = lens _ldiNextToken (\ s a -> s{_ldiNextToken = a});+ldiNextToken = lens _ldiNextToken (\ s a -> s{_ldiNextToken = a})  -- | A unique identifier in the format REGION:GUID. ldiIdentityId :: Lens' LookupDeveloperIdentity (Maybe Text)-ldiIdentityId = lens _ldiIdentityId (\ s a -> s{_ldiIdentityId = a});+ldiIdentityId = lens _ldiIdentityId (\ s a -> s{_ldiIdentityId = a})  -- | The maximum number of identities to return. ldiMaxResults :: Lens' LookupDeveloperIdentity (Maybe Natural)-ldiMaxResults = lens _ldiMaxResults (\ s a -> s{_ldiMaxResults = a}) . mapping _Nat;+ldiMaxResults = lens _ldiMaxResults (\ s a -> s{_ldiMaxResults = a}) . mapping _Nat  -- | An identity pool ID in the format REGION:GUID. ldiIdentityPoolId :: Lens' LookupDeveloperIdentity Text-ldiIdentityPoolId = lens _ldiIdentityPoolId (\ s a -> s{_ldiIdentityPoolId = a});+ldiIdentityPoolId = lens _ldiIdentityPoolId (\ s a -> s{_ldiIdentityPoolId = a})  instance AWSRequest LookupDeveloperIdentity where         type Rs LookupDeveloperIdentity =@@ -184,27 +184,27 @@     -> LookupDeveloperIdentityResponse lookupDeveloperIdentityResponse pResponseStatus_ =   LookupDeveloperIdentityResponse'-  { _ldirsNextToken = Nothing-  , _ldirsIdentityId = Nothing-  , _ldirsDeveloperUserIdentifierList = Nothing-  , _ldirsResponseStatus = pResponseStatus_-  }+    { _ldirsNextToken = Nothing+    , _ldirsIdentityId = Nothing+    , _ldirsDeveloperUserIdentifierList = Nothing+    , _ldirsResponseStatus = pResponseStatus_+    }   -- | A pagination token. The first call you make will have @NextToken@ set to null. After that the service will return @NextToken@ values as needed. For example, let's say you make a request with @MaxResults@ set to 10, and there are 20 matches in the database. The service will return a pagination token as a part of the response. This token can be used to call the API again and get results starting from the 11th match. ldirsNextToken :: Lens' LookupDeveloperIdentityResponse (Maybe Text)-ldirsNextToken = lens _ldirsNextToken (\ s a -> s{_ldirsNextToken = a});+ldirsNextToken = lens _ldirsNextToken (\ s a -> s{_ldirsNextToken = a})  -- | A unique identifier in the format REGION:GUID. ldirsIdentityId :: Lens' LookupDeveloperIdentityResponse (Maybe Text)-ldirsIdentityId = lens _ldirsIdentityId (\ s a -> s{_ldirsIdentityId = a});+ldirsIdentityId = lens _ldirsIdentityId (\ s a -> s{_ldirsIdentityId = a})  -- | This is the list of developer user identifiers associated with an identity ID. Cognito supports the association of multiple developer user identifiers with an identity ID. ldirsDeveloperUserIdentifierList :: Lens' LookupDeveloperIdentityResponse [Text]-ldirsDeveloperUserIdentifierList = lens _ldirsDeveloperUserIdentifierList (\ s a -> s{_ldirsDeveloperUserIdentifierList = a}) . _Default . _Coerce;+ldirsDeveloperUserIdentifierList = lens _ldirsDeveloperUserIdentifierList (\ s a -> s{_ldirsDeveloperUserIdentifierList = a}) . _Default . _Coerce  -- | -- | The response status code. ldirsResponseStatus :: Lens' LookupDeveloperIdentityResponse Int-ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});+ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a})  instance NFData LookupDeveloperIdentityResponse where
gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.MergeDeveloperIdentities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,28 +81,28 @@     -> MergeDeveloperIdentities mergeDeveloperIdentities pSourceUserIdentifier_ pDestinationUserIdentifier_ pDeveloperProviderName_ pIdentityPoolId_ =   MergeDeveloperIdentities'-  { _mdiSourceUserIdentifier = pSourceUserIdentifier_-  , _mdiDestinationUserIdentifier = pDestinationUserIdentifier_-  , _mdiDeveloperProviderName = pDeveloperProviderName_-  , _mdiIdentityPoolId = pIdentityPoolId_-  }+    { _mdiSourceUserIdentifier = pSourceUserIdentifier_+    , _mdiDestinationUserIdentifier = pDestinationUserIdentifier_+    , _mdiDeveloperProviderName = pDeveloperProviderName_+    , _mdiIdentityPoolId = pIdentityPoolId_+    }   -- | User identifier for the source user. The value should be a @DeveloperUserIdentifier@ . mdiSourceUserIdentifier :: Lens' MergeDeveloperIdentities Text-mdiSourceUserIdentifier = lens _mdiSourceUserIdentifier (\ s a -> s{_mdiSourceUserIdentifier = a});+mdiSourceUserIdentifier = lens _mdiSourceUserIdentifier (\ s a -> s{_mdiSourceUserIdentifier = a})  -- | User identifier for the destination user. The value should be a @DeveloperUserIdentifier@ . mdiDestinationUserIdentifier :: Lens' MergeDeveloperIdentities Text-mdiDestinationUserIdentifier = lens _mdiDestinationUserIdentifier (\ s a -> s{_mdiDestinationUserIdentifier = a});+mdiDestinationUserIdentifier = lens _mdiDestinationUserIdentifier (\ s a -> s{_mdiDestinationUserIdentifier = a})  -- | The "domain" by which Cognito will refer to your users. This is a (pseudo) domain name that you provide while creating an identity pool. This name acts as a placeholder that allows your backend and the Cognito service to communicate about the developer provider. For the @DeveloperProviderName@ , you can use letters as well as period (.), underscore (_), and dash (-). mdiDeveloperProviderName :: Lens' MergeDeveloperIdentities Text-mdiDeveloperProviderName = lens _mdiDeveloperProviderName (\ s a -> s{_mdiDeveloperProviderName = a});+mdiDeveloperProviderName = lens _mdiDeveloperProviderName (\ s a -> s{_mdiDeveloperProviderName = a})  -- | An identity pool ID in the format REGION:GUID. mdiIdentityPoolId :: Lens' MergeDeveloperIdentities Text-mdiIdentityPoolId = lens _mdiIdentityPoolId (\ s a -> s{_mdiIdentityPoolId = a});+mdiIdentityPoolId = lens _mdiIdentityPoolId (\ s a -> s{_mdiIdentityPoolId = a})  instance AWSRequest MergeDeveloperIdentities where         type Rs MergeDeveloperIdentities =@@ -171,16 +171,16 @@     -> MergeDeveloperIdentitiesResponse mergeDeveloperIdentitiesResponse pResponseStatus_ =   MergeDeveloperIdentitiesResponse'-  {_mdirsIdentityId = Nothing, _mdirsResponseStatus = pResponseStatus_}+    {_mdirsIdentityId = Nothing, _mdirsResponseStatus = pResponseStatus_}   -- | A unique identifier in the format REGION:GUID. mdirsIdentityId :: Lens' MergeDeveloperIdentitiesResponse (Maybe Text)-mdirsIdentityId = lens _mdirsIdentityId (\ s a -> s{_mdirsIdentityId = a});+mdirsIdentityId = lens _mdirsIdentityId (\ s a -> s{_mdirsIdentityId = a})  -- | -- | The response status code. mdirsResponseStatus :: Lens' MergeDeveloperIdentitiesResponse Int-mdirsResponseStatus = lens _mdirsResponseStatus (\ s a -> s{_mdirsResponseStatus = a});+mdirsResponseStatus = lens _mdirsResponseStatus (\ s a -> s{_mdirsResponseStatus = a})  instance NFData MergeDeveloperIdentitiesResponse          where
gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.SetIdentityPoolRoles--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     -> SetIdentityPoolRoles setIdentityPoolRoles pIdentityPoolId_ =   SetIdentityPoolRoles'-  { _siprRoleMappings = Nothing-  , _siprIdentityPoolId = pIdentityPoolId_-  , _siprRoles = mempty-  }+    { _siprRoleMappings = Nothing+    , _siprIdentityPoolId = pIdentityPoolId_+    , _siprRoles = mempty+    }   -- | How users for a specific identity provider are to mapped to roles. This is a string to 'RoleMapping' object map. The string identifies the identity provider, for example, "graph.facebook.com" or "cognito-idp-east-1.amazonaws.com/us-east-1_abcdefghi:app_client_id". Up to 25 rules can be specified per identity provider. siprRoleMappings :: Lens' SetIdentityPoolRoles (HashMap Text RoleMapping)-siprRoleMappings = lens _siprRoleMappings (\ s a -> s{_siprRoleMappings = a}) . _Default . _Map;+siprRoleMappings = lens _siprRoleMappings (\ s a -> s{_siprRoleMappings = a}) . _Default . _Map  -- | An identity pool ID in the format REGION:GUID. siprIdentityPoolId :: Lens' SetIdentityPoolRoles Text-siprIdentityPoolId = lens _siprIdentityPoolId (\ s a -> s{_siprIdentityPoolId = a});+siprIdentityPoolId = lens _siprIdentityPoolId (\ s a -> s{_siprIdentityPoolId = a})  -- | The map of roles associated with this pool. For a given role, the key will be either "authenticated" or "unauthenticated" and the value will be the Role ARN. siprRoles :: Lens' SetIdentityPoolRoles (HashMap Text Text)-siprRoles = lens _siprRoles (\ s a -> s{_siprRoles = a}) . _Map;+siprRoles = lens _siprRoles (\ s a -> s{_siprRoles = a}) . _Map  instance AWSRequest SetIdentityPoolRoles where         type Rs SetIdentityPoolRoles =
gen/Network/AWS/CognitoIdentity/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -118,24 +118,24 @@ cognitoIdentity :: Service cognitoIdentity =   Service-  { _svcAbbrev = "CognitoIdentity"-  , _svcSigner = v4-  , _svcPrefix = "cognito-identity"-  , _svcVersion = "2014-06-30"-  , _svcEndpoint = defaultEndpoint cognitoIdentity-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "CognitoIdentity"-  , _svcRetry = retry-  }+    { _svcAbbrev = "CognitoIdentity"+    , _svcSigner = v4+    , _svcPrefix = "cognito-identity"+    , _svcVersion = "2014-06-30"+    , _svcEndpoint = defaultEndpoint cognitoIdentity+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "CognitoIdentity"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -144,6 +144,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/CognitoIdentity/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -46,23 +46,23 @@     :: CognitoIdentityProvider cognitoIdentityProvider =   CognitoIdentityProvider'-  { _cipClientId = Nothing-  , _cipServerSideTokenCheck = Nothing-  , _cipProviderName = Nothing-  }+    { _cipClientId = Nothing+    , _cipServerSideTokenCheck = Nothing+    , _cipProviderName = Nothing+    }   -- | The client ID for the Amazon Cognito Identity User Pool. cipClientId :: Lens' CognitoIdentityProvider (Maybe Text)-cipClientId = lens _cipClientId (\ s a -> s{_cipClientId = a});+cipClientId = lens _cipClientId (\ s a -> s{_cipClientId = a})  -- | TRUE if server-side token validation is enabled for the identity provider’s token. cipServerSideTokenCheck :: Lens' CognitoIdentityProvider (Maybe Bool)-cipServerSideTokenCheck = lens _cipServerSideTokenCheck (\ s a -> s{_cipServerSideTokenCheck = a});+cipServerSideTokenCheck = lens _cipServerSideTokenCheck (\ s a -> s{_cipServerSideTokenCheck = a})  -- | The provider name for an Amazon Cognito Identity User Pool. For example, @cognito-idp.us-east-1.amazonaws.com/us-east-1_123456789@ . cipProviderName :: Lens' CognitoIdentityProvider (Maybe Text)-cipProviderName = lens _cipProviderName (\ s a -> s{_cipProviderName = a});+cipProviderName = lens _cipProviderName (\ s a -> s{_cipProviderName = a})  instance FromJSON CognitoIdentityProvider where         parseJSON@@ -113,28 +113,28 @@     :: Credentials credentials =   Credentials'-  { _cSessionToken = Nothing-  , _cExpiration = Nothing-  , _cSecretKey = Nothing-  , _cAccessKeyId = Nothing-  }+    { _cSessionToken = Nothing+    , _cExpiration = Nothing+    , _cSecretKey = Nothing+    , _cAccessKeyId = Nothing+    }   -- | The Session Token portion of the credentials cSessionToken :: Lens' Credentials (Maybe Text)-cSessionToken = lens _cSessionToken (\ s a -> s{_cSessionToken = a});+cSessionToken = lens _cSessionToken (\ s a -> s{_cSessionToken = a})  -- | The date at which these credentials will expire. cExpiration :: Lens' Credentials (Maybe UTCTime)-cExpiration = lens _cExpiration (\ s a -> s{_cExpiration = a}) . mapping _Time;+cExpiration = lens _cExpiration (\ s a -> s{_cExpiration = a}) . mapping _Time  -- | The Secret Access Key portion of the credentials cSecretKey :: Lens' Credentials (Maybe Text)-cSecretKey = lens _cSecretKey (\ s a -> s{_cSecretKey = a});+cSecretKey = lens _cSecretKey (\ s a -> s{_cSecretKey = a})  -- | The Access Key portion of the credentials. cAccessKeyId :: Lens' Credentials (Maybe Text)-cAccessKeyId = lens _cAccessKeyId (\ s a -> s{_cAccessKeyId = a});+cAccessKeyId = lens _cAccessKeyId (\ s a -> s{_cAccessKeyId = a})  instance FromJSON Credentials where         parseJSON@@ -177,28 +177,28 @@     :: IdentityDescription identityDescription =   IdentityDescription'-  { _idLastModifiedDate = Nothing-  , _idCreationDate = Nothing-  , _idLogins = Nothing-  , _idIdentityId = Nothing-  }+    { _idLastModifiedDate = Nothing+    , _idCreationDate = Nothing+    , _idLogins = Nothing+    , _idIdentityId = Nothing+    }   -- | Date on which the identity was last modified. idLastModifiedDate :: Lens' IdentityDescription (Maybe UTCTime)-idLastModifiedDate = lens _idLastModifiedDate (\ s a -> s{_idLastModifiedDate = a}) . mapping _Time;+idLastModifiedDate = lens _idLastModifiedDate (\ s a -> s{_idLastModifiedDate = a}) . mapping _Time  -- | Date on which the identity was created. idCreationDate :: Lens' IdentityDescription (Maybe UTCTime)-idCreationDate = lens _idCreationDate (\ s a -> s{_idCreationDate = a}) . mapping _Time;+idCreationDate = lens _idCreationDate (\ s a -> s{_idCreationDate = a}) . mapping _Time  -- | A set of optional name-value pairs that map provider names to provider tokens. idLogins :: Lens' IdentityDescription [Text]-idLogins = lens _idLogins (\ s a -> s{_idLogins = a}) . _Default . _Coerce;+idLogins = lens _idLogins (\ s a -> s{_idLogins = a}) . _Default . _Coerce  -- | A unique identifier in the format REGION:GUID. idIdentityId :: Lens' IdentityDescription (Maybe Text)-idIdentityId = lens _idIdentityId (\ s a -> s{_idIdentityId = a});+idIdentityId = lens _idIdentityId (\ s a -> s{_idIdentityId = a})  instance FromJSON IdentityDescription where         parseJSON@@ -256,48 +256,48 @@     -> IdentityPool identityPool pIdentityPoolId_ pIdentityPoolName_ pAllowUnauthenticatedIdentities_ =   IdentityPool'-  { _ipSamlProviderARNs = Nothing-  , _ipSupportedLoginProviders = Nothing-  , _ipDeveloperProviderName = Nothing-  , _ipOpenIdConnectProviderARNs = Nothing-  , _ipCognitoIdentityProviders = Nothing-  , _ipIdentityPoolId = pIdentityPoolId_-  , _ipIdentityPoolName = pIdentityPoolName_-  , _ipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_-  }+    { _ipSamlProviderARNs = Nothing+    , _ipSupportedLoginProviders = Nothing+    , _ipDeveloperProviderName = Nothing+    , _ipOpenIdConnectProviderARNs = Nothing+    , _ipCognitoIdentityProviders = Nothing+    , _ipIdentityPoolId = pIdentityPoolId_+    , _ipIdentityPoolName = pIdentityPoolName_+    , _ipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_+    }   -- | An array of Amazon Resource Names (ARNs) of the SAML provider for your identity pool. ipSamlProviderARNs :: Lens' IdentityPool [Text]-ipSamlProviderARNs = lens _ipSamlProviderARNs (\ s a -> s{_ipSamlProviderARNs = a}) . _Default . _Coerce;+ipSamlProviderARNs = lens _ipSamlProviderARNs (\ s a -> s{_ipSamlProviderARNs = a}) . _Default . _Coerce  -- | Optional key:value pairs mapping provider names to provider app IDs. ipSupportedLoginProviders :: Lens' IdentityPool (HashMap Text Text)-ipSupportedLoginProviders = lens _ipSupportedLoginProviders (\ s a -> s{_ipSupportedLoginProviders = a}) . _Default . _Map;+ipSupportedLoginProviders = lens _ipSupportedLoginProviders (\ s a -> s{_ipSupportedLoginProviders = a}) . _Default . _Map  -- | The "domain" by which Cognito will refer to your users. ipDeveloperProviderName :: Lens' IdentityPool (Maybe Text)-ipDeveloperProviderName = lens _ipDeveloperProviderName (\ s a -> s{_ipDeveloperProviderName = a});+ipDeveloperProviderName = lens _ipDeveloperProviderName (\ s a -> s{_ipDeveloperProviderName = a})  -- | A list of OpendID Connect provider ARNs. ipOpenIdConnectProviderARNs :: Lens' IdentityPool [Text]-ipOpenIdConnectProviderARNs = lens _ipOpenIdConnectProviderARNs (\ s a -> s{_ipOpenIdConnectProviderARNs = a}) . _Default . _Coerce;+ipOpenIdConnectProviderARNs = lens _ipOpenIdConnectProviderARNs (\ s a -> s{_ipOpenIdConnectProviderARNs = a}) . _Default . _Coerce  -- | A list representing an Amazon Cognito Identity User Pool and its client ID. ipCognitoIdentityProviders :: Lens' IdentityPool [CognitoIdentityProvider]-ipCognitoIdentityProviders = lens _ipCognitoIdentityProviders (\ s a -> s{_ipCognitoIdentityProviders = a}) . _Default . _Coerce;+ipCognitoIdentityProviders = lens _ipCognitoIdentityProviders (\ s a -> s{_ipCognitoIdentityProviders = a}) . _Default . _Coerce  -- | An identity pool ID in the format REGION:GUID. ipIdentityPoolId :: Lens' IdentityPool Text-ipIdentityPoolId = lens _ipIdentityPoolId (\ s a -> s{_ipIdentityPoolId = a});+ipIdentityPoolId = lens _ipIdentityPoolId (\ s a -> s{_ipIdentityPoolId = a})  -- | A string that you provide. ipIdentityPoolName :: Lens' IdentityPool Text-ipIdentityPoolName = lens _ipIdentityPoolName (\ s a -> s{_ipIdentityPoolName = a});+ipIdentityPoolName = lens _ipIdentityPoolName (\ s a -> s{_ipIdentityPoolName = a})  -- | TRUE if the identity pool supports unauthenticated logins. ipAllowUnauthenticatedIdentities :: Lens' IdentityPool Bool-ipAllowUnauthenticatedIdentities = lens _ipAllowUnauthenticatedIdentities (\ s a -> s{_ipAllowUnauthenticatedIdentities = a});+ipAllowUnauthenticatedIdentities = lens _ipAllowUnauthenticatedIdentities (\ s a -> s{_ipAllowUnauthenticatedIdentities = a})  instance FromJSON IdentityPool where         parseJSON@@ -358,16 +358,16 @@     :: IdentityPoolShortDescription identityPoolShortDescription =   IdentityPoolShortDescription'-  {_ipsdIdentityPoolId = Nothing, _ipsdIdentityPoolName = Nothing}+    {_ipsdIdentityPoolId = Nothing, _ipsdIdentityPoolName = Nothing}   -- | An identity pool ID in the format REGION:GUID. ipsdIdentityPoolId :: Lens' IdentityPoolShortDescription (Maybe Text)-ipsdIdentityPoolId = lens _ipsdIdentityPoolId (\ s a -> s{_ipsdIdentityPoolId = a});+ipsdIdentityPoolId = lens _ipsdIdentityPoolId (\ s a -> s{_ipsdIdentityPoolId = a})  -- | A string that you provide. ipsdIdentityPoolName :: Lens' IdentityPoolShortDescription (Maybe Text)-ipsdIdentityPoolName = lens _ipsdIdentityPoolName (\ s a -> s{_ipsdIdentityPoolName = a});+ipsdIdentityPoolName = lens _ipsdIdentityPoolName (\ s a -> s{_ipsdIdentityPoolName = a})  instance FromJSON IdentityPoolShortDescription where         parseJSON@@ -413,28 +413,28 @@     -> MappingRule mappingRule pClaim_ pMatchType_ pValue_ pRoleARN_ =   MappingRule'-  { _mrClaim = pClaim_-  , _mrMatchType = pMatchType_-  , _mrValue = pValue_-  , _mrRoleARN = pRoleARN_-  }+    { _mrClaim = pClaim_+    , _mrMatchType = pMatchType_+    , _mrValue = pValue_+    , _mrRoleARN = pRoleARN_+    }   -- | The claim name that must be present in the token, for example, "isAdmin" or "paid". mrClaim :: Lens' MappingRule Text-mrClaim = lens _mrClaim (\ s a -> s{_mrClaim = a});+mrClaim = lens _mrClaim (\ s a -> s{_mrClaim = a})  -- | The match condition that specifies how closely the claim value in the IdP token must match @Value@ . mrMatchType :: Lens' MappingRule MappingRuleMatchType-mrMatchType = lens _mrMatchType (\ s a -> s{_mrMatchType = a});+mrMatchType = lens _mrMatchType (\ s a -> s{_mrMatchType = a})  -- | A brief string that the claim must match, for example, "paid" or "yes". mrValue :: Lens' MappingRule Text-mrValue = lens _mrValue (\ s a -> s{_mrValue = a});+mrValue = lens _mrValue (\ s a -> s{_mrValue = a})  -- | The role ARN. mrRoleARN :: Lens' MappingRule Text-mrRoleARN = lens _mrRoleARN (\ s a -> s{_mrRoleARN = a});+mrRoleARN = lens _mrRoleARN (\ s a -> s{_mrRoleARN = a})  instance FromJSON MappingRule where         parseJSON@@ -484,23 +484,23 @@     -> RoleMapping roleMapping pType_ =   RoleMapping'-  { _rmRulesConfiguration = Nothing-  , _rmAmbiguousRoleResolution = Nothing-  , _rmType = pType_-  }+    { _rmRulesConfiguration = Nothing+    , _rmAmbiguousRoleResolution = Nothing+    , _rmType = pType_+    }   -- | The rules to be used for mapping users to roles. If you specify Rules as the role mapping type, @RulesConfiguration@ is required. rmRulesConfiguration :: Lens' RoleMapping (Maybe RulesConfigurationType)-rmRulesConfiguration = lens _rmRulesConfiguration (\ s a -> s{_rmRulesConfiguration = a});+rmRulesConfiguration = lens _rmRulesConfiguration (\ s a -> s{_rmRulesConfiguration = a})  -- | If you specify Token or Rules as the @Type@ , @AmbiguousRoleResolution@ is required. Specifies the action to be taken if either no rules match the claim value for the @Rules@ type, or there is no @cognito:preferred_role@ claim and there are multiple @cognito:roles@ matches for the @Token@ type. rmAmbiguousRoleResolution :: Lens' RoleMapping (Maybe AmbiguousRoleResolutionType)-rmAmbiguousRoleResolution = lens _rmAmbiguousRoleResolution (\ s a -> s{_rmAmbiguousRoleResolution = a});+rmAmbiguousRoleResolution = lens _rmAmbiguousRoleResolution (\ s a -> s{_rmAmbiguousRoleResolution = a})  -- | The role mapping type. Token will use @cognito:roles@ and @cognito:preferred_role@ claims from the Cognito identity provider token to map groups to roles. Rules will attempt to match claims from the token to map to a role. rmType :: Lens' RoleMapping RoleMappingType-rmType = lens _rmType (\ s a -> s{_rmType = a});+rmType = lens _rmType (\ s a -> s{_rmType = a})  instance FromJSON RoleMapping where         parseJSON@@ -548,7 +548,7 @@  -- | An array of rules. You can specify up to 25 rules per identity provider. Rules are evaluated in order. The first one to match specifies the role. rctRules :: Lens' RulesConfigurationType (NonEmpty MappingRule)-rctRules = lens _rctRules (\ s a -> s{_rctRules = a}) . _List1;+rctRules = lens _rctRules (\ s a -> s{_rctRules = a}) . _List1  instance FromJSON RulesConfigurationType where         parseJSON@@ -589,11 +589,11 @@  -- | The error code indicating the type of error that occurred. uiiErrorCode :: Lens' UnprocessedIdentityId (Maybe CognitoErrorCode)-uiiErrorCode = lens _uiiErrorCode (\ s a -> s{_uiiErrorCode = a});+uiiErrorCode = lens _uiiErrorCode (\ s a -> s{_uiiErrorCode = a})  -- | A unique identifier in the format REGION:GUID. uiiIdentityId :: Lens' UnprocessedIdentityId (Maybe Text)-uiiIdentityId = lens _uiiIdentityId (\ s a -> s{_uiiIdentityId = a});+uiiIdentityId = lens _uiiIdentityId (\ s a -> s{_uiiIdentityId = a})  instance FromJSON UnprocessedIdentityId where         parseJSON
gen/Network/AWS/CognitoIdentity/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,28 +78,28 @@     -> UnlinkDeveloperIdentity unlinkDeveloperIdentity pIdentityId_ pIdentityPoolId_ pDeveloperProviderName_ pDeveloperUserIdentifier_ =   UnlinkDeveloperIdentity'-  { _udiIdentityId = pIdentityId_-  , _udiIdentityPoolId = pIdentityPoolId_-  , _udiDeveloperProviderName = pDeveloperProviderName_-  , _udiDeveloperUserIdentifier = pDeveloperUserIdentifier_-  }+    { _udiIdentityId = pIdentityId_+    , _udiIdentityPoolId = pIdentityPoolId_+    , _udiDeveloperProviderName = pDeveloperProviderName_+    , _udiDeveloperUserIdentifier = pDeveloperUserIdentifier_+    }   -- | A unique identifier in the format REGION:GUID. udiIdentityId :: Lens' UnlinkDeveloperIdentity Text-udiIdentityId = lens _udiIdentityId (\ s a -> s{_udiIdentityId = a});+udiIdentityId = lens _udiIdentityId (\ s a -> s{_udiIdentityId = a})  -- | An identity pool ID in the format REGION:GUID. udiIdentityPoolId :: Lens' UnlinkDeveloperIdentity Text-udiIdentityPoolId = lens _udiIdentityPoolId (\ s a -> s{_udiIdentityPoolId = a});+udiIdentityPoolId = lens _udiIdentityPoolId (\ s a -> s{_udiIdentityPoolId = a})  -- | The "domain" by which Cognito will refer to your users. udiDeveloperProviderName :: Lens' UnlinkDeveloperIdentity Text-udiDeveloperProviderName = lens _udiDeveloperProviderName (\ s a -> s{_udiDeveloperProviderName = a});+udiDeveloperProviderName = lens _udiDeveloperProviderName (\ s a -> s{_udiDeveloperProviderName = a})  -- | A unique ID used by your backend authentication process to identify a user. udiDeveloperUserIdentifier :: Lens' UnlinkDeveloperIdentity Text-udiDeveloperUserIdentifier = lens _udiDeveloperUserIdentifier (\ s a -> s{_udiDeveloperUserIdentifier = a});+udiDeveloperUserIdentifier = lens _udiDeveloperUserIdentifier (\ s a -> s{_udiDeveloperUserIdentifier = a})  instance AWSRequest UnlinkDeveloperIdentity where         type Rs UnlinkDeveloperIdentity =
gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.UnlinkIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,20 +71,23 @@     -> UnlinkIdentity unlinkIdentity pIdentityId_ =   UnlinkIdentity'-  {_uiIdentityId = pIdentityId_, _uiLogins = mempty, _uiLoginsToRemove = mempty}+    { _uiIdentityId = pIdentityId_+    , _uiLogins = mempty+    , _uiLoginsToRemove = mempty+    }   -- | A unique identifier in the format REGION:GUID. uiIdentityId :: Lens' UnlinkIdentity Text-uiIdentityId = lens _uiIdentityId (\ s a -> s{_uiIdentityId = a});+uiIdentityId = lens _uiIdentityId (\ s a -> s{_uiIdentityId = a})  -- | A set of optional name-value pairs that map provider names to provider tokens. uiLogins :: Lens' UnlinkIdentity (HashMap Text Text)-uiLogins = lens _uiLogins (\ s a -> s{_uiLogins = a}) . _Map;+uiLogins = lens _uiLogins (\ s a -> s{_uiLogins = a}) . _Map  -- | Provider names to unlink from this identity. uiLoginsToRemove :: Lens' UnlinkIdentity [Text]-uiLoginsToRemove = lens _uiLoginsToRemove (\ s a -> s{_uiLoginsToRemove = a}) . _Coerce;+uiLoginsToRemove = lens _uiLoginsToRemove (\ s a -> s{_uiLoginsToRemove = a}) . _Coerce  instance AWSRequest UnlinkIdentity where         type Rs UnlinkIdentity = UnlinkIdentityResponse
gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.UpdateIdentityPool--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -102,48 +102,48 @@     -> UpdateIdentityPool updateIdentityPool pIdentityPoolId_ pIdentityPoolName_ pAllowUnauthenticatedIdentities_ =   UpdateIdentityPool'-  { _uipSamlProviderARNs = Nothing-  , _uipSupportedLoginProviders = Nothing-  , _uipDeveloperProviderName = Nothing-  , _uipOpenIdConnectProviderARNs = Nothing-  , _uipCognitoIdentityProviders = Nothing-  , _uipIdentityPoolId = pIdentityPoolId_-  , _uipIdentityPoolName = pIdentityPoolName_-  , _uipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_-  }+    { _uipSamlProviderARNs = Nothing+    , _uipSupportedLoginProviders = Nothing+    , _uipDeveloperProviderName = Nothing+    , _uipOpenIdConnectProviderARNs = Nothing+    , _uipCognitoIdentityProviders = Nothing+    , _uipIdentityPoolId = pIdentityPoolId_+    , _uipIdentityPoolName = pIdentityPoolName_+    , _uipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_+    }   -- | An array of Amazon Resource Names (ARNs) of the SAML provider for your identity pool. uipSamlProviderARNs :: Lens' UpdateIdentityPool [Text]-uipSamlProviderARNs = lens _uipSamlProviderARNs (\ s a -> s{_uipSamlProviderARNs = a}) . _Default . _Coerce;+uipSamlProviderARNs = lens _uipSamlProviderARNs (\ s a -> s{_uipSamlProviderARNs = a}) . _Default . _Coerce  -- | Optional key:value pairs mapping provider names to provider app IDs. uipSupportedLoginProviders :: Lens' UpdateIdentityPool (HashMap Text Text)-uipSupportedLoginProviders = lens _uipSupportedLoginProviders (\ s a -> s{_uipSupportedLoginProviders = a}) . _Default . _Map;+uipSupportedLoginProviders = lens _uipSupportedLoginProviders (\ s a -> s{_uipSupportedLoginProviders = a}) . _Default . _Map  -- | The "domain" by which Cognito will refer to your users. uipDeveloperProviderName :: Lens' UpdateIdentityPool (Maybe Text)-uipDeveloperProviderName = lens _uipDeveloperProviderName (\ s a -> s{_uipDeveloperProviderName = a});+uipDeveloperProviderName = lens _uipDeveloperProviderName (\ s a -> s{_uipDeveloperProviderName = a})  -- | A list of OpendID Connect provider ARNs. uipOpenIdConnectProviderARNs :: Lens' UpdateIdentityPool [Text]-uipOpenIdConnectProviderARNs = lens _uipOpenIdConnectProviderARNs (\ s a -> s{_uipOpenIdConnectProviderARNs = a}) . _Default . _Coerce;+uipOpenIdConnectProviderARNs = lens _uipOpenIdConnectProviderARNs (\ s a -> s{_uipOpenIdConnectProviderARNs = a}) . _Default . _Coerce  -- | A list representing an Amazon Cognito Identity User Pool and its client ID. uipCognitoIdentityProviders :: Lens' UpdateIdentityPool [CognitoIdentityProvider]-uipCognitoIdentityProviders = lens _uipCognitoIdentityProviders (\ s a -> s{_uipCognitoIdentityProviders = a}) . _Default . _Coerce;+uipCognitoIdentityProviders = lens _uipCognitoIdentityProviders (\ s a -> s{_uipCognitoIdentityProviders = a}) . _Default . _Coerce  -- | An identity pool ID in the format REGION:GUID. uipIdentityPoolId :: Lens' UpdateIdentityPool Text-uipIdentityPoolId = lens _uipIdentityPoolId (\ s a -> s{_uipIdentityPoolId = a});+uipIdentityPoolId = lens _uipIdentityPoolId (\ s a -> s{_uipIdentityPoolId = a})  -- | A string that you provide. uipIdentityPoolName :: Lens' UpdateIdentityPool Text-uipIdentityPoolName = lens _uipIdentityPoolName (\ s a -> s{_uipIdentityPoolName = a});+uipIdentityPoolName = lens _uipIdentityPoolName (\ s a -> s{_uipIdentityPoolName = a})  -- | TRUE if the identity pool supports unauthenticated logins. uipAllowUnauthenticatedIdentities :: Lens' UpdateIdentityPool Bool-uipAllowUnauthenticatedIdentities = lens _uipAllowUnauthenticatedIdentities (\ s a -> s{_uipAllowUnauthenticatedIdentities = a});+uipAllowUnauthenticatedIdentities = lens _uipAllowUnauthenticatedIdentities (\ s a -> s{_uipAllowUnauthenticatedIdentities = a})  instance AWSRequest UpdateIdentityPool where         type Rs UpdateIdentityPool = IdentityPool
gen/Network/AWS/CognitoIdentity/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.CognitoIdentity.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/CognitoIdentity.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.CognitoIdentity--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/CognitoIdentity/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.CognitoIdentity.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/CognitoIdentity.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.CognitoIdentity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated