amazonka-cognito-identity 0.2.1 → 0.2.2

raw patch · 20 files changed

+660/−46 lines, 20 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-cognito-identity.cabal +6/−2
• gen/Network/AWS/CognitoIdentity.hs +8/−0
• gen/Network/AWS/CognitoIdentity/CreateIdentityPool.hs +4/−2
• gen/Network/AWS/CognitoIdentity/DeleteIdentityPool.hs +2/−2
• gen/Network/AWS/CognitoIdentity/DescribeIdentity.hs +144/−0
• gen/Network/AWS/CognitoIdentity/DescribeIdentityPool.hs +3/−2
• gen/Network/AWS/CognitoIdentity/GetCredentialsForIdentity.hs +134/−0
• gen/Network/AWS/CognitoIdentity/GetId.hs +9/−10
• gen/Network/AWS/CognitoIdentity/GetIdentityPoolRoles.hs +123/−0
• gen/Network/AWS/CognitoIdentity/GetOpenIdToken.hs +2/−2
• gen/Network/AWS/CognitoIdentity/GetOpenIdTokenForDeveloperIdentity.hs +2/−2
• gen/Network/AWS/CognitoIdentity/ListIdentities.hs +2/−2
• gen/Network/AWS/CognitoIdentity/ListIdentityPools.hs +2/−2
• gen/Network/AWS/CognitoIdentity/LookupDeveloperIdentity.hs +2/−2
• gen/Network/AWS/CognitoIdentity/MergeDeveloperIdentities.hs +2/−2
• gen/Network/AWS/CognitoIdentity/SetIdentityPoolRoles.hs +106/−0
• gen/Network/AWS/CognitoIdentity/Types.hs +101/−10
• gen/Network/AWS/CognitoIdentity/UnlinkDeveloperIdentity.hs +2/−2
• gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs +2/−2
• gen/Network/AWS/CognitoIdentity/UpdateIdentityPool.hs +4/−2

@@ -1,5 +1,5 @@ name:                  amazonka-cognito-identity-version:               0.2.1+version:               0.2.2 synopsis:              Amazon Cognito Identity SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -44,14 +44,18 @@           Network.AWS.CognitoIdentity         , Network.AWS.CognitoIdentity.CreateIdentityPool         , Network.AWS.CognitoIdentity.DeleteIdentityPool+        , Network.AWS.CognitoIdentity.DescribeIdentity         , Network.AWS.CognitoIdentity.DescribeIdentityPool+        , Network.AWS.CognitoIdentity.GetCredentialsForIdentity         , Network.AWS.CognitoIdentity.GetId+        , Network.AWS.CognitoIdentity.GetIdentityPoolRoles         , Network.AWS.CognitoIdentity.GetOpenIdToken         , Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity         , Network.AWS.CognitoIdentity.ListIdentities         , Network.AWS.CognitoIdentity.ListIdentityPools         , Network.AWS.CognitoIdentity.LookupDeveloperIdentity         , Network.AWS.CognitoIdentity.MergeDeveloperIdentities+        , Network.AWS.CognitoIdentity.SetIdentityPoolRoles         , Network.AWS.CognitoIdentity.Types         , Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity         , Network.AWS.CognitoIdentity.UnlinkIdentity@@ -60,5 +64,5 @@     other-modules:      build-depends:-          amazonka-core == 0.2.1.*+          amazonka-core == 0.2.2.*         , base          >= 4.7     && < 5

@@ -23,14 +23,18 @@ module Network.AWS.CognitoIdentity     ( module Network.AWS.CognitoIdentity.CreateIdentityPool     , module Network.AWS.CognitoIdentity.DeleteIdentityPool+    , module Network.AWS.CognitoIdentity.DescribeIdentity     , module Network.AWS.CognitoIdentity.DescribeIdentityPool+    , module Network.AWS.CognitoIdentity.GetCredentialsForIdentity     , module Network.AWS.CognitoIdentity.GetId+    , module Network.AWS.CognitoIdentity.GetIdentityPoolRoles     , module Network.AWS.CognitoIdentity.GetOpenIdToken     , module Network.AWS.CognitoIdentity.GetOpenIdTokenForDeveloperIdentity     , module Network.AWS.CognitoIdentity.ListIdentities     , module Network.AWS.CognitoIdentity.ListIdentityPools     , module Network.AWS.CognitoIdentity.LookupDeveloperIdentity     , module Network.AWS.CognitoIdentity.MergeDeveloperIdentities+    , module Network.AWS.CognitoIdentity.SetIdentityPoolRoles     , module Network.AWS.CognitoIdentity.Types     , module Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity     , module Network.AWS.CognitoIdentity.UnlinkIdentity@@ -39,14 +43,18 @@  import Network.AWS.CognitoIdentity.CreateIdentityPool 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

@@ -64,7 +64,7 @@     , _cipIdentityPoolName               :: Text     , _cipOpenIdConnectProviderARNs      :: List "OpenIdConnectProviderARNs" Text     , _cipSupportedLoginProviders        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateIdentityPool' constructor. --@@ -114,6 +114,7 @@ cipIdentityPoolName =     lens _cipIdentityPoolName (\s a -> s { _cipIdentityPoolName = a }) +-- | A list of OpendID Connect provider ARNs. cipOpenIdConnectProviderARNs :: Lens' CreateIdentityPool [Text] cipOpenIdConnectProviderARNs =     lens _cipOpenIdConnectProviderARNs@@ -134,7 +135,7 @@     , _ciprIdentityPoolName               :: Text     , _ciprOpenIdConnectProviderARNs      :: List "OpenIdConnectProviderARNs" Text     , _ciprSupportedLoginProviders        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateIdentityPoolResponse' constructor. --@@ -187,6 +188,7 @@ ciprIdentityPoolName =     lens _ciprIdentityPoolName (\s a -> s { _ciprIdentityPoolName = a }) +-- | A list of OpendID Connect provider ARNs. ciprOpenIdConnectProviderARNs :: Lens' CreateIdentityPoolResponse [Text] ciprOpenIdConnectProviderARNs =     lens _ciprOpenIdConnectProviderARNs

@@ -48,7 +48,7 @@  newtype DeleteIdentityPool = DeleteIdentityPool     { _dip1IdentityPoolId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteIdentityPool' constructor. --@@ -68,7 +68,7 @@     lens _dip1IdentityPoolId (\s a -> s { _dip1IdentityPoolId = a })  data DeleteIdentityPoolResponse = DeleteIdentityPoolResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteIdentityPoolResponse' constructor. deleteIdentityPoolResponse :: DeleteIdentityPoolResponse

@@ -0,0 +1,144 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.CognitoIdentity.DescribeIdentity+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Returns metadata related to the given identity, including when the identity+-- was created and any associated linked logins.+--+-- <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_DescribeIdentity.html>+module Network.AWS.CognitoIdentity.DescribeIdentity+    (+    -- * Request+      DescribeIdentity+    -- ** Request constructor+    , describeIdentity+    -- ** Request lenses+    , diIdentityId++    -- * Response+    , DescribeIdentityResponse+    -- ** Response constructor+    , describeIdentityResponse+    -- ** Response lenses+    , dirCreationDate+    , dirIdentityId+    , dirLastModifiedDate+    , dirLogins+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CognitoIdentity.Types+import qualified GHC.Exts++newtype DescribeIdentity = DescribeIdentity+    { _diIdentityId :: Text+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)++-- | 'DescribeIdentity' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diIdentityId' @::@ 'Text'+--+describeIdentity :: Text -- ^ 'diIdentityId'+                 -> DescribeIdentity+describeIdentity p1 = DescribeIdentity+    { _diIdentityId = p1+    }++-- | A unique identifier in the format REGION:GUID.+diIdentityId :: Lens' DescribeIdentity Text+diIdentityId = lens _diIdentityId (\s a -> s { _diIdentityId = a })++data DescribeIdentityResponse = DescribeIdentityResponse+    { _dirCreationDate     :: Maybe POSIX+    , _dirIdentityId       :: Maybe Text+    , _dirLastModifiedDate :: Maybe POSIX+    , _dirLogins           :: List "Logins" Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DescribeIdentityResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dirCreationDate' @::@ 'Maybe' 'UTCTime'+--+-- * 'dirIdentityId' @::@ 'Maybe' 'Text'+--+-- * 'dirLastModifiedDate' @::@ 'Maybe' 'UTCTime'+--+-- * 'dirLogins' @::@ ['Text']+--+describeIdentityResponse :: DescribeIdentityResponse+describeIdentityResponse = DescribeIdentityResponse+    { _dirIdentityId       = Nothing+    , _dirLogins           = mempty+    , _dirCreationDate     = Nothing+    , _dirLastModifiedDate = Nothing+    }++-- | Date on which the identity was created.+dirCreationDate :: Lens' DescribeIdentityResponse (Maybe UTCTime)+dirCreationDate = lens _dirCreationDate (\s a -> s { _dirCreationDate = a }) . mapping _Time++-- | A unique identifier in the format REGION:GUID.+dirIdentityId :: Lens' DescribeIdentityResponse (Maybe Text)+dirIdentityId = lens _dirIdentityId (\s a -> s { _dirIdentityId = a })++-- | Date on which the identity was last modified.+dirLastModifiedDate :: Lens' DescribeIdentityResponse (Maybe UTCTime)+dirLastModifiedDate =+    lens _dirLastModifiedDate (\s a -> s { _dirLastModifiedDate = a })+        . mapping _Time++-- | A set of optional name-value pairs that map provider names to provider tokens.+dirLogins :: Lens' DescribeIdentityResponse [Text]+dirLogins = lens _dirLogins (\s a -> s { _dirLogins = a }) . _List++instance ToPath DescribeIdentity where+    toPath = const "/"++instance ToQuery DescribeIdentity where+    toQuery = const mempty++instance ToHeaders DescribeIdentity++instance ToJSON DescribeIdentity where+    toJSON DescribeIdentity{..} = object+        [ "IdentityId" .= _diIdentityId+        ]++instance AWSRequest DescribeIdentity where+    type Sv DescribeIdentity = CognitoIdentity+    type Rs DescribeIdentity = DescribeIdentityResponse++    request  = post "DescribeIdentity"+    response = jsonResponse++instance FromJSON DescribeIdentityResponse where+    parseJSON = withObject "DescribeIdentityResponse" $ \o -> DescribeIdentityResponse+        <$> o .:? "CreationDate"+        <*> o .:? "IdentityId"+        <*> o .:? "LastModifiedDate"+        <*> o .:? "Logins" .!= mempty

@@ -55,7 +55,7 @@  newtype DescribeIdentityPool = DescribeIdentityPool     { _dipIdentityPoolId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DescribeIdentityPool' constructor. --@@ -81,7 +81,7 @@     , _diprIdentityPoolName               :: Text     , _diprOpenIdConnectProviderARNs      :: List "OpenIdConnectProviderARNs" Text     , _diprSupportedLoginProviders        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeIdentityPoolResponse' constructor. --@@ -134,6 +134,7 @@ diprIdentityPoolName =     lens _diprIdentityPoolName (\s a -> s { _diprIdentityPoolName = a }) +-- | A list of OpendID Connect provider ARNs. diprOpenIdConnectProviderARNs :: Lens' DescribeIdentityPoolResponse [Text] diprOpenIdConnectProviderARNs =     lens _diprOpenIdConnectProviderARNs

@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.CognitoIdentity.GetCredentialsForIdentity+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Returns credentials for the the provided identity ID. Any provided logins+-- will be validated against supported login providers. If the token is for+-- cognito-identity.amazonaws.com, it will be passed through to AWS Security+-- Token Service with the appropriate role for the token.+--+-- <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_GetCredentialsForIdentity.html>+module Network.AWS.CognitoIdentity.GetCredentialsForIdentity+    (+    -- * Request+      GetCredentialsForIdentity+    -- ** Request constructor+    , getCredentialsForIdentity+    -- ** Request lenses+    , gcfiIdentityId+    , gcfiLogins++    -- * Response+    , GetCredentialsForIdentityResponse+    -- ** Response constructor+    , getCredentialsForIdentityResponse+    -- ** Response lenses+    , gcfirCredentials+    , gcfirIdentityId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CognitoIdentity.Types+import qualified GHC.Exts++data GetCredentialsForIdentity = GetCredentialsForIdentity+    { _gcfiIdentityId :: Text+    , _gcfiLogins     :: Map Text Text+    } deriving (Eq, Read, Show)++-- | 'GetCredentialsForIdentity' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gcfiIdentityId' @::@ 'Text'+--+-- * 'gcfiLogins' @::@ 'HashMap' 'Text' 'Text'+--+getCredentialsForIdentity :: Text -- ^ 'gcfiIdentityId'+                          -> GetCredentialsForIdentity+getCredentialsForIdentity p1 = GetCredentialsForIdentity+    { _gcfiIdentityId = p1+    , _gcfiLogins     = mempty+    }++-- | A unique identifier in the format REGION:GUID.+gcfiIdentityId :: Lens' GetCredentialsForIdentity Text+gcfiIdentityId = lens _gcfiIdentityId (\s a -> s { _gcfiIdentityId = a })++-- | A set of optional name-value pairs that map provider names to provider tokens.+gcfiLogins :: Lens' GetCredentialsForIdentity (HashMap Text Text)+gcfiLogins = lens _gcfiLogins (\s a -> s { _gcfiLogins = a }) . _Map++data GetCredentialsForIdentityResponse = GetCredentialsForIdentityResponse+    { _gcfirCredentials :: Maybe Credentials+    , _gcfirIdentityId  :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'GetCredentialsForIdentityResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gcfirCredentials' @::@ 'Maybe' 'Credentials'+--+-- * 'gcfirIdentityId' @::@ 'Maybe' 'Text'+--+getCredentialsForIdentityResponse :: GetCredentialsForIdentityResponse+getCredentialsForIdentityResponse = GetCredentialsForIdentityResponse+    { _gcfirIdentityId  = Nothing+    , _gcfirCredentials = Nothing+    }++-- | Credentials for the the provided identity ID.+gcfirCredentials :: Lens' GetCredentialsForIdentityResponse (Maybe Credentials)+gcfirCredentials = lens _gcfirCredentials (\s a -> s { _gcfirCredentials = a })++-- | A unique identifier in the format REGION:GUID.+gcfirIdentityId :: Lens' GetCredentialsForIdentityResponse (Maybe Text)+gcfirIdentityId = lens _gcfirIdentityId (\s a -> s { _gcfirIdentityId = a })++instance ToPath GetCredentialsForIdentity where+    toPath = const "/"++instance ToQuery GetCredentialsForIdentity where+    toQuery = const mempty++instance ToHeaders GetCredentialsForIdentity++instance ToJSON GetCredentialsForIdentity where+    toJSON GetCredentialsForIdentity{..} = object+        [ "IdentityId" .= _gcfiIdentityId+        , "Logins"     .= _gcfiLogins+        ]++instance AWSRequest GetCredentialsForIdentity where+    type Sv GetCredentialsForIdentity = CognitoIdentity+    type Rs GetCredentialsForIdentity = GetCredentialsForIdentityResponse++    request  = post "GetCredentialsForIdentity"+    response = jsonResponse++instance FromJSON GetCredentialsForIdentityResponse where+    parseJSON = withObject "GetCredentialsForIdentityResponse" $ \o -> GetCredentialsForIdentityResponse+        <$> o .:? "Credentials"+        <*> o .:? "IdentityId"

@@ -51,32 +51,31 @@ import qualified GHC.Exts  data GetId = GetId-    { _giAccountId      :: Text+    { _giAccountId      :: Maybe Text     , _giIdentityPoolId :: Text     , _giLogins         :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetId' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'giAccountId' @::@ 'Text'+-- * 'giAccountId' @::@ 'Maybe' 'Text' -- -- * 'giIdentityPoolId' @::@ 'Text' -- -- * 'giLogins' @::@ 'HashMap' 'Text' 'Text' ---getId :: Text -- ^ 'giAccountId'-      -> Text -- ^ 'giIdentityPoolId'+getId :: Text -- ^ 'giIdentityPoolId'       -> GetId-getId p1 p2 = GetId-    { _giAccountId      = p1-    , _giIdentityPoolId = p2+getId p1 = GetId+    { _giIdentityPoolId = p1+    , _giAccountId      = Nothing     , _giLogins         = mempty     }  -- | A standard AWS account ID (9+ digits).-giAccountId :: Lens' GetId Text+giAccountId :: Lens' GetId (Maybe Text) giAccountId = lens _giAccountId (\s a -> s { _giAccountId = a })  -- | An identity pool ID in the format REGION:GUID.@@ -91,7 +90,7 @@  newtype GetIdResponse = GetIdResponse     { _girIdentityId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'GetIdResponse' constructor. --

@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.CognitoIdentity.GetIdentityPoolRoles+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Gets the roles for an identity pool.+--+-- <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_GetIdentityPoolRoles.html>+module Network.AWS.CognitoIdentity.GetIdentityPoolRoles+    (+    -- * Request+      GetIdentityPoolRoles+    -- ** Request constructor+    , getIdentityPoolRoles+    -- ** Request lenses+    , giprIdentityPoolId++    -- * Response+    , GetIdentityPoolRolesResponse+    -- ** Response constructor+    , getIdentityPoolRolesResponse+    -- ** Response lenses+    , giprrIdentityPoolId+    , giprrRoles+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CognitoIdentity.Types+import qualified GHC.Exts++newtype GetIdentityPoolRoles = GetIdentityPoolRoles+    { _giprIdentityPoolId :: Maybe Text+    } deriving (Eq, Ord, Read, Show, Monoid)++-- | 'GetIdentityPoolRoles' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'giprIdentityPoolId' @::@ 'Maybe' 'Text'+--+getIdentityPoolRoles :: GetIdentityPoolRoles+getIdentityPoolRoles = GetIdentityPoolRoles+    { _giprIdentityPoolId = Nothing+    }++-- | An identity pool ID in the format REGION:GUID.+giprIdentityPoolId :: Lens' GetIdentityPoolRoles (Maybe Text)+giprIdentityPoolId =+    lens _giprIdentityPoolId (\s a -> s { _giprIdentityPoolId = a })++data GetIdentityPoolRolesResponse = GetIdentityPoolRolesResponse+    { _giprrIdentityPoolId :: Maybe Text+    , _giprrRoles          :: Map Text Text+    } deriving (Eq, Read, Show)++-- | 'GetIdentityPoolRolesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'giprrIdentityPoolId' @::@ 'Maybe' 'Text'+--+-- * 'giprrRoles' @::@ 'HashMap' 'Text' 'Text'+--+getIdentityPoolRolesResponse :: GetIdentityPoolRolesResponse+getIdentityPoolRolesResponse = GetIdentityPoolRolesResponse+    { _giprrIdentityPoolId = Nothing+    , _giprrRoles          = mempty+    }++-- | An identity pool ID in the format REGION:GUID.+giprrIdentityPoolId :: Lens' GetIdentityPoolRolesResponse (Maybe Text)+giprrIdentityPoolId =+    lens _giprrIdentityPoolId (\s a -> s { _giprrIdentityPoolId = a })++-- | The map of roles associated with this pool. Currently only authenticated and+-- unauthenticated roles are supported.+giprrRoles :: Lens' GetIdentityPoolRolesResponse (HashMap Text Text)+giprrRoles = lens _giprrRoles (\s a -> s { _giprrRoles = a }) . _Map++instance ToPath GetIdentityPoolRoles where+    toPath = const "/"++instance ToQuery GetIdentityPoolRoles where+    toQuery = const mempty++instance ToHeaders GetIdentityPoolRoles++instance ToJSON GetIdentityPoolRoles where+    toJSON GetIdentityPoolRoles{..} = object+        [ "IdentityPoolId" .= _giprIdentityPoolId+        ]++instance AWSRequest GetIdentityPoolRoles where+    type Sv GetIdentityPoolRoles = CognitoIdentity+    type Rs GetIdentityPoolRoles = GetIdentityPoolRolesResponse++    request  = post "GetIdentityPoolRoles"+    response = jsonResponse++instance FromJSON GetIdentityPoolRolesResponse where+    parseJSON = withObject "GetIdentityPoolRolesResponse" $ \o -> GetIdentityPoolRolesResponse+        <$> o .:? "IdentityPoolId"+        <*> o .:? "Roles" .!= mempty

@@ -56,7 +56,7 @@ data GetOpenIdToken = GetOpenIdToken     { _goitIdentityId :: Text     , _goitLogins     :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetOpenIdToken' constructor. --@@ -84,7 +84,7 @@ data GetOpenIdTokenResponse = GetOpenIdTokenResponse     { _goitrIdentityId :: Maybe Text     , _goitrToken      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'GetOpenIdTokenResponse' constructor. --

@@ -69,7 +69,7 @@     , _goitfdiIdentityPoolId :: Text     , _goitfdiLogins         :: Map Text Text     , _goitfdiTokenDuration  :: Maybe Nat-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'GetOpenIdTokenForDeveloperIdentity' constructor. --@@ -129,7 +129,7 @@ data GetOpenIdTokenForDeveloperIdentityResponse = GetOpenIdTokenForDeveloperIdentityResponse     { _goitfdirIdentityId :: Maybe Text     , _goitfdirToken      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'GetOpenIdTokenForDeveloperIdentityResponse' constructor. --

@@ -55,7 +55,7 @@     { _liIdentityPoolId :: Text     , _liMaxResults     :: Nat     , _liNextToken      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ListIdentities' constructor. --@@ -92,7 +92,7 @@     { _lirIdentities     :: List "Identities" IdentityDescription     , _lirIdentityPoolId :: Maybe Text     , _lirNextToken      :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListIdentitiesResponse' constructor. --

@@ -52,7 +52,7 @@ data ListIdentityPools = ListIdentityPools     { _lipMaxResults :: Nat     , _lipNextToken  :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ListIdentityPools' constructor. --@@ -80,7 +80,7 @@ data ListIdentityPoolsResponse = ListIdentityPoolsResponse     { _liprIdentityPools :: List "IdentityPools" IdentityPoolShortDescription     , _liprNextToken     :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListIdentityPoolsResponse' constructor. --

@@ -67,7 +67,7 @@     , _ldiIdentityPoolId          :: Text     , _ldiMaxResults              :: Maybe Nat     , _ldiNextToken               :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'LookupDeveloperIdentity' constructor. --@@ -127,7 +127,7 @@     { _ldirDeveloperUserIdentifierList :: List "DeveloperUserIdentifierList" Text     , _ldirIdentityId                  :: Maybe Text     , _ldirNextToken                   :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'LookupDeveloperIdentityResponse' constructor. --

@@ -61,7 +61,7 @@     , _mdiDeveloperProviderName     :: Text     , _mdiIdentityPoolId            :: Text     , _mdiSourceUserIdentifier      :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'MergeDeveloperIdentities' constructor. --@@ -115,7 +115,7 @@  newtype MergeDeveloperIdentitiesResponse = MergeDeveloperIdentitiesResponse     { _mdirIdentityId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'MergeDeveloperIdentitiesResponse' constructor. --

@@ -0,0 +1,106 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.CognitoIdentity.SetIdentityPoolRoles+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Sets the roles for an identity pool. These roles are used when making calls+-- to 'GetCredentialsForIdentity' action.+--+-- <http://docs.aws.amazon.com/cognitoidentity/latest/APIReference/API_SetIdentityPoolRoles.html>+module Network.AWS.CognitoIdentity.SetIdentityPoolRoles+    (+    -- * Request+      SetIdentityPoolRoles+    -- ** Request constructor+    , setIdentityPoolRoles+    -- ** Request lenses+    , siprIdentityPoolId+    , siprRoles++    -- * Response+    , SetIdentityPoolRolesResponse+    -- ** Response constructor+    , setIdentityPoolRolesResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CognitoIdentity.Types+import qualified GHC.Exts++data SetIdentityPoolRoles = SetIdentityPoolRoles+    { _siprIdentityPoolId :: Text+    , _siprRoles          :: Map Text Text+    } deriving (Eq, Read, Show)++-- | 'SetIdentityPoolRoles' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'siprIdentityPoolId' @::@ 'Text'+--+-- * 'siprRoles' @::@ 'HashMap' 'Text' 'Text'+--+setIdentityPoolRoles :: Text -- ^ 'siprIdentityPoolId'+                     -> SetIdentityPoolRoles+setIdentityPoolRoles p1 = SetIdentityPoolRoles+    { _siprIdentityPoolId = p1+    , _siprRoles          = mempty+    }++-- | An identity pool ID in the format REGION:GUID.+siprIdentityPoolId :: Lens' SetIdentityPoolRoles Text+siprIdentityPoolId =+    lens _siprIdentityPoolId (\s a -> s { _siprIdentityPoolId = a })++-- | The map of roles associated with this pool. Currently only authenticated and+-- unauthenticated roles are supported.+siprRoles :: Lens' SetIdentityPoolRoles (HashMap Text Text)+siprRoles = lens _siprRoles (\s a -> s { _siprRoles = a }) . _Map++data SetIdentityPoolRolesResponse = SetIdentityPoolRolesResponse+    deriving (Eq, Ord, Read, Show, Generic)++-- | 'SetIdentityPoolRolesResponse' constructor.+setIdentityPoolRolesResponse :: SetIdentityPoolRolesResponse+setIdentityPoolRolesResponse = SetIdentityPoolRolesResponse++instance ToPath SetIdentityPoolRoles where+    toPath = const "/"++instance ToQuery SetIdentityPoolRoles where+    toQuery = const mempty++instance ToHeaders SetIdentityPoolRoles++instance ToJSON SetIdentityPoolRoles where+    toJSON SetIdentityPoolRoles{..} = object+        [ "IdentityPoolId" .= _siprIdentityPoolId+        , "Roles"          .= _siprRoles+        ]++instance AWSRequest SetIdentityPoolRoles where+    type Sv SetIdentityPoolRoles = CognitoIdentity+    type Rs SetIdentityPoolRoles = SetIdentityPoolRolesResponse++    request  = post "SetIdentityPoolRoles"+    response = nullResponse SetIdentityPoolRolesResponse

@@ -30,10 +30,20 @@     -- ** Error     , JSONError +    -- * Credentials+    , Credentials+    , credentials+    , cAccessKeyId+    , cExpiration+    , cSecretKey+    , cSessionToken+     -- * IdentityDescription     , IdentityDescription     , identityDescription+    , idCreationDate     , idIdentityId+    , idLastModifiedDate     , idLogins      -- * IdentityPool@@ -98,42 +108,122 @@             | s == 503  = True -- Service Unavailable             | otherwise = False +data Credentials = Credentials+    { _cAccessKeyId  :: Maybe Text+    , _cExpiration   :: Maybe POSIX+    , _cSecretKey    :: Maybe Text+    , _cSessionToken :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'Credentials' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cAccessKeyId' @::@ 'Maybe' 'Text'+--+-- * 'cExpiration' @::@ 'Maybe' 'UTCTime'+--+-- * 'cSecretKey' @::@ 'Maybe' 'Text'+--+-- * 'cSessionToken' @::@ 'Maybe' 'Text'+--+credentials :: Credentials+credentials = Credentials+    { _cAccessKeyId  = Nothing+    , _cSecretKey    = Nothing+    , _cSessionToken = Nothing+    , _cExpiration   = Nothing+    }++-- | The Access Key portion of the credentials.+cAccessKeyId :: Lens' Credentials (Maybe Text)+cAccessKeyId = lens _cAccessKeyId (\s a -> s { _cAccessKeyId = a })++-- | The date at which these credentials will expire.+cExpiration :: Lens' Credentials (Maybe UTCTime)+cExpiration = lens _cExpiration (\s a -> s { _cExpiration = a }) . mapping _Time++-- | The Secret Access Key portion of the credentials+cSecretKey :: Lens' Credentials (Maybe Text)+cSecretKey = lens _cSecretKey (\s a -> s { _cSecretKey = a })++-- | The Session Token portion of the credentials+cSessionToken :: Lens' Credentials (Maybe Text)+cSessionToken = lens _cSessionToken (\s a -> s { _cSessionToken = a })++instance FromJSON Credentials where+    parseJSON = withObject "Credentials" $ \o -> Credentials+        <$> o .:? "AccessKeyId"+        <*> o .:? "Expiration"+        <*> o .:? "SecretKey"+        <*> o .:? "SessionToken"++instance ToJSON Credentials where+    toJSON Credentials{..} = object+        [ "AccessKeyId"  .= _cAccessKeyId+        , "SecretKey"    .= _cSecretKey+        , "SessionToken" .= _cSessionToken+        , "Expiration"   .= _cExpiration+        ]+ data IdentityDescription = IdentityDescription-    { _idIdentityId :: Maybe Text-    , _idLogins     :: List "Logins" Text-    } deriving (Eq, Ord, Show)+    { _idCreationDate     :: Maybe POSIX+    , _idIdentityId       :: Maybe Text+    , _idLastModifiedDate :: Maybe POSIX+    , _idLogins           :: List "Logins" Text+    } deriving (Eq, Ord, Read, Show)  -- | 'IdentityDescription' constructor. -- -- The fields accessible through corresponding lenses are: --+-- * 'idCreationDate' @::@ 'Maybe' 'UTCTime'+-- -- * 'idIdentityId' @::@ 'Maybe' 'Text' --+-- * 'idLastModifiedDate' @::@ 'Maybe' 'UTCTime'+-- -- * 'idLogins' @::@ ['Text'] -- identityDescription :: IdentityDescription identityDescription = IdentityDescription-    { _idIdentityId = Nothing-    , _idLogins     = mempty+    { _idIdentityId       = Nothing+    , _idLogins           = mempty+    , _idCreationDate     = Nothing+    , _idLastModifiedDate = Nothing     } +-- | Date on which the identity was created.+idCreationDate :: Lens' IdentityDescription (Maybe UTCTime)+idCreationDate = lens _idCreationDate (\s a -> s { _idCreationDate = a }) . mapping _Time+ -- | A unique identifier in the format REGION:GUID. idIdentityId :: Lens' IdentityDescription (Maybe Text) idIdentityId = lens _idIdentityId (\s a -> s { _idIdentityId = a }) +-- | Date on which the identity was last modified.+idLastModifiedDate :: Lens' IdentityDescription (Maybe UTCTime)+idLastModifiedDate =+    lens _idLastModifiedDate (\s a -> s { _idLastModifiedDate = a })+        . mapping _Time+ -- | A set of optional name-value pairs that map provider names to provider tokens. idLogins :: Lens' IdentityDescription [Text] idLogins = lens _idLogins (\s a -> s { _idLogins = a }) . _List  instance FromJSON IdentityDescription where     parseJSON = withObject "IdentityDescription" $ \o -> IdentityDescription-        <$> o .:? "IdentityId"+        <$> o .:? "CreationDate"+        <*> o .:? "IdentityId"+        <*> o .:? "LastModifiedDate"         <*> o .:? "Logins" .!= mempty  instance ToJSON IdentityDescription where     toJSON IdentityDescription{..} = object-        [ "IdentityId" .= _idIdentityId-        , "Logins"     .= _idLogins+        [ "IdentityId"       .= _idIdentityId+        , "Logins"           .= _idLogins+        , "CreationDate"     .= _idCreationDate+        , "LastModifiedDate" .= _idLastModifiedDate         ]  data IdentityPool = IdentityPool@@ -143,7 +233,7 @@     , _ipIdentityPoolName               :: Text     , _ipOpenIdConnectProviderARNs      :: List "OpenIdConnectProviderARNs" Text     , _ipSupportedLoginProviders        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'IdentityPool' constructor. --@@ -194,6 +284,7 @@ ipIdentityPoolName =     lens _ipIdentityPoolName (\s a -> s { _ipIdentityPoolName = a }) +-- | A list of OpendID Connect provider ARNs. ipOpenIdConnectProviderARNs :: Lens' IdentityPool [Text] ipOpenIdConnectProviderARNs =     lens _ipOpenIdConnectProviderARNs@@ -229,7 +320,7 @@ data IdentityPoolShortDescription = IdentityPoolShortDescription     { _ipsdIdentityPoolId   :: Maybe Text     , _ipsdIdentityPoolName :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'IdentityPoolShortDescription' constructor. --

@@ -56,7 +56,7 @@     , _udiDeveloperUserIdentifier :: Text     , _udiIdentityId              :: Text     , _udiIdentityPoolId          :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'UnlinkDeveloperIdentity' constructor. --@@ -104,7 +104,7 @@     lens _udiIdentityPoolId (\s a -> s { _udiIdentityPoolId = a })  data UnlinkDeveloperIdentityResponse = UnlinkDeveloperIdentityResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UnlinkDeveloperIdentityResponse' constructor. unlinkDeveloperIdentityResponse :: UnlinkDeveloperIdentityResponse

@@ -53,7 +53,7 @@     { _uiIdentityId     :: Text     , _uiLogins         :: Map Text Text     , _uiLoginsToRemove :: List "LoginsToRemove" Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UnlinkIdentity' constructor. --@@ -86,7 +86,7 @@ uiLoginsToRemove = lens _uiLoginsToRemove (\s a -> s { _uiLoginsToRemove = a }) . _List  data UnlinkIdentityResponse = UnlinkIdentityResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'UnlinkIdentityResponse' constructor. unlinkIdentityResponse :: UnlinkIdentityResponse

@@ -64,7 +64,7 @@     , _uipIdentityPoolName               :: Text     , _uipOpenIdConnectProviderARNs      :: List "OpenIdConnectProviderARNs" Text     , _uipSupportedLoginProviders        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateIdentityPool' constructor. --@@ -117,6 +117,7 @@ uipIdentityPoolName =     lens _uipIdentityPoolName (\s a -> s { _uipIdentityPoolName = a }) +-- | A list of OpendID Connect provider ARNs. uipOpenIdConnectProviderARNs :: Lens' UpdateIdentityPool [Text] uipOpenIdConnectProviderARNs =     lens _uipOpenIdConnectProviderARNs@@ -137,7 +138,7 @@     , _uiprIdentityPoolName               :: Text     , _uiprOpenIdConnectProviderARNs      :: List "OpenIdConnectProviderARNs" Text     , _uiprSupportedLoginProviders        :: Map Text Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateIdentityPoolResponse' constructor. --@@ -190,6 +191,7 @@ uiprIdentityPoolName =     lens _uiprIdentityPoolName (\s a -> s { _uiprIdentityPoolName = a }) +-- | A list of OpendID Connect provider ARNs. uiprOpenIdConnectProviderARNs :: Lens' UpdateIdentityPoolResponse [Text] uiprOpenIdConnectProviderARNs =     lens _uiprOpenIdConnectProviderARNs