summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2017-11-15 08:22:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-11-15 08:22:00 (GMT)
commitf4130d04a9e667bbe21ce415e3d7fabf06baba69 (patch)
tree2d44f828cf1be3f6928889048cc87e080230c1ba
parent9fea5b779456da1ad9d41c653b399be299496621 (diff)
version 1.5.01.5.0
-rw-r--r--README.md2
-rw-r--r--amazonka-cognito-identity.cabal27
-rw-r--r--gen/Network/AWS/CognitoIdentity.hs74
-rw-r--r--gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs74
-rw-r--r--gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs48
-rw-r--r--gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs38
-rw-r--r--gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs31
-rw-r--r--gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs32
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs61
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetId.hs64
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs62
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs63
-rw-r--r--gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs68
-rw-r--r--gen/Network/AWS/CognitoIdentity/ListIdentities.hs74
-rw-r--r--gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs60
-rw-r--r--gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs74
-rw-r--r--gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs59
-rw-r--r--gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs58
-rw-r--r--gen/Network/AWS/CognitoIdentity/Types.hs135
-rw-r--r--gen/Network/AWS/CognitoIdentity/Types/Product.hs368
-rw-r--r--gen/Network/AWS/CognitoIdentity/Types/Sum.hs109
-rw-r--r--gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs52
-rw-r--r--gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs47
-rw-r--r--gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs64
-rw-r--r--gen/Network/AWS/CognitoIdentity/Waiters.hs12
-rw-r--r--test/Main.hs4
-rw-r--r--test/Test/AWS/Gen/CognitoIdentity.hs8
27 files changed, 1135 insertions, 633 deletions
diff --git a/README.md b/README.md
index 8e16a7e..5c7e246 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.4.5`
+`1.5.0`
## Description
diff --git a/amazonka-cognito-identity.cabal b/amazonka-cognito-identity.cabal
index 800bfdc..2805e29 100644
--- a/amazonka-cognito-identity.cabal
+++ b/amazonka-cognito-identity.cabal
@@ -1,13 +1,13 @@
name: amazonka-cognito-identity
-version: 1.4.5
+version: 1.5.0
synopsis: Amazon Cognito Identity SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
-license: OtherLicense
+license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
-maintainer: Brendan Hay <brendan.g.hay@gmail.com>
-copyright: Copyright (c) 2013-2016 Brendan Hay
+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+copyright: Copyright (c) 2013-2017 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -29,14 +29,19 @@ description:
to get started.
source-repository head
- type: git
- location: git://github.com/brendanhay/amazonka.git
+ type: git
+ location: git://github.com/brendanhay/amazonka.git
+ subdir: amazonka-cognito-identity
library
default-language: Haskell2010
hs-source-dirs: src gen
- ghc-options: -Wall
+ ghc-options:
+ -Wall
+ -fwarn-incomplete-uni-patterns
+ -fwarn-incomplete-record-updates
+ -funbox-strict-fields
exposed-modules:
Network.AWS.CognitoIdentity
@@ -66,7 +71,7 @@ library
, Network.AWS.CognitoIdentity.Types.Sum
build-depends:
- amazonka-core == 1.4.5.*
+ amazonka-core == 1.5.0.*
, base >= 4.7 && < 5
test-suite amazonka-cognito-identity-test
@@ -86,9 +91,9 @@ test-suite amazonka-cognito-identity-test
, Test.AWS.CognitoIdentity.Internal
build-depends:
- amazonka-core == 1.4.5.*
- , amazonka-test == 1.4.5.*
- , amazonka-cognito-identity == 1.4.5.*
+ amazonka-core == 1.5.0.*
+ , amazonka-test == 1.5.0.*
+ , amazonka-cognito-identity
, base
, bytestring
, tasty
diff --git a/gen/Network/AWS/CognitoIdentity.hs b/gen/Network/AWS/CognitoIdentity.hs
index 2765770..29d11cc 100644
--- a/gen/Network/AWS/CognitoIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity.hs
@@ -5,9 +5,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -126,13 +126,23 @@ module Network.AWS.CognitoIdentity
-- * Types
+ -- ** AmbiguousRoleResolutionType
+ , AmbiguousRoleResolutionType (..)
+
-- ** CognitoErrorCode
, CognitoErrorCode (..)
+ -- ** MappingRuleMatchType
+ , MappingRuleMatchType (..)
+
+ -- ** RoleMappingType
+ , RoleMappingType (..)
+
-- ** CognitoIdentityProvider
, CognitoIdentityProvider
, cognitoIdentityProvider
, cipClientId
+ , cipServerSideTokenCheck
, cipProviderName
-- ** Credentials
@@ -169,6 +179,26 @@ module Network.AWS.CognitoIdentity
, ipsdIdentityPoolId
, ipsdIdentityPoolName
+ -- ** MappingRule
+ , MappingRule
+ , mappingRule
+ , mrClaim
+ , mrMatchType
+ , mrValue
+ , mrRoleARN
+
+ -- ** RoleMapping
+ , RoleMapping
+ , roleMapping
+ , rmRulesConfiguration
+ , rmAmbiguousRoleResolution
+ , rmType
+
+ -- ** RulesConfigurationType
+ , RulesConfigurationType
+ , rulesConfigurationType
+ , rctRules
+
-- ** UnprocessedIdentityId
, UnprocessedIdentityId
, unprocessedIdentityId
@@ -176,26 +206,26 @@ module Network.AWS.CognitoIdentity
, uiiIdentityId
) where
-import Network.AWS.CognitoIdentity.CreateIdentityPool
-import Network.AWS.CognitoIdentity.DeleteIdentities
-import Network.AWS.CognitoIdentity.DeleteIdentityPool
-import Network.AWS.CognitoIdentity.DescribeIdentity
-import Network.AWS.CognitoIdentity.DescribeIdentityPool
-import Network.AWS.CognitoIdentity.GetCredentialsForIdentity
-import Network.AWS.CognitoIdentity.GetId
-import Network.AWS.CognitoIdentity.GetIdentityPoolRoles
-import Network.AWS.CognitoIdentity.GetOpenIdToken
-import Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity
-import Network.AWS.CognitoIdentity.ListIdentities
-import Network.AWS.CognitoIdentity.ListIdentityPools
-import Network.AWS.CognitoIdentity.LookupDeveloperIdentity
-import Network.AWS.CognitoIdentity.MergeDeveloperIdentities
-import Network.AWS.CognitoIdentity.SetIdentityPoolRoles
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity
-import Network.AWS.CognitoIdentity.UnlinkIdentity
-import Network.AWS.CognitoIdentity.UpdateIdentityPool
-import Network.AWS.CognitoIdentity.Waiters
+import Network.AWS.CognitoIdentity.CreateIdentityPool
+import Network.AWS.CognitoIdentity.DeleteIdentities
+import Network.AWS.CognitoIdentity.DeleteIdentityPool
+import Network.AWS.CognitoIdentity.DescribeIdentity
+import Network.AWS.CognitoIdentity.DescribeIdentityPool
+import Network.AWS.CognitoIdentity.GetCredentialsForIdentity
+import Network.AWS.CognitoIdentity.GetId
+import Network.AWS.CognitoIdentity.GetIdentityPoolRoles
+import Network.AWS.CognitoIdentity.GetOpenIdToken
+import Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity
+import Network.AWS.CognitoIdentity.ListIdentities
+import Network.AWS.CognitoIdentity.ListIdentityPools
+import Network.AWS.CognitoIdentity.LookupDeveloperIdentity
+import Network.AWS.CognitoIdentity.MergeDeveloperIdentities
+import Network.AWS.CognitoIdentity.SetIdentityPoolRoles
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity
+import Network.AWS.CognitoIdentity.UnlinkIdentity
+import Network.AWS.CognitoIdentity.UpdateIdentityPool
+import Network.AWS.CognitoIdentity.Waiters
{- $errors
Error matchers are designed for use with the functions provided by
diff --git a/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs
index 01011a6..5e26949 100644
--- a/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs
@@ -12,13 +12,25 @@
-- |
-- Module : Network.AWS.CognitoIdentity.CreateIdentityPool
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Creates a new identity pool. The identity pool is a store of user identity information that is specific to your AWS account. The limit on identity pools is 60 per account. The keys for @SupportedLoginProviders@ are as follows: * Facebook: @graph.facebook.com@ * Google: @accounts.google.com@ * Amazon: @www.amazon.com@ * Twitter: @api.twitter.com@ * Digits: @www.digits.com@
+-- Creates a new identity pool. The identity pool is a store of user identity information that is specific to your AWS account. The limit on identity pools is 60 per account. The keys for @SupportedLoginProviders@ are as follows:
+--
+--
+-- * Facebook: @graph.facebook.com@
+--
+-- * Google: @accounts.google.com@
+--
+-- * Amazon: @www.amazon.com@
+--
+-- * Twitter: @api.twitter.com@
+--
+-- * Digits: @www.digits.com@
+--
--
--
-- You must use AWS Developer credentials to call this API.
@@ -51,12 +63,12 @@ module Network.AWS.CognitoIdentity.CreateIdentityPool
, ipAllowUnauthenticatedIdentities
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the CreateIdentityPool action.
--
@@ -64,14 +76,15 @@ import Network.AWS.Response
--
-- /See:/ 'createIdentityPool' smart constructor.
data CreateIdentityPool = CreateIdentityPool'
- { _cipSamlProviderARNs :: !(Maybe [Text])
- , _cipSupportedLoginProviders :: !(Maybe (Map Text Text))
- , _cipDeveloperProviderName :: !(Maybe Text)
- , _cipOpenIdConnectProviderARNs :: !(Maybe [Text])
- , _cipCognitoIdentityProviders :: !(Maybe [CognitoIdentityProvider])
- , _cipIdentityPoolName :: !Text
- , _cipAllowUnauthenticatedIdentities :: !Bool
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cipSamlProviderARNs :: !(Maybe [Text])
+ , _cipSupportedLoginProviders :: !(Maybe (Map Text Text))
+ , _cipDeveloperProviderName :: !(Maybe Text)
+ , _cipOpenIdConnectProviderARNs :: !(Maybe [Text])
+ , _cipCognitoIdentityProviders :: !(Maybe [CognitoIdentityProvider])
+ , _cipIdentityPoolName :: !Text
+ , _cipAllowUnauthenticatedIdentities :: !Bool
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateIdentityPool' with the minimum fields required to make a request.
--
@@ -85,7 +98,7 @@ data CreateIdentityPool = CreateIdentityPool'
--
-- * 'cipOpenIdConnectProviderARNs' - A list of OpendID Connect provider ARNs.
--
--- * 'cipCognitoIdentityProviders' - An array of Amazon Cognito Identity user pools.
+-- * 'cipCognitoIdentityProviders' - An array of Amazon Cognito Identity user pools and their client IDs.
--
-- * 'cipIdentityPoolName' - A string that you provide.
--
@@ -95,15 +108,16 @@ createIdentityPool
-> Bool -- ^ 'cipAllowUnauthenticatedIdentities'
-> CreateIdentityPool
createIdentityPool pIdentityPoolName_ pAllowUnauthenticatedIdentities_ =
- CreateIdentityPool'
- { _cipSamlProviderARNs = Nothing
- , _cipSupportedLoginProviders = Nothing
- , _cipDeveloperProviderName = Nothing
- , _cipOpenIdConnectProviderARNs = Nothing
- , _cipCognitoIdentityProviders = Nothing
- , _cipIdentityPoolName = pIdentityPoolName_
- , _cipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_
- }
+ CreateIdentityPool'
+ { _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]
@@ -121,7 +135,7 @@ cipDeveloperProviderName = lens _cipDeveloperProviderName (\ s a -> s{_cipDevelo
cipOpenIdConnectProviderARNs :: Lens' CreateIdentityPool [Text]
cipOpenIdConnectProviderARNs = lens _cipOpenIdConnectProviderARNs (\ s a -> s{_cipOpenIdConnectProviderARNs = a}) . _Default . _Coerce;
--- | An array of Amazon Cognito Identity user pools.
+-- | 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;
@@ -138,9 +152,9 @@ instance AWSRequest CreateIdentityPool where
request = postJSON cognitoIdentity
response = receiveJSON (\ s h x -> eitherParseJSON x)
-instance Hashable CreateIdentityPool
+instance Hashable CreateIdentityPool where
-instance NFData CreateIdentityPool
+instance NFData CreateIdentityPool where
instance ToHeaders CreateIdentityPool where
toHeaders
diff --git a/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs b/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
index 33fe2cd..e24dc8f 100644
--- a/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/DeleteIdentities.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.DeleteIdentities
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -39,12 +39,12 @@ module Network.AWS.CognitoIdentity.DeleteIdentities
, dirsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @DeleteIdentities@ action.
--
@@ -52,8 +52,9 @@ import Network.AWS.Response
--
-- /See:/ 'deleteIdentities' smart constructor.
newtype DeleteIdentities = DeleteIdentities'
- { _diIdentityIdsToDelete :: List1 Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _diIdentityIdsToDelete :: List1 Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteIdentities' with the minimum fields required to make a request.
--
@@ -64,9 +65,8 @@ deleteIdentities
:: NonEmpty Text -- ^ 'diIdentityIdsToDelete'
-> DeleteIdentities
deleteIdentities pIdentityIdsToDelete_ =
- DeleteIdentities'
- { _diIdentityIdsToDelete = _List1 # pIdentityIdsToDelete_
- }
+ DeleteIdentities' {_diIdentityIdsToDelete = _List1 # pIdentityIdsToDelete_}
+
-- | A list of 1-60 identities that you want to delete.
diIdentityIdsToDelete :: Lens' DeleteIdentities (NonEmpty Text)
@@ -82,9 +82,9 @@ instance AWSRequest DeleteIdentities where
(x .?> "UnprocessedIdentityIds" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable DeleteIdentities
+instance Hashable DeleteIdentities where
-instance NFData DeleteIdentities
+instance NFData DeleteIdentities where
instance ToHeaders DeleteIdentities where
toHeaders
@@ -115,9 +115,10 @@ instance ToQuery DeleteIdentities where
--
-- /See:/ 'deleteIdentitiesResponse' smart constructor.
data DeleteIdentitiesResponse = DeleteIdentitiesResponse'
- { _dirsUnprocessedIdentityIds :: !(Maybe [UnprocessedIdentityId])
- , _dirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dirsUnprocessedIdentityIds :: !(Maybe [UnprocessedIdentityId])
+ , _dirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteIdentitiesResponse' with the minimum fields required to make a request.
--
@@ -130,10 +131,11 @@ deleteIdentitiesResponse
:: Int -- ^ 'dirsResponseStatus'
-> DeleteIdentitiesResponse
deleteIdentitiesResponse pResponseStatus_ =
- DeleteIdentitiesResponse'
- { _dirsUnprocessedIdentityIds = Nothing
- , _dirsResponseStatus = pResponseStatus_
- }
+ DeleteIdentitiesResponse'
+ { _dirsUnprocessedIdentityIds = Nothing
+ , _dirsResponseStatus = pResponseStatus_
+ }
+
-- | An array of UnprocessedIdentityId objects, each of which contains an ErrorCode and IdentityId.
dirsUnprocessedIdentityIds :: Lens' DeleteIdentitiesResponse [UnprocessedIdentityId]
@@ -143,4 +145,4 @@ dirsUnprocessedIdentityIds = lens _dirsUnprocessedIdentityIds (\ s a -> s{_dirsU
dirsResponseStatus :: Lens' DeleteIdentitiesResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});
-instance NFData DeleteIdentitiesResponse
+instance NFData DeleteIdentitiesResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs
index 3938d71..f1491e7 100644
--- a/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.DeleteIdentityPool
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -36,12 +36,12 @@ module Network.AWS.CognitoIdentity.DeleteIdentityPool
, DeleteIdentityPoolResponse
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the DeleteIdentityPool action.
--
@@ -49,8 +49,9 @@ import Network.AWS.Response
--
-- /See:/ 'deleteIdentityPool' smart constructor.
newtype DeleteIdentityPool = DeleteIdentityPool'
- { _dIdentityPoolId :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dIdentityPoolId :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteIdentityPool' with the minimum fields required to make a request.
--
@@ -61,9 +62,8 @@ deleteIdentityPool
:: Text -- ^ 'dIdentityPoolId'
-> DeleteIdentityPool
deleteIdentityPool pIdentityPoolId_ =
- DeleteIdentityPool'
- { _dIdentityPoolId = pIdentityPoolId_
- }
+ DeleteIdentityPool' {_dIdentityPoolId = pIdentityPoolId_}
+
-- | An identity pool ID in the format REGION:GUID.
dIdentityPoolId :: Lens' DeleteIdentityPool Text
@@ -75,9 +75,9 @@ instance AWSRequest DeleteIdentityPool where
request = postJSON cognitoIdentity
response = receiveNull DeleteIdentityPoolResponse'
-instance Hashable DeleteIdentityPool
+instance Hashable DeleteIdentityPool where
-instance NFData DeleteIdentityPool
+instance NFData DeleteIdentityPool where
instance ToHeaders DeleteIdentityPool where
toHeaders
@@ -103,8 +103,9 @@ instance ToQuery DeleteIdentityPool where
-- | /See:/ 'deleteIdentityPoolResponse' smart constructor.
data DeleteIdentityPoolResponse =
- DeleteIdentityPoolResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ DeleteIdentityPoolResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteIdentityPoolResponse' with the minimum fields required to make a request.
--
@@ -112,4 +113,5 @@ deleteIdentityPoolResponse
:: DeleteIdentityPoolResponse
deleteIdentityPoolResponse = DeleteIdentityPoolResponse'
-instance NFData DeleteIdentityPoolResponse
+
+instance NFData DeleteIdentityPoolResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs b/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs
index 73ee8f5..7eebb40 100644
--- a/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.DescribeIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -41,12 +41,12 @@ module Network.AWS.CognitoIdentity.DescribeIdentity
, idIdentityId
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @DescribeIdentity@ action.
--
@@ -54,8 +54,9 @@ import Network.AWS.Response
--
-- /See:/ 'describeIdentity' smart constructor.
newtype DescribeIdentity = DescribeIdentity'
- { _diIdentityId :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _diIdentityId :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeIdentity' with the minimum fields required to make a request.
--
@@ -65,10 +66,8 @@ newtype DescribeIdentity = DescribeIdentity'
describeIdentity
:: Text -- ^ 'diIdentityId'
-> DescribeIdentity
-describeIdentity pIdentityId_ =
- DescribeIdentity'
- { _diIdentityId = pIdentityId_
- }
+describeIdentity pIdentityId_ = DescribeIdentity' {_diIdentityId = pIdentityId_}
+
-- | A unique identifier in the format REGION:GUID.
diIdentityId :: Lens' DescribeIdentity Text
@@ -79,9 +78,9 @@ instance AWSRequest DescribeIdentity where
request = postJSON cognitoIdentity
response = receiveJSON (\ s h x -> eitherParseJSON x)
-instance Hashable DescribeIdentity
+instance Hashable DescribeIdentity where
-instance NFData DescribeIdentity
+instance NFData DescribeIdentity where
instance ToHeaders DescribeIdentity where
toHeaders
diff --git a/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs
index 6be482b..b39eae6 100644
--- a/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.DescribeIdentityPool
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -45,19 +45,22 @@ module Network.AWS.CognitoIdentity.DescribeIdentityPool
, ipAllowUnauthenticatedIdentities
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the DescribeIdentityPool action.
--
+--
+--
-- /See:/ 'describeIdentityPool' smart constructor.
newtype DescribeIdentityPool = DescribeIdentityPool'
- { _dipIdentityPoolId :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dipIdentityPoolId :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeIdentityPool' with the minimum fields required to make a request.
--
@@ -68,9 +71,8 @@ describeIdentityPool
:: Text -- ^ 'dipIdentityPoolId'
-> DescribeIdentityPool
describeIdentityPool pIdentityPoolId_ =
- DescribeIdentityPool'
- { _dipIdentityPoolId = pIdentityPoolId_
- }
+ DescribeIdentityPool' {_dipIdentityPoolId = pIdentityPoolId_}
+
-- | An identity pool ID in the format REGION:GUID.
dipIdentityPoolId :: Lens' DescribeIdentityPool Text
@@ -81,9 +83,9 @@ instance AWSRequest DescribeIdentityPool where
request = postJSON cognitoIdentity
response = receiveJSON (\ s h x -> eitherParseJSON x)
-instance Hashable DescribeIdentityPool
+instance Hashable DescribeIdentityPool where
-instance NFData DescribeIdentityPool
+instance NFData DescribeIdentityPool where
instance ToHeaders DescribeIdentityPool where
toHeaders
diff --git a/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs b/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
index e647558..0cce641 100644
--- a/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.GetCredentialsForIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -42,12 +42,12 @@ module Network.AWS.CognitoIdentity.GetCredentialsForIdentity
, gcfirsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @GetCredentialsForIdentity@ action.
--
@@ -55,10 +55,11 @@ import Network.AWS.Response
--
-- /See:/ 'getCredentialsForIdentity' smart constructor.
data GetCredentialsForIdentity = GetCredentialsForIdentity'
- { _gcfiCustomRoleARN :: !(Maybe Text)
- , _gcfiLogins :: !(Maybe (Map Text Text))
- , _gcfiIdentityId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gcfiCustomRoleARN :: !(Maybe Text)
+ , _gcfiLogins :: !(Maybe (Map Text Text))
+ , _gcfiIdentityId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetCredentialsForIdentity' with the minimum fields required to make a request.
--
@@ -73,11 +74,12 @@ getCredentialsForIdentity
:: Text -- ^ 'gcfiIdentityId'
-> GetCredentialsForIdentity
getCredentialsForIdentity pIdentityId_ =
- GetCredentialsForIdentity'
- { _gcfiCustomRoleARN = Nothing
- , _gcfiLogins = Nothing
- , _gcfiIdentityId = pIdentityId_
- }
+ GetCredentialsForIdentity'
+ { _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)
@@ -102,9 +104,9 @@ instance AWSRequest GetCredentialsForIdentity where
(x .?> "Credentials") <*> (x .?> "IdentityId") <*>
(pure (fromEnum s)))
-instance Hashable GetCredentialsForIdentity
+instance Hashable GetCredentialsForIdentity where
-instance NFData GetCredentialsForIdentity
+instance NFData GetCredentialsForIdentity where
instance ToHeaders GetCredentialsForIdentity where
toHeaders
@@ -136,10 +138,11 @@ instance ToQuery GetCredentialsForIdentity where
--
-- /See:/ 'getCredentialsForIdentityResponse' smart constructor.
data GetCredentialsForIdentityResponse = GetCredentialsForIdentityResponse'
- { _gcfirsCredentials :: !(Maybe Credentials)
- , _gcfirsIdentityId :: !(Maybe Text)
- , _gcfirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gcfirsCredentials :: !(Maybe Credentials)
+ , _gcfirsIdentityId :: !(Maybe Text)
+ , _gcfirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetCredentialsForIdentityResponse' with the minimum fields required to make a request.
--
@@ -154,11 +157,12 @@ getCredentialsForIdentityResponse
:: Int -- ^ 'gcfirsResponseStatus'
-> GetCredentialsForIdentityResponse
getCredentialsForIdentityResponse pResponseStatus_ =
- GetCredentialsForIdentityResponse'
- { _gcfirsCredentials = Nothing
- , _gcfirsIdentityId = Nothing
- , _gcfirsResponseStatus = pResponseStatus_
- }
+ GetCredentialsForIdentityResponse'
+ { _gcfirsCredentials = Nothing
+ , _gcfirsIdentityId = Nothing
+ , _gcfirsResponseStatus = pResponseStatus_
+ }
+
-- | Credentials for the provided identity ID.
gcfirsCredentials :: Lens' GetCredentialsForIdentityResponse (Maybe Credentials)
@@ -173,3 +177,4 @@ gcfirsResponseStatus :: Lens' GetCredentialsForIdentityResponse Int
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 10e9d67..6242ed6 100644
--- a/gen/Network/AWS/CognitoIdentity/GetId.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetId.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.GetId
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -41,21 +41,24 @@ module Network.AWS.CognitoIdentity.GetId
, girsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the GetId action.
--
+--
+--
-- /See:/ 'getId' smart constructor.
data GetId = GetId'
- { _giAccountId :: !(Maybe Text)
- , _giLogins :: !(Maybe (Map Text Text))
- , _giIdentityPoolId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _giAccountId :: !(Maybe Text)
+ , _giLogins :: !(Maybe (Map Text Text))
+ , _giIdentityPoolId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetId' with the minimum fields required to make a request.
--
@@ -63,24 +66,25 @@ data GetId = GetId'
--
-- * 'giAccountId' - A standard AWS account ID (9+ digits).
--
--- * 'giLogins' - 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@ * Google: @accounts.google.com@ * Amazon: @www.amazon.com@ * Twitter: @api.twitter.com@ * Digits: @www.digits.com@
+-- * 'giLogins' - 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@
--
-- * 'giIdentityPoolId' - An identity pool ID in the format REGION:GUID.
getId
:: Text -- ^ 'giIdentityPoolId'
-> GetId
getId pIdentityPoolId_ =
- GetId'
- { _giAccountId = Nothing
- , _giLogins = Nothing
- , _giIdentityPoolId = pIdentityPoolId_
- }
+ GetId'
+ { _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});
--- | 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@ * Google: @accounts.google.com@ * Amazon: @www.amazon.com@ * Twitter: @api.twitter.com@ * Digits: @www.digits.com@
+-- | 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;
@@ -97,9 +101,9 @@ instance AWSRequest GetId where
GetIdResponse' <$>
(x .?> "IdentityId") <*> (pure (fromEnum s)))
-instance Hashable GetId
+instance Hashable GetId where
-instance NFData GetId
+instance NFData GetId where
instance ToHeaders GetId where
toHeaders
@@ -126,11 +130,14 @@ instance ToQuery GetId where
-- | Returned in response to a GetId request.
--
+--
+--
-- /See:/ 'getIdResponse' smart constructor.
data GetIdResponse = GetIdResponse'
- { _girsIdentityId :: !(Maybe Text)
- , _girsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _girsIdentityId :: !(Maybe Text)
+ , _girsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetIdResponse' with the minimum fields required to make a request.
--
@@ -143,10 +150,9 @@ getIdResponse
:: Int -- ^ 'girsResponseStatus'
-> GetIdResponse
getIdResponse pResponseStatus_ =
- GetIdResponse'
- { _girsIdentityId = Nothing
- , _girsResponseStatus = pResponseStatus_
- }
+ GetIdResponse'
+ {_girsIdentityId = Nothing, _girsResponseStatus = pResponseStatus_}
+
-- | A unique identifier in the format REGION:GUID.
girsIdentityId :: Lens' GetIdResponse (Maybe Text)
@@ -156,4 +162,4 @@ girsIdentityId = lens _girsIdentityId (\ s a -> s{_girsIdentityId = a});
girsResponseStatus :: Lens' GetIdResponse Int
girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a});
-instance NFData GetIdResponse
+instance NFData GetIdResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs b/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
index fa19e33..f6ff196 100644
--- a/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.GetIdentityPoolRoles
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,15 +37,16 @@ module Network.AWS.CognitoIdentity.GetIdentityPoolRoles
-- * Response Lenses
, giprrsRoles
, giprrsIdentityPoolId
+ , giprrsRoleMappings
, giprrsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @GetIdentityPoolRoles@ action.
--
@@ -53,8 +54,9 @@ import Network.AWS.Response
--
-- /See:/ 'getIdentityPoolRoles' smart constructor.
newtype GetIdentityPoolRoles = GetIdentityPoolRoles'
- { _giprIdentityPoolId :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _giprIdentityPoolId :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetIdentityPoolRoles' with the minimum fields required to make a request.
--
@@ -65,9 +67,8 @@ getIdentityPoolRoles
:: Text -- ^ 'giprIdentityPoolId'
-> GetIdentityPoolRoles
getIdentityPoolRoles pIdentityPoolId_ =
- GetIdentityPoolRoles'
- { _giprIdentityPoolId = pIdentityPoolId_
- }
+ GetIdentityPoolRoles' {_giprIdentityPoolId = pIdentityPoolId_}
+
-- | An identity pool ID in the format REGION:GUID.
giprIdentityPoolId :: Lens' GetIdentityPoolRoles Text
@@ -83,11 +84,12 @@ instance AWSRequest GetIdentityPoolRoles where
GetIdentityPoolRolesResponse' <$>
(x .?> "Roles" .!@ mempty) <*>
(x .?> "IdentityPoolId")
+ <*> (x .?> "RoleMappings" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable GetIdentityPoolRoles
+instance Hashable GetIdentityPoolRoles where
-instance NFData GetIdentityPoolRoles
+instance NFData GetIdentityPoolRoles where
instance ToHeaders GetIdentityPoolRoles where
toHeaders
@@ -117,10 +119,12 @@ instance ToQuery GetIdentityPoolRoles where
--
-- /See:/ 'getIdentityPoolRolesResponse' smart constructor.
data GetIdentityPoolRolesResponse = GetIdentityPoolRolesResponse'
- { _giprrsRoles :: !(Maybe (Map Text Text))
- , _giprrsIdentityPoolId :: !(Maybe Text)
- , _giprrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _giprrsRoles :: !(Maybe (Map Text Text))
+ , _giprrsIdentityPoolId :: !(Maybe Text)
+ , _giprrsRoleMappings :: !(Maybe (Map Text RoleMapping))
+ , _giprrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetIdentityPoolRolesResponse' with the minimum fields required to make a request.
--
@@ -130,16 +134,20 @@ data GetIdentityPoolRolesResponse = GetIdentityPoolRolesResponse'
--
-- * 'giprrsIdentityPoolId' - An identity pool ID in the format REGION:GUID.
--
+-- * 'giprrsRoleMappings' - 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".
+--
-- * 'giprrsResponseStatus' - -- | The response status code.
getIdentityPoolRolesResponse
:: Int -- ^ 'giprrsResponseStatus'
-> GetIdentityPoolRolesResponse
getIdentityPoolRolesResponse pResponseStatus_ =
- GetIdentityPoolRolesResponse'
- { _giprrsRoles = Nothing
- , _giprrsIdentityPoolId = Nothing
- , _giprrsResponseStatus = pResponseStatus_
- }
+ GetIdentityPoolRolesResponse'
+ { _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)
@@ -149,8 +157,12 @@ giprrsRoles = lens _giprrsRoles (\ s a -> s{_giprrsRoles = a}) . _Default . _Map
giprrsIdentityPoolId :: Lens' GetIdentityPoolRolesResponse (Maybe Text)
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;
+
-- | -- | The response status code.
giprrsResponseStatus :: Lens' GetIdentityPoolRolesResponse Int
giprrsResponseStatus = lens _giprrsResponseStatus (\ s a -> s{_giprrsResponseStatus = a});
-instance NFData GetIdentityPoolRolesResponse
+instance NFData GetIdentityPoolRolesResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs b/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
index 5462f00..78d44fb 100644
--- a/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.GetOpenIdToken
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -43,38 +43,39 @@ module Network.AWS.CognitoIdentity.GetOpenIdToken
, goitrsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the GetOpenIdToken action.
--
+--
+--
-- /See:/ 'getOpenIdToken' smart constructor.
data GetOpenIdToken = GetOpenIdToken'
- { _goitLogins :: !(Maybe (Map Text Text))
- , _goitIdentityId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _goitLogins :: !(Maybe (Map Text Text))
+ , _goitIdentityId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetOpenIdToken' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'goitLogins' - 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 or any other OpenId Connect provider, always include the id_token.
+-- * 'goitLogins' - 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@ .
--
-- * 'goitIdentityId' - A unique identifier in the format REGION:GUID.
getOpenIdToken
:: Text -- ^ 'goitIdentityId'
-> GetOpenIdToken
getOpenIdToken pIdentityId_ =
- GetOpenIdToken'
- { _goitLogins = Nothing
- , _goitIdentityId = pIdentityId_
- }
+ GetOpenIdToken' {_goitLogins = Nothing, _goitIdentityId = 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 or any other OpenId Connect provider, always include the id_token.
+-- | 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;
@@ -92,9 +93,9 @@ instance AWSRequest GetOpenIdToken where
(x .?> "Token") <*> (x .?> "IdentityId") <*>
(pure (fromEnum s)))
-instance Hashable GetOpenIdToken
+instance Hashable GetOpenIdToken where
-instance NFData GetOpenIdToken
+instance NFData GetOpenIdToken where
instance ToHeaders GetOpenIdToken where
toHeaders
@@ -121,12 +122,15 @@ instance ToQuery GetOpenIdToken where
-- | Returned in response to a successful GetOpenIdToken request.
--
+--
+--
-- /See:/ 'getOpenIdTokenResponse' smart constructor.
data GetOpenIdTokenResponse = GetOpenIdTokenResponse'
- { _goitrsToken :: !(Maybe Text)
- , _goitrsIdentityId :: !(Maybe Text)
- , _goitrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _goitrsToken :: !(Maybe Text)
+ , _goitrsIdentityId :: !(Maybe Text)
+ , _goitrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetOpenIdTokenResponse' with the minimum fields required to make a request.
--
@@ -141,11 +145,12 @@ getOpenIdTokenResponse
:: Int -- ^ 'goitrsResponseStatus'
-> GetOpenIdTokenResponse
getOpenIdTokenResponse pResponseStatus_ =
- GetOpenIdTokenResponse'
- { _goitrsToken = Nothing
- , _goitrsIdentityId = Nothing
- , _goitrsResponseStatus = pResponseStatus_
- }
+ GetOpenIdTokenResponse'
+ { _goitrsToken = Nothing
+ , _goitrsIdentityId = Nothing
+ , _goitrsResponseStatus = pResponseStatus_
+ }
+
-- | An OpenID token, valid for 15 minutes.
goitrsToken :: Lens' GetOpenIdTokenResponse (Maybe Text)
@@ -159,4 +164,4 @@ goitrsIdentityId = lens _goitrsIdentityId (\ s a -> s{_goitrsIdentityId = a});
goitrsResponseStatus :: Lens' GetOpenIdTokenResponse Int
goitrsResponseStatus = lens _goitrsResponseStatus (\ s a -> s{_goitrsResponseStatus = a});
-instance NFData GetOpenIdTokenResponse
+instance NFData GetOpenIdTokenResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
index dc9ece3..568f70a 100644
--- a/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -45,12 +45,12 @@ module Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity
, goitfdirsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @GetOpenIdTokenForDeveloperIdentity@ action.
--
@@ -58,11 +58,12 @@ import Network.AWS.Response
--
-- /See:/ 'getOpenIdTokenForDeveloperIdentity' smart constructor.
data GetOpenIdTokenForDeveloperIdentity = GetOpenIdTokenForDeveloperIdentity'
- { _goitfdiTokenDuration :: !(Maybe Nat)
- , _goitfdiIdentityId :: !(Maybe Text)
- , _goitfdiIdentityPoolId :: !Text
- , _goitfdiLogins :: !(Map Text Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _goitfdiTokenDuration :: !(Maybe Nat)
+ , _goitfdiIdentityId :: !(Maybe Text)
+ , _goitfdiIdentityPoolId :: !Text
+ , _goitfdiLogins :: !(Map Text Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetOpenIdTokenForDeveloperIdentity' with the minimum fields required to make a request.
--
@@ -79,12 +80,13 @@ getOpenIdTokenForDeveloperIdentity
:: Text -- ^ 'goitfdiIdentityPoolId'
-> GetOpenIdTokenForDeveloperIdentity
getOpenIdTokenForDeveloperIdentity pIdentityPoolId_ =
- GetOpenIdTokenForDeveloperIdentity'
- { _goitfdiTokenDuration = Nothing
- , _goitfdiIdentityId = Nothing
- , _goitfdiIdentityPoolId = pIdentityPoolId_
- , _goitfdiLogins = mempty
- }
+ GetOpenIdTokenForDeveloperIdentity'
+ { _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)
@@ -103,7 +105,8 @@ goitfdiLogins :: Lens' GetOpenIdTokenForDeveloperIdentity (HashMap Text Text)
goitfdiLogins = lens _goitfdiLogins (\ s a -> s{_goitfdiLogins = a}) . _Map;
instance AWSRequest
- GetOpenIdTokenForDeveloperIdentity where
+ GetOpenIdTokenForDeveloperIdentity
+ where
type Rs GetOpenIdTokenForDeveloperIdentity =
GetOpenIdTokenForDeveloperIdentityResponse
request = postJSON cognitoIdentity
@@ -115,8 +118,10 @@ instance AWSRequest
(pure (fromEnum s)))
instance Hashable GetOpenIdTokenForDeveloperIdentity
+ where
instance NFData GetOpenIdTokenForDeveloperIdentity
+ where
instance ToHeaders GetOpenIdTokenForDeveloperIdentity
where
@@ -153,10 +158,11 @@ instance ToQuery GetOpenIdTokenForDeveloperIdentity
--
-- /See:/ 'getOpenIdTokenForDeveloperIdentityResponse' smart constructor.
data GetOpenIdTokenForDeveloperIdentityResponse = GetOpenIdTokenForDeveloperIdentityResponse'
- { _goitfdirsToken :: !(Maybe Text)
- , _goitfdirsIdentityId :: !(Maybe Text)
- , _goitfdirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _goitfdirsToken :: !(Maybe Text)
+ , _goitfdirsIdentityId :: !(Maybe Text)
+ , _goitfdirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetOpenIdTokenForDeveloperIdentityResponse' with the minimum fields required to make a request.
--
@@ -171,11 +177,12 @@ getOpenIdTokenForDeveloperIdentityResponse
:: Int -- ^ 'goitfdirsResponseStatus'
-> GetOpenIdTokenForDeveloperIdentityResponse
getOpenIdTokenForDeveloperIdentityResponse pResponseStatus_ =
- GetOpenIdTokenForDeveloperIdentityResponse'
- { _goitfdirsToken = Nothing
- , _goitfdirsIdentityId = Nothing
- , _goitfdirsResponseStatus = pResponseStatus_
- }
+ GetOpenIdTokenForDeveloperIdentityResponse'
+ { _goitfdirsToken = Nothing
+ , _goitfdirsIdentityId = Nothing
+ , _goitfdirsResponseStatus = pResponseStatus_
+ }
+
-- | An OpenID token.
goitfdirsToken :: Lens' GetOpenIdTokenForDeveloperIdentityResponse (Maybe Text)
@@ -190,4 +197,5 @@ goitfdirsResponseStatus :: Lens' GetOpenIdTokenForDeveloperIdentityResponse Int
goitfdirsResponseStatus = lens _goitfdirsResponseStatus (\ s a -> s{_goitfdirsResponseStatus = a});
instance NFData
- GetOpenIdTokenForDeveloperIdentityResponse
+ GetOpenIdTokenForDeveloperIdentityResponse
+ where
diff --git a/gen/Network/AWS/CognitoIdentity/ListIdentities.hs b/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
index 05a43ce..abbb69d 100644
--- a/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/ListIdentities.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.ListIdentities
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -44,22 +44,25 @@ module Network.AWS.CognitoIdentity.ListIdentities
, lirsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the ListIdentities action.
--
+--
+--
-- /See:/ 'listIdentities' smart constructor.
data ListIdentities = ListIdentities'
- { _liHideDisabled :: !(Maybe Bool)
- , _liNextToken :: !(Maybe Text)
- , _liIdentityPoolId :: !Text
- , _liMaxResults :: !Nat
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _liHideDisabled :: !(Maybe Bool)
+ , _liNextToken :: !(Maybe Text)
+ , _liIdentityPoolId :: !Text
+ , _liMaxResults :: !Nat
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListIdentities' with the minimum fields required to make a request.
--
@@ -77,12 +80,13 @@ listIdentities
-> Natural -- ^ 'liMaxResults'
-> ListIdentities
listIdentities pIdentityPoolId_ pMaxResults_ =
- ListIdentities'
- { _liHideDisabled = Nothing
- , _liNextToken = Nothing
- , _liIdentityPoolId = pIdentityPoolId_
- , _liMaxResults = _Nat # pMaxResults_
- }
+ ListIdentities'
+ { _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)
@@ -111,9 +115,9 @@ instance AWSRequest ListIdentities where
(x .?> "Identities" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListIdentities
+instance Hashable ListIdentities where
-instance NFData ListIdentities
+instance NFData ListIdentities where
instance ToHeaders ListIdentities where
toHeaders
@@ -142,13 +146,16 @@ instance ToQuery ListIdentities where
-- | The response to a ListIdentities request.
--
+--
+--
-- /See:/ 'listIdentitiesResponse' smart constructor.
data ListIdentitiesResponse = ListIdentitiesResponse'
- { _lirsIdentityPoolId :: !(Maybe Text)
- , _lirsNextToken :: !(Maybe Text)
- , _lirsIdentities :: !(Maybe [IdentityDescription])
- , _lirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lirsIdentityPoolId :: !(Maybe Text)
+ , _lirsNextToken :: !(Maybe Text)
+ , _lirsIdentities :: !(Maybe [IdentityDescription])
+ , _lirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListIdentitiesResponse' with the minimum fields required to make a request.
--
@@ -165,12 +172,13 @@ listIdentitiesResponse
:: Int -- ^ 'lirsResponseStatus'
-> ListIdentitiesResponse
listIdentitiesResponse pResponseStatus_ =
- ListIdentitiesResponse'
- { _lirsIdentityPoolId = Nothing
- , _lirsNextToken = Nothing
- , _lirsIdentities = Nothing
- , _lirsResponseStatus = pResponseStatus_
- }
+ ListIdentitiesResponse'
+ { _lirsIdentityPoolId = Nothing
+ , _lirsNextToken = Nothing
+ , _lirsIdentities = Nothing
+ , _lirsResponseStatus = pResponseStatus_
+ }
+
-- | An identity pool ID in the format REGION:GUID.
lirsIdentityPoolId :: Lens' ListIdentitiesResponse (Maybe Text)
@@ -188,4 +196,4 @@ lirsIdentities = lens _lirsIdentities (\ s a -> s{_lirsIdentities = a}) . _Defau
lirsResponseStatus :: Lens' ListIdentitiesResponse Int
lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});
-instance NFData ListIdentitiesResponse
+instance NFData ListIdentitiesResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs b/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
index 7c66bf0..515a45a 100644
--- a/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
+++ b/gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.ListIdentityPools
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -41,20 +41,23 @@ module Network.AWS.CognitoIdentity.ListIdentityPools
, liprsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the ListIdentityPools action.
--
+--
+--
-- /See:/ 'listIdentityPools' smart constructor.
data ListIdentityPools = ListIdentityPools'
- { _lipNextToken :: !(Maybe Text)
- , _lipMaxResults :: !Nat
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lipNextToken :: !(Maybe Text)
+ , _lipMaxResults :: !Nat
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListIdentityPools' with the minimum fields required to make a request.
--
@@ -67,10 +70,9 @@ listIdentityPools
:: Natural -- ^ 'lipMaxResults'
-> ListIdentityPools
listIdentityPools pMaxResults_ =
- ListIdentityPools'
- { _lipNextToken = Nothing
- , _lipMaxResults = _Nat # pMaxResults_
- }
+ ListIdentityPools'
+ {_lipNextToken = Nothing, _lipMaxResults = _Nat # pMaxResults_}
+
-- | A pagination token.
lipNextToken :: Lens' ListIdentityPools (Maybe Text)
@@ -91,9 +93,9 @@ instance AWSRequest ListIdentityPools where
(x .?> "NextToken")
<*> (pure (fromEnum s)))
-instance Hashable ListIdentityPools
+instance Hashable ListIdentityPools where
-instance NFData ListIdentityPools
+instance NFData ListIdentityPools where
instance ToHeaders ListIdentityPools where
toHeaders
@@ -120,12 +122,15 @@ instance ToQuery ListIdentityPools where
-- | The result of a successful ListIdentityPools action.
--
+--
+--
-- /See:/ 'listIdentityPoolsResponse' smart constructor.
data ListIdentityPoolsResponse = ListIdentityPoolsResponse'
- { _liprsIdentityPools :: !(Maybe [IdentityPoolShortDescription])
- , _liprsNextToken :: !(Maybe Text)
- , _liprsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _liprsIdentityPools :: !(Maybe [IdentityPoolShortDescription])
+ , _liprsNextToken :: !(Maybe Text)
+ , _liprsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListIdentityPoolsResponse' with the minimum fields required to make a request.
--
@@ -140,11 +145,12 @@ listIdentityPoolsResponse
:: Int -- ^ 'liprsResponseStatus'
-> ListIdentityPoolsResponse
listIdentityPoolsResponse pResponseStatus_ =
- ListIdentityPoolsResponse'
- { _liprsIdentityPools = Nothing
- , _liprsNextToken = Nothing
- , _liprsResponseStatus = pResponseStatus_
- }
+ ListIdentityPoolsResponse'
+ { _liprsIdentityPools = Nothing
+ , _liprsNextToken = Nothing
+ , _liprsResponseStatus = pResponseStatus_
+ }
+
-- | The identity pools returned by the ListIdentityPools action.
liprsIdentityPools :: Lens' ListIdentityPoolsResponse [IdentityPoolShortDescription]
@@ -158,4 +164,4 @@ liprsNextToken = lens _liprsNextToken (\ s a -> s{_liprsNextToken = a});
liprsResponseStatus :: Lens' ListIdentityPoolsResponse Int
liprsResponseStatus = lens _liprsResponseStatus (\ s a -> s{_liprsResponseStatus = a});
-instance NFData ListIdentityPoolsResponse
+instance NFData ListIdentityPoolsResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
index f859dfb..6e8e890 100644
--- a/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.LookupDeveloperIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -45,12 +45,12 @@ module Network.AWS.CognitoIdentity.LookupDeveloperIdentity
, ldirsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @LookupDeveloperIdentityInput@ action.
--
@@ -58,12 +58,13 @@ import Network.AWS.Response
--
-- /See:/ 'lookupDeveloperIdentity' smart constructor.
data LookupDeveloperIdentity = LookupDeveloperIdentity'
- { _ldiDeveloperUserIdentifier :: !(Maybe Text)
- , _ldiNextToken :: !(Maybe Text)
- , _ldiIdentityId :: !(Maybe Text)
- , _ldiMaxResults :: !(Maybe Nat)
- , _ldiIdentityPoolId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldiDeveloperUserIdentifier :: !(Maybe Text)
+ , _ldiNextToken :: !(Maybe Text)
+ , _ldiIdentityId :: !(Maybe Text)
+ , _ldiMaxResults :: !(Maybe Nat)
+ , _ldiIdentityPoolId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LookupDeveloperIdentity' with the minimum fields required to make a request.
--
@@ -82,13 +83,14 @@ lookupDeveloperIdentity
:: Text -- ^ 'ldiIdentityPoolId'
-> LookupDeveloperIdentity
lookupDeveloperIdentity pIdentityPoolId_ =
- LookupDeveloperIdentity'
- { _ldiDeveloperUserIdentifier = Nothing
- , _ldiNextToken = Nothing
- , _ldiIdentityId = Nothing
- , _ldiMaxResults = Nothing
- , _ldiIdentityPoolId = pIdentityPoolId_
- }
+ LookupDeveloperIdentity'
+ { _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)
@@ -122,9 +124,9 @@ instance AWSRequest LookupDeveloperIdentity where
(x .?> "DeveloperUserIdentifierList" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable LookupDeveloperIdentity
+instance Hashable LookupDeveloperIdentity where
-instance NFData LookupDeveloperIdentity
+instance NFData LookupDeveloperIdentity where
instance ToHeaders LookupDeveloperIdentity where
toHeaders
@@ -159,11 +161,12 @@ instance ToQuery LookupDeveloperIdentity where
--
-- /See:/ 'lookupDeveloperIdentityResponse' smart constructor.
data LookupDeveloperIdentityResponse = LookupDeveloperIdentityResponse'
- { _ldirsNextToken :: !(Maybe Text)
- , _ldirsIdentityId :: !(Maybe Text)
- , _ldirsDeveloperUserIdentifierList :: !(Maybe [Text])
- , _ldirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldirsNextToken :: !(Maybe Text)
+ , _ldirsIdentityId :: !(Maybe Text)
+ , _ldirsDeveloperUserIdentifierList :: !(Maybe [Text])
+ , _ldirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LookupDeveloperIdentityResponse' with the minimum fields required to make a request.
--
@@ -180,12 +183,13 @@ lookupDeveloperIdentityResponse
:: Int -- ^ 'ldirsResponseStatus'
-> LookupDeveloperIdentityResponse
lookupDeveloperIdentityResponse pResponseStatus_ =
- LookupDeveloperIdentityResponse'
- { _ldirsNextToken = Nothing
- , _ldirsIdentityId = Nothing
- , _ldirsDeveloperUserIdentifierList = Nothing
- , _ldirsResponseStatus = pResponseStatus_
- }
+ LookupDeveloperIdentityResponse'
+ { _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)
@@ -203,4 +207,4 @@ ldirsDeveloperUserIdentifierList = lens _ldirsDeveloperUserIdentifierList (\ s a
ldirsResponseStatus :: Lens' LookupDeveloperIdentityResponse Int
ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});
-instance NFData LookupDeveloperIdentityResponse
+instance NFData LookupDeveloperIdentityResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs b/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
index c753db2..9fcf5c5 100644
--- a/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
+++ b/gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.MergeDeveloperIdentities
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -42,12 +42,12 @@ module Network.AWS.CognitoIdentity.MergeDeveloperIdentities
, mdirsResponseStatus
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @MergeDeveloperIdentities@ action.
--
@@ -55,11 +55,12 @@ import Network.AWS.Response
--
-- /See:/ 'mergeDeveloperIdentities' smart constructor.
data MergeDeveloperIdentities = MergeDeveloperIdentities'
- { _mdiSourceUserIdentifier :: !Text
- , _mdiDestinationUserIdentifier :: !Text
- , _mdiDeveloperProviderName :: !Text
- , _mdiIdentityPoolId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _mdiSourceUserIdentifier :: !Text
+ , _mdiDestinationUserIdentifier :: !Text
+ , _mdiDeveloperProviderName :: !Text
+ , _mdiIdentityPoolId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MergeDeveloperIdentities' with the minimum fields required to make a request.
--
@@ -79,12 +80,13 @@ mergeDeveloperIdentities
-> Text -- ^ 'mdiIdentityPoolId'
-> MergeDeveloperIdentities
mergeDeveloperIdentities pSourceUserIdentifier_ pDestinationUserIdentifier_ pDeveloperProviderName_ pIdentityPoolId_ =
- MergeDeveloperIdentities'
- { _mdiSourceUserIdentifier = pSourceUserIdentifier_
- , _mdiDestinationUserIdentifier = pDestinationUserIdentifier_
- , _mdiDeveloperProviderName = pDeveloperProviderName_
- , _mdiIdentityPoolId = pIdentityPoolId_
- }
+ MergeDeveloperIdentities'
+ { _mdiSourceUserIdentifier = pSourceUserIdentifier_
+ , _mdiDestinationUserIdentifier = pDestinationUserIdentifier_
+ , _mdiDeveloperProviderName = pDeveloperProviderName_
+ , _mdiIdentityPoolId = pIdentityPoolId_
+ }
+
-- | User identifier for the source user. The value should be a @DeveloperUserIdentifier@ .
mdiSourceUserIdentifier :: Lens' MergeDeveloperIdentities Text
@@ -112,9 +114,9 @@ instance AWSRequest MergeDeveloperIdentities where
MergeDeveloperIdentitiesResponse' <$>
(x .?> "IdentityId") <*> (pure (fromEnum s)))
-instance Hashable MergeDeveloperIdentities
+instance Hashable MergeDeveloperIdentities where
-instance NFData MergeDeveloperIdentities
+instance NFData MergeDeveloperIdentities where
instance ToHeaders MergeDeveloperIdentities where
toHeaders
@@ -152,9 +154,10 @@ instance ToQuery MergeDeveloperIdentities where
--
-- /See:/ 'mergeDeveloperIdentitiesResponse' smart constructor.
data MergeDeveloperIdentitiesResponse = MergeDeveloperIdentitiesResponse'
- { _mdirsIdentityId :: !(Maybe Text)
- , _mdirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _mdirsIdentityId :: !(Maybe Text)
+ , _mdirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MergeDeveloperIdentitiesResponse' with the minimum fields required to make a request.
--
@@ -167,10 +170,9 @@ mergeDeveloperIdentitiesResponse
:: Int -- ^ 'mdirsResponseStatus'
-> MergeDeveloperIdentitiesResponse
mergeDeveloperIdentitiesResponse pResponseStatus_ =
- MergeDeveloperIdentitiesResponse'
- { _mdirsIdentityId = Nothing
- , _mdirsResponseStatus = pResponseStatus_
- }
+ MergeDeveloperIdentitiesResponse'
+ {_mdirsIdentityId = Nothing, _mdirsResponseStatus = pResponseStatus_}
+
-- | A unique identifier in the format REGION:GUID.
mdirsIdentityId :: Lens' MergeDeveloperIdentitiesResponse (Maybe Text)
@@ -181,3 +183,4 @@ mdirsResponseStatus :: Lens' MergeDeveloperIdentitiesResponse Int
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 0de21ed..e8c197d 100644
--- a/gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs
+++ b/gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.CognitoIdentity.SetIdentityPoolRoles
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Sets the roles for an identity pool. These roles are used when making calls to @GetCredentialsForIdentity@ action.
+-- Sets the roles for an identity pool. These roles are used when making calls to 'GetCredentialsForIdentity' action.
--
--
-- You must use AWS Developer credentials to call this API.
@@ -29,6 +29,7 @@ module Network.AWS.CognitoIdentity.SetIdentityPoolRoles
setIdentityPoolRoles
, SetIdentityPoolRoles
-- * Request Lenses
+ , siprRoleMappings
, siprIdentityPoolId
, siprRoles
@@ -37,12 +38,12 @@ module Network.AWS.CognitoIdentity.SetIdentityPoolRoles
, SetIdentityPoolRolesResponse
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @SetIdentityPoolRoles@ action.
--
@@ -50,14 +51,18 @@ import Network.AWS.Response
--
-- /See:/ 'setIdentityPoolRoles' smart constructor.
data SetIdentityPoolRoles = SetIdentityPoolRoles'
- { _siprIdentityPoolId :: !Text
- , _siprRoles :: !(Map Text Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _siprRoleMappings :: !(Maybe (Map Text RoleMapping))
+ , _siprIdentityPoolId :: !Text
+ , _siprRoles :: !(Map Text Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SetIdentityPoolRoles' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'siprRoleMappings' - 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.
+--
-- * 'siprIdentityPoolId' - An identity pool ID in the format REGION:GUID.
--
-- * 'siprRoles' - 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.
@@ -65,10 +70,16 @@ setIdentityPoolRoles
:: Text -- ^ 'siprIdentityPoolId'
-> SetIdentityPoolRoles
setIdentityPoolRoles pIdentityPoolId_ =
- SetIdentityPoolRoles'
- { _siprIdentityPoolId = pIdentityPoolId_
- , _siprRoles = mempty
- }
+ SetIdentityPoolRoles'
+ { _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;
-- | An identity pool ID in the format REGION:GUID.
siprIdentityPoolId :: Lens' SetIdentityPoolRoles Text
@@ -84,9 +95,9 @@ instance AWSRequest SetIdentityPoolRoles where
request = postJSON cognitoIdentity
response = receiveNull SetIdentityPoolRolesResponse'
-instance Hashable SetIdentityPoolRoles
+instance Hashable SetIdentityPoolRoles where
-instance NFData SetIdentityPoolRoles
+instance NFData SetIdentityPoolRoles where
instance ToHeaders SetIdentityPoolRoles where
toHeaders
@@ -102,7 +113,8 @@ instance ToJSON SetIdentityPoolRoles where
toJSON SetIdentityPoolRoles'{..}
= object
(catMaybes
- [Just ("IdentityPoolId" .= _siprIdentityPoolId),
+ [("RoleMappings" .=) <$> _siprRoleMappings,
+ Just ("IdentityPoolId" .= _siprIdentityPoolId),
Just ("Roles" .= _siprRoles)])
instance ToPath SetIdentityPoolRoles where
@@ -113,8 +125,9 @@ instance ToQuery SetIdentityPoolRoles where
-- | /See:/ 'setIdentityPoolRolesResponse' smart constructor.
data SetIdentityPoolRolesResponse =
- SetIdentityPoolRolesResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ SetIdentityPoolRolesResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SetIdentityPoolRolesResponse' with the minimum fields required to make a request.
--
@@ -122,4 +135,5 @@ setIdentityPoolRolesResponse
:: SetIdentityPoolRolesResponse
setIdentityPoolRolesResponse = SetIdentityPoolRolesResponse'
-instance NFData SetIdentityPoolRolesResponse
+
+instance NFData SetIdentityPoolRolesResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/Types.hs b/gen/Network/AWS/CognitoIdentity/Types.hs
index 455426f..bdea49b 100644
--- a/gen/Network/AWS/CognitoIdentity/Types.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types.hs
@@ -4,9 +4,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.Types
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -28,13 +28,23 @@ module Network.AWS.CognitoIdentity.Types
, _ResourceNotFoundException
, _LimitExceededException
+ -- * AmbiguousRoleResolutionType
+ , AmbiguousRoleResolutionType (..)
+
-- * CognitoErrorCode
, CognitoErrorCode (..)
+ -- * MappingRuleMatchType
+ , MappingRuleMatchType (..)
+
+ -- * RoleMappingType
+ , RoleMappingType (..)
+
-- * CognitoIdentityProvider
, CognitoIdentityProvider
, cognitoIdentityProvider
, cipClientId
+ , cipServerSideTokenCheck
, cipProviderName
-- * Credentials
@@ -71,6 +81,26 @@ module Network.AWS.CognitoIdentity.Types
, ipsdIdentityPoolId
, ipsdIdentityPoolName
+ -- * MappingRule
+ , MappingRule
+ , mappingRule
+ , mrClaim
+ , mrMatchType
+ , mrValue
+ , mrRoleARN
+
+ -- * RoleMapping
+ , RoleMapping
+ , roleMapping
+ , rmRulesConfiguration
+ , rmAmbiguousRoleResolution
+ , rmType
+
+ -- * RulesConfigurationType
+ , RulesConfigurationType
+ , rulesConfigurationType
+ , rctRules
+
-- * UnprocessedIdentityId
, UnprocessedIdentityId
, unprocessedIdentityId
@@ -78,38 +108,40 @@ module Network.AWS.CognitoIdentity.Types
, uiiIdentityId
) where
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.CognitoIdentity.Types.Sum
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Sign.V4
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.CognitoIdentity.Types.Sum
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Sign.V4
-- | API version @2014-06-30@ of the Amazon Cognito Identity SDK configuration.
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
- }
+ 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
+ }
where
retry =
- Exponential
- { _retryBase = 5.0e-2
- , _retryGrowth = 2
- , _retryAttempts = 5
- , _retryCheck = check
- }
+ Exponential
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
+ | has (hasCode "ThrottledException" . hasStatus 400) e =
+ Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
- Just "throttling_exception"
+ Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasStatus 502) e = Just "bad_gateway"
@@ -118,60 +150,91 @@ cognitoIdentity =
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
+
-- | Thrown if the identity pool has no role associated for the given auth type (auth/unauth) or if the AssumeRole fails.
--
--
_InvalidIdentityPoolConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidIdentityPoolConfigurationException =
- _ServiceError . hasCode "InvalidIdentityPoolConfigurationException"
+ _MatchServiceError cognitoIdentity "InvalidIdentityPoolConfigurationException"
+
-- | Thrown for missing or bad input parameter(s).
+--
+--
_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterException =
- _ServiceError . hasCode "InvalidParameterException"
+ _MatchServiceError cognitoIdentity "InvalidParameterException"
+
-- | Thrown when a user is not authorized to access the requested resource.
+--
+--
_NotAuthorizedException :: AsError a => Getting (First ServiceError) a ServiceError
-_NotAuthorizedException = _ServiceError . hasCode "NotAuthorizedException"
+_NotAuthorizedException =
+ _MatchServiceError cognitoIdentity "NotAuthorizedException"
+
-- | Thrown when the service encounters an error during processing the request.
+--
+--
_InternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError
-_InternalErrorException = _ServiceError . hasCode "InternalErrorException"
+_InternalErrorException =
+ _MatchServiceError cognitoIdentity "InternalErrorException"
+
-- | An exception thrown when a dependent service such as Facebook or Twitter is not responding
--
--
_ExternalServiceException :: AsError a => Getting (First ServiceError) a ServiceError
-_ExternalServiceException = _ServiceError . hasCode "ExternalServiceException"
+_ExternalServiceException =
+ _MatchServiceError cognitoIdentity "ExternalServiceException"
+
-- | Thrown when a request is throttled.
+--
+--
_TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError
-_TooManyRequestsException = _ServiceError . hasCode "TooManyRequestsException"
+_TooManyRequestsException =
+ _MatchServiceError cognitoIdentity "TooManyRequestsException"
+
-- | Thrown if there are parallel requests to modify a resource.
--
--
_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError
_ConcurrentModificationException =
- _ServiceError . hasCode "ConcurrentModificationException"
+ _MatchServiceError cognitoIdentity "ConcurrentModificationException"
+
-- | Thrown when a user tries to use a login which is already linked to another account.
+--
+--
_ResourceConflictException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceConflictException =
- _ServiceError . hasCode "ResourceConflictException"
+ _MatchServiceError cognitoIdentity "ResourceConflictException"
+
-- | The provided developer user identifier is already registered with Cognito under a different identity ID.
--
--
_DeveloperUserAlreadyRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError
_DeveloperUserAlreadyRegisteredException =
- _ServiceError . hasCode "DeveloperUserAlreadyRegisteredException"
+ _MatchServiceError cognitoIdentity "DeveloperUserAlreadyRegisteredException"
+
-- | Thrown when the requested resource (for example, a dataset or record) does not exist.
+--
+--
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
- _ServiceError . hasCode "ResourceNotFoundException"
+ _MatchServiceError cognitoIdentity "ResourceNotFoundException"
+
-- | Thrown when the total number of user pools has exceeded a preset limit.
+--
+--
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
-_LimitExceededException = _ServiceError . hasCode "LimitExceededException"
+_LimitExceededException =
+ _MatchServiceError cognitoIdentity "LimitExceededException"
+
diff --git a/gen/Network/AWS/CognitoIdentity/Types/Product.hs b/gen/Network/AWS/CognitoIdentity/Types/Product.hs
index b1e6a64..c1a8f33 100644
--- a/gen/Network/AWS/CognitoIdentity/Types/Product.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types/Product.hs
@@ -9,17 +9,17 @@
-- |
-- Module : Network.AWS.CognitoIdentity.Types.Product
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.CognitoIdentity.Types.Product where
-import Network.AWS.CognitoIdentity.Types.Sum
-import Network.AWS.Lens
-import Network.AWS.Prelude
+import Network.AWS.CognitoIdentity.Types.Sum
+import Network.AWS.Lens
+import Network.AWS.Prelude
-- | A provider representing an Amazon Cognito Identity User Pool and its client ID.
--
@@ -27,9 +27,11 @@ import Network.AWS.Prelude
--
-- /See:/ 'cognitoIdentityProvider' smart constructor.
data CognitoIdentityProvider = CognitoIdentityProvider'
- { _cipClientId :: !(Maybe Text)
- , _cipProviderName :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cipClientId :: !(Maybe Text)
+ , _cipServerSideTokenCheck :: !(Maybe Bool)
+ , _cipProviderName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CognitoIdentityProvider' with the minimum fields required to make a request.
--
@@ -37,19 +39,27 @@ data CognitoIdentityProvider = CognitoIdentityProvider'
--
-- * 'cipClientId' - The client ID for the Amazon Cognito Identity User Pool.
--
+-- * 'cipServerSideTokenCheck' - TRUE if server-side token validation is enabled for the identity provider’s token.
+--
-- * 'cipProviderName' - The provider name for an Amazon Cognito Identity User Pool. For example, @cognito-idp.us-east-1.amazonaws.com/us-east-1_123456789@ .
cognitoIdentityProvider
:: CognitoIdentityProvider
cognitoIdentityProvider =
- CognitoIdentityProvider'
- { _cipClientId = Nothing
- , _cipProviderName = Nothing
- }
+ CognitoIdentityProvider'
+ { _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});
+-- | 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});
+
-- | 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});
@@ -59,17 +69,20 @@ instance FromJSON CognitoIdentityProvider where
= withObject "CognitoIdentityProvider"
(\ x ->
CognitoIdentityProvider' <$>
- (x .:? "ClientId") <*> (x .:? "ProviderName"))
+ (x .:? "ClientId") <*> (x .:? "ServerSideTokenCheck")
+ <*> (x .:? "ProviderName"))
-instance Hashable CognitoIdentityProvider
+instance Hashable CognitoIdentityProvider where
-instance NFData CognitoIdentityProvider
+instance NFData CognitoIdentityProvider where
instance ToJSON CognitoIdentityProvider where
toJSON CognitoIdentityProvider'{..}
= object
(catMaybes
[("ClientId" .=) <$> _cipClientId,
+ ("ServerSideTokenCheck" .=) <$>
+ _cipServerSideTokenCheck,
("ProviderName" .=) <$> _cipProviderName])
-- | Credentials for the provided identity ID.
@@ -78,11 +91,12 @@ instance ToJSON CognitoIdentityProvider where
--
-- /See:/ 'credentials' smart constructor.
data Credentials = Credentials'
- { _cSessionToken :: !(Maybe Text)
- , _cExpiration :: !(Maybe POSIX)
- , _cSecretKey :: !(Maybe Text)
- , _cAccessKeyId :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cSessionToken :: !(Maybe Text)
+ , _cExpiration :: !(Maybe POSIX)
+ , _cSecretKey :: !(Maybe Text)
+ , _cAccessKeyId :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Credentials' with the minimum fields required to make a request.
--
@@ -98,12 +112,13 @@ data Credentials = Credentials'
credentials
:: Credentials
credentials =
- Credentials'
- { _cSessionToken = Nothing
- , _cExpiration = Nothing
- , _cSecretKey = Nothing
- , _cAccessKeyId = Nothing
- }
+ Credentials'
+ { _cSessionToken = Nothing
+ , _cExpiration = Nothing
+ , _cSecretKey = Nothing
+ , _cAccessKeyId = Nothing
+ }
+
-- | The Session Token portion of the credentials
cSessionToken :: Lens' Credentials (Maybe Text)
@@ -130,19 +145,22 @@ instance FromJSON Credentials where
(x .:? "SecretKey")
<*> (x .:? "AccessKeyId"))
-instance Hashable Credentials
+instance Hashable Credentials where
-instance NFData Credentials
+instance NFData Credentials where
-- | A description of the identity.
--
+--
+--
-- /See:/ 'identityDescription' smart constructor.
data IdentityDescription = IdentityDescription'
- { _idLastModifiedDate :: !(Maybe POSIX)
- , _idCreationDate :: !(Maybe POSIX)
- , _idLogins :: !(Maybe [Text])
- , _idIdentityId :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _idLastModifiedDate :: !(Maybe POSIX)
+ , _idCreationDate :: !(Maybe POSIX)
+ , _idLogins :: !(Maybe [Text])
+ , _idIdentityId :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'IdentityDescription' with the minimum fields required to make a request.
--
@@ -158,12 +176,13 @@ data IdentityDescription = IdentityDescription'
identityDescription
:: IdentityDescription
identityDescription =
- IdentityDescription'
- { _idLastModifiedDate = Nothing
- , _idCreationDate = Nothing
- , _idLogins = Nothing
- , _idIdentityId = Nothing
- }
+ IdentityDescription'
+ { _idLastModifiedDate = Nothing
+ , _idCreationDate = Nothing
+ , _idLogins = Nothing
+ , _idIdentityId = Nothing
+ }
+
-- | Date on which the identity was last modified.
idLastModifiedDate :: Lens' IdentityDescription (Maybe UTCTime)
@@ -190,23 +209,26 @@ instance FromJSON IdentityDescription where
<*> (x .:? "Logins" .!= mempty)
<*> (x .:? "IdentityId"))
-instance Hashable IdentityDescription
+instance Hashable IdentityDescription where
-instance NFData IdentityDescription
+instance NFData IdentityDescription where
--- | An object representing a Cognito identity pool.
+-- | An object representing an Amazon Cognito identity pool.
+--
+--
--
-- /See:/ 'identityPool' smart constructor.
data IdentityPool = IdentityPool'
- { _ipSamlProviderARNs :: !(Maybe [Text])
- , _ipSupportedLoginProviders :: !(Maybe (Map Text Text))
- , _ipDeveloperProviderName :: !(Maybe Text)
- , _ipOpenIdConnectProviderARNs :: !(Maybe [Text])
- , _ipCognitoIdentityProviders :: !(Maybe [CognitoIdentityProvider])
- , _ipIdentityPoolId :: !Text
- , _ipIdentityPoolName :: !Text
- , _ipAllowUnauthenticatedIdentities :: !Bool
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ipSamlProviderARNs :: !(Maybe [Text])
+ , _ipSupportedLoginProviders :: !(Maybe (Map Text Text))
+ , _ipDeveloperProviderName :: !(Maybe Text)
+ , _ipOpenIdConnectProviderARNs :: !(Maybe [Text])
+ , _ipCognitoIdentityProviders :: !(Maybe [CognitoIdentityProvider])
+ , _ipIdentityPoolId :: !Text
+ , _ipIdentityPoolName :: !Text
+ , _ipAllowUnauthenticatedIdentities :: !Bool
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'IdentityPool' with the minimum fields required to make a request.
--
@@ -233,16 +255,17 @@ identityPool
-> Bool -- ^ 'ipAllowUnauthenticatedIdentities'
-> IdentityPool
identityPool pIdentityPoolId_ pIdentityPoolName_ pAllowUnauthenticatedIdentities_ =
- IdentityPool'
- { _ipSamlProviderARNs = Nothing
- , _ipSupportedLoginProviders = Nothing
- , _ipDeveloperProviderName = Nothing
- , _ipOpenIdConnectProviderARNs = Nothing
- , _ipCognitoIdentityProviders = Nothing
- , _ipIdentityPoolId = pIdentityPoolId_
- , _ipIdentityPoolName = pIdentityPoolName_
- , _ipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_
- }
+ IdentityPool'
+ { _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]
@@ -290,9 +313,9 @@ instance FromJSON IdentityPool where
<*> (x .: "IdentityPoolName")
<*> (x .: "AllowUnauthenticatedIdentities"))
-instance Hashable IdentityPool
+instance Hashable IdentityPool where
-instance NFData IdentityPool
+instance NFData IdentityPool where
instance ToJSON IdentityPool where
toJSON IdentityPool'{..}
@@ -315,11 +338,14 @@ instance ToJSON IdentityPool where
-- | A description of the identity pool.
--
+--
+--
-- /See:/ 'identityPoolShortDescription' smart constructor.
data IdentityPoolShortDescription = IdentityPoolShortDescription'
- { _ipsdIdentityPoolId :: !(Maybe Text)
- , _ipsdIdentityPoolName :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ipsdIdentityPoolId :: !(Maybe Text)
+ , _ipsdIdentityPoolName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'IdentityPoolShortDescription' with the minimum fields required to make a request.
--
@@ -331,10 +357,9 @@ data IdentityPoolShortDescription = IdentityPoolShortDescription'
identityPoolShortDescription
:: IdentityPoolShortDescription
identityPoolShortDescription =
- IdentityPoolShortDescription'
- { _ipsdIdentityPoolId = Nothing
- , _ipsdIdentityPoolName = Nothing
- }
+ IdentityPoolShortDescription'
+ {_ipsdIdentityPoolId = Nothing, _ipsdIdentityPoolName = Nothing}
+
-- | An identity pool ID in the format REGION:GUID.
ipsdIdentityPoolId :: Lens' IdentityPoolShortDescription (Maybe Text)
@@ -352,9 +377,191 @@ instance FromJSON IdentityPoolShortDescription where
(x .:? "IdentityPoolId") <*>
(x .:? "IdentityPoolName"))
-instance Hashable IdentityPoolShortDescription
+instance Hashable IdentityPoolShortDescription where
+
+instance NFData IdentityPoolShortDescription where
+
+-- | A rule that maps a claim name, a claim value, and a match type to a role ARN.
+--
+--
+--
+-- /See:/ 'mappingRule' smart constructor.
+data MappingRule = MappingRule'
+ { _mrClaim :: !Text
+ , _mrMatchType :: !MappingRuleMatchType
+ , _mrValue :: !Text
+ , _mrRoleARN :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'MappingRule' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'mrClaim' - The claim name that must be present in the token, for example, "isAdmin" or "paid".
+--
+-- * 'mrMatchType' - The match condition that specifies how closely the claim value in the IdP token must match @Value@ .
+--
+-- * 'mrValue' - A brief string that the claim must match, for example, "paid" or "yes".
+--
+-- * 'mrRoleARN' - The role ARN.
+mappingRule
+ :: Text -- ^ 'mrClaim'
+ -> MappingRuleMatchType -- ^ 'mrMatchType'
+ -> Text -- ^ 'mrValue'
+ -> Text -- ^ 'mrRoleARN'
+ -> MappingRule
+mappingRule pClaim_ pMatchType_ pValue_ pRoleARN_ =
+ MappingRule'
+ { _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});
+
+-- | 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});
+
+-- | 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});
+
+-- | The role ARN.
+mrRoleARN :: Lens' MappingRule Text
+mrRoleARN = lens _mrRoleARN (\ s a -> s{_mrRoleARN = a});
+
+instance FromJSON MappingRule where
+ parseJSON
+ = withObject "MappingRule"
+ (\ x ->
+ MappingRule' <$>
+ (x .: "Claim") <*> (x .: "MatchType") <*>
+ (x .: "Value")
+ <*> (x .: "RoleARN"))
+
+instance Hashable MappingRule where
+
+instance NFData MappingRule where
+
+instance ToJSON MappingRule where
+ toJSON MappingRule'{..}
+ = object
+ (catMaybes
+ [Just ("Claim" .= _mrClaim),
+ Just ("MatchType" .= _mrMatchType),
+ Just ("Value" .= _mrValue),
+ Just ("RoleARN" .= _mrRoleARN)])
+
+-- | A role mapping.
+--
+--
+--
+-- /See:/ 'roleMapping' smart constructor.
+data RoleMapping = RoleMapping'
+ { _rmRulesConfiguration :: !(Maybe RulesConfigurationType)
+ , _rmAmbiguousRoleResolution :: !(Maybe AmbiguousRoleResolutionType)
+ , _rmType :: !RoleMappingType
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'RoleMapping' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rmRulesConfiguration' - The rules to be used for mapping users to roles. If you specify Rules as the role mapping type, @RulesConfiguration@ is required.
+--
+-- * 'rmAmbiguousRoleResolution' - 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.
+--
+-- * 'rmType' - 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.
+roleMapping
+ :: RoleMappingType -- ^ 'rmType'
+ -> RoleMapping
+roleMapping pType_ =
+ RoleMapping'
+ { _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});
+
+-- | 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});
+
+-- | 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});
+
+instance FromJSON RoleMapping where
+ parseJSON
+ = withObject "RoleMapping"
+ (\ x ->
+ RoleMapping' <$>
+ (x .:? "RulesConfiguration") <*>
+ (x .:? "AmbiguousRoleResolution")
+ <*> (x .: "Type"))
+
+instance Hashable RoleMapping where
-instance NFData IdentityPoolShortDescription
+instance NFData RoleMapping where
+
+instance ToJSON RoleMapping where
+ toJSON RoleMapping'{..}
+ = object
+ (catMaybes
+ [("RulesConfiguration" .=) <$> _rmRulesConfiguration,
+ ("AmbiguousRoleResolution" .=) <$>
+ _rmAmbiguousRoleResolution,
+ Just ("Type" .= _rmType)])
+
+-- | A container for rules.
+--
+--
+--
+-- /See:/ 'rulesConfigurationType' smart constructor.
+newtype RulesConfigurationType = RulesConfigurationType'
+ { _rctRules :: List1 MappingRule
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'RulesConfigurationType' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rctRules' - 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.
+rulesConfigurationType
+ :: NonEmpty MappingRule -- ^ 'rctRules'
+ -> RulesConfigurationType
+rulesConfigurationType pRules_ =
+ RulesConfigurationType' {_rctRules = _List1 # 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;
+
+instance FromJSON RulesConfigurationType where
+ parseJSON
+ = withObject "RulesConfigurationType"
+ (\ x -> RulesConfigurationType' <$> (x .: "Rules"))
+
+instance Hashable RulesConfigurationType where
+
+instance NFData RulesConfigurationType where
+
+instance ToJSON RulesConfigurationType where
+ toJSON RulesConfigurationType'{..}
+ = object (catMaybes [Just ("Rules" .= _rctRules)])
-- | An array of UnprocessedIdentityId objects, each of which contains an ErrorCode and IdentityId.
--
@@ -362,9 +569,10 @@ instance NFData IdentityPoolShortDescription
--
-- /See:/ 'unprocessedIdentityId' smart constructor.
data UnprocessedIdentityId = UnprocessedIdentityId'
- { _uiiErrorCode :: !(Maybe CognitoErrorCode)
- , _uiiIdentityId :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _uiiErrorCode :: !(Maybe CognitoErrorCode)
+ , _uiiIdentityId :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UnprocessedIdentityId' with the minimum fields required to make a request.
--
@@ -376,10 +584,8 @@ data UnprocessedIdentityId = UnprocessedIdentityId'
unprocessedIdentityId
:: UnprocessedIdentityId
unprocessedIdentityId =
- UnprocessedIdentityId'
- { _uiiErrorCode = Nothing
- , _uiiIdentityId = Nothing
- }
+ UnprocessedIdentityId' {_uiiErrorCode = Nothing, _uiiIdentityId = Nothing}
+
-- | The error code indicating the type of error that occurred.
uiiErrorCode :: Lens' UnprocessedIdentityId (Maybe CognitoErrorCode)
@@ -396,6 +602,6 @@ instance FromJSON UnprocessedIdentityId where
UnprocessedIdentityId' <$>
(x .:? "ErrorCode") <*> (x .:? "IdentityId"))
-instance Hashable UnprocessedIdentityId
+instance Hashable UnprocessedIdentityId where
-instance NFData UnprocessedIdentityId
+instance NFData UnprocessedIdentityId where
diff --git a/gen/Network/AWS/CognitoIdentity/Types/Sum.hs b/gen/Network/AWS/CognitoIdentity/Types/Sum.hs
index d977874..4e273e2 100644
--- a/gen/Network/AWS/CognitoIdentity/Types/Sum.hs
+++ b/gen/Network/AWS/CognitoIdentity/Types/Sum.hs
@@ -9,20 +9,51 @@
-- |
-- Module : Network.AWS.CognitoIdentity.Types.Sum
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.CognitoIdentity.Types.Sum where
-import Network.AWS.Prelude
+import Network.AWS.Prelude
+
+data AmbiguousRoleResolutionType
+ = AuthenticatedRole
+ | Deny
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText AmbiguousRoleResolutionType where
+ parser = takeLowerText >>= \case
+ "authenticatedrole" -> pure AuthenticatedRole
+ "deny" -> pure Deny
+ e -> fromTextError $ "Failure parsing AmbiguousRoleResolutionType from value: '" <> e
+ <> "'. Accepted values: authenticatedrole, deny"
+
+instance ToText AmbiguousRoleResolutionType where
+ toText = \case
+ AuthenticatedRole -> "AuthenticatedRole"
+ Deny -> "Deny"
+
+instance Hashable AmbiguousRoleResolutionType
+instance NFData AmbiguousRoleResolutionType
+instance ToByteString AmbiguousRoleResolutionType
+instance ToQuery AmbiguousRoleResolutionType
+instance ToHeader AmbiguousRoleResolutionType
+
+instance ToJSON AmbiguousRoleResolutionType where
+ toJSON = toJSONText
+
+instance FromJSON AmbiguousRoleResolutionType where
+ parseJSON = parseJSONText "AmbiguousRoleResolutionType"
data CognitoErrorCode
- = AccessDenied
- | InternalServerError
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = AccessDenied
+ | InternalServerError
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText CognitoErrorCode where
parser = takeLowerText >>= \case
@@ -44,3 +75,69 @@ instance ToHeader CognitoErrorCode
instance FromJSON CognitoErrorCode where
parseJSON = parseJSONText "CognitoErrorCode"
+
+data MappingRuleMatchType
+ = Contains
+ | Equals
+ | NotEqual
+ | StartsWith
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText MappingRuleMatchType where
+ parser = takeLowerText >>= \case
+ "contains" -> pure Contains
+ "equals" -> pure Equals
+ "notequal" -> pure NotEqual
+ "startswith" -> pure StartsWith
+ e -> fromTextError $ "Failure parsing MappingRuleMatchType from value: '" <> e
+ <> "'. Accepted values: contains, equals, notequal, startswith"
+
+instance ToText MappingRuleMatchType where
+ toText = \case
+ Contains -> "Contains"
+ Equals -> "Equals"
+ NotEqual -> "NotEqual"
+ StartsWith -> "StartsWith"
+
+instance Hashable MappingRuleMatchType
+instance NFData MappingRuleMatchType
+instance ToByteString MappingRuleMatchType
+instance ToQuery MappingRuleMatchType
+instance ToHeader MappingRuleMatchType
+
+instance ToJSON MappingRuleMatchType where
+ toJSON = toJSONText
+
+instance FromJSON MappingRuleMatchType where
+ parseJSON = parseJSONText "MappingRuleMatchType"
+
+data RoleMappingType
+ = Rules
+ | Token
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText RoleMappingType where
+ parser = takeLowerText >>= \case
+ "rules" -> pure Rules
+ "token" -> pure Token
+ e -> fromTextError $ "Failure parsing RoleMappingType from value: '" <> e
+ <> "'. Accepted values: rules, token"
+
+instance ToText RoleMappingType where
+ toText = \case
+ Rules -> "Rules"
+ Token -> "Token"
+
+instance Hashable RoleMappingType
+instance NFData RoleMappingType
+instance ToByteString RoleMappingType
+instance ToQuery RoleMappingType
+instance ToHeader RoleMappingType
+
+instance ToJSON RoleMappingType where
+ toJSON = toJSONText
+
+instance FromJSON RoleMappingType where
+ parseJSON = parseJSONText "RoleMappingType"
diff --git a/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs b/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs
index 01e978d..24a9ca8 100644
--- a/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -39,12 +39,12 @@ module Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity
, UnlinkDeveloperIdentityResponse
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the @UnlinkDeveloperIdentity@ action.
--
@@ -52,11 +52,12 @@ import Network.AWS.Response
--
-- /See:/ 'unlinkDeveloperIdentity' smart constructor.
data UnlinkDeveloperIdentity = UnlinkDeveloperIdentity'
- { _udiIdentityId :: !Text
- , _udiIdentityPoolId :: !Text
- , _udiDeveloperProviderName :: !Text
- , _udiDeveloperUserIdentifier :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _udiIdentityId :: !Text
+ , _udiIdentityPoolId :: !Text
+ , _udiDeveloperProviderName :: !Text
+ , _udiDeveloperUserIdentifier :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UnlinkDeveloperIdentity' with the minimum fields required to make a request.
--
@@ -76,12 +77,13 @@ unlinkDeveloperIdentity
-> Text -- ^ 'udiDeveloperUserIdentifier'
-> UnlinkDeveloperIdentity
unlinkDeveloperIdentity pIdentityId_ pIdentityPoolId_ pDeveloperProviderName_ pDeveloperUserIdentifier_ =
- UnlinkDeveloperIdentity'
- { _udiIdentityId = pIdentityId_
- , _udiIdentityPoolId = pIdentityPoolId_
- , _udiDeveloperProviderName = pDeveloperProviderName_
- , _udiDeveloperUserIdentifier = pDeveloperUserIdentifier_
- }
+ UnlinkDeveloperIdentity'
+ { _udiIdentityId = pIdentityId_
+ , _udiIdentityPoolId = pIdentityPoolId_
+ , _udiDeveloperProviderName = pDeveloperProviderName_
+ , _udiDeveloperUserIdentifier = pDeveloperUserIdentifier_
+ }
+
-- | A unique identifier in the format REGION:GUID.
udiIdentityId :: Lens' UnlinkDeveloperIdentity Text
@@ -106,9 +108,9 @@ instance AWSRequest UnlinkDeveloperIdentity where
response
= receiveNull UnlinkDeveloperIdentityResponse'
-instance Hashable UnlinkDeveloperIdentity
+instance Hashable UnlinkDeveloperIdentity where
-instance NFData UnlinkDeveloperIdentity
+instance NFData UnlinkDeveloperIdentity where
instance ToHeaders UnlinkDeveloperIdentity where
toHeaders
@@ -141,8 +143,9 @@ instance ToQuery UnlinkDeveloperIdentity where
-- | /See:/ 'unlinkDeveloperIdentityResponse' smart constructor.
data UnlinkDeveloperIdentityResponse =
- UnlinkDeveloperIdentityResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ UnlinkDeveloperIdentityResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UnlinkDeveloperIdentityResponse' with the minimum fields required to make a request.
--
@@ -150,4 +153,5 @@ unlinkDeveloperIdentityResponse
:: UnlinkDeveloperIdentityResponse
unlinkDeveloperIdentityResponse = UnlinkDeveloperIdentityResponse'
-instance NFData UnlinkDeveloperIdentityResponse
+
+instance NFData UnlinkDeveloperIdentityResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs b/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
index ca41aed..b65053d 100644
--- a/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
+++ b/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.UnlinkIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -38,21 +38,24 @@ module Network.AWS.CognitoIdentity.UnlinkIdentity
, UnlinkIdentityResponse
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | Input to the UnlinkIdentity action.
--
+--
+--
-- /See:/ 'unlinkIdentity' smart constructor.
data UnlinkIdentity = UnlinkIdentity'
- { _uiIdentityId :: !Text
- , _uiLogins :: !(Map Text Text)
- , _uiLoginsToRemove :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _uiIdentityId :: !Text
+ , _uiLogins :: !(Map Text Text)
+ , _uiLoginsToRemove :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UnlinkIdentity' with the minimum fields required to make a request.
--
@@ -67,11 +70,9 @@ unlinkIdentity
:: Text -- ^ 'uiIdentityId'
-> UnlinkIdentity
unlinkIdentity pIdentityId_ =
- UnlinkIdentity'
- { _uiIdentityId = pIdentityId_
- , _uiLogins = mempty
- , _uiLoginsToRemove = mempty
- }
+ UnlinkIdentity'
+ {_uiIdentityId = pIdentityId_, _uiLogins = mempty, _uiLoginsToRemove = mempty}
+
-- | A unique identifier in the format REGION:GUID.
uiIdentityId :: Lens' UnlinkIdentity Text
@@ -90,9 +91,9 @@ instance AWSRequest UnlinkIdentity where
request = postJSON cognitoIdentity
response = receiveNull UnlinkIdentityResponse'
-instance Hashable UnlinkIdentity
+instance Hashable UnlinkIdentity where
-instance NFData UnlinkIdentity
+instance NFData UnlinkIdentity where
instance ToHeaders UnlinkIdentity where
toHeaders
@@ -120,8 +121,9 @@ instance ToQuery UnlinkIdentity where
-- | /See:/ 'unlinkIdentityResponse' smart constructor.
data UnlinkIdentityResponse =
- UnlinkIdentityResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ UnlinkIdentityResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UnlinkIdentityResponse' with the minimum fields required to make a request.
--
@@ -129,4 +131,5 @@ unlinkIdentityResponse
:: UnlinkIdentityResponse
unlinkIdentityResponse = UnlinkIdentityResponse'
-instance NFData UnlinkIdentityResponse
+
+instance NFData UnlinkIdentityResponse where
diff --git a/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs b/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs
index 8d1766d..7eec3ac 100644
--- a/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs
+++ b/gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CognitoIdentity.UpdateIdentityPool
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -52,26 +52,29 @@ module Network.AWS.CognitoIdentity.UpdateIdentityPool
, ipAllowUnauthenticatedIdentities
) where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.CognitoIdentity.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.CognitoIdentity.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | An object representing a Cognito identity pool.
+-- | An object representing an Amazon Cognito identity pool.
+--
+--
--
-- /See:/ 'updateIdentityPool' smart constructor.
data UpdateIdentityPool = UpdateIdentityPool'
- { _uipSamlProviderARNs :: !(Maybe [Text])
- , _uipSupportedLoginProviders :: !(Maybe (Map Text Text))
- , _uipDeveloperProviderName :: !(Maybe Text)
- , _uipOpenIdConnectProviderARNs :: !(Maybe [Text])
- , _uipCognitoIdentityProviders :: !(Maybe [CognitoIdentityProvider])
- , _uipIdentityPoolId :: !Text
- , _uipIdentityPoolName :: !Text
- , _uipAllowUnauthenticatedIdentities :: !Bool
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _uipSamlProviderARNs :: !(Maybe [Text])
+ , _uipSupportedLoginProviders :: !(Maybe (Map Text Text))
+ , _uipDeveloperProviderName :: !(Maybe Text)
+ , _uipOpenIdConnectProviderARNs :: !(Maybe [Text])
+ , _uipCognitoIdentityProviders :: !(Maybe [CognitoIdentityProvider])
+ , _uipIdentityPoolId :: !Text
+ , _uipIdentityPoolName :: !Text
+ , _uipAllowUnauthenticatedIdentities :: !Bool
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UpdateIdentityPool' with the minimum fields required to make a request.
--
@@ -98,16 +101,17 @@ updateIdentityPool
-> Bool -- ^ 'uipAllowUnauthenticatedIdentities'
-> UpdateIdentityPool
updateIdentityPool pIdentityPoolId_ pIdentityPoolName_ pAllowUnauthenticatedIdentities_ =
- UpdateIdentityPool'
- { _uipSamlProviderARNs = Nothing
- , _uipSupportedLoginProviders = Nothing
- , _uipDeveloperProviderName = Nothing
- , _uipOpenIdConnectProviderARNs = Nothing
- , _uipCognitoIdentityProviders = Nothing
- , _uipIdentityPoolId = pIdentityPoolId_
- , _uipIdentityPoolName = pIdentityPoolName_
- , _uipAllowUnauthenticatedIdentities = pAllowUnauthenticatedIdentities_
- }
+ UpdateIdentityPool'
+ { _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]
@@ -146,9 +150,9 @@ instance AWSRequest UpdateIdentityPool where
request = postJSON cognitoIdentity
response = receiveJSON (\ s h x -> eitherParseJSON x)
-instance Hashable UpdateIdentityPool
+instance Hashable UpdateIdentityPool where
-instance NFData UpdateIdentityPool
+instance NFData UpdateIdentityPool where
instance ToHeaders UpdateIdentityPool where
toHeaders
diff --git a/gen/Network/AWS/CognitoIdentity/Waiters.hs b/gen/Network/AWS/CognitoIdentity/Waiters.hs
index 89cfa84..b615ec5 100644
--- a/gen/Network/AWS/CognitoIdentity/Waiters.hs
+++ b/gen/Network/AWS/CognitoIdentity/Waiters.hs
@@ -7,15 +7,15 @@
-- |
-- Module : Network.AWS.CognitoIdentity.Waiters
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.CognitoIdentity.Waiters where
-import Network.AWS.CognitoIdentity.Types
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Waiter
+import Network.AWS.CognitoIdentity.Types
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Waiter
diff --git a/test/Main.hs b/test/Main.hs
index a06d375..604694e 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,9 +2,9 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
diff --git a/test/Test/AWS/Gen/CognitoIdentity.hs b/test/Test/AWS/Gen/CognitoIdentity.hs
index 38ecf10..c3e55e5 100644
--- a/test/Test/AWS/Gen/CognitoIdentity.hs
+++ b/test/Test/AWS/Gen/CognitoIdentity.hs
@@ -5,20 +5,20 @@
-- |
-- Module : Test.AWS.Gen.CognitoIdentity
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Test.AWS.Gen.CognitoIdentity where
import Data.Proxy
+import Network.AWS.CognitoIdentity
+import Test.AWS.CognitoIdentity.Internal
import Test.AWS.Fixture
import Test.AWS.Prelude
import Test.Tasty
-import Network.AWS.CognitoIdentity
-import Test.AWS.CognitoIdentity.Internal
-- Auto-generated: the actual test selection needs to be manually placed into
-- the top-level so that real test data can be incrementally added.