summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 14:34:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 14:34:00 (GMT)
commit32a71ad3495a739ab0c8cc517eb7300340c93a77 (patch)
tree625a91dac6fea3661c6d997b2ccd839ae2d8ae57
parentf4130d04a9e667bbe21ce415e3d7fabf06baba69 (diff)
version 1.6.01.6.0
-rw-r--r--README.md2
-rw-r--r--amazonka-cognito-identity.cabal10
-rw-r--r--gen/Network/AWS/CognitoIdentity.hs2
-rw-r--r--gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs32
-rw-r--r--gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs14
-rw-r--r--gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs4
-rw-r--r--gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs4
-rw-r--r--gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs4
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs30
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetId.hs22
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs22
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs20
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs34
-rw-r--r--gen/Network/AWS/CognitoIdentity/ListIdentities.hs38
-rw-r--r--gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs22
-rw-r--r--gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs42
-rw-r--r--gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs26
-rw-r--r--gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs16
-rw-r--r--gen/Network/AWS/CognitoIdentity/Types.hs34
-rw-r--r--gen/Network/AWS/CognitoIdentity/Types/Product.hs130
-rw-r--r--gen/Network/AWS/CognitoIdentity/Types/Sum.hs2
-rw-r--r--gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs20
-rw-r--r--gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs13
-rw-r--r--gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs36
-rw-r--r--gen/Network/AWS/CognitoIdentity/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/CognitoIdentity.hs2
-rw-r--r--test/Test/AWS/CognitoIdentity/Internal.hs2
-rw-r--r--test/Test/AWS/Gen/CognitoIdentity.hs2
29 files changed, 297 insertions, 292 deletions
diff --git a/README.md b/README.md
index 5c7e246..ec9ddec 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-cognito-identity.cabal b/amazonka-cognito-identity.cabal
index 2805e29..ad04493 100644
--- a/amazonka-cognito-identity.cabal
+++ b/amazonka-cognito-identity.cabal
@@ -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: MPL-2.0
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 @@ library
, 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-suite amazonka-cognito-identity-test
, 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
diff --git a/gen/Network/AWS/CognitoIdentity.hs b/gen/Network/AWS/CognitoIdentity.hs
index 29d11cc..3837374 100644
--- a/gen/Network/AWS/CognitoIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity.hs
@@ -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
diff --git a/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs
index 5e26949..df62399 100644
--- a/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs
@@ -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
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
diff --git a/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs b/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
index e24dc8f..734bbb0 100644
--- a/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
@@ -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 @@ deleteIdentities pIdentityIdsToDelete_ =
-- | 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
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
diff --git a/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs
index f1491e7..15b9c5f 100644
--- a/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs
@@ -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 @@ deleteIdentityPool pIdentityPoolId_ =
-- | 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 =
diff --git a/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs b/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs
index 7eebb40..5b39f78 100644
--- a/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs
@@ -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 @@ describeIdentity pIdentityId_ = DescribeIdentity' {_diIdentityId = pIdentityId_}
-- | 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
diff --git a/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs
index b39eae6..963dfd6 100644
--- a/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs
@@ -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 @@ describeIdentityPool pIdentityPoolId_ =
-- | 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
diff --git a/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs b/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
index 0cce641..0a2d37f 100644
--- a/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/GetId.hs b/gen/Network/AWS/CognitoIdentity/GetId.hs
index 6242ed6..ffc285e 100644
--- a/gen/Network/AWS/CognitoIdentity/GetId.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetId.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs b/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
index f6ff196..30953af 100644
--- a/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
@@ -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 @@ getIdentityPoolRoles pIdentityPoolId_ =
-- | 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
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
diff --git a/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs b/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
index 78d44fb..b5ad605 100644
--- a/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
@@ -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 @@ getOpenIdToken pIdentityId_ =
-- | 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
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
diff --git a/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
index 568f70a..f1e16a8 100644
--- a/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/ListIdentities.hs b/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
index abbb69d..685fef3 100644
--- a/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs b/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
index 515a45a..45c9b7a 100644
--- a/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
+++ b/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
index 6e8e890..eae927d 100644
--- a/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs b/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
index 9fcf5c5..8759922 100644
--- a/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs b/gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs
index e8c197d..db0bbef 100644
--- a/gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs
+++ b/gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs
@@ -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
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 =
diff --git a/gen/Network/AWS/CognitoIdentity/Types.hs b/gen/Network/AWS/CognitoIdentity/Types.hs
index bdea49b..a247c0b 100644
--- a/gen/Network/AWS/CognitoIdentity/Types.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types.hs
@@ -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 @@ import Network.AWS.Sign.V4
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 @@ cognitoIdentity =
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"
diff --git a/gen/Network/AWS/CognitoIdentity/Types/Product.hs b/gen/Network/AWS/CognitoIdentity/Types/Product.hs
index c1a8f33..ec0d03e 100644
--- a/gen/Network/AWS/CognitoIdentity/Types/Product.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types/Product.hs
@@ -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 =
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 =
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 =
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
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 =
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
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
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 @@ rulesConfigurationType pRules_ =
-- | 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 @@ unprocessedIdentityId =
-- | 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
diff --git a/gen/Network/AWS/CognitoIdentity/Types/Sum.hs b/gen/Network/AWS/CognitoIdentity/Types/Sum.hs
index 4e273e2..fdcf86d 100644
--- a/gen/Network/AWS/CognitoIdentity/Types/Sum.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types/Sum.hs
@@ -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
diff --git a/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs
index 24a9ca8..8c791d6 100644
--- a/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs
@@ -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
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 =
diff --git a/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs b/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
index b65053d..abaf783 100644
--- a/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
@@ -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
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
diff --git a/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs
index 7eec3ac..67a027a 100644
--- a/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs
@@ -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
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
diff --git a/gen/Network/AWS/CognitoIdentity/Waiters.hs b/gen/Network/AWS/CognitoIdentity/Waiters.hs
index b615ec5..920e53e 100644
--- a/gen/Network/AWS/CognitoIdentity/Waiters.hs
+++ b/gen/Network/AWS/CognitoIdentity/Waiters.hs
@@ -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
diff --git a/test/Main.hs b/test/Main.hs
index 604694e..fb12732 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -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
diff --git a/test/Test/AWS/CognitoIdentity.hs b/test/Test/AWS/CognitoIdentity.hs
index e3bdc30..920c36b 100644
--- a/test/Test/AWS/CognitoIdentity.hs
+++ b/test/Test/AWS/CognitoIdentity.hs
@@ -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
diff --git a/test/Test/AWS/CognitoIdentity/Internal.hs b/test/Test/AWS/CognitoIdentity/Internal.hs
index cd6497d..6775fb5 100644
--- a/test/Test/AWS/CognitoIdentity/Internal.hs
+++ b/test/Test/AWS/CognitoIdentity/Internal.hs
@@ -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
diff --git a/test/Test/AWS/Gen/CognitoIdentity.hs b/test/Test/AWS/Gen/CognitoIdentity.hs
index c3e55e5..d2fe0ea 100644
--- a/test/Test/AWS/Gen/CognitoIdentity.hs
+++ b/test/Test/AWS/Gen/CognitoIdentity.hs
@@ -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