amazonka-cognito-idp 1.4.3 → 1.4.4

raw patch · 77 files changed

+5192/−77 lines, 77 filesdep ~amazonka-cognito-idpdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-cognito-idp, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +4/−2
• amazonka-cognito-idp.cabal +30/−7
• fixture/AdminForgetDevice.yaml +0/−0
• fixture/AdminForgetDeviceResponse.proto +0/−0
• fixture/AdminGetDevice.yaml +0/−0
• fixture/AdminGetDeviceResponse.proto +0/−0
• fixture/AdminInitiateAuth.yaml +0/−0
• fixture/AdminInitiateAuthResponse.proto +0/−0
• fixture/AdminListDevices.yaml +0/−0
• fixture/AdminListDevicesResponse.proto +0/−0
• fixture/AdminRespondToAuthChallenge.yaml +0/−0
• fixture/AdminRespondToAuthChallengeResponse.proto +0/−0
• fixture/AdminUpdateDeviceStatus.yaml +0/−0
• fixture/AdminUpdateDeviceStatusResponse.proto +0/−0
• fixture/AdminUserGlobalSignOut.yaml +0/−0
• fixture/AdminUserGlobalSignOutResponse.proto +0/−0
• fixture/ConfirmDevice.yaml +0/−0
• fixture/ConfirmDeviceResponse.proto +0/−0
• fixture/CreateUserImportJob.yaml +0/−0
• fixture/CreateUserImportJobResponse.proto +0/−0
• fixture/DescribeUserImportJob.yaml +0/−0
• fixture/DescribeUserImportJobResponse.proto +0/−0
• fixture/ForgetDevice.yaml +0/−0
• fixture/ForgetDeviceResponse.proto +0/−0
• fixture/GetCSVHeader.yaml +0/−0
• fixture/GetCSVHeaderResponse.proto +0/−0
• fixture/GetDevice.yaml +0/−0
• fixture/GetDeviceResponse.proto +0/−0
• fixture/GlobalSignOut.yaml +0/−0
• fixture/GlobalSignOutResponse.proto +0/−0
• fixture/InitiateAuth.yaml +0/−0
• fixture/InitiateAuthResponse.proto +0/−0
• fixture/ListDevices.yaml +0/−0
• fixture/ListDevicesResponse.proto +0/−0
• fixture/ListUserImportJobs.yaml +0/−0
• fixture/ListUserImportJobsResponse.proto +0/−0
• fixture/RespondToAuthChallenge.yaml +0/−0
• fixture/RespondToAuthChallengeResponse.proto +0/−0
• fixture/StartUserImportJob.yaml +0/−0
• fixture/StartUserImportJobResponse.proto +0/−0
• fixture/StopUserImportJob.yaml +0/−0
• fixture/StopUserImportJobResponse.proto +0/−0
• fixture/UpdateDeviceStatus.yaml +0/−0
• fixture/UpdateDeviceStatusResponse.proto +0/−0
• gen/Network/AWS/CognitoIdentityProvider.hs +213/−1
• gen/Network/AWS/CognitoIdentityProvider/AdminForgetDevice.hs +130/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminGetDevice.hs +159/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminInitiateAuth.hs +209/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminListDevices.hs +178/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminResetUserPassword.hs +2/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminRespondToAuthChallenge.hs +211/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminUpdateDeviceStatus.hs +161/−0
• gen/Network/AWS/CognitoIdentityProvider/AdminUserGlobalSignOut.hs +139/−0
• gen/Network/AWS/CognitoIdentityProvider/ConfirmDevice.hs +169/−0
• gen/Network/AWS/CognitoIdentityProvider/CreateUserImportJob.hs +161/−0
• gen/Network/AWS/CognitoIdentityProvider/CreateUserPool.hs +31/−0
• gen/Network/AWS/CognitoIdentityProvider/CreateUserPoolClient.hs +46/−5
• gen/Network/AWS/CognitoIdentityProvider/DescribeUserImportJob.hs +148/−0
• gen/Network/AWS/CognitoIdentityProvider/ForgetDevice.hs +118/−0
• gen/Network/AWS/CognitoIdentityProvider/GetCSVHeader.hs +146/−0
• gen/Network/AWS/CognitoIdentityProvider/GetDevice.hs +147/−0
• gen/Network/AWS/CognitoIdentityProvider/GlobalSignOut.hs +124/−0
• gen/Network/AWS/CognitoIdentityProvider/InitiateAuth.hs +198/−0
• gen/Network/AWS/CognitoIdentityProvider/ListDevices.hs +167/−0
• gen/Network/AWS/CognitoIdentityProvider/ListUserImportJobs.hs +169/−0
• gen/Network/AWS/CognitoIdentityProvider/ListUsers.hs +10/−16
• gen/Network/AWS/CognitoIdentityProvider/RespondToAuthChallenge.hs +200/−0
• gen/Network/AWS/CognitoIdentityProvider/StartUserImportJob.hs +148/−0
• gen/Network/AWS/CognitoIdentityProvider/StopUserImportJob.hs +147/−0
• gen/Network/AWS/CognitoIdentityProvider/Types.hs +158/−0
• gen/Network/AWS/CognitoIdentityProvider/Types/Product.hs +682/−33
• gen/Network/AWS/CognitoIdentityProvider/Types/Sum.hs +183/−8
• gen/Network/AWS/CognitoIdentityProvider/UpdateDeviceStatus.hs +149/−0
• gen/Network/AWS/CognitoIdentityProvider/UpdateUserPool.hs +31/−0
• gen/Network/AWS/CognitoIdentityProvider/UpdateUserPoolClient.hs +46/−5
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/CognitoIdentityProvider.hs +378/−0

@@ -8,14 +8,16 @@  ## Version -`1.4.3`+`1.4.4`   ## Description  You can create a user pool in Amazon Cognito Identity to manage directories and users. You can authenticate a user to obtain tokens related to user identity and access policies. -This API reference provides information about user pools in Amazon Cognito Identity, which is a new capability that is available as a beta.+This API reference provides information about user pools in Amazon Cognito Identity.++For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito>.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cognito-idp) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-cognito-idp-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Cognito Identity Provider SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,11 +11,13 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     You can create a user pool in Amazon Cognito Identity to manage directories and users. You can authenticate a user to obtain tokens related to user identity and access policies. -    This API reference provides information about user pools in Amazon Cognito Identity, which is a new capability that is available as a beta.+    This API reference provides information about user pools in Amazon Cognito Identity.++    For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito>.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -49,31 +51,52 @@         , Network.AWS.CognitoIdentityProvider.AdminDeleteUserAttributes         , Network.AWS.CognitoIdentityProvider.AdminDisableUser         , Network.AWS.CognitoIdentityProvider.AdminEnableUser+        , Network.AWS.CognitoIdentityProvider.AdminForgetDevice+        , Network.AWS.CognitoIdentityProvider.AdminGetDevice         , Network.AWS.CognitoIdentityProvider.AdminGetUser+        , Network.AWS.CognitoIdentityProvider.AdminInitiateAuth+        , Network.AWS.CognitoIdentityProvider.AdminListDevices         , Network.AWS.CognitoIdentityProvider.AdminResetUserPassword+        , Network.AWS.CognitoIdentityProvider.AdminRespondToAuthChallenge         , Network.AWS.CognitoIdentityProvider.AdminSetUserSettings+        , Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus         , Network.AWS.CognitoIdentityProvider.AdminUpdateUserAttributes+        , Network.AWS.CognitoIdentityProvider.AdminUserGlobalSignOut         , Network.AWS.CognitoIdentityProvider.ChangePassword+        , Network.AWS.CognitoIdentityProvider.ConfirmDevice         , Network.AWS.CognitoIdentityProvider.ConfirmForgotPassword         , Network.AWS.CognitoIdentityProvider.ConfirmSignUp+        , Network.AWS.CognitoIdentityProvider.CreateUserImportJob         , Network.AWS.CognitoIdentityProvider.CreateUserPool         , Network.AWS.CognitoIdentityProvider.CreateUserPoolClient         , Network.AWS.CognitoIdentityProvider.DeleteUser         , Network.AWS.CognitoIdentityProvider.DeleteUserAttributes         , Network.AWS.CognitoIdentityProvider.DeleteUserPool         , Network.AWS.CognitoIdentityProvider.DeleteUserPoolClient+        , Network.AWS.CognitoIdentityProvider.DescribeUserImportJob         , Network.AWS.CognitoIdentityProvider.DescribeUserPool         , Network.AWS.CognitoIdentityProvider.DescribeUserPoolClient+        , Network.AWS.CognitoIdentityProvider.ForgetDevice         , Network.AWS.CognitoIdentityProvider.ForgotPassword+        , Network.AWS.CognitoIdentityProvider.GetCSVHeader+        , Network.AWS.CognitoIdentityProvider.GetDevice         , Network.AWS.CognitoIdentityProvider.GetUser         , Network.AWS.CognitoIdentityProvider.GetUserAttributeVerificationCode+        , Network.AWS.CognitoIdentityProvider.GlobalSignOut+        , Network.AWS.CognitoIdentityProvider.InitiateAuth+        , Network.AWS.CognitoIdentityProvider.ListDevices+        , Network.AWS.CognitoIdentityProvider.ListUserImportJobs         , Network.AWS.CognitoIdentityProvider.ListUserPoolClients         , Network.AWS.CognitoIdentityProvider.ListUserPools         , Network.AWS.CognitoIdentityProvider.ListUsers         , Network.AWS.CognitoIdentityProvider.ResendConfirmationCode+        , Network.AWS.CognitoIdentityProvider.RespondToAuthChallenge         , Network.AWS.CognitoIdentityProvider.SetUserSettings         , Network.AWS.CognitoIdentityProvider.SignUp+        , Network.AWS.CognitoIdentityProvider.StartUserImportJob+        , Network.AWS.CognitoIdentityProvider.StopUserImportJob         , Network.AWS.CognitoIdentityProvider.Types+        , Network.AWS.CognitoIdentityProvider.UpdateDeviceStatus         , Network.AWS.CognitoIdentityProvider.UpdateUserAttributes         , Network.AWS.CognitoIdentityProvider.UpdateUserPool         , Network.AWS.CognitoIdentityProvider.UpdateUserPoolClient@@ -85,7 +108,7 @@         , Network.AWS.CognitoIdentityProvider.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-cognito-idp-test@@ -105,9 +128,9 @@         , Test.AWS.CognitoIdentityProvider.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-cognito-idp == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-cognito-idp == 1.4.4.*         , base         , bytestring         , tasty

@@ -13,7 +13,9 @@ -- -- You can create a user pool in Amazon Cognito Identity to manage directories and users. You can authenticate a user to obtain tokens related to user identity and access policies. ----- This API reference provides information about user pools in Amazon Cognito Identity, which is a new capability that is available as a beta.+-- This API reference provides information about user pools in Amazon Cognito Identity.+--+-- For more information, see <https://aws.amazon.com/cognito/ Amazon Cognito>. module Network.AWS.CognitoIdentityProvider     (     -- * Service Configuration@@ -22,12 +24,21 @@     -- * Errors     -- $errors +    -- ** PasswordResetRequiredException+    , _PasswordResetRequiredException+     -- ** InvalidParameterException     , _InvalidParameterException      -- ** InvalidLambdaResponseException     , _InvalidLambdaResponseException +    -- ** InvalidEmailRoleAccessPolicyException+    , _InvalidEmailRoleAccessPolicyException++    -- ** UserNotFoundException+    , _UserNotFoundException+     -- ** UnexpectedLambdaException     , _UnexpectedLambdaException @@ -37,9 +48,21 @@     -- ** InternalErrorException     , _InternalErrorException +    -- ** InvalidUserPoolConfigurationException+    , _InvalidUserPoolConfigurationException++    -- ** InvalidSmsRoleAccessPolicyException+    , _InvalidSmsRoleAccessPolicyException+     -- ** CodeMismatchException     , _CodeMismatchException +    -- ** UserImportInProgressException+    , _UserImportInProgressException++    -- ** InvalidSmsRoleTrustRelationshipException+    , _InvalidSmsRoleTrustRelationshipException+     -- ** TooManyRequestsException     , _TooManyRequestsException @@ -49,15 +72,27 @@     -- ** UserLambdaValidationException     , _UserLambdaValidationException +    -- ** PreconditionNotMetException+    , _PreconditionNotMetException+     -- ** ExpiredCodeException     , _ExpiredCodeException      -- ** TooManyFailedAttemptsException     , _TooManyFailedAttemptsException +    -- ** UserNotConfirmedException+    , _UserNotConfirmedException++    -- ** CodeDeliveryFailureException+    , _CodeDeliveryFailureException+     -- ** ResourceNotFoundException     , _ResourceNotFoundException +    -- ** MFAMethodNotFoundException+    , _MFAMethodNotFoundException+     -- ** AliasExistsException     , _AliasExistsException @@ -82,6 +117,9 @@     -- ** UpdateUserPool     , module Network.AWS.CognitoIdentityProvider.UpdateUserPool +    -- ** AdminInitiateAuth+    , module Network.AWS.CognitoIdentityProvider.AdminInitiateAuth+     -- ** AdminEnableUser     , module Network.AWS.CognitoIdentityProvider.AdminEnableUser @@ -100,9 +138,15 @@     -- ** AdminDisableUser     , module Network.AWS.CognitoIdentityProvider.AdminDisableUser +    -- ** ConfirmDevice+    , module Network.AWS.CognitoIdentityProvider.ConfirmDevice+     -- ** ConfirmForgotPassword     , module Network.AWS.CognitoIdentityProvider.ConfirmForgotPassword +    -- ** ListUserImportJobs+    , module Network.AWS.CognitoIdentityProvider.ListUserImportJobs+     -- ** ListUsers     , module Network.AWS.CognitoIdentityProvider.ListUsers @@ -115,24 +159,42 @@     -- ** AdminGetUser     , module Network.AWS.CognitoIdentityProvider.AdminGetUser +    -- ** AdminUserGlobalSignOut+    , module Network.AWS.CognitoIdentityProvider.AdminUserGlobalSignOut+     -- ** ForgotPassword     , module Network.AWS.CognitoIdentityProvider.ForgotPassword      -- ** DescribeUserPool     , module Network.AWS.CognitoIdentityProvider.DescribeUserPool +    -- ** InitiateAuth+    , module Network.AWS.CognitoIdentityProvider.InitiateAuth+     -- ** AdminConfirmSignUp     , module Network.AWS.CognitoIdentityProvider.AdminConfirmSignUp +    -- ** StartUserImportJob+    , module Network.AWS.CognitoIdentityProvider.StartUserImportJob++    -- ** GetDevice+    , module Network.AWS.CognitoIdentityProvider.GetDevice+     -- ** SignUp     , module Network.AWS.CognitoIdentityProvider.SignUp      -- ** ChangePassword     , module Network.AWS.CognitoIdentityProvider.ChangePassword +    -- ** RespondToAuthChallenge+    , module Network.AWS.CognitoIdentityProvider.RespondToAuthChallenge+     -- ** CreateUserPool     , module Network.AWS.CognitoIdentityProvider.CreateUserPool +    -- ** AdminGetDevice+    , module Network.AWS.CognitoIdentityProvider.AdminGetDevice+     -- ** ConfirmSignUp     , module Network.AWS.CognitoIdentityProvider.ConfirmSignUp @@ -142,12 +204,24 @@     -- ** AdminResetUserPassword     , module Network.AWS.CognitoIdentityProvider.AdminResetUserPassword +    -- ** CreateUserImportJob+    , module Network.AWS.CognitoIdentityProvider.CreateUserImportJob+     -- ** GetUser     , module Network.AWS.CognitoIdentityProvider.GetUser +    -- ** GetCSVHeader+    , module Network.AWS.CognitoIdentityProvider.GetCSVHeader+     -- ** AdminDeleteUser     , module Network.AWS.CognitoIdentityProvider.AdminDeleteUser +    -- ** AdminForgetDevice+    , module Network.AWS.CognitoIdentityProvider.AdminForgetDevice++    -- ** AdminUpdateDeviceStatus+    , module Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus+     -- ** AddCustomAttributes     , module Network.AWS.CognitoIdentityProvider.AddCustomAttributes @@ -160,15 +234,36 @@     -- ** DeleteUserPoolClient     , module Network.AWS.CognitoIdentityProvider.DeleteUserPoolClient +    -- ** UpdateDeviceStatus+    , module Network.AWS.CognitoIdentityProvider.UpdateDeviceStatus++    -- ** ForgetDevice+    , module Network.AWS.CognitoIdentityProvider.ForgetDevice+     -- ** DeleteUser     , module Network.AWS.CognitoIdentityProvider.DeleteUser      -- ** CreateUserPoolClient     , module Network.AWS.CognitoIdentityProvider.CreateUserPoolClient +    -- ** StopUserImportJob+    , module Network.AWS.CognitoIdentityProvider.StopUserImportJob++    -- ** DescribeUserImportJob+    , module Network.AWS.CognitoIdentityProvider.DescribeUserImportJob++    -- ** GlobalSignOut+    , module Network.AWS.CognitoIdentityProvider.GlobalSignOut++    -- ** AdminRespondToAuthChallenge+    , module Network.AWS.CognitoIdentityProvider.AdminRespondToAuthChallenge+     -- ** SetUserSettings     , module Network.AWS.CognitoIdentityProvider.SetUserSettings +    -- ** AdminListDevices+    , module Network.AWS.CognitoIdentityProvider.AdminListDevices+     -- ** DescribeUserPoolClient     , module Network.AWS.CognitoIdentityProvider.DescribeUserPoolClient @@ -178,6 +273,9 @@     -- ** AdminSetUserSettings     , module Network.AWS.CognitoIdentityProvider.AdminSetUserSettings +    -- ** ListDevices+    , module Network.AWS.CognitoIdentityProvider.ListDevices+     -- * Types      -- ** AliasAttributeType@@ -186,12 +284,27 @@     -- ** AttributeDataType     , AttributeDataType (..) +    -- ** AuthFlowType+    , AuthFlowType (..)++    -- ** ChallengeNameType+    , ChallengeNameType (..)+     -- ** DeliveryMediumType     , DeliveryMediumType (..) +    -- ** DeviceRememberedStatusType+    , DeviceRememberedStatusType (..)++    -- ** ExplicitAuthFlowsType+    , ExplicitAuthFlowsType (..)+     -- ** StatusType     , StatusType (..) +    -- ** UserImportJobStatusType+    , UserImportJobStatusType (..)+     -- ** UserPoolMFAType     , UserPoolMFAType (..) @@ -207,6 +320,16 @@     , atValue     , atName +    -- ** AuthenticationResultType+    , AuthenticationResultType+    , authenticationResultType+    , artAccessToken+    , artRefreshToken+    , artNewDeviceMetadata+    , artExpiresIn+    , artTokenType+    , artIdToken+     -- ** CodeDeliveryDetailsType     , CodeDeliveryDetailsType     , codeDeliveryDetailsType@@ -214,12 +337,42 @@     , cddtDeliveryMedium     , cddtAttributeName +    -- ** DeviceConfigurationType+    , DeviceConfigurationType+    , deviceConfigurationType+    , dctChallengeRequiredOnNewDevice+    , dctDeviceOnlyRememberedOnUserPrompt++    -- ** DeviceSecretVerifierConfigType+    , DeviceSecretVerifierConfigType+    , deviceSecretVerifierConfigType+    , dsvctPasswordVerifier+    , dsvctSalt++    -- ** DeviceType+    , DeviceType+    , deviceType+    , dtDeviceLastModifiedDate+    , dtDeviceCreateDate+    , dtDeviceAttributes+    , dtDeviceKey+    , dtDeviceLastAuthenticatedDate++    -- ** EmailConfigurationType+    , EmailConfigurationType+    , emailConfigurationType+    , ectSourceARN+    , ectReplyToEmailAddress+     -- ** LambdaConfigType     , LambdaConfigType     , lambdaConfigType     , lctPreAuthentication+    , lctCreateAuthChallenge+    , lctVerifyAuthChallengeResponse     , lctPostAuthentication     , lctCustomMessage+    , lctDefineAuthChallenge     , lctPostConfirmation     , lctPreSignUp @@ -229,6 +382,12 @@     , motDeliveryMedium     , motAttributeName +    -- ** NewDeviceMetadataType+    , NewDeviceMetadataType+    , newDeviceMetadataType+    , ndmtDeviceGroupKey+    , ndmtDeviceKey+     -- ** NumberAttributeConstraintsType     , NumberAttributeConstraintsType     , numberAttributeConstraintsType@@ -255,12 +414,35 @@     , satDeveloperOnlyAttribute     , satMutable +    -- ** SmsConfigurationType+    , SmsConfigurationType+    , smsConfigurationType+    , sctSNSCallerARN+    , sctExternalId+     -- ** StringAttributeConstraintsType     , StringAttributeConstraintsType     , stringAttributeConstraintsType     , sactMaxLength     , sactMinLength +    -- ** UserImportJobType+    , UserImportJobType+    , userImportJobType+    , uijtStatus+    , uijtSkippedUsers+    , uijtJobId+    , uijtUserPoolId+    , uijtJobName+    , uijtPreSignedURL+    , uijtFailedUsers+    , uijtStartDate+    , uijtCompletionMessage+    , uijtCreationDate+    , uijtCompletionDate+    , uijtCloudWatchLogsRoleARN+    , uijtImportedUsers+     -- ** UserPoolClientDescription     , UserPoolClientDescription     , userPoolClientDescription@@ -271,11 +453,15 @@     -- ** UserPoolClientType     , UserPoolClientType     , userPoolClientType+    , upctRefreshTokenValidity     , upctClientId+    , upctExplicitAuthFlows     , upctClientSecret     , upctLastModifiedDate     , upctUserPoolId+    , upctWriteAttributes     , upctCreationDate+    , upctReadAttributes     , upctClientName      -- ** UserPoolDescriptionType@@ -297,6 +483,7 @@     , UserPoolType     , userPoolType     , uptStatus+    , uptEmailConfigurationFailure     , uptLastModifiedDate     , uptEstimatedNumberOfUsers     , uptEmailVerificationMessage@@ -304,12 +491,16 @@     , uptSchemaAttributes     , uptEmailVerificationSubject     , uptAliasAttributes+    , uptEmailConfiguration     , uptSmsVerificationMessage     , uptName     , uptMFAConfiguration     , uptId+    , uptSmsConfigurationFailure     , uptCreationDate     , uptLambdaConfig+    , uptSmsConfiguration+    , uptDeviceConfiguration     , uptAutoVerifiedAttributes     , uptPolicies @@ -330,31 +521,52 @@ import           Network.AWS.CognitoIdentityProvider.AdminDeleteUserAttributes import           Network.AWS.CognitoIdentityProvider.AdminDisableUser import           Network.AWS.CognitoIdentityProvider.AdminEnableUser+import           Network.AWS.CognitoIdentityProvider.AdminForgetDevice+import           Network.AWS.CognitoIdentityProvider.AdminGetDevice import           Network.AWS.CognitoIdentityProvider.AdminGetUser+import           Network.AWS.CognitoIdentityProvider.AdminInitiateAuth+import           Network.AWS.CognitoIdentityProvider.AdminListDevices import           Network.AWS.CognitoIdentityProvider.AdminResetUserPassword+import           Network.AWS.CognitoIdentityProvider.AdminRespondToAuthChallenge import           Network.AWS.CognitoIdentityProvider.AdminSetUserSettings+import           Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus import           Network.AWS.CognitoIdentityProvider.AdminUpdateUserAttributes+import           Network.AWS.CognitoIdentityProvider.AdminUserGlobalSignOut import           Network.AWS.CognitoIdentityProvider.ChangePassword+import           Network.AWS.CognitoIdentityProvider.ConfirmDevice import           Network.AWS.CognitoIdentityProvider.ConfirmForgotPassword import           Network.AWS.CognitoIdentityProvider.ConfirmSignUp+import           Network.AWS.CognitoIdentityProvider.CreateUserImportJob import           Network.AWS.CognitoIdentityProvider.CreateUserPool import           Network.AWS.CognitoIdentityProvider.CreateUserPoolClient import           Network.AWS.CognitoIdentityProvider.DeleteUser import           Network.AWS.CognitoIdentityProvider.DeleteUserAttributes import           Network.AWS.CognitoIdentityProvider.DeleteUserPool import           Network.AWS.CognitoIdentityProvider.DeleteUserPoolClient+import           Network.AWS.CognitoIdentityProvider.DescribeUserImportJob import           Network.AWS.CognitoIdentityProvider.DescribeUserPool import           Network.AWS.CognitoIdentityProvider.DescribeUserPoolClient+import           Network.AWS.CognitoIdentityProvider.ForgetDevice import           Network.AWS.CognitoIdentityProvider.ForgotPassword+import           Network.AWS.CognitoIdentityProvider.GetCSVHeader+import           Network.AWS.CognitoIdentityProvider.GetDevice import           Network.AWS.CognitoIdentityProvider.GetUser import           Network.AWS.CognitoIdentityProvider.GetUserAttributeVerificationCode+import           Network.AWS.CognitoIdentityProvider.GlobalSignOut+import           Network.AWS.CognitoIdentityProvider.InitiateAuth+import           Network.AWS.CognitoIdentityProvider.ListDevices+import           Network.AWS.CognitoIdentityProvider.ListUserImportJobs import           Network.AWS.CognitoIdentityProvider.ListUserPoolClients import           Network.AWS.CognitoIdentityProvider.ListUserPools import           Network.AWS.CognitoIdentityProvider.ListUsers import           Network.AWS.CognitoIdentityProvider.ResendConfirmationCode+import           Network.AWS.CognitoIdentityProvider.RespondToAuthChallenge import           Network.AWS.CognitoIdentityProvider.SetUserSettings import           Network.AWS.CognitoIdentityProvider.SignUp+import           Network.AWS.CognitoIdentityProvider.StartUserImportJob+import           Network.AWS.CognitoIdentityProvider.StopUserImportJob import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.UpdateDeviceStatus import           Network.AWS.CognitoIdentityProvider.UpdateUserAttributes import           Network.AWS.CognitoIdentityProvider.UpdateUserPool import           Network.AWS.CognitoIdentityProvider.UpdateUserPoolClient

@@ -0,0 +1,130 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminForgetDevice+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Forgets the device, as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminForgetDevice+    (+    -- * Creating a Request+      adminForgetDevice+    , AdminForgetDevice+    -- * Request Lenses+    , afdUserPoolId+    , afdUsername+    , afdDeviceKey++    -- * Destructuring the Response+    , adminForgetDeviceResponse+    , AdminForgetDeviceResponse+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Sends the forgot device request, as an administrator.+--+-- /See:/ 'adminForgetDevice' smart constructor.+data AdminForgetDevice = AdminForgetDevice'+    { _afdUserPoolId :: !Text+    , _afdUsername   :: !(Sensitive Text)+    , _afdDeviceKey  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminForgetDevice' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'afdUserPoolId'+--+-- * 'afdUsername'+--+-- * 'afdDeviceKey'+adminForgetDevice+    :: Text -- ^ 'afdUserPoolId'+    -> Text -- ^ 'afdUsername'+    -> Text -- ^ 'afdDeviceKey'+    -> AdminForgetDevice+adminForgetDevice pUserPoolId_ pUsername_ pDeviceKey_ =+    AdminForgetDevice'+    { _afdUserPoolId = pUserPoolId_+    , _afdUsername = _Sensitive # pUsername_+    , _afdDeviceKey = pDeviceKey_+    }++-- | The user pool ID.+afdUserPoolId :: Lens' AdminForgetDevice Text+afdUserPoolId = lens _afdUserPoolId (\ s a -> s{_afdUserPoolId = a});++-- | The user name.+afdUsername :: Lens' AdminForgetDevice Text+afdUsername = lens _afdUsername (\ s a -> s{_afdUsername = a}) . _Sensitive;++-- | The device key.+afdDeviceKey :: Lens' AdminForgetDevice Text+afdDeviceKey = lens _afdDeviceKey (\ s a -> s{_afdDeviceKey = a});++instance AWSRequest AdminForgetDevice where+        type Rs AdminForgetDevice = AdminForgetDeviceResponse+        request = postJSON cognitoIdentityProvider+        response = receiveNull AdminForgetDeviceResponse'++instance Hashable AdminForgetDevice++instance NFData AdminForgetDevice++instance ToHeaders AdminForgetDevice where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminForgetDevice"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminForgetDevice where+        toJSON AdminForgetDevice'{..}+          = object+              (catMaybes+                 [Just ("UserPoolId" .= _afdUserPoolId),+                  Just ("Username" .= _afdUsername),+                  Just ("DeviceKey" .= _afdDeviceKey)])++instance ToPath AdminForgetDevice where+        toPath = const "/"++instance ToQuery AdminForgetDevice where+        toQuery = const mempty++-- | /See:/ 'adminForgetDeviceResponse' smart constructor.+data AdminForgetDeviceResponse =+    AdminForgetDeviceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminForgetDeviceResponse' with the minimum fields required to make a request.+--+adminForgetDeviceResponse+    :: AdminForgetDeviceResponse+adminForgetDeviceResponse = AdminForgetDeviceResponse'++instance NFData AdminForgetDeviceResponse

@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminGetDevice+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the device, as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminGetDevice+    (+    -- * Creating a Request+      adminGetDevice+    , AdminGetDevice+    -- * Request Lenses+    , agdDeviceKey+    , agdUserPoolId+    , agdUsername++    -- * Destructuring the Response+    , adminGetDeviceResponse+    , AdminGetDeviceResponse+    -- * Response Lenses+    , agdrsResponseStatus+    , agdrsDevice+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to get the device, as an administrator.+--+-- /See:/ 'adminGetDevice' smart constructor.+data AdminGetDevice = AdminGetDevice'+    { _agdDeviceKey  :: !Text+    , _agdUserPoolId :: !Text+    , _agdUsername   :: !(Sensitive Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminGetDevice' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'agdDeviceKey'+--+-- * 'agdUserPoolId'+--+-- * 'agdUsername'+adminGetDevice+    :: Text -- ^ 'agdDeviceKey'+    -> Text -- ^ 'agdUserPoolId'+    -> Text -- ^ 'agdUsername'+    -> AdminGetDevice+adminGetDevice pDeviceKey_ pUserPoolId_ pUsername_ =+    AdminGetDevice'+    { _agdDeviceKey = pDeviceKey_+    , _agdUserPoolId = pUserPoolId_+    , _agdUsername = _Sensitive # pUsername_+    }++-- | The device key.+agdDeviceKey :: Lens' AdminGetDevice Text+agdDeviceKey = lens _agdDeviceKey (\ s a -> s{_agdDeviceKey = a});++-- | The user pool ID.+agdUserPoolId :: Lens' AdminGetDevice Text+agdUserPoolId = lens _agdUserPoolId (\ s a -> s{_agdUserPoolId = a});++-- | The user name.+agdUsername :: Lens' AdminGetDevice Text+agdUsername = lens _agdUsername (\ s a -> s{_agdUsername = a}) . _Sensitive;++instance AWSRequest AdminGetDevice where+        type Rs AdminGetDevice = AdminGetDeviceResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 AdminGetDeviceResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "Device"))++instance Hashable AdminGetDevice++instance NFData AdminGetDevice++instance ToHeaders AdminGetDevice where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminGetDevice"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminGetDevice where+        toJSON AdminGetDevice'{..}+          = object+              (catMaybes+                 [Just ("DeviceKey" .= _agdDeviceKey),+                  Just ("UserPoolId" .= _agdUserPoolId),+                  Just ("Username" .= _agdUsername)])++instance ToPath AdminGetDevice where+        toPath = const "/"++instance ToQuery AdminGetDevice where+        toQuery = const mempty++-- | Gets the device response, as an administrator.+--+-- /See:/ 'adminGetDeviceResponse' smart constructor.+data AdminGetDeviceResponse = AdminGetDeviceResponse'+    { _agdrsResponseStatus :: !Int+    , _agdrsDevice         :: !DeviceType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminGetDeviceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'agdrsResponseStatus'+--+-- * 'agdrsDevice'+adminGetDeviceResponse+    :: Int -- ^ 'agdrsResponseStatus'+    -> DeviceType -- ^ 'agdrsDevice'+    -> AdminGetDeviceResponse+adminGetDeviceResponse pResponseStatus_ pDevice_ =+    AdminGetDeviceResponse'+    { _agdrsResponseStatus = pResponseStatus_+    , _agdrsDevice = pDevice_+    }++-- | The response status code.+agdrsResponseStatus :: Lens' AdminGetDeviceResponse Int+agdrsResponseStatus = lens _agdrsResponseStatus (\ s a -> s{_agdrsResponseStatus = a});++-- | The device.+agdrsDevice :: Lens' AdminGetDeviceResponse DeviceType+agdrsDevice = lens _agdrsDevice (\ s a -> s{_agdrsDevice = a});++instance NFData AdminGetDeviceResponse

@@ -0,0 +1,209 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminInitiateAuth+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Initiates the authentication flow, as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminInitiateAuth+    (+    -- * Creating a Request+      adminInitiateAuth+    , AdminInitiateAuth+    -- * Request Lenses+    , aiaClientMetadata+    , aiaAuthParameters+    , aiaUserPoolId+    , aiaClientId+    , aiaAuthFlow++    -- * Destructuring the Response+    , adminInitiateAuthResponse+    , AdminInitiateAuthResponse+    -- * Response Lenses+    , aiarsChallengeName+    , aiarsChallengeParameters+    , aiarsAuthenticationResult+    , aiarsSession+    , aiarsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Initiates the authorization request, as an administrator.+--+-- /See:/ 'adminInitiateAuth' smart constructor.+data AdminInitiateAuth = AdminInitiateAuth'+    { _aiaClientMetadata :: !(Maybe (Map Text Text))+    , _aiaAuthParameters :: !(Maybe (Map Text Text))+    , _aiaUserPoolId     :: !Text+    , _aiaClientId       :: !(Sensitive Text)+    , _aiaAuthFlow       :: !AuthFlowType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminInitiateAuth' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aiaClientMetadata'+--+-- * 'aiaAuthParameters'+--+-- * 'aiaUserPoolId'+--+-- * 'aiaClientId'+--+-- * 'aiaAuthFlow'+adminInitiateAuth+    :: Text -- ^ 'aiaUserPoolId'+    -> Text -- ^ 'aiaClientId'+    -> AuthFlowType -- ^ 'aiaAuthFlow'+    -> AdminInitiateAuth+adminInitiateAuth pUserPoolId_ pClientId_ pAuthFlow_ =+    AdminInitiateAuth'+    { _aiaClientMetadata = Nothing+    , _aiaAuthParameters = Nothing+    , _aiaUserPoolId = pUserPoolId_+    , _aiaClientId = _Sensitive # pClientId_+    , _aiaAuthFlow = pAuthFlow_+    }++-- | The client app metadata.+aiaClientMetadata :: Lens' AdminInitiateAuth (HashMap Text Text)+aiaClientMetadata = lens _aiaClientMetadata (\ s a -> s{_aiaClientMetadata = a}) . _Default . _Map;++-- | The authentication parameters.+aiaAuthParameters :: Lens' AdminInitiateAuth (HashMap Text Text)+aiaAuthParameters = lens _aiaAuthParameters (\ s a -> s{_aiaAuthParameters = a}) . _Default . _Map;++-- | The ID of the Amazon Cognito user pool.+aiaUserPoolId :: Lens' AdminInitiateAuth Text+aiaUserPoolId = lens _aiaUserPoolId (\ s a -> s{_aiaUserPoolId = a});++-- | The client app ID.+aiaClientId :: Lens' AdminInitiateAuth Text+aiaClientId = lens _aiaClientId (\ s a -> s{_aiaClientId = a}) . _Sensitive;++-- | The authentication flow.+aiaAuthFlow :: Lens' AdminInitiateAuth AuthFlowType+aiaAuthFlow = lens _aiaAuthFlow (\ s a -> s{_aiaAuthFlow = a});++instance AWSRequest AdminInitiateAuth where+        type Rs AdminInitiateAuth = AdminInitiateAuthResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 AdminInitiateAuthResponse' <$>+                   (x .?> "ChallengeName") <*>+                     (x .?> "ChallengeParameters" .!@ mempty)+                     <*> (x .?> "AuthenticationResult")+                     <*> (x .?> "Session")+                     <*> (pure (fromEnum s)))++instance Hashable AdminInitiateAuth++instance NFData AdminInitiateAuth++instance ToHeaders AdminInitiateAuth where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminInitiateAuth"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminInitiateAuth where+        toJSON AdminInitiateAuth'{..}+          = object+              (catMaybes+                 [("ClientMetadata" .=) <$> _aiaClientMetadata,+                  ("AuthParameters" .=) <$> _aiaAuthParameters,+                  Just ("UserPoolId" .= _aiaUserPoolId),+                  Just ("ClientId" .= _aiaClientId),+                  Just ("AuthFlow" .= _aiaAuthFlow)])++instance ToPath AdminInitiateAuth where+        toPath = const "/"++instance ToQuery AdminInitiateAuth where+        toQuery = const mempty++-- | Initiates the authentication response, as an administrator.+--+-- /See:/ 'adminInitiateAuthResponse' smart constructor.+data AdminInitiateAuthResponse = AdminInitiateAuthResponse'+    { _aiarsChallengeName        :: !(Maybe ChallengeNameType)+    , _aiarsChallengeParameters  :: !(Maybe (Map Text Text))+    , _aiarsAuthenticationResult :: !(Maybe AuthenticationResultType)+    , _aiarsSession              :: !(Maybe Text)+    , _aiarsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminInitiateAuthResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aiarsChallengeName'+--+-- * 'aiarsChallengeParameters'+--+-- * 'aiarsAuthenticationResult'+--+-- * 'aiarsSession'+--+-- * 'aiarsResponseStatus'+adminInitiateAuthResponse+    :: Int -- ^ 'aiarsResponseStatus'+    -> AdminInitiateAuthResponse+adminInitiateAuthResponse pResponseStatus_ =+    AdminInitiateAuthResponse'+    { _aiarsChallengeName = Nothing+    , _aiarsChallengeParameters = Nothing+    , _aiarsAuthenticationResult = Nothing+    , _aiarsSession = Nothing+    , _aiarsResponseStatus = pResponseStatus_+    }++-- | The name of the challenge.+aiarsChallengeName :: Lens' AdminInitiateAuthResponse (Maybe ChallengeNameType)+aiarsChallengeName = lens _aiarsChallengeName (\ s a -> s{_aiarsChallengeName = a});++-- | The challenge parameters.+aiarsChallengeParameters :: Lens' AdminInitiateAuthResponse (HashMap Text Text)+aiarsChallengeParameters = lens _aiarsChallengeParameters (\ s a -> s{_aiarsChallengeParameters = a}) . _Default . _Map;++-- | Undocumented member.+aiarsAuthenticationResult :: Lens' AdminInitiateAuthResponse (Maybe AuthenticationResultType)+aiarsAuthenticationResult = lens _aiarsAuthenticationResult (\ s a -> s{_aiarsAuthenticationResult = a});++-- | The session.+aiarsSession :: Lens' AdminInitiateAuthResponse (Maybe Text)+aiarsSession = lens _aiarsSession (\ s a -> s{_aiarsSession = a});++-- | The response status code.+aiarsResponseStatus :: Lens' AdminInitiateAuthResponse Int+aiarsResponseStatus = lens _aiarsResponseStatus (\ s a -> s{_aiarsResponseStatus = a});++instance NFData AdminInitiateAuthResponse

@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminListDevices+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists devices, as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminListDevices+    (+    -- * Creating a Request+      adminListDevices+    , AdminListDevices+    -- * Request Lenses+    , aldPaginationToken+    , aldLimit+    , aldUserPoolId+    , aldUsername++    -- * Destructuring the Response+    , adminListDevicesResponse+    , AdminListDevicesResponse+    -- * Response Lenses+    , aldrsPaginationToken+    , aldrsDevices+    , aldrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to list devices, as an administrator.+--+-- /See:/ 'adminListDevices' smart constructor.+data AdminListDevices = AdminListDevices'+    { _aldPaginationToken :: !(Maybe Text)+    , _aldLimit           :: !(Maybe Nat)+    , _aldUserPoolId      :: !Text+    , _aldUsername        :: !(Sensitive Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminListDevices' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aldPaginationToken'+--+-- * 'aldLimit'+--+-- * 'aldUserPoolId'+--+-- * 'aldUsername'+adminListDevices+    :: Text -- ^ 'aldUserPoolId'+    -> Text -- ^ 'aldUsername'+    -> AdminListDevices+adminListDevices pUserPoolId_ pUsername_ =+    AdminListDevices'+    { _aldPaginationToken = Nothing+    , _aldLimit = Nothing+    , _aldUserPoolId = pUserPoolId_+    , _aldUsername = _Sensitive # pUsername_+    }++-- | The pagination token.+aldPaginationToken :: Lens' AdminListDevices (Maybe Text)+aldPaginationToken = lens _aldPaginationToken (\ s a -> s{_aldPaginationToken = a});++-- | The limit of the devices request.+aldLimit :: Lens' AdminListDevices (Maybe Natural)+aldLimit = lens _aldLimit (\ s a -> s{_aldLimit = a}) . mapping _Nat;++-- | The user pool ID.+aldUserPoolId :: Lens' AdminListDevices Text+aldUserPoolId = lens _aldUserPoolId (\ s a -> s{_aldUserPoolId = a});++-- | The user name.+aldUsername :: Lens' AdminListDevices Text+aldUsername = lens _aldUsername (\ s a -> s{_aldUsername = a}) . _Sensitive;++instance AWSRequest AdminListDevices where+        type Rs AdminListDevices = AdminListDevicesResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 AdminListDevicesResponse' <$>+                   (x .?> "PaginationToken") <*>+                     (x .?> "Devices" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable AdminListDevices++instance NFData AdminListDevices++instance ToHeaders AdminListDevices where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminListDevices"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminListDevices where+        toJSON AdminListDevices'{..}+          = object+              (catMaybes+                 [("PaginationToken" .=) <$> _aldPaginationToken,+                  ("Limit" .=) <$> _aldLimit,+                  Just ("UserPoolId" .= _aldUserPoolId),+                  Just ("Username" .= _aldUsername)])++instance ToPath AdminListDevices where+        toPath = const "/"++instance ToQuery AdminListDevices where+        toQuery = const mempty++-- | Lists the device\'s response, as an administrator.+--+-- /See:/ 'adminListDevicesResponse' smart constructor.+data AdminListDevicesResponse = AdminListDevicesResponse'+    { _aldrsPaginationToken :: !(Maybe Text)+    , _aldrsDevices         :: !(Maybe [DeviceType])+    , _aldrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminListDevicesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aldrsPaginationToken'+--+-- * 'aldrsDevices'+--+-- * 'aldrsResponseStatus'+adminListDevicesResponse+    :: Int -- ^ 'aldrsResponseStatus'+    -> AdminListDevicesResponse+adminListDevicesResponse pResponseStatus_ =+    AdminListDevicesResponse'+    { _aldrsPaginationToken = Nothing+    , _aldrsDevices = Nothing+    , _aldrsResponseStatus = pResponseStatus_+    }++-- | The pagination token.+aldrsPaginationToken :: Lens' AdminListDevicesResponse (Maybe Text)+aldrsPaginationToken = lens _aldrsPaginationToken (\ s a -> s{_aldrsPaginationToken = a});++-- | The devices in the list of devices response.+aldrsDevices :: Lens' AdminListDevicesResponse [DeviceType]+aldrsDevices = lens _aldrsDevices (\ s a -> s{_aldrsDevices = a}) . _Default . _Coerce;++-- | The response status code.+aldrsResponseStatus :: Lens' AdminListDevicesResponse Int+aldrsResponseStatus = lens _aldrsResponseStatus (\ s a -> s{_aldrsResponseStatus = a});++instance NFData AdminListDevicesResponse

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Resets the specified user\'s password in a user pool as an administrator. Works on any user.+--+-- When a developer calls this API, the current password is invalidated, so it must be changed. If a user tries to sign in after the API is called, the app will get a PasswordResetRequiredException exception back and should direct the user down the flow to reset the password, which is the same as the forgot password flow. In addition, if the user pool has phone verification selected and a verified phone number exists for the user, or if email verification is selected and a verified email exists for the user, calling this API will also result in sending a message to the end user with the code to change their password. module Network.AWS.CognitoIdentityProvider.AdminResetUserPassword     (     -- * Creating a Request

@@ -0,0 +1,211 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminRespondToAuthChallenge+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Responds to an authentication challenge, as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminRespondToAuthChallenge+    (+    -- * Creating a Request+      adminRespondToAuthChallenge+    , AdminRespondToAuthChallenge+    -- * Request Lenses+    , artacChallengeResponses+    , artacSession+    , artacUserPoolId+    , artacClientId+    , artacChallengeName++    -- * Destructuring the Response+    , adminRespondToAuthChallengeResponse+    , AdminRespondToAuthChallengeResponse+    -- * Response Lenses+    , artacrsChallengeName+    , artacrsChallengeParameters+    , artacrsAuthenticationResult+    , artacrsSession+    , artacrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to respond to the authentication challenge, as an administrator.+--+-- /See:/ 'adminRespondToAuthChallenge' smart constructor.+data AdminRespondToAuthChallenge = AdminRespondToAuthChallenge'+    { _artacChallengeResponses :: !(Maybe (Map Text Text))+    , _artacSession            :: !(Maybe Text)+    , _artacUserPoolId         :: !Text+    , _artacClientId           :: !(Sensitive Text)+    , _artacChallengeName      :: !ChallengeNameType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminRespondToAuthChallenge' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'artacChallengeResponses'+--+-- * 'artacSession'+--+-- * 'artacUserPoolId'+--+-- * 'artacClientId'+--+-- * 'artacChallengeName'+adminRespondToAuthChallenge+    :: Text -- ^ 'artacUserPoolId'+    -> Text -- ^ 'artacClientId'+    -> ChallengeNameType -- ^ 'artacChallengeName'+    -> AdminRespondToAuthChallenge+adminRespondToAuthChallenge pUserPoolId_ pClientId_ pChallengeName_ =+    AdminRespondToAuthChallenge'+    { _artacChallengeResponses = Nothing+    , _artacSession = Nothing+    , _artacUserPoolId = pUserPoolId_+    , _artacClientId = _Sensitive # pClientId_+    , _artacChallengeName = pChallengeName_+    }++-- | The challenge response.+artacChallengeResponses :: Lens' AdminRespondToAuthChallenge (HashMap Text Text)+artacChallengeResponses = lens _artacChallengeResponses (\ s a -> s{_artacChallengeResponses = a}) . _Default . _Map;++-- | The session.+artacSession :: Lens' AdminRespondToAuthChallenge (Maybe Text)+artacSession = lens _artacSession (\ s a -> s{_artacSession = a});++-- | The ID of the Amazon Cognito user pool.+artacUserPoolId :: Lens' AdminRespondToAuthChallenge Text+artacUserPoolId = lens _artacUserPoolId (\ s a -> s{_artacUserPoolId = a});++-- | The client ID.+artacClientId :: Lens' AdminRespondToAuthChallenge Text+artacClientId = lens _artacClientId (\ s a -> s{_artacClientId = a}) . _Sensitive;++-- | The name of the challenge.+artacChallengeName :: Lens' AdminRespondToAuthChallenge ChallengeNameType+artacChallengeName = lens _artacChallengeName (\ s a -> s{_artacChallengeName = a});++instance AWSRequest AdminRespondToAuthChallenge where+        type Rs AdminRespondToAuthChallenge =+             AdminRespondToAuthChallengeResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 AdminRespondToAuthChallengeResponse' <$>+                   (x .?> "ChallengeName") <*>+                     (x .?> "ChallengeParameters" .!@ mempty)+                     <*> (x .?> "AuthenticationResult")+                     <*> (x .?> "Session")+                     <*> (pure (fromEnum s)))++instance Hashable AdminRespondToAuthChallenge++instance NFData AdminRespondToAuthChallenge++instance ToHeaders AdminRespondToAuthChallenge where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminRespondToAuthChallenge"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminRespondToAuthChallenge where+        toJSON AdminRespondToAuthChallenge'{..}+          = object+              (catMaybes+                 [("ChallengeResponses" .=) <$>+                    _artacChallengeResponses,+                  ("Session" .=) <$> _artacSession,+                  Just ("UserPoolId" .= _artacUserPoolId),+                  Just ("ClientId" .= _artacClientId),+                  Just ("ChallengeName" .= _artacChallengeName)])++instance ToPath AdminRespondToAuthChallenge where+        toPath = const "/"++instance ToQuery AdminRespondToAuthChallenge where+        toQuery = const mempty++-- | Responds to the authentication challenge, as an administrator.+--+-- /See:/ 'adminRespondToAuthChallengeResponse' smart constructor.+data AdminRespondToAuthChallengeResponse = AdminRespondToAuthChallengeResponse'+    { _artacrsChallengeName        :: !(Maybe ChallengeNameType)+    , _artacrsChallengeParameters  :: !(Maybe (Map Text Text))+    , _artacrsAuthenticationResult :: !(Maybe AuthenticationResultType)+    , _artacrsSession              :: !(Maybe Text)+    , _artacrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminRespondToAuthChallengeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'artacrsChallengeName'+--+-- * 'artacrsChallengeParameters'+--+-- * 'artacrsAuthenticationResult'+--+-- * 'artacrsSession'+--+-- * 'artacrsResponseStatus'+adminRespondToAuthChallengeResponse+    :: Int -- ^ 'artacrsResponseStatus'+    -> AdminRespondToAuthChallengeResponse+adminRespondToAuthChallengeResponse pResponseStatus_ =+    AdminRespondToAuthChallengeResponse'+    { _artacrsChallengeName = Nothing+    , _artacrsChallengeParameters = Nothing+    , _artacrsAuthenticationResult = Nothing+    , _artacrsSession = Nothing+    , _artacrsResponseStatus = pResponseStatus_+    }++-- | The name of the challenge.+artacrsChallengeName :: Lens' AdminRespondToAuthChallengeResponse (Maybe ChallengeNameType)+artacrsChallengeName = lens _artacrsChallengeName (\ s a -> s{_artacrsChallengeName = a});++-- | The challenge parameters.+artacrsChallengeParameters :: Lens' AdminRespondToAuthChallengeResponse (HashMap Text Text)+artacrsChallengeParameters = lens _artacrsChallengeParameters (\ s a -> s{_artacrsChallengeParameters = a}) . _Default . _Map;++-- | Undocumented member.+artacrsAuthenticationResult :: Lens' AdminRespondToAuthChallengeResponse (Maybe AuthenticationResultType)+artacrsAuthenticationResult = lens _artacrsAuthenticationResult (\ s a -> s{_artacrsAuthenticationResult = a});++-- | The session.+artacrsSession :: Lens' AdminRespondToAuthChallengeResponse (Maybe Text)+artacrsSession = lens _artacrsSession (\ s a -> s{_artacrsSession = a});++-- | The response status code.+artacrsResponseStatus :: Lens' AdminRespondToAuthChallengeResponse Int+artacrsResponseStatus = lens _artacrsResponseStatus (\ s a -> s{_artacrsResponseStatus = a});++instance NFData AdminRespondToAuthChallengeResponse

@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the device status as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminUpdateDeviceStatus+    (+    -- * Creating a Request+      adminUpdateDeviceStatus+    , AdminUpdateDeviceStatus+    -- * Request Lenses+    , audsDeviceRememberedStatus+    , audsUserPoolId+    , audsUsername+    , audsDeviceKey++    -- * Destructuring the Response+    , adminUpdateDeviceStatusResponse+    , AdminUpdateDeviceStatusResponse+    -- * Response Lenses+    , audsrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to update the device status, as an administrator.+--+-- /See:/ 'adminUpdateDeviceStatus' smart constructor.+data AdminUpdateDeviceStatus = AdminUpdateDeviceStatus'+    { _audsDeviceRememberedStatus :: !(Maybe DeviceRememberedStatusType)+    , _audsUserPoolId             :: !Text+    , _audsUsername               :: !(Sensitive Text)+    , _audsDeviceKey              :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminUpdateDeviceStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'audsDeviceRememberedStatus'+--+-- * 'audsUserPoolId'+--+-- * 'audsUsername'+--+-- * 'audsDeviceKey'+adminUpdateDeviceStatus+    :: Text -- ^ 'audsUserPoolId'+    -> Text -- ^ 'audsUsername'+    -> Text -- ^ 'audsDeviceKey'+    -> AdminUpdateDeviceStatus+adminUpdateDeviceStatus pUserPoolId_ pUsername_ pDeviceKey_ =+    AdminUpdateDeviceStatus'+    { _audsDeviceRememberedStatus = Nothing+    , _audsUserPoolId = pUserPoolId_+    , _audsUsername = _Sensitive # pUsername_+    , _audsDeviceKey = pDeviceKey_+    }++-- | The status indicating whether a device has been remembered or not.+audsDeviceRememberedStatus :: Lens' AdminUpdateDeviceStatus (Maybe DeviceRememberedStatusType)+audsDeviceRememberedStatus = lens _audsDeviceRememberedStatus (\ s a -> s{_audsDeviceRememberedStatus = a});++-- | The user pool ID>+audsUserPoolId :: Lens' AdminUpdateDeviceStatus Text+audsUserPoolId = lens _audsUserPoolId (\ s a -> s{_audsUserPoolId = a});++-- | The user name.+audsUsername :: Lens' AdminUpdateDeviceStatus Text+audsUsername = lens _audsUsername (\ s a -> s{_audsUsername = a}) . _Sensitive;++-- | The device key.+audsDeviceKey :: Lens' AdminUpdateDeviceStatus Text+audsDeviceKey = lens _audsDeviceKey (\ s a -> s{_audsDeviceKey = a});++instance AWSRequest AdminUpdateDeviceStatus where+        type Rs AdminUpdateDeviceStatus =+             AdminUpdateDeviceStatusResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveEmpty+              (\ s h x ->+                 AdminUpdateDeviceStatusResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AdminUpdateDeviceStatus++instance NFData AdminUpdateDeviceStatus++instance ToHeaders AdminUpdateDeviceStatus where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminUpdateDeviceStatus"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminUpdateDeviceStatus where+        toJSON AdminUpdateDeviceStatus'{..}+          = object+              (catMaybes+                 [("DeviceRememberedStatus" .=) <$>+                    _audsDeviceRememberedStatus,+                  Just ("UserPoolId" .= _audsUserPoolId),+                  Just ("Username" .= _audsUsername),+                  Just ("DeviceKey" .= _audsDeviceKey)])++instance ToPath AdminUpdateDeviceStatus where+        toPath = const "/"++instance ToQuery AdminUpdateDeviceStatus where+        toQuery = const mempty++-- | The status response from the request to update the device, as an administrator.+--+-- /See:/ 'adminUpdateDeviceStatusResponse' smart constructor.+newtype AdminUpdateDeviceStatusResponse = AdminUpdateDeviceStatusResponse'+    { _audsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminUpdateDeviceStatusResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'audsrsResponseStatus'+adminUpdateDeviceStatusResponse+    :: Int -- ^ 'audsrsResponseStatus'+    -> AdminUpdateDeviceStatusResponse+adminUpdateDeviceStatusResponse pResponseStatus_ =+    AdminUpdateDeviceStatusResponse'+    { _audsrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+audsrsResponseStatus :: Lens' AdminUpdateDeviceStatusResponse Int+audsrsResponseStatus = lens _audsrsResponseStatus (\ s a -> s{_audsrsResponseStatus = a});++instance NFData AdminUpdateDeviceStatusResponse

@@ -0,0 +1,139 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.AdminUserGlobalSignOut+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Signs out users from all devices, as an administrator.+module Network.AWS.CognitoIdentityProvider.AdminUserGlobalSignOut+    (+    -- * Creating a Request+      adminUserGlobalSignOut+    , AdminUserGlobalSignOut+    -- * Request Lenses+    , augsoUserPoolId+    , augsoUsername++    -- * Destructuring the Response+    , adminUserGlobalSignOutResponse+    , AdminUserGlobalSignOutResponse+    -- * Response Lenses+    , augsorsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to sign out of all devices, as an administrator.+--+-- /See:/ 'adminUserGlobalSignOut' smart constructor.+data AdminUserGlobalSignOut = AdminUserGlobalSignOut'+    { _augsoUserPoolId :: !Text+    , _augsoUsername   :: !(Sensitive Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminUserGlobalSignOut' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'augsoUserPoolId'+--+-- * 'augsoUsername'+adminUserGlobalSignOut+    :: Text -- ^ 'augsoUserPoolId'+    -> Text -- ^ 'augsoUsername'+    -> AdminUserGlobalSignOut+adminUserGlobalSignOut pUserPoolId_ pUsername_ =+    AdminUserGlobalSignOut'+    { _augsoUserPoolId = pUserPoolId_+    , _augsoUsername = _Sensitive # pUsername_+    }++-- | The user pool ID.+augsoUserPoolId :: Lens' AdminUserGlobalSignOut Text+augsoUserPoolId = lens _augsoUserPoolId (\ s a -> s{_augsoUserPoolId = a});++-- | The user name.+augsoUsername :: Lens' AdminUserGlobalSignOut Text+augsoUsername = lens _augsoUsername (\ s a -> s{_augsoUsername = a}) . _Sensitive;++instance AWSRequest AdminUserGlobalSignOut where+        type Rs AdminUserGlobalSignOut =+             AdminUserGlobalSignOutResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveEmpty+              (\ s h x ->+                 AdminUserGlobalSignOutResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AdminUserGlobalSignOut++instance NFData AdminUserGlobalSignOut++instance ToHeaders AdminUserGlobalSignOut where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.AdminUserGlobalSignOut"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AdminUserGlobalSignOut where+        toJSON AdminUserGlobalSignOut'{..}+          = object+              (catMaybes+                 [Just ("UserPoolId" .= _augsoUserPoolId),+                  Just ("Username" .= _augsoUsername)])++instance ToPath AdminUserGlobalSignOut where+        toPath = const "/"++instance ToQuery AdminUserGlobalSignOut where+        toQuery = const mempty++-- | The global sign-out response, as an administrator.+--+-- /See:/ 'adminUserGlobalSignOutResponse' smart constructor.+newtype AdminUserGlobalSignOutResponse = AdminUserGlobalSignOutResponse'+    { _augsorsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AdminUserGlobalSignOutResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'augsorsResponseStatus'+adminUserGlobalSignOutResponse+    :: Int -- ^ 'augsorsResponseStatus'+    -> AdminUserGlobalSignOutResponse+adminUserGlobalSignOutResponse pResponseStatus_ =+    AdminUserGlobalSignOutResponse'+    { _augsorsResponseStatus = pResponseStatus_+    }++-- | The response status code.+augsorsResponseStatus :: Lens' AdminUserGlobalSignOutResponse Int+augsorsResponseStatus = lens _augsorsResponseStatus (\ s a -> s{_augsorsResponseStatus = a});++instance NFData AdminUserGlobalSignOutResponse

@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.ConfirmDevice+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Confirms tracking of the device. This API call is the call that beings device tracking.+module Network.AWS.CognitoIdentityProvider.ConfirmDevice+    (+    -- * Creating a Request+      confirmDevice+    , ConfirmDevice+    -- * Request Lenses+    , cdDeviceSecretVerifierConfig+    , cdDeviceName+    , cdAccessToken+    , cdDeviceKey++    -- * Destructuring the Response+    , confirmDeviceResponse+    , ConfirmDeviceResponse+    -- * Response Lenses+    , cdrsUserConfirmationNecessary+    , cdrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Confirms the device request.+--+-- /See:/ 'confirmDevice' smart constructor.+data ConfirmDevice = ConfirmDevice'+    { _cdDeviceSecretVerifierConfig :: !(Maybe DeviceSecretVerifierConfigType)+    , _cdDeviceName                 :: !(Maybe Text)+    , _cdAccessToken                :: !(Sensitive Text)+    , _cdDeviceKey                  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConfirmDevice' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdDeviceSecretVerifierConfig'+--+-- * 'cdDeviceName'+--+-- * 'cdAccessToken'+--+-- * 'cdDeviceKey'+confirmDevice+    :: Text -- ^ 'cdAccessToken'+    -> Text -- ^ 'cdDeviceKey'+    -> ConfirmDevice+confirmDevice pAccessToken_ pDeviceKey_ =+    ConfirmDevice'+    { _cdDeviceSecretVerifierConfig = Nothing+    , _cdDeviceName = Nothing+    , _cdAccessToken = _Sensitive # pAccessToken_+    , _cdDeviceKey = pDeviceKey_+    }++-- | The configuration of the device secret verifier.+cdDeviceSecretVerifierConfig :: Lens' ConfirmDevice (Maybe DeviceSecretVerifierConfigType)+cdDeviceSecretVerifierConfig = lens _cdDeviceSecretVerifierConfig (\ s a -> s{_cdDeviceSecretVerifierConfig = a});++-- | The device name.+cdDeviceName :: Lens' ConfirmDevice (Maybe Text)+cdDeviceName = lens _cdDeviceName (\ s a -> s{_cdDeviceName = a});++-- | The access token.+cdAccessToken :: Lens' ConfirmDevice Text+cdAccessToken = lens _cdAccessToken (\ s a -> s{_cdAccessToken = a}) . _Sensitive;++-- | The device key.+cdDeviceKey :: Lens' ConfirmDevice Text+cdDeviceKey = lens _cdDeviceKey (\ s a -> s{_cdDeviceKey = a});++instance AWSRequest ConfirmDevice where+        type Rs ConfirmDevice = ConfirmDeviceResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 ConfirmDeviceResponse' <$>+                   (x .?> "UserConfirmationNecessary") <*>+                     (pure (fromEnum s)))++instance Hashable ConfirmDevice++instance NFData ConfirmDevice++instance ToHeaders ConfirmDevice where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.ConfirmDevice" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ConfirmDevice where+        toJSON ConfirmDevice'{..}+          = object+              (catMaybes+                 [("DeviceSecretVerifierConfig" .=) <$>+                    _cdDeviceSecretVerifierConfig,+                  ("DeviceName" .=) <$> _cdDeviceName,+                  Just ("AccessToken" .= _cdAccessToken),+                  Just ("DeviceKey" .= _cdDeviceKey)])++instance ToPath ConfirmDevice where+        toPath = const "/"++instance ToQuery ConfirmDevice where+        toQuery = const mempty++-- | Confirms the device response.+--+-- /See:/ 'confirmDeviceResponse' smart constructor.+data ConfirmDeviceResponse = ConfirmDeviceResponse'+    { _cdrsUserConfirmationNecessary :: !(Maybe Bool)+    , _cdrsResponseStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConfirmDeviceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdrsUserConfirmationNecessary'+--+-- * 'cdrsResponseStatus'+confirmDeviceResponse+    :: Int -- ^ 'cdrsResponseStatus'+    -> ConfirmDeviceResponse+confirmDeviceResponse pResponseStatus_ =+    ConfirmDeviceResponse'+    { _cdrsUserConfirmationNecessary = Nothing+    , _cdrsResponseStatus = pResponseStatus_+    }++-- | Indicates whether the user confirmation is necessary to confirm the device response.+cdrsUserConfirmationNecessary :: Lens' ConfirmDeviceResponse (Maybe Bool)+cdrsUserConfirmationNecessary = lens _cdrsUserConfirmationNecessary (\ s a -> s{_cdrsUserConfirmationNecessary = a});++-- | The response status code.+cdrsResponseStatus :: Lens' ConfirmDeviceResponse Int+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});++instance NFData ConfirmDeviceResponse

@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.CreateUserImportJob+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates the user import job.+module Network.AWS.CognitoIdentityProvider.CreateUserImportJob+    (+    -- * Creating a Request+      createUserImportJob+    , CreateUserImportJob+    -- * Request Lenses+    , cuijJobName+    , cuijUserPoolId+    , cuijCloudWatchLogsRoleARN++    -- * Destructuring the Response+    , createUserImportJobResponse+    , CreateUserImportJobResponse+    -- * Response Lenses+    , cuijrsUserImportJob+    , cuijrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to create the user import job.+--+-- /See:/ 'createUserImportJob' smart constructor.+data CreateUserImportJob = CreateUserImportJob'+    { _cuijJobName               :: !Text+    , _cuijUserPoolId            :: !Text+    , _cuijCloudWatchLogsRoleARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateUserImportJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cuijJobName'+--+-- * 'cuijUserPoolId'+--+-- * 'cuijCloudWatchLogsRoleARN'+createUserImportJob+    :: Text -- ^ 'cuijJobName'+    -> Text -- ^ 'cuijUserPoolId'+    -> Text -- ^ 'cuijCloudWatchLogsRoleARN'+    -> CreateUserImportJob+createUserImportJob pJobName_ pUserPoolId_ pCloudWatchLogsRoleARN_ =+    CreateUserImportJob'+    { _cuijJobName = pJobName_+    , _cuijUserPoolId = pUserPoolId_+    , _cuijCloudWatchLogsRoleARN = pCloudWatchLogsRoleARN_+    }++-- | The job name for the user import job.+cuijJobName :: Lens' CreateUserImportJob Text+cuijJobName = lens _cuijJobName (\ s a -> s{_cuijJobName = a});++-- | The user pool ID for the user pool that the users are being imported into.+cuijUserPoolId :: Lens' CreateUserImportJob Text+cuijUserPoolId = lens _cuijUserPoolId (\ s a -> s{_cuijUserPoolId = a});++-- | The role ARN for the Amazon CloudWatch Logging role for the user import job.+cuijCloudWatchLogsRoleARN :: Lens' CreateUserImportJob Text+cuijCloudWatchLogsRoleARN = lens _cuijCloudWatchLogsRoleARN (\ s a -> s{_cuijCloudWatchLogsRoleARN = a});++instance AWSRequest CreateUserImportJob where+        type Rs CreateUserImportJob =+             CreateUserImportJobResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 CreateUserImportJobResponse' <$>+                   (x .?> "UserImportJob") <*> (pure (fromEnum s)))++instance Hashable CreateUserImportJob++instance NFData CreateUserImportJob++instance ToHeaders CreateUserImportJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.CreateUserImportJob"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateUserImportJob where+        toJSON CreateUserImportJob'{..}+          = object+              (catMaybes+                 [Just ("JobName" .= _cuijJobName),+                  Just ("UserPoolId" .= _cuijUserPoolId),+                  Just+                    ("CloudWatchLogsRoleArn" .=+                       _cuijCloudWatchLogsRoleARN)])++instance ToPath CreateUserImportJob where+        toPath = const "/"++instance ToQuery CreateUserImportJob where+        toQuery = const mempty++-- | Represents the response from the server to the request to create the user import job.+--+-- /See:/ 'createUserImportJobResponse' smart constructor.+data CreateUserImportJobResponse = CreateUserImportJobResponse'+    { _cuijrsUserImportJob  :: !(Maybe UserImportJobType)+    , _cuijrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateUserImportJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cuijrsUserImportJob'+--+-- * 'cuijrsResponseStatus'+createUserImportJobResponse+    :: Int -- ^ 'cuijrsResponseStatus'+    -> CreateUserImportJobResponse+createUserImportJobResponse pResponseStatus_ =+    CreateUserImportJobResponse'+    { _cuijrsUserImportJob = Nothing+    , _cuijrsResponseStatus = pResponseStatus_+    }++-- | The job object that represents the user import job.+cuijrsUserImportJob :: Lens' CreateUserImportJobResponse (Maybe UserImportJobType)+cuijrsUserImportJob = lens _cuijrsUserImportJob (\ s a -> s{_cuijrsUserImportJob = a});++-- | The response status code.+cuijrsResponseStatus :: Lens' CreateUserImportJobResponse Int+cuijrsResponseStatus = lens _cuijrsResponseStatus (\ s a -> s{_cuijrsResponseStatus = a});++instance NFData CreateUserImportJobResponse

@@ -29,9 +29,12 @@     , cupSmsAuthenticationMessage     , cupEmailVerificationSubject     , cupAliasAttributes+    , cupEmailConfiguration     , cupSmsVerificationMessage     , cupMFAConfiguration     , cupLambdaConfig+    , cupSmsConfiguration+    , cupDeviceConfiguration     , cupAutoVerifiedAttributes     , cupPolicies     , cupPoolName@@ -59,9 +62,12 @@     , _cupSmsAuthenticationMessage :: !(Maybe Text)     , _cupEmailVerificationSubject :: !(Maybe Text)     , _cupAliasAttributes          :: !(Maybe [AliasAttributeType])+    , _cupEmailConfiguration       :: !(Maybe EmailConfigurationType)     , _cupSmsVerificationMessage   :: !(Maybe Text)     , _cupMFAConfiguration         :: !(Maybe UserPoolMFAType)     , _cupLambdaConfig             :: !(Maybe LambdaConfigType)+    , _cupSmsConfiguration         :: !(Maybe SmsConfigurationType)+    , _cupDeviceConfiguration      :: !(Maybe DeviceConfigurationType)     , _cupAutoVerifiedAttributes   :: !(Maybe [VerifiedAttributeType])     , _cupPolicies                 :: !(Maybe UserPoolPolicyType)     , _cupPoolName                 :: !Text@@ -79,12 +85,18 @@ -- -- * 'cupAliasAttributes' --+-- * 'cupEmailConfiguration'+-- -- * 'cupSmsVerificationMessage' -- -- * 'cupMFAConfiguration' -- -- * 'cupLambdaConfig' --+-- * 'cupSmsConfiguration'+--+-- * 'cupDeviceConfiguration'+-- -- * 'cupAutoVerifiedAttributes' -- -- * 'cupPolicies'@@ -99,9 +111,12 @@     , _cupSmsAuthenticationMessage = Nothing     , _cupEmailVerificationSubject = Nothing     , _cupAliasAttributes = Nothing+    , _cupEmailConfiguration = Nothing     , _cupSmsVerificationMessage = Nothing     , _cupMFAConfiguration = Nothing     , _cupLambdaConfig = Nothing+    , _cupSmsConfiguration = Nothing+    , _cupDeviceConfiguration = Nothing     , _cupAutoVerifiedAttributes = Nothing     , _cupPolicies = Nothing     , _cupPoolName = pPoolName_@@ -123,6 +138,10 @@ cupAliasAttributes :: Lens' CreateUserPool [AliasAttributeType] cupAliasAttributes = lens _cupAliasAttributes (\ s a -> s{_cupAliasAttributes = a}) . _Default . _Coerce; +-- | The email configuration.+cupEmailConfiguration :: Lens' CreateUserPool (Maybe EmailConfigurationType)+cupEmailConfiguration = lens _cupEmailConfiguration (\ s a -> s{_cupEmailConfiguration = a});+ -- | A string representing the SMS verification message. cupSmsVerificationMessage :: Lens' CreateUserPool (Maybe Text) cupSmsVerificationMessage = lens _cupSmsVerificationMessage (\ s a -> s{_cupSmsVerificationMessage = a});@@ -135,6 +154,14 @@ cupLambdaConfig :: Lens' CreateUserPool (Maybe LambdaConfigType) cupLambdaConfig = lens _cupLambdaConfig (\ s a -> s{_cupLambdaConfig = a}); +-- | The SMS configuration.+cupSmsConfiguration :: Lens' CreateUserPool (Maybe SmsConfigurationType)+cupSmsConfiguration = lens _cupSmsConfiguration (\ s a -> s{_cupSmsConfiguration = a});++-- | The device configuration.+cupDeviceConfiguration :: Lens' CreateUserPool (Maybe DeviceConfigurationType)+cupDeviceConfiguration = lens _cupDeviceConfiguration (\ s a -> s{_cupDeviceConfiguration = a});+ -- | The attributes to be auto-verified. Possible values: __email__, __phone_number__. cupAutoVerifiedAttributes :: Lens' CreateUserPool [VerifiedAttributeType] cupAutoVerifiedAttributes = lens _cupAutoVerifiedAttributes (\ s a -> s{_cupAutoVerifiedAttributes = a}) . _Default . _Coerce;@@ -181,10 +208,14 @@                   ("EmailVerificationSubject" .=) <$>                     _cupEmailVerificationSubject,                   ("AliasAttributes" .=) <$> _cupAliasAttributes,+                  ("EmailConfiguration" .=) <$> _cupEmailConfiguration,                   ("SmsVerificationMessage" .=) <$>                     _cupSmsVerificationMessage,                   ("MfaConfiguration" .=) <$> _cupMFAConfiguration,                   ("LambdaConfig" .=) <$> _cupLambdaConfig,+                  ("SmsConfiguration" .=) <$> _cupSmsConfiguration,+                  ("DeviceConfiguration" .=) <$>+                    _cupDeviceConfiguration,                   ("AutoVerifiedAttributes" .=) <$>                     _cupAutoVerifiedAttributes,                   ("Policies" .=) <$> _cupPolicies,

@@ -25,7 +25,11 @@       createUserPoolClient     , CreateUserPoolClient     -- * Request Lenses+    , cupcRefreshTokenValidity+    , cupcExplicitAuthFlows     , cupcGenerateSecret+    , cupcWriteAttributes+    , cupcReadAttributes     , cupcUserPoolId     , cupcClientName @@ -48,17 +52,29 @@ -- -- /See:/ 'createUserPoolClient' smart constructor. data CreateUserPoolClient = CreateUserPoolClient'-    { _cupcGenerateSecret :: !(Maybe Bool)-    , _cupcUserPoolId     :: !Text-    , _cupcClientName     :: !Text+    { _cupcRefreshTokenValidity :: !(Maybe Nat)+    , _cupcExplicitAuthFlows    :: !(Maybe [ExplicitAuthFlowsType])+    , _cupcGenerateSecret       :: !(Maybe Bool)+    , _cupcWriteAttributes      :: !(Maybe [Text])+    , _cupcReadAttributes       :: !(Maybe [Text])+    , _cupcUserPoolId           :: !Text+    , _cupcClientName           :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateUserPoolClient' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'cupcRefreshTokenValidity'+--+-- * 'cupcExplicitAuthFlows'+-- -- * 'cupcGenerateSecret' --+-- * 'cupcWriteAttributes'+--+-- * 'cupcReadAttributes'+-- -- * 'cupcUserPoolId' -- -- * 'cupcClientName'@@ -68,15 +84,35 @@     -> CreateUserPoolClient createUserPoolClient pUserPoolId_ pClientName_ =     CreateUserPoolClient'-    { _cupcGenerateSecret = Nothing+    { _cupcRefreshTokenValidity = Nothing+    , _cupcExplicitAuthFlows = Nothing+    , _cupcGenerateSecret = Nothing+    , _cupcWriteAttributes = Nothing+    , _cupcReadAttributes = Nothing     , _cupcUserPoolId = pUserPoolId_     , _cupcClientName = pClientName_     } +-- | Refreshes the token validity.+cupcRefreshTokenValidity :: Lens' CreateUserPoolClient (Maybe Natural)+cupcRefreshTokenValidity = lens _cupcRefreshTokenValidity (\ s a -> s{_cupcRefreshTokenValidity = a}) . mapping _Nat;++-- | The explicit authentication flows.+cupcExplicitAuthFlows :: Lens' CreateUserPoolClient [ExplicitAuthFlowsType]+cupcExplicitAuthFlows = lens _cupcExplicitAuthFlows (\ s a -> s{_cupcExplicitAuthFlows = a}) . _Default . _Coerce;+ -- | Boolean to specify whether you want to generate a secret for the user pool client being created. cupcGenerateSecret :: Lens' CreateUserPoolClient (Maybe Bool) cupcGenerateSecret = lens _cupcGenerateSecret (\ s a -> s{_cupcGenerateSecret = a}); +-- | The write attributes.+cupcWriteAttributes :: Lens' CreateUserPoolClient [Text]+cupcWriteAttributes = lens _cupcWriteAttributes (\ s a -> s{_cupcWriteAttributes = a}) . _Default . _Coerce;++-- | The read attributes.+cupcReadAttributes :: Lens' CreateUserPoolClient [Text]+cupcReadAttributes = lens _cupcReadAttributes (\ s a -> s{_cupcReadAttributes = a}) . _Default . _Coerce;+ -- | The user pool ID for the user pool where you want to create a user pool client. cupcUserPoolId :: Lens' CreateUserPoolClient Text cupcUserPoolId = lens _cupcUserPoolId (\ s a -> s{_cupcUserPoolId = a});@@ -113,7 +149,12 @@         toJSON CreateUserPoolClient'{..}           = object               (catMaybes-                 [("GenerateSecret" .=) <$> _cupcGenerateSecret,+                 [("RefreshTokenValidity" .=) <$>+                    _cupcRefreshTokenValidity,+                  ("ExplicitAuthFlows" .=) <$> _cupcExplicitAuthFlows,+                  ("GenerateSecret" .=) <$> _cupcGenerateSecret,+                  ("WriteAttributes" .=) <$> _cupcWriteAttributes,+                  ("ReadAttributes" .=) <$> _cupcReadAttributes,                   Just ("UserPoolId" .= _cupcUserPoolId),                   Just ("ClientName" .= _cupcClientName)]) 

@@ -0,0 +1,148 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.DescribeUserImportJob+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the user import job.+module Network.AWS.CognitoIdentityProvider.DescribeUserImportJob+    (+    -- * Creating a Request+      describeUserImportJob+    , DescribeUserImportJob+    -- * Request Lenses+    , duijUserPoolId+    , duijJobId++    -- * Destructuring the Response+    , describeUserImportJobResponse+    , DescribeUserImportJobResponse+    -- * Response Lenses+    , duijrsUserImportJob+    , duijrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to describe the user import job.+--+-- /See:/ 'describeUserImportJob' smart constructor.+data DescribeUserImportJob = DescribeUserImportJob'+    { _duijUserPoolId :: !Text+    , _duijJobId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeUserImportJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'duijUserPoolId'+--+-- * 'duijJobId'+describeUserImportJob+    :: Text -- ^ 'duijUserPoolId'+    -> Text -- ^ 'duijJobId'+    -> DescribeUserImportJob+describeUserImportJob pUserPoolId_ pJobId_ =+    DescribeUserImportJob'+    { _duijUserPoolId = pUserPoolId_+    , _duijJobId = pJobId_+    }++-- | The user pool ID for the user pool that the users are being imported into.+duijUserPoolId :: Lens' DescribeUserImportJob Text+duijUserPoolId = lens _duijUserPoolId (\ s a -> s{_duijUserPoolId = a});++-- | The job ID for the user import job.+duijJobId :: Lens' DescribeUserImportJob Text+duijJobId = lens _duijJobId (\ s a -> s{_duijJobId = a});++instance AWSRequest DescribeUserImportJob where+        type Rs DescribeUserImportJob =+             DescribeUserImportJobResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 DescribeUserImportJobResponse' <$>+                   (x .?> "UserImportJob") <*> (pure (fromEnum s)))++instance Hashable DescribeUserImportJob++instance NFData DescribeUserImportJob++instance ToHeaders DescribeUserImportJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.DescribeUserImportJob"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeUserImportJob where+        toJSON DescribeUserImportJob'{..}+          = object+              (catMaybes+                 [Just ("UserPoolId" .= _duijUserPoolId),+                  Just ("JobId" .= _duijJobId)])++instance ToPath DescribeUserImportJob where+        toPath = const "/"++instance ToQuery DescribeUserImportJob where+        toQuery = const mempty++-- | Represents the response from the server to the request to describe the user import job.+--+-- /See:/ 'describeUserImportJobResponse' smart constructor.+data DescribeUserImportJobResponse = DescribeUserImportJobResponse'+    { _duijrsUserImportJob  :: !(Maybe UserImportJobType)+    , _duijrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeUserImportJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'duijrsUserImportJob'+--+-- * 'duijrsResponseStatus'+describeUserImportJobResponse+    :: Int -- ^ 'duijrsResponseStatus'+    -> DescribeUserImportJobResponse+describeUserImportJobResponse pResponseStatus_ =+    DescribeUserImportJobResponse'+    { _duijrsUserImportJob = Nothing+    , _duijrsResponseStatus = pResponseStatus_+    }++-- | The job object that represents the user import job.+duijrsUserImportJob :: Lens' DescribeUserImportJobResponse (Maybe UserImportJobType)+duijrsUserImportJob = lens _duijrsUserImportJob (\ s a -> s{_duijrsUserImportJob = a});++-- | The response status code.+duijrsResponseStatus :: Lens' DescribeUserImportJobResponse Int+duijrsResponseStatus = lens _duijrsResponseStatus (\ s a -> s{_duijrsResponseStatus = a});++instance NFData DescribeUserImportJobResponse

@@ -0,0 +1,118 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.ForgetDevice+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Forgets the specified device.+module Network.AWS.CognitoIdentityProvider.ForgetDevice+    (+    -- * Creating a Request+      forgetDevice+    , ForgetDevice+    -- * Request Lenses+    , fdAccessToken+    , fdDeviceKey++    -- * Destructuring the Response+    , forgetDeviceResponse+    , ForgetDeviceResponse+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to forget the device.+--+-- /See:/ 'forgetDevice' smart constructor.+data ForgetDevice = ForgetDevice'+    { _fdAccessToken :: !(Maybe (Sensitive Text))+    , _fdDeviceKey   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ForgetDevice' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fdAccessToken'+--+-- * 'fdDeviceKey'+forgetDevice+    :: Text -- ^ 'fdDeviceKey'+    -> ForgetDevice+forgetDevice pDeviceKey_ =+    ForgetDevice'+    { _fdAccessToken = Nothing+    , _fdDeviceKey = pDeviceKey_+    }++-- | The access token for the forgotten device request.+fdAccessToken :: Lens' ForgetDevice (Maybe Text)+fdAccessToken = lens _fdAccessToken (\ s a -> s{_fdAccessToken = a}) . mapping _Sensitive;++-- | The device key.+fdDeviceKey :: Lens' ForgetDevice Text+fdDeviceKey = lens _fdDeviceKey (\ s a -> s{_fdDeviceKey = a});++instance AWSRequest ForgetDevice where+        type Rs ForgetDevice = ForgetDeviceResponse+        request = postJSON cognitoIdentityProvider+        response = receiveNull ForgetDeviceResponse'++instance Hashable ForgetDevice++instance NFData ForgetDevice++instance ToHeaders ForgetDevice where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.ForgetDevice" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ForgetDevice where+        toJSON ForgetDevice'{..}+          = object+              (catMaybes+                 [("AccessToken" .=) <$> _fdAccessToken,+                  Just ("DeviceKey" .= _fdDeviceKey)])++instance ToPath ForgetDevice where+        toPath = const "/"++instance ToQuery ForgetDevice where+        toQuery = const mempty++-- | /See:/ 'forgetDeviceResponse' smart constructor.+data ForgetDeviceResponse =+    ForgetDeviceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ForgetDeviceResponse' with the minimum fields required to make a request.+--+forgetDeviceResponse+    :: ForgetDeviceResponse+forgetDeviceResponse = ForgetDeviceResponse'++instance NFData ForgetDeviceResponse

@@ -0,0 +1,146 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.GetCSVHeader+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the header information for the .csv file to be used as input for the user import job.+module Network.AWS.CognitoIdentityProvider.GetCSVHeader+    (+    -- * Creating a Request+      getCSVHeader+    , GetCSVHeader+    -- * Request Lenses+    , gchUserPoolId++    -- * Destructuring the Response+    , getCSVHeaderResponse+    , GetCSVHeaderResponse+    -- * Response Lenses+    , gchrsUserPoolId+    , gchrsCSVHeader+    , gchrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to get the header information for the .csv file for the user import job.+--+-- /See:/ 'getCSVHeader' smart constructor.+newtype GetCSVHeader = GetCSVHeader'+    { _gchUserPoolId :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetCSVHeader' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gchUserPoolId'+getCSVHeader+    :: Text -- ^ 'gchUserPoolId'+    -> GetCSVHeader+getCSVHeader pUserPoolId_ =+    GetCSVHeader'+    { _gchUserPoolId = pUserPoolId_+    }++-- | The user pool ID for the user pool that the users are to be imported into.+gchUserPoolId :: Lens' GetCSVHeader Text+gchUserPoolId = lens _gchUserPoolId (\ s a -> s{_gchUserPoolId = a});++instance AWSRequest GetCSVHeader where+        type Rs GetCSVHeader = GetCSVHeaderResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 GetCSVHeaderResponse' <$>+                   (x .?> "UserPoolId") <*>+                     (x .?> "CSVHeader" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetCSVHeader++instance NFData GetCSVHeader++instance ToHeaders GetCSVHeader where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.GetCSVHeader" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetCSVHeader where+        toJSON GetCSVHeader'{..}+          = object+              (catMaybes [Just ("UserPoolId" .= _gchUserPoolId)])++instance ToPath GetCSVHeader where+        toPath = const "/"++instance ToQuery GetCSVHeader where+        toQuery = const mempty++-- | Represents the response from the server to the request to get the header information for the .csv file for the user import job.+--+-- /See:/ 'getCSVHeaderResponse' smart constructor.+data GetCSVHeaderResponse = GetCSVHeaderResponse'+    { _gchrsUserPoolId     :: !(Maybe Text)+    , _gchrsCSVHeader      :: !(Maybe [Text])+    , _gchrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetCSVHeaderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gchrsUserPoolId'+--+-- * 'gchrsCSVHeader'+--+-- * 'gchrsResponseStatus'+getCSVHeaderResponse+    :: Int -- ^ 'gchrsResponseStatus'+    -> GetCSVHeaderResponse+getCSVHeaderResponse pResponseStatus_ =+    GetCSVHeaderResponse'+    { _gchrsUserPoolId = Nothing+    , _gchrsCSVHeader = Nothing+    , _gchrsResponseStatus = pResponseStatus_+    }++-- | The user pool ID for the user pool that the users are to be imported into.+gchrsUserPoolId :: Lens' GetCSVHeaderResponse (Maybe Text)+gchrsUserPoolId = lens _gchrsUserPoolId (\ s a -> s{_gchrsUserPoolId = a});++-- | The header information for the .csv file for the user import job.+gchrsCSVHeader :: Lens' GetCSVHeaderResponse [Text]+gchrsCSVHeader = lens _gchrsCSVHeader (\ s a -> s{_gchrsCSVHeader = a}) . _Default . _Coerce;++-- | The response status code.+gchrsResponseStatus :: Lens' GetCSVHeaderResponse Int+gchrsResponseStatus = lens _gchrsResponseStatus (\ s a -> s{_gchrsResponseStatus = a});++instance NFData GetCSVHeaderResponse

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.GetDevice+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the device.+module Network.AWS.CognitoIdentityProvider.GetDevice+    (+    -- * Creating a Request+      getDevice+    , GetDevice+    -- * Request Lenses+    , gdAccessToken+    , gdDeviceKey++    -- * Destructuring the Response+    , getDeviceResponse+    , GetDeviceResponse+    -- * Response Lenses+    , gdrsResponseStatus+    , gdrsDevice+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to get the device.+--+-- /See:/ 'getDevice' smart constructor.+data GetDevice = GetDevice'+    { _gdAccessToken :: !(Maybe (Sensitive Text))+    , _gdDeviceKey   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDevice' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdAccessToken'+--+-- * 'gdDeviceKey'+getDevice+    :: Text -- ^ 'gdDeviceKey'+    -> GetDevice+getDevice pDeviceKey_ =+    GetDevice'+    { _gdAccessToken = Nothing+    , _gdDeviceKey = pDeviceKey_+    }++-- | The access token.+gdAccessToken :: Lens' GetDevice (Maybe Text)+gdAccessToken = lens _gdAccessToken (\ s a -> s{_gdAccessToken = a}) . mapping _Sensitive;++-- | The device key.+gdDeviceKey :: Lens' GetDevice Text+gdDeviceKey = lens _gdDeviceKey (\ s a -> s{_gdDeviceKey = a});++instance AWSRequest GetDevice where+        type Rs GetDevice = GetDeviceResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 GetDeviceResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "Device"))++instance Hashable GetDevice++instance NFData GetDevice++instance ToHeaders GetDevice where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.GetDevice" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetDevice where+        toJSON GetDevice'{..}+          = object+              (catMaybes+                 [("AccessToken" .=) <$> _gdAccessToken,+                  Just ("DeviceKey" .= _gdDeviceKey)])++instance ToPath GetDevice where+        toPath = const "/"++instance ToQuery GetDevice where+        toQuery = const mempty++-- | Gets the device response.+--+-- /See:/ 'getDeviceResponse' smart constructor.+data GetDeviceResponse = GetDeviceResponse'+    { _gdrsResponseStatus :: !Int+    , _gdrsDevice         :: !DeviceType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDeviceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdrsResponseStatus'+--+-- * 'gdrsDevice'+getDeviceResponse+    :: Int -- ^ 'gdrsResponseStatus'+    -> DeviceType -- ^ 'gdrsDevice'+    -> GetDeviceResponse+getDeviceResponse pResponseStatus_ pDevice_ =+    GetDeviceResponse'+    { _gdrsResponseStatus = pResponseStatus_+    , _gdrsDevice = pDevice_+    }++-- | The response status code.+gdrsResponseStatus :: Lens' GetDeviceResponse Int+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});++-- | The device.+gdrsDevice :: Lens' GetDeviceResponse DeviceType+gdrsDevice = lens _gdrsDevice (\ s a -> s{_gdrsDevice = a});++instance NFData GetDeviceResponse

@@ -0,0 +1,124 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.GlobalSignOut+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Signs out users from all devices.+module Network.AWS.CognitoIdentityProvider.GlobalSignOut+    (+    -- * Creating a Request+      globalSignOut+    , GlobalSignOut+    -- * Request Lenses+    , gsoAccessToken++    -- * Destructuring the Response+    , globalSignOutResponse+    , GlobalSignOutResponse+    -- * Response Lenses+    , gsorsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to sign out all devices.+--+-- /See:/ 'globalSignOut' smart constructor.+newtype GlobalSignOut = GlobalSignOut'+    { _gsoAccessToken :: Maybe (Sensitive Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GlobalSignOut' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gsoAccessToken'+globalSignOut+    :: GlobalSignOut+globalSignOut =+    GlobalSignOut'+    { _gsoAccessToken = Nothing+    }++-- | The access token.+gsoAccessToken :: Lens' GlobalSignOut (Maybe Text)+gsoAccessToken = lens _gsoAccessToken (\ s a -> s{_gsoAccessToken = a}) . mapping _Sensitive;++instance AWSRequest GlobalSignOut where+        type Rs GlobalSignOut = GlobalSignOutResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveEmpty+              (\ s h x ->+                 GlobalSignOutResponse' <$> (pure (fromEnum s)))++instance Hashable GlobalSignOut++instance NFData GlobalSignOut++instance ToHeaders GlobalSignOut where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.GlobalSignOut" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GlobalSignOut where+        toJSON GlobalSignOut'{..}+          = object+              (catMaybes [("AccessToken" .=) <$> _gsoAccessToken])++instance ToPath GlobalSignOut where+        toPath = const "/"++instance ToQuery GlobalSignOut where+        toQuery = const mempty++-- | The response to the request to sign out all devices.+--+-- /See:/ 'globalSignOutResponse' smart constructor.+newtype GlobalSignOutResponse = GlobalSignOutResponse'+    { _gsorsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GlobalSignOutResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gsorsResponseStatus'+globalSignOutResponse+    :: Int -- ^ 'gsorsResponseStatus'+    -> GlobalSignOutResponse+globalSignOutResponse pResponseStatus_ =+    GlobalSignOutResponse'+    { _gsorsResponseStatus = pResponseStatus_+    }++-- | The response status code.+gsorsResponseStatus :: Lens' GlobalSignOutResponse Int+gsorsResponseStatus = lens _gsorsResponseStatus (\ s a -> s{_gsorsResponseStatus = a});++instance NFData GlobalSignOutResponse

@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.InitiateAuth+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Initiates the authentication flow.+module Network.AWS.CognitoIdentityProvider.InitiateAuth+    (+    -- * Creating a Request+      initiateAuth+    , InitiateAuth+    -- * Request Lenses+    , iaClientMetadata+    , iaAuthParameters+    , iaAuthFlow+    , iaClientId++    -- * Destructuring the Response+    , initiateAuthResponse+    , InitiateAuthResponse+    -- * Response Lenses+    , iarsChallengeName+    , iarsChallengeParameters+    , iarsAuthenticationResult+    , iarsSession+    , iarsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Initiates the authentication request.+--+-- /See:/ 'initiateAuth' smart constructor.+data InitiateAuth = InitiateAuth'+    { _iaClientMetadata :: !(Maybe (Map Text Text))+    , _iaAuthParameters :: !(Maybe (Map Text Text))+    , _iaAuthFlow       :: !AuthFlowType+    , _iaClientId       :: !(Sensitive Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'InitiateAuth' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iaClientMetadata'+--+-- * 'iaAuthParameters'+--+-- * 'iaAuthFlow'+--+-- * 'iaClientId'+initiateAuth+    :: AuthFlowType -- ^ 'iaAuthFlow'+    -> Text -- ^ 'iaClientId'+    -> InitiateAuth+initiateAuth pAuthFlow_ pClientId_ =+    InitiateAuth'+    { _iaClientMetadata = Nothing+    , _iaAuthParameters = Nothing+    , _iaAuthFlow = pAuthFlow_+    , _iaClientId = _Sensitive # pClientId_+    }++-- | The client app\'s metadata.+iaClientMetadata :: Lens' InitiateAuth (HashMap Text Text)+iaClientMetadata = lens _iaClientMetadata (\ s a -> s{_iaClientMetadata = a}) . _Default . _Map;++-- | The authentication parameters.+iaAuthParameters :: Lens' InitiateAuth (HashMap Text Text)+iaAuthParameters = lens _iaAuthParameters (\ s a -> s{_iaAuthParameters = a}) . _Default . _Map;++-- | The authentication flow.+iaAuthFlow :: Lens' InitiateAuth AuthFlowType+iaAuthFlow = lens _iaAuthFlow (\ s a -> s{_iaAuthFlow = a});++-- | The client ID.+iaClientId :: Lens' InitiateAuth Text+iaClientId = lens _iaClientId (\ s a -> s{_iaClientId = a}) . _Sensitive;++instance AWSRequest InitiateAuth where+        type Rs InitiateAuth = InitiateAuthResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 InitiateAuthResponse' <$>+                   (x .?> "ChallengeName") <*>+                     (x .?> "ChallengeParameters" .!@ mempty)+                     <*> (x .?> "AuthenticationResult")+                     <*> (x .?> "Session")+                     <*> (pure (fromEnum s)))++instance Hashable InitiateAuth++instance NFData InitiateAuth++instance ToHeaders InitiateAuth where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.InitiateAuth" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON InitiateAuth where+        toJSON InitiateAuth'{..}+          = object+              (catMaybes+                 [("ClientMetadata" .=) <$> _iaClientMetadata,+                  ("AuthParameters" .=) <$> _iaAuthParameters,+                  Just ("AuthFlow" .= _iaAuthFlow),+                  Just ("ClientId" .= _iaClientId)])++instance ToPath InitiateAuth where+        toPath = const "/"++instance ToQuery InitiateAuth where+        toQuery = const mempty++-- | Initiates the authentication response.+--+-- /See:/ 'initiateAuthResponse' smart constructor.+data InitiateAuthResponse = InitiateAuthResponse'+    { _iarsChallengeName        :: !(Maybe ChallengeNameType)+    , _iarsChallengeParameters  :: !(Maybe (Map Text Text))+    , _iarsAuthenticationResult :: !(Maybe AuthenticationResultType)+    , _iarsSession              :: !(Maybe Text)+    , _iarsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'InitiateAuthResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iarsChallengeName'+--+-- * 'iarsChallengeParameters'+--+-- * 'iarsAuthenticationResult'+--+-- * 'iarsSession'+--+-- * 'iarsResponseStatus'+initiateAuthResponse+    :: Int -- ^ 'iarsResponseStatus'+    -> InitiateAuthResponse+initiateAuthResponse pResponseStatus_ =+    InitiateAuthResponse'+    { _iarsChallengeName = Nothing+    , _iarsChallengeParameters = Nothing+    , _iarsAuthenticationResult = Nothing+    , _iarsSession = Nothing+    , _iarsResponseStatus = pResponseStatus_+    }++-- | The name of the challenge.+iarsChallengeName :: Lens' InitiateAuthResponse (Maybe ChallengeNameType)+iarsChallengeName = lens _iarsChallengeName (\ s a -> s{_iarsChallengeName = a});++-- | The challenge parameters.+iarsChallengeParameters :: Lens' InitiateAuthResponse (HashMap Text Text)+iarsChallengeParameters = lens _iarsChallengeParameters (\ s a -> s{_iarsChallengeParameters = a}) . _Default . _Map;++-- | Undocumented member.+iarsAuthenticationResult :: Lens' InitiateAuthResponse (Maybe AuthenticationResultType)+iarsAuthenticationResult = lens _iarsAuthenticationResult (\ s a -> s{_iarsAuthenticationResult = a});++-- | The session.+iarsSession :: Lens' InitiateAuthResponse (Maybe Text)+iarsSession = lens _iarsSession (\ s a -> s{_iarsSession = a});++-- | The response status code.+iarsResponseStatus :: Lens' InitiateAuthResponse Int+iarsResponseStatus = lens _iarsResponseStatus (\ s a -> s{_iarsResponseStatus = a});++instance NFData InitiateAuthResponse

@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.ListDevices+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the devices.+module Network.AWS.CognitoIdentityProvider.ListDevices+    (+    -- * Creating a Request+      listDevices+    , ListDevices+    -- * Request Lenses+    , ldPaginationToken+    , ldLimit+    , ldAccessToken++    -- * Destructuring the Response+    , listDevicesResponse+    , ListDevicesResponse+    -- * Response Lenses+    , ldrsPaginationToken+    , ldrsDevices+    , ldrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to list the devices.+--+-- /See:/ 'listDevices' smart constructor.+data ListDevices = ListDevices'+    { _ldPaginationToken :: !(Maybe Text)+    , _ldLimit           :: !(Maybe Nat)+    , _ldAccessToken     :: !(Sensitive Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListDevices' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ldPaginationToken'+--+-- * 'ldLimit'+--+-- * 'ldAccessToken'+listDevices+    :: Text -- ^ 'ldAccessToken'+    -> ListDevices+listDevices pAccessToken_ =+    ListDevices'+    { _ldPaginationToken = Nothing+    , _ldLimit = Nothing+    , _ldAccessToken = _Sensitive # pAccessToken_+    }++-- | The pagination token for the list request.+ldPaginationToken :: Lens' ListDevices (Maybe Text)+ldPaginationToken = lens _ldPaginationToken (\ s a -> s{_ldPaginationToken = a});++-- | The limit of the device request.+ldLimit :: Lens' ListDevices (Maybe Natural)+ldLimit = lens _ldLimit (\ s a -> s{_ldLimit = a}) . mapping _Nat;++-- | The access tokens for the request to list devices.+ldAccessToken :: Lens' ListDevices Text+ldAccessToken = lens _ldAccessToken (\ s a -> s{_ldAccessToken = a}) . _Sensitive;++instance AWSRequest ListDevices where+        type Rs ListDevices = ListDevicesResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 ListDevicesResponse' <$>+                   (x .?> "PaginationToken") <*>+                     (x .?> "Devices" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListDevices++instance NFData ListDevices++instance ToHeaders ListDevices where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.ListDevices" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListDevices where+        toJSON ListDevices'{..}+          = object+              (catMaybes+                 [("PaginationToken" .=) <$> _ldPaginationToken,+                  ("Limit" .=) <$> _ldLimit,+                  Just ("AccessToken" .= _ldAccessToken)])++instance ToPath ListDevices where+        toPath = const "/"++instance ToQuery ListDevices where+        toQuery = const mempty++-- | Represents the response to list devices.+--+-- /See:/ 'listDevicesResponse' smart constructor.+data ListDevicesResponse = ListDevicesResponse'+    { _ldrsPaginationToken :: !(Maybe Text)+    , _ldrsDevices         :: !(Maybe [DeviceType])+    , _ldrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListDevicesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ldrsPaginationToken'+--+-- * 'ldrsDevices'+--+-- * 'ldrsResponseStatus'+listDevicesResponse+    :: Int -- ^ 'ldrsResponseStatus'+    -> ListDevicesResponse+listDevicesResponse pResponseStatus_ =+    ListDevicesResponse'+    { _ldrsPaginationToken = Nothing+    , _ldrsDevices = Nothing+    , _ldrsResponseStatus = pResponseStatus_+    }++-- | The pagination token for the list device response.+ldrsPaginationToken :: Lens' ListDevicesResponse (Maybe Text)+ldrsPaginationToken = lens _ldrsPaginationToken (\ s a -> s{_ldrsPaginationToken = a});++-- | The devices returned in the list devices response.+ldrsDevices :: Lens' ListDevicesResponse [DeviceType]+ldrsDevices = lens _ldrsDevices (\ s a -> s{_ldrsDevices = a}) . _Default . _Coerce;++-- | The response status code.+ldrsResponseStatus :: Lens' ListDevicesResponse Int+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});++instance NFData ListDevicesResponse

@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.ListUserImportJobs+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the user import jobs.+module Network.AWS.CognitoIdentityProvider.ListUserImportJobs+    (+    -- * Creating a Request+      listUserImportJobs+    , ListUserImportJobs+    -- * Request Lenses+    , luijPaginationToken+    , luijUserPoolId+    , luijMaxResults++    -- * Destructuring the Response+    , listUserImportJobsResponse+    , ListUserImportJobsResponse+    -- * Response Lenses+    , luijrsPaginationToken+    , luijrsUserImportJobs+    , luijrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to list the user import jobs.+--+-- /See:/ 'listUserImportJobs' smart constructor.+data ListUserImportJobs = ListUserImportJobs'+    { _luijPaginationToken :: !(Maybe Text)+    , _luijUserPoolId      :: !Text+    , _luijMaxResults      :: !Nat+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListUserImportJobs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'luijPaginationToken'+--+-- * 'luijUserPoolId'+--+-- * 'luijMaxResults'+listUserImportJobs+    :: Text -- ^ 'luijUserPoolId'+    -> Natural -- ^ 'luijMaxResults'+    -> ListUserImportJobs+listUserImportJobs pUserPoolId_ pMaxResults_ =+    ListUserImportJobs'+    { _luijPaginationToken = Nothing+    , _luijUserPoolId = pUserPoolId_+    , _luijMaxResults = _Nat # pMaxResults_+    }++-- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of import jobs in the list.+luijPaginationToken :: Lens' ListUserImportJobs (Maybe Text)+luijPaginationToken = lens _luijPaginationToken (\ s a -> s{_luijPaginationToken = a});++-- | The user pool ID for the user pool that the users are being imported into.+luijUserPoolId :: Lens' ListUserImportJobs Text+luijUserPoolId = lens _luijUserPoolId (\ s a -> s{_luijUserPoolId = a});++-- | The maximum number of import jobs you want the request to return.+luijMaxResults :: Lens' ListUserImportJobs Natural+luijMaxResults = lens _luijMaxResults (\ s a -> s{_luijMaxResults = a}) . _Nat;++instance AWSRequest ListUserImportJobs where+        type Rs ListUserImportJobs =+             ListUserImportJobsResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 ListUserImportJobsResponse' <$>+                   (x .?> "PaginationToken") <*>+                     (x .?> "UserImportJobs")+                     <*> (pure (fromEnum s)))++instance Hashable ListUserImportJobs++instance NFData ListUserImportJobs++instance ToHeaders ListUserImportJobs where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.ListUserImportJobs"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListUserImportJobs where+        toJSON ListUserImportJobs'{..}+          = object+              (catMaybes+                 [("PaginationToken" .=) <$> _luijPaginationToken,+                  Just ("UserPoolId" .= _luijUserPoolId),+                  Just ("MaxResults" .= _luijMaxResults)])++instance ToPath ListUserImportJobs where+        toPath = const "/"++instance ToQuery ListUserImportJobs where+        toQuery = const mempty++-- | Represents the response from the server to the request to list the user import jobs.+--+-- /See:/ 'listUserImportJobsResponse' smart constructor.+data ListUserImportJobsResponse = ListUserImportJobsResponse'+    { _luijrsPaginationToken :: !(Maybe Text)+    , _luijrsUserImportJobs  :: !(Maybe (List1 UserImportJobType))+    , _luijrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListUserImportJobsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'luijrsPaginationToken'+--+-- * 'luijrsUserImportJobs'+--+-- * 'luijrsResponseStatus'+listUserImportJobsResponse+    :: Int -- ^ 'luijrsResponseStatus'+    -> ListUserImportJobsResponse+listUserImportJobsResponse pResponseStatus_ =+    ListUserImportJobsResponse'+    { _luijrsPaginationToken = Nothing+    , _luijrsUserImportJobs = Nothing+    , _luijrsResponseStatus = pResponseStatus_+    }++-- | An identifier that can be used to return the next set of user import jobs in the list.+luijrsPaginationToken :: Lens' ListUserImportJobsResponse (Maybe Text)+luijrsPaginationToken = lens _luijrsPaginationToken (\ s a -> s{_luijrsPaginationToken = a});++-- | The user import jobs.+luijrsUserImportJobs :: Lens' ListUserImportJobsResponse (Maybe (NonEmpty UserImportJobType))+luijrsUserImportJobs = lens _luijrsUserImportJobs (\ s a -> s{_luijrsUserImportJobs = a}) . mapping _List1;++-- | The response status code.+luijrsResponseStatus :: Lens' ListUserImportJobsResponse Int+luijrsResponseStatus = lens _luijrsResponseStatus (\ s a -> s{_luijrsResponseStatus = a});++instance NFData ListUserImportJobsResponse

@@ -27,8 +27,8 @@     -- * Request Lenses     , luPaginationToken     , luAttributesToGet-    , luUserStatus     , luLimit+    , luFilter     , luUserPoolId      -- * Destructuring the Response@@ -53,8 +53,8 @@ data ListUsers = ListUsers'     { _luPaginationToken :: !(Maybe Text)     , _luAttributesToGet :: !(Maybe [Text])-    , _luUserStatus      :: !(Maybe UserStatusType)     , _luLimit           :: !(Maybe Nat)+    , _luFilter          :: !(Maybe Text)     , _luUserPoolId      :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -66,10 +66,10 @@ -- -- * 'luAttributesToGet' ----- * 'luUserStatus'--- -- * 'luLimit' --+-- * 'luFilter'+-- -- * 'luUserPoolId' listUsers     :: Text -- ^ 'luUserPoolId'@@ -78,8 +78,8 @@     ListUsers'     { _luPaginationToken = Nothing     , _luAttributesToGet = Nothing-    , _luUserStatus = Nothing     , _luLimit = Nothing+    , _luFilter = Nothing     , _luUserPoolId = pUserPoolId_     } @@ -91,20 +91,14 @@ luAttributesToGet :: Lens' ListUsers [Text] luAttributesToGet = lens _luAttributesToGet (\ s a -> s{_luAttributesToGet = a}) . _Default . _Coerce; --- | The user status. Can be one of the following:------ -   UNCONFIRMED - User has been created but not confirmed.--- -   CONFIRMED - User has been confirmed.--- -   ARCHIVED - User is no longer active.--- -   COMPROMISED - User is disabled due to a potential security threat.--- -   UNKNOWN - User status is not known.-luUserStatus :: Lens' ListUsers (Maybe UserStatusType)-luUserStatus = lens _luUserStatus (\ s a -> s{_luUserStatus = a});- -- | The limit of the request to list users. luLimit :: Lens' ListUsers (Maybe Natural) luLimit = lens _luLimit (\ s a -> s{_luLimit = a}) . mapping _Nat; +-- | The filter for the list users request.+luFilter :: Lens' ListUsers (Maybe Text)+luFilter = lens _luFilter (\ s a -> s{_luFilter = a});+ -- | The user pool ID for which you want to list users. luUserPoolId :: Lens' ListUsers Text luUserPoolId = lens _luUserPoolId (\ s a -> s{_luUserPoolId = a});@@ -140,8 +134,8 @@               (catMaybes                  [("PaginationToken" .=) <$> _luPaginationToken,                   ("AttributesToGet" .=) <$> _luAttributesToGet,-                  ("UserStatus" .=) <$> _luUserStatus,                   ("Limit" .=) <$> _luLimit,+                  ("Filter" .=) <$> _luFilter,                   Just ("UserPoolId" .= _luUserPoolId)])  instance ToPath ListUsers where

@@ -0,0 +1,200 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.RespondToAuthChallenge+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Responds to the authentication challenge.+module Network.AWS.CognitoIdentityProvider.RespondToAuthChallenge+    (+    -- * Creating a Request+      respondToAuthChallenge+    , RespondToAuthChallenge+    -- * Request Lenses+    , rtacChallengeResponses+    , rtacSession+    , rtacClientId+    , rtacChallengeName++    -- * Destructuring the Response+    , respondToAuthChallengeResponse+    , RespondToAuthChallengeResponse+    -- * Response Lenses+    , rtacrsChallengeName+    , rtacrsChallengeParameters+    , rtacrsAuthenticationResult+    , rtacrsSession+    , rtacrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The request to respond to an authentication challenge.+--+-- /See:/ 'respondToAuthChallenge' smart constructor.+data RespondToAuthChallenge = RespondToAuthChallenge'+    { _rtacChallengeResponses :: !(Maybe (Map Text Text))+    , _rtacSession            :: !(Maybe Text)+    , _rtacClientId           :: !(Sensitive Text)+    , _rtacChallengeName      :: !ChallengeNameType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RespondToAuthChallenge' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtacChallengeResponses'+--+-- * 'rtacSession'+--+-- * 'rtacClientId'+--+-- * 'rtacChallengeName'+respondToAuthChallenge+    :: Text -- ^ 'rtacClientId'+    -> ChallengeNameType -- ^ 'rtacChallengeName'+    -> RespondToAuthChallenge+respondToAuthChallenge pClientId_ pChallengeName_ =+    RespondToAuthChallenge'+    { _rtacChallengeResponses = Nothing+    , _rtacSession = Nothing+    , _rtacClientId = _Sensitive # pClientId_+    , _rtacChallengeName = pChallengeName_+    }++-- | The responses to the authentication challenge.+rtacChallengeResponses :: Lens' RespondToAuthChallenge (HashMap Text Text)+rtacChallengeResponses = lens _rtacChallengeResponses (\ s a -> s{_rtacChallengeResponses = a}) . _Default . _Map;++-- | The session.+rtacSession :: Lens' RespondToAuthChallenge (Maybe Text)+rtacSession = lens _rtacSession (\ s a -> s{_rtacSession = a});++-- | The client ID.+rtacClientId :: Lens' RespondToAuthChallenge Text+rtacClientId = lens _rtacClientId (\ s a -> s{_rtacClientId = a}) . _Sensitive;++-- | The name of the challenge.+rtacChallengeName :: Lens' RespondToAuthChallenge ChallengeNameType+rtacChallengeName = lens _rtacChallengeName (\ s a -> s{_rtacChallengeName = a});++instance AWSRequest RespondToAuthChallenge where+        type Rs RespondToAuthChallenge =+             RespondToAuthChallengeResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 RespondToAuthChallengeResponse' <$>+                   (x .?> "ChallengeName") <*>+                     (x .?> "ChallengeParameters" .!@ mempty)+                     <*> (x .?> "AuthenticationResult")+                     <*> (x .?> "Session")+                     <*> (pure (fromEnum s)))++instance Hashable RespondToAuthChallenge++instance NFData RespondToAuthChallenge++instance ToHeaders RespondToAuthChallenge where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.RespondToAuthChallenge"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RespondToAuthChallenge where+        toJSON RespondToAuthChallenge'{..}+          = object+              (catMaybes+                 [("ChallengeResponses" .=) <$>+                    _rtacChallengeResponses,+                  ("Session" .=) <$> _rtacSession,+                  Just ("ClientId" .= _rtacClientId),+                  Just ("ChallengeName" .= _rtacChallengeName)])++instance ToPath RespondToAuthChallenge where+        toPath = const "/"++instance ToQuery RespondToAuthChallenge where+        toQuery = const mempty++-- | The response to respond to the authentication challenge.+--+-- /See:/ 'respondToAuthChallengeResponse' smart constructor.+data RespondToAuthChallengeResponse = RespondToAuthChallengeResponse'+    { _rtacrsChallengeName        :: !(Maybe ChallengeNameType)+    , _rtacrsChallengeParameters  :: !(Maybe (Map Text Text))+    , _rtacrsAuthenticationResult :: !(Maybe AuthenticationResultType)+    , _rtacrsSession              :: !(Maybe Text)+    , _rtacrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RespondToAuthChallengeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtacrsChallengeName'+--+-- * 'rtacrsChallengeParameters'+--+-- * 'rtacrsAuthenticationResult'+--+-- * 'rtacrsSession'+--+-- * 'rtacrsResponseStatus'+respondToAuthChallengeResponse+    :: Int -- ^ 'rtacrsResponseStatus'+    -> RespondToAuthChallengeResponse+respondToAuthChallengeResponse pResponseStatus_ =+    RespondToAuthChallengeResponse'+    { _rtacrsChallengeName = Nothing+    , _rtacrsChallengeParameters = Nothing+    , _rtacrsAuthenticationResult = Nothing+    , _rtacrsSession = Nothing+    , _rtacrsResponseStatus = pResponseStatus_+    }++-- | The challenge name.+rtacrsChallengeName :: Lens' RespondToAuthChallengeResponse (Maybe ChallengeNameType)+rtacrsChallengeName = lens _rtacrsChallengeName (\ s a -> s{_rtacrsChallengeName = a});++-- | The challenge parameters.+rtacrsChallengeParameters :: Lens' RespondToAuthChallengeResponse (HashMap Text Text)+rtacrsChallengeParameters = lens _rtacrsChallengeParameters (\ s a -> s{_rtacrsChallengeParameters = a}) . _Default . _Map;++-- | Undocumented member.+rtacrsAuthenticationResult :: Lens' RespondToAuthChallengeResponse (Maybe AuthenticationResultType)+rtacrsAuthenticationResult = lens _rtacrsAuthenticationResult (\ s a -> s{_rtacrsAuthenticationResult = a});++-- | The session.+rtacrsSession :: Lens' RespondToAuthChallengeResponse (Maybe Text)+rtacrsSession = lens _rtacrsSession (\ s a -> s{_rtacrsSession = a});++-- | The response status code.+rtacrsResponseStatus :: Lens' RespondToAuthChallengeResponse Int+rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a});++instance NFData RespondToAuthChallengeResponse

@@ -0,0 +1,148 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.StartUserImportJob+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts the user import.+module Network.AWS.CognitoIdentityProvider.StartUserImportJob+    (+    -- * Creating a Request+      startUserImportJob+    , StartUserImportJob+    -- * Request Lenses+    , suijUserPoolId+    , suijJobId++    -- * Destructuring the Response+    , startUserImportJobResponse+    , StartUserImportJobResponse+    -- * Response Lenses+    , suijrsUserImportJob+    , suijrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to start the user import job.+--+-- /See:/ 'startUserImportJob' smart constructor.+data StartUserImportJob = StartUserImportJob'+    { _suijUserPoolId :: !Text+    , _suijJobId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StartUserImportJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'suijUserPoolId'+--+-- * 'suijJobId'+startUserImportJob+    :: Text -- ^ 'suijUserPoolId'+    -> Text -- ^ 'suijJobId'+    -> StartUserImportJob+startUserImportJob pUserPoolId_ pJobId_ =+    StartUserImportJob'+    { _suijUserPoolId = pUserPoolId_+    , _suijJobId = pJobId_+    }++-- | The user pool ID for the user pool that the users are being imported into.+suijUserPoolId :: Lens' StartUserImportJob Text+suijUserPoolId = lens _suijUserPoolId (\ s a -> s{_suijUserPoolId = a});++-- | The job ID for the user import job.+suijJobId :: Lens' StartUserImportJob Text+suijJobId = lens _suijJobId (\ s a -> s{_suijJobId = a});++instance AWSRequest StartUserImportJob where+        type Rs StartUserImportJob =+             StartUserImportJobResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 StartUserImportJobResponse' <$>+                   (x .?> "UserImportJob") <*> (pure (fromEnum s)))++instance Hashable StartUserImportJob++instance NFData StartUserImportJob++instance ToHeaders StartUserImportJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.StartUserImportJob"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartUserImportJob where+        toJSON StartUserImportJob'{..}+          = object+              (catMaybes+                 [Just ("UserPoolId" .= _suijUserPoolId),+                  Just ("JobId" .= _suijJobId)])++instance ToPath StartUserImportJob where+        toPath = const "/"++instance ToQuery StartUserImportJob where+        toQuery = const mempty++-- | Represents the response from the server to the request to start the user import job.+--+-- /See:/ 'startUserImportJobResponse' smart constructor.+data StartUserImportJobResponse = StartUserImportJobResponse'+    { _suijrsUserImportJob  :: !(Maybe UserImportJobType)+    , _suijrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StartUserImportJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'suijrsUserImportJob'+--+-- * 'suijrsResponseStatus'+startUserImportJobResponse+    :: Int -- ^ 'suijrsResponseStatus'+    -> StartUserImportJobResponse+startUserImportJobResponse pResponseStatus_ =+    StartUserImportJobResponse'+    { _suijrsUserImportJob = Nothing+    , _suijrsResponseStatus = pResponseStatus_+    }++-- | The job object that represents the user import job.+suijrsUserImportJob :: Lens' StartUserImportJobResponse (Maybe UserImportJobType)+suijrsUserImportJob = lens _suijrsUserImportJob (\ s a -> s{_suijrsUserImportJob = a});++-- | The response status code.+suijrsResponseStatus :: Lens' StartUserImportJobResponse Int+suijrsResponseStatus = lens _suijrsResponseStatus (\ s a -> s{_suijrsResponseStatus = a});++instance NFData StartUserImportJobResponse

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.StopUserImportJob+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops the user import job.+module Network.AWS.CognitoIdentityProvider.StopUserImportJob+    (+    -- * Creating a Request+      stopUserImportJob+    , StopUserImportJob+    -- * Request Lenses+    , sUserPoolId+    , sJobId++    -- * Destructuring the Response+    , stopUserImportJobResponse+    , StopUserImportJobResponse+    -- * Response Lenses+    , srsUserImportJob+    , srsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to stop the user import job.+--+-- /See:/ 'stopUserImportJob' smart constructor.+data StopUserImportJob = StopUserImportJob'+    { _sUserPoolId :: !Text+    , _sJobId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StopUserImportJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sUserPoolId'+--+-- * 'sJobId'+stopUserImportJob+    :: Text -- ^ 'sUserPoolId'+    -> Text -- ^ 'sJobId'+    -> StopUserImportJob+stopUserImportJob pUserPoolId_ pJobId_ =+    StopUserImportJob'+    { _sUserPoolId = pUserPoolId_+    , _sJobId = pJobId_+    }++-- | The user pool ID for the user pool that the users are being imported into.+sUserPoolId :: Lens' StopUserImportJob Text+sUserPoolId = lens _sUserPoolId (\ s a -> s{_sUserPoolId = a});++-- | The job ID for the user import job.+sJobId :: Lens' StopUserImportJob Text+sJobId = lens _sJobId (\ s a -> s{_sJobId = a});++instance AWSRequest StopUserImportJob where+        type Rs StopUserImportJob = StopUserImportJobResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveJSON+              (\ s h x ->+                 StopUserImportJobResponse' <$>+                   (x .?> "UserImportJob") <*> (pure (fromEnum s)))++instance Hashable StopUserImportJob++instance NFData StopUserImportJob++instance ToHeaders StopUserImportJob where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.StopUserImportJob"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopUserImportJob where+        toJSON StopUserImportJob'{..}+          = object+              (catMaybes+                 [Just ("UserPoolId" .= _sUserPoolId),+                  Just ("JobId" .= _sJobId)])++instance ToPath StopUserImportJob where+        toPath = const "/"++instance ToQuery StopUserImportJob where+        toQuery = const mempty++-- | Represents the response from the server to the request to stop the user import job.+--+-- /See:/ 'stopUserImportJobResponse' smart constructor.+data StopUserImportJobResponse = StopUserImportJobResponse'+    { _srsUserImportJob  :: !(Maybe UserImportJobType)+    , _srsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StopUserImportJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srsUserImportJob'+--+-- * 'srsResponseStatus'+stopUserImportJobResponse+    :: Int -- ^ 'srsResponseStatus'+    -> StopUserImportJobResponse+stopUserImportJobResponse pResponseStatus_ =+    StopUserImportJobResponse'+    { _srsUserImportJob = Nothing+    , _srsResponseStatus = pResponseStatus_+    }++-- | The job object that represents the user import job.+srsUserImportJob :: Lens' StopUserImportJobResponse (Maybe UserImportJobType)+srsUserImportJob = lens _srsUserImportJob (\ s a -> s{_srsUserImportJob = a});++-- | The response status code.+srsResponseStatus :: Lens' StopUserImportJobResponse Int+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});++instance NFData StopUserImportJobResponse

@@ -16,18 +16,29 @@       cognitoIdentityProvider      -- * Errors+    , _PasswordResetRequiredException     , _InvalidParameterException     , _InvalidLambdaResponseException+    , _InvalidEmailRoleAccessPolicyException+    , _UserNotFoundException     , _UnexpectedLambdaException     , _NotAuthorizedException     , _InternalErrorException+    , _InvalidUserPoolConfigurationException+    , _InvalidSmsRoleAccessPolicyException     , _CodeMismatchException+    , _UserImportInProgressException+    , _InvalidSmsRoleTrustRelationshipException     , _TooManyRequestsException     , _ConcurrentModificationException     , _UserLambdaValidationException+    , _PreconditionNotMetException     , _ExpiredCodeException     , _TooManyFailedAttemptsException+    , _UserNotConfirmedException+    , _CodeDeliveryFailureException     , _ResourceNotFoundException+    , _MFAMethodNotFoundException     , _AliasExistsException     , _LimitExceededException     , _InvalidPasswordException@@ -39,12 +50,27 @@     -- * AttributeDataType     , AttributeDataType (..) +    -- * AuthFlowType+    , AuthFlowType (..)++    -- * ChallengeNameType+    , ChallengeNameType (..)+     -- * DeliveryMediumType     , DeliveryMediumType (..) +    -- * DeviceRememberedStatusType+    , DeviceRememberedStatusType (..)++    -- * ExplicitAuthFlowsType+    , ExplicitAuthFlowsType (..)+     -- * StatusType     , StatusType (..) +    -- * UserImportJobStatusType+    , UserImportJobStatusType (..)+     -- * UserPoolMFAType     , UserPoolMFAType (..) @@ -60,6 +86,16 @@     , atValue     , atName +    -- * AuthenticationResultType+    , AuthenticationResultType+    , authenticationResultType+    , artAccessToken+    , artRefreshToken+    , artNewDeviceMetadata+    , artExpiresIn+    , artTokenType+    , artIdToken+     -- * CodeDeliveryDetailsType     , CodeDeliveryDetailsType     , codeDeliveryDetailsType@@ -67,12 +103,42 @@     , cddtDeliveryMedium     , cddtAttributeName +    -- * DeviceConfigurationType+    , DeviceConfigurationType+    , deviceConfigurationType+    , dctChallengeRequiredOnNewDevice+    , dctDeviceOnlyRememberedOnUserPrompt++    -- * DeviceSecretVerifierConfigType+    , DeviceSecretVerifierConfigType+    , deviceSecretVerifierConfigType+    , dsvctPasswordVerifier+    , dsvctSalt++    -- * DeviceType+    , DeviceType+    , deviceType+    , dtDeviceLastModifiedDate+    , dtDeviceCreateDate+    , dtDeviceAttributes+    , dtDeviceKey+    , dtDeviceLastAuthenticatedDate++    -- * EmailConfigurationType+    , EmailConfigurationType+    , emailConfigurationType+    , ectSourceARN+    , ectReplyToEmailAddress+     -- * LambdaConfigType     , LambdaConfigType     , lambdaConfigType     , lctPreAuthentication+    , lctCreateAuthChallenge+    , lctVerifyAuthChallengeResponse     , lctPostAuthentication     , lctCustomMessage+    , lctDefineAuthChallenge     , lctPostConfirmation     , lctPreSignUp @@ -82,6 +148,12 @@     , motDeliveryMedium     , motAttributeName +    -- * NewDeviceMetadataType+    , NewDeviceMetadataType+    , newDeviceMetadataType+    , ndmtDeviceGroupKey+    , ndmtDeviceKey+     -- * NumberAttributeConstraintsType     , NumberAttributeConstraintsType     , numberAttributeConstraintsType@@ -108,12 +180,35 @@     , satDeveloperOnlyAttribute     , satMutable +    -- * SmsConfigurationType+    , SmsConfigurationType+    , smsConfigurationType+    , sctSNSCallerARN+    , sctExternalId+     -- * StringAttributeConstraintsType     , StringAttributeConstraintsType     , stringAttributeConstraintsType     , sactMaxLength     , sactMinLength +    -- * UserImportJobType+    , UserImportJobType+    , userImportJobType+    , uijtStatus+    , uijtSkippedUsers+    , uijtJobId+    , uijtUserPoolId+    , uijtJobName+    , uijtPreSignedURL+    , uijtFailedUsers+    , uijtStartDate+    , uijtCompletionMessage+    , uijtCreationDate+    , uijtCompletionDate+    , uijtCloudWatchLogsRoleARN+    , uijtImportedUsers+     -- * UserPoolClientDescription     , UserPoolClientDescription     , userPoolClientDescription@@ -124,11 +219,15 @@     -- * UserPoolClientType     , UserPoolClientType     , userPoolClientType+    , upctRefreshTokenValidity     , upctClientId+    , upctExplicitAuthFlows     , upctClientSecret     , upctLastModifiedDate     , upctUserPoolId+    , upctWriteAttributes     , upctCreationDate+    , upctReadAttributes     , upctClientName      -- * UserPoolDescriptionType@@ -150,6 +249,7 @@     , UserPoolType     , userPoolType     , uptStatus+    , uptEmailConfigurationFailure     , uptLastModifiedDate     , uptEstimatedNumberOfUsers     , uptEmailVerificationMessage@@ -157,12 +257,16 @@     , uptSchemaAttributes     , uptEmailVerificationSubject     , uptAliasAttributes+    , uptEmailConfiguration     , uptSmsVerificationMessage     , uptName     , uptMFAConfiguration     , uptId+    , uptSmsConfigurationFailure     , uptCreationDate     , uptLambdaConfig+    , uptSmsConfiguration+    , uptDeviceConfiguration     , uptAutoVerifiedAttributes     , uptPolicies @@ -217,6 +321,11 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing +-- | This exception is thrown when a password reset is required.+_PasswordResetRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_PasswordResetRequiredException =+    _ServiceError . hasCode "PasswordResetRequiredException"+ -- | This exception is thrown when the Amazon Cognito service encounters an invalid parameter. _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException =@@ -227,6 +336,15 @@ _InvalidLambdaResponseException =     _ServiceError . hasCode "InvalidLambdaResponseException" +-- | This exception is thrown when Amazon Cognito is not allowed to use your email identity. HTTP status code: 400.+_InvalidEmailRoleAccessPolicyException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidEmailRoleAccessPolicyException =+    _ServiceError . hasCode "InvalidEmailRoleAccessPolicyException"++-- | This exception is thrown when a user is not found.+_UserNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_UserNotFoundException = _ServiceError . hasCode "UserNotFoundException"+ -- | This exception gets thrown when the Amazon Cognito service encounters an unexpected exception with the AWS Lambda service. _UnexpectedLambdaException :: AsError a => Getting (First ServiceError) a ServiceError _UnexpectedLambdaException =@@ -240,10 +358,30 @@ _InternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError _InternalErrorException = _ServiceError . hasCode "InternalErrorException" +-- | This exception is thrown when the user pool configuration is invalid.+_InvalidUserPoolConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidUserPoolConfigurationException =+    _ServiceError . hasCode "InvalidUserPoolConfigurationException"++-- | This exception is returned when the role provided for SMS configuration does not have permission to publish using Amazon SNS.+_InvalidSmsRoleAccessPolicyException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSmsRoleAccessPolicyException =+    _ServiceError . hasCode "InvalidSmsRoleAccessPolicyException"+ -- | This exception is thrown if the provided code does not match what the server was expecting. _CodeMismatchException :: AsError a => Getting (First ServiceError) a ServiceError _CodeMismatchException = _ServiceError . hasCode "CodeMismatchException" +-- | This exception is thrown when you are trying to modify a user pool while a user import job is in progress for that pool.+_UserImportInProgressException :: AsError a => Getting (First ServiceError) a ServiceError+_UserImportInProgressException =+    _ServiceError . hasCode "UserImportInProgressException"++-- | This exception is thrown when the trust relationship is invalid for the role provided for SMS configuration. This can happen if you do not trust __cognito-idp.amazonaws.com__ or the external ID provided in the role does not match what is provided in the SMS configuration for the user pool.+_InvalidSmsRoleTrustRelationshipException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSmsRoleTrustRelationshipException =+    _ServiceError . hasCode "InvalidSmsRoleTrustRelationshipException"+ -- | This exception gets thrown when the user has made too many requests for a given operation. _TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyRequestsException = _ServiceError . hasCode "TooManyRequestsException"@@ -258,6 +396,11 @@ _UserLambdaValidationException =     _ServiceError . hasCode "UserLambdaValidationException" +-- | This exception is thrown when a precondition is not met.+_PreconditionNotMetException :: AsError a => Getting (First ServiceError) a ServiceError+_PreconditionNotMetException =+    _ServiceError . hasCode "PreconditionNotMetException"+ -- | This exception is thrown if a code has expired. _ExpiredCodeException :: AsError a => Getting (First ServiceError) a ServiceError _ExpiredCodeException = _ServiceError . hasCode "ExpiredCodeException"@@ -267,10 +410,25 @@ _TooManyFailedAttemptsException =     _ServiceError . hasCode "TooManyFailedAttemptsException" +-- | This exception is thrown when a user is not confirmed successfully.+_UserNotConfirmedException :: AsError a => Getting (First ServiceError) a ServiceError+_UserNotConfirmedException =+    _ServiceError . hasCode "UserNotConfirmedException"++-- | This exception is thrown when a verification code fails to deliver successfully.+_CodeDeliveryFailureException :: AsError a => Getting (First ServiceError) a ServiceError+_CodeDeliveryFailureException =+    _ServiceError . hasCode "CodeDeliveryFailureException"+ -- | This exception is thrown when the Amazon Cognito service cannot find the requested resource. _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =     _ServiceError . hasCode "ResourceNotFoundException"++-- | This exception is thrown when Amazon Cognito cannot find a multi-factor authentication (MFA) method.+_MFAMethodNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_MFAMethodNotFoundException =+    _ServiceError . hasCode "MFAMethodNotFoundException"  -- | This exception is thrown when a user tries to confirm the account with an email or phone number that has already been supplied as an alias from a different account. This exception tells user that an account with this email or phone already exists. _AliasExistsException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -70,6 +70,84 @@                  [("Value" .=) <$> _atValue,                   Just ("Name" .= _atName)]) +-- | The result type of the authentication result.+--+-- /See:/ 'authenticationResultType' smart constructor.+data AuthenticationResultType = AuthenticationResultType'+    { _artAccessToken       :: !(Maybe (Sensitive Text))+    , _artRefreshToken      :: !(Maybe (Sensitive Text))+    , _artNewDeviceMetadata :: !(Maybe NewDeviceMetadataType)+    , _artExpiresIn         :: !(Maybe Int)+    , _artTokenType         :: !(Maybe Text)+    , _artIdToken           :: !(Maybe (Sensitive Text))+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AuthenticationResultType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'artAccessToken'+--+-- * 'artRefreshToken'+--+-- * 'artNewDeviceMetadata'+--+-- * 'artExpiresIn'+--+-- * 'artTokenType'+--+-- * 'artIdToken'+authenticationResultType+    :: AuthenticationResultType+authenticationResultType =+    AuthenticationResultType'+    { _artAccessToken = Nothing+    , _artRefreshToken = Nothing+    , _artNewDeviceMetadata = Nothing+    , _artExpiresIn = Nothing+    , _artTokenType = Nothing+    , _artIdToken = Nothing+    }++-- | The access token of the authentication result.+artAccessToken :: Lens' AuthenticationResultType (Maybe Text)+artAccessToken = lens _artAccessToken (\ s a -> s{_artAccessToken = a}) . mapping _Sensitive;++-- | The refresh token of the authentication result.+artRefreshToken :: Lens' AuthenticationResultType (Maybe Text)+artRefreshToken = lens _artRefreshToken (\ s a -> s{_artRefreshToken = a}) . mapping _Sensitive;++-- | The new device metadata from an authentication result.+artNewDeviceMetadata :: Lens' AuthenticationResultType (Maybe NewDeviceMetadataType)+artNewDeviceMetadata = lens _artNewDeviceMetadata (\ s a -> s{_artNewDeviceMetadata = a});++-- | The expiration period of the authentication result.+artExpiresIn :: Lens' AuthenticationResultType (Maybe Int)+artExpiresIn = lens _artExpiresIn (\ s a -> s{_artExpiresIn = a});++-- | The token type of the authentication result.+artTokenType :: Lens' AuthenticationResultType (Maybe Text)+artTokenType = lens _artTokenType (\ s a -> s{_artTokenType = a});++-- | The ID token of the authentication result.+artIdToken :: Lens' AuthenticationResultType (Maybe Text)+artIdToken = lens _artIdToken (\ s a -> s{_artIdToken = a}) . mapping _Sensitive;++instance FromJSON AuthenticationResultType where+        parseJSON+          = withObject "AuthenticationResultType"+              (\ x ->+                 AuthenticationResultType' <$>+                   (x .:? "AccessToken") <*> (x .:? "RefreshToken") <*>+                     (x .:? "NewDeviceMetadata")+                     <*> (x .:? "ExpiresIn")+                     <*> (x .:? "TokenType")+                     <*> (x .:? "IdToken"))++instance Hashable AuthenticationResultType++instance NFData AuthenticationResultType+ -- | The type of code delivery details being returned from the server. -- -- /See:/ 'codeDeliveryDetailsType' smart constructor.@@ -121,15 +199,233 @@  instance NFData CodeDeliveryDetailsType +-- | The type of configuration for the user pool\'s device tracking.+--+-- /See:/ 'deviceConfigurationType' smart constructor.+data DeviceConfigurationType = DeviceConfigurationType'+    { _dctChallengeRequiredOnNewDevice     :: !(Maybe Bool)+    , _dctDeviceOnlyRememberedOnUserPrompt :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeviceConfigurationType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dctChallengeRequiredOnNewDevice'+--+-- * 'dctDeviceOnlyRememberedOnUserPrompt'+deviceConfigurationType+    :: DeviceConfigurationType+deviceConfigurationType =+    DeviceConfigurationType'+    { _dctChallengeRequiredOnNewDevice = Nothing+    , _dctDeviceOnlyRememberedOnUserPrompt = Nothing+    }++-- | Indicates whether a challenge is required on a new device. Only applicable to a new device.+dctChallengeRequiredOnNewDevice :: Lens' DeviceConfigurationType (Maybe Bool)+dctChallengeRequiredOnNewDevice = lens _dctChallengeRequiredOnNewDevice (\ s a -> s{_dctChallengeRequiredOnNewDevice = a});++-- | If true, a device is only remembered on user prompt.+dctDeviceOnlyRememberedOnUserPrompt :: Lens' DeviceConfigurationType (Maybe Bool)+dctDeviceOnlyRememberedOnUserPrompt = lens _dctDeviceOnlyRememberedOnUserPrompt (\ s a -> s{_dctDeviceOnlyRememberedOnUserPrompt = a});++instance FromJSON DeviceConfigurationType where+        parseJSON+          = withObject "DeviceConfigurationType"+              (\ x ->+                 DeviceConfigurationType' <$>+                   (x .:? "ChallengeRequiredOnNewDevice") <*>+                     (x .:? "DeviceOnlyRememberedOnUserPrompt"))++instance Hashable DeviceConfigurationType++instance NFData DeviceConfigurationType++instance ToJSON DeviceConfigurationType where+        toJSON DeviceConfigurationType'{..}+          = object+              (catMaybes+                 [("ChallengeRequiredOnNewDevice" .=) <$>+                    _dctChallengeRequiredOnNewDevice,+                  ("DeviceOnlyRememberedOnUserPrompt" .=) <$>+                    _dctDeviceOnlyRememberedOnUserPrompt])++-- | The device verifier against which it will be authenticated.+--+-- /See:/ 'deviceSecretVerifierConfigType' smart constructor.+data DeviceSecretVerifierConfigType = DeviceSecretVerifierConfigType'+    { _dsvctPasswordVerifier :: !(Maybe Text)+    , _dsvctSalt             :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeviceSecretVerifierConfigType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsvctPasswordVerifier'+--+-- * 'dsvctSalt'+deviceSecretVerifierConfigType+    :: DeviceSecretVerifierConfigType+deviceSecretVerifierConfigType =+    DeviceSecretVerifierConfigType'+    { _dsvctPasswordVerifier = Nothing+    , _dsvctSalt = Nothing+    }++-- | The password verifier.+dsvctPasswordVerifier :: Lens' DeviceSecretVerifierConfigType (Maybe Text)+dsvctPasswordVerifier = lens _dsvctPasswordVerifier (\ s a -> s{_dsvctPasswordVerifier = a});++-- | The salt.+dsvctSalt :: Lens' DeviceSecretVerifierConfigType (Maybe Text)+dsvctSalt = lens _dsvctSalt (\ s a -> s{_dsvctSalt = a});++instance Hashable DeviceSecretVerifierConfigType++instance NFData DeviceSecretVerifierConfigType++instance ToJSON DeviceSecretVerifierConfigType where+        toJSON DeviceSecretVerifierConfigType'{..}+          = object+              (catMaybes+                 [("PasswordVerifier" .=) <$> _dsvctPasswordVerifier,+                  ("Salt" .=) <$> _dsvctSalt])++-- | The device type.+--+-- /See:/ 'deviceType' smart constructor.+data DeviceType = DeviceType'+    { _dtDeviceLastModifiedDate      :: !(Maybe POSIX)+    , _dtDeviceCreateDate            :: !(Maybe POSIX)+    , _dtDeviceAttributes            :: !(Maybe [AttributeType])+    , _dtDeviceKey                   :: !(Maybe Text)+    , _dtDeviceLastAuthenticatedDate :: !(Maybe POSIX)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeviceType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtDeviceLastModifiedDate'+--+-- * 'dtDeviceCreateDate'+--+-- * 'dtDeviceAttributes'+--+-- * 'dtDeviceKey'+--+-- * 'dtDeviceLastAuthenticatedDate'+deviceType+    :: DeviceType+deviceType =+    DeviceType'+    { _dtDeviceLastModifiedDate = Nothing+    , _dtDeviceCreateDate = Nothing+    , _dtDeviceAttributes = Nothing+    , _dtDeviceKey = Nothing+    , _dtDeviceLastAuthenticatedDate = Nothing+    }++-- | The last modified date of the device.+dtDeviceLastModifiedDate :: Lens' DeviceType (Maybe UTCTime)+dtDeviceLastModifiedDate = lens _dtDeviceLastModifiedDate (\ s a -> s{_dtDeviceLastModifiedDate = a}) . mapping _Time;++-- | The creation date of the device.+dtDeviceCreateDate :: Lens' DeviceType (Maybe UTCTime)+dtDeviceCreateDate = lens _dtDeviceCreateDate (\ s a -> s{_dtDeviceCreateDate = a}) . mapping _Time;++-- | The device attributes.+dtDeviceAttributes :: Lens' DeviceType [AttributeType]+dtDeviceAttributes = lens _dtDeviceAttributes (\ s a -> s{_dtDeviceAttributes = a}) . _Default . _Coerce;++-- | The device key.+dtDeviceKey :: Lens' DeviceType (Maybe Text)+dtDeviceKey = lens _dtDeviceKey (\ s a -> s{_dtDeviceKey = a});++-- | The date in which the device was last authenticated.+dtDeviceLastAuthenticatedDate :: Lens' DeviceType (Maybe UTCTime)+dtDeviceLastAuthenticatedDate = lens _dtDeviceLastAuthenticatedDate (\ s a -> s{_dtDeviceLastAuthenticatedDate = a}) . mapping _Time;++instance FromJSON DeviceType where+        parseJSON+          = withObject "DeviceType"+              (\ x ->+                 DeviceType' <$>+                   (x .:? "DeviceLastModifiedDate") <*>+                     (x .:? "DeviceCreateDate")+                     <*> (x .:? "DeviceAttributes" .!= mempty)+                     <*> (x .:? "DeviceKey")+                     <*> (x .:? "DeviceLastAuthenticatedDate"))++instance Hashable DeviceType++instance NFData DeviceType++-- | The email configuration type.+--+-- /See:/ 'emailConfigurationType' smart constructor.+data EmailConfigurationType = EmailConfigurationType'+    { _ectSourceARN           :: !(Maybe Text)+    , _ectReplyToEmailAddress :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EmailConfigurationType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ectSourceARN'+--+-- * 'ectReplyToEmailAddress'+emailConfigurationType+    :: EmailConfigurationType+emailConfigurationType =+    EmailConfigurationType'+    { _ectSourceARN = Nothing+    , _ectReplyToEmailAddress = Nothing+    }++-- | The Amazon Resource Name (ARN) of the email source.+ectSourceARN :: Lens' EmailConfigurationType (Maybe Text)+ectSourceARN = lens _ectSourceARN (\ s a -> s{_ectSourceARN = a});++-- | The REPLY-TO email address.+ectReplyToEmailAddress :: Lens' EmailConfigurationType (Maybe Text)+ectReplyToEmailAddress = lens _ectReplyToEmailAddress (\ s a -> s{_ectReplyToEmailAddress = a});++instance FromJSON EmailConfigurationType where+        parseJSON+          = withObject "EmailConfigurationType"+              (\ x ->+                 EmailConfigurationType' <$>+                   (x .:? "SourceArn") <*>+                     (x .:? "ReplyToEmailAddress"))++instance Hashable EmailConfigurationType++instance NFData EmailConfigurationType++instance ToJSON EmailConfigurationType where+        toJSON EmailConfigurationType'{..}+          = object+              (catMaybes+                 [("SourceArn" .=) <$> _ectSourceARN,+                  ("ReplyToEmailAddress" .=) <$>+                    _ectReplyToEmailAddress])+ -- | Specifies the type of configuration for AWS Lambda triggers. -- -- /See:/ 'lambdaConfigType' smart constructor. data LambdaConfigType = LambdaConfigType'-    { _lctPreAuthentication  :: !(Maybe Text)-    , _lctPostAuthentication :: !(Maybe Text)-    , _lctCustomMessage      :: !(Maybe Text)-    , _lctPostConfirmation   :: !(Maybe Text)-    , _lctPreSignUp          :: !(Maybe Text)+    { _lctPreAuthentication           :: !(Maybe Text)+    , _lctCreateAuthChallenge         :: !(Maybe Text)+    , _lctVerifyAuthChallengeResponse :: !(Maybe Text)+    , _lctPostAuthentication          :: !(Maybe Text)+    , _lctCustomMessage               :: !(Maybe Text)+    , _lctDefineAuthChallenge         :: !(Maybe Text)+    , _lctPostConfirmation            :: !(Maybe Text)+    , _lctPreSignUp                   :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'LambdaConfigType' with the minimum fields required to make a request.@@ -138,10 +434,16 @@ -- -- * 'lctPreAuthentication' --+-- * 'lctCreateAuthChallenge'+--+-- * 'lctVerifyAuthChallengeResponse'+-- -- * 'lctPostAuthentication' -- -- * 'lctCustomMessage' --+-- * 'lctDefineAuthChallenge'+-- -- * 'lctPostConfirmation' -- -- * 'lctPreSignUp'@@ -150,8 +452,11 @@ lambdaConfigType =     LambdaConfigType'     { _lctPreAuthentication = Nothing+    , _lctCreateAuthChallenge = Nothing+    , _lctVerifyAuthChallengeResponse = Nothing     , _lctPostAuthentication = Nothing     , _lctCustomMessage = Nothing+    , _lctDefineAuthChallenge = Nothing     , _lctPostConfirmation = Nothing     , _lctPreSignUp = Nothing     }@@ -160,6 +465,14 @@ lctPreAuthentication :: Lens' LambdaConfigType (Maybe Text) lctPreAuthentication = lens _lctPreAuthentication (\ s a -> s{_lctPreAuthentication = a}); +-- | Creates an authentication challenge.+lctCreateAuthChallenge :: Lens' LambdaConfigType (Maybe Text)+lctCreateAuthChallenge = lens _lctCreateAuthChallenge (\ s a -> s{_lctCreateAuthChallenge = a});++-- | Verifies the authentication challenge response.+lctVerifyAuthChallengeResponse :: Lens' LambdaConfigType (Maybe Text)+lctVerifyAuthChallengeResponse = lens _lctVerifyAuthChallengeResponse (\ s a -> s{_lctVerifyAuthChallengeResponse = a});+ -- | A post-authentication AWS Lambda trigger. lctPostAuthentication :: Lens' LambdaConfigType (Maybe Text) lctPostAuthentication = lens _lctPostAuthentication (\ s a -> s{_lctPostAuthentication = a});@@ -168,6 +481,10 @@ lctCustomMessage :: Lens' LambdaConfigType (Maybe Text) lctCustomMessage = lens _lctCustomMessage (\ s a -> s{_lctCustomMessage = a}); +-- | Defines the authentication challenge.+lctDefineAuthChallenge :: Lens' LambdaConfigType (Maybe Text)+lctDefineAuthChallenge = lens _lctDefineAuthChallenge (\ s a -> s{_lctDefineAuthChallenge = a});+ -- | A post-confirmation AWS Lambda trigger. lctPostConfirmation :: Lens' LambdaConfigType (Maybe Text) lctPostConfirmation = lens _lctPostConfirmation (\ s a -> s{_lctPostConfirmation = a});@@ -182,8 +499,11 @@               (\ x ->                  LambdaConfigType' <$>                    (x .:? "PreAuthentication") <*>-                     (x .:? "PostAuthentication")+                     (x .:? "CreateAuthChallenge")+                     <*> (x .:? "VerifyAuthChallengeResponse")+                     <*> (x .:? "PostAuthentication")                      <*> (x .:? "CustomMessage")+                     <*> (x .:? "DefineAuthChallenge")                      <*> (x .:? "PostConfirmation")                      <*> (x .:? "PreSignUp")) @@ -196,8 +516,14 @@           = object               (catMaybes                  [("PreAuthentication" .=) <$> _lctPreAuthentication,+                  ("CreateAuthChallenge" .=) <$>+                    _lctCreateAuthChallenge,+                  ("VerifyAuthChallengeResponse" .=) <$>+                    _lctVerifyAuthChallengeResponse,                   ("PostAuthentication" .=) <$> _lctPostAuthentication,                   ("CustomMessage" .=) <$> _lctCustomMessage,+                  ("DefineAuthChallenge" .=) <$>+                    _lctDefineAuthChallenge,                   ("PostConfirmation" .=) <$> _lctPostConfirmation,                   ("PreSignUp" .=) <$> _lctPreSignUp]) @@ -250,6 +576,48 @@                  [("DeliveryMedium" .=) <$> _motDeliveryMedium,                   ("AttributeName" .=) <$> _motAttributeName]) +-- | The new device metadata type.+--+-- /See:/ 'newDeviceMetadataType' smart constructor.+data NewDeviceMetadataType = NewDeviceMetadataType'+    { _ndmtDeviceGroupKey :: !(Maybe Text)+    , _ndmtDeviceKey      :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'NewDeviceMetadataType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ndmtDeviceGroupKey'+--+-- * 'ndmtDeviceKey'+newDeviceMetadataType+    :: NewDeviceMetadataType+newDeviceMetadataType =+    NewDeviceMetadataType'+    { _ndmtDeviceGroupKey = Nothing+    , _ndmtDeviceKey = Nothing+    }++-- | The device group key.+ndmtDeviceGroupKey :: Lens' NewDeviceMetadataType (Maybe Text)+ndmtDeviceGroupKey = lens _ndmtDeviceGroupKey (\ s a -> s{_ndmtDeviceGroupKey = a});++-- | The device key.+ndmtDeviceKey :: Lens' NewDeviceMetadataType (Maybe Text)+ndmtDeviceKey = lens _ndmtDeviceKey (\ s a -> s{_ndmtDeviceKey = a});++instance FromJSON NewDeviceMetadataType where+        parseJSON+          = withObject "NewDeviceMetadataType"+              (\ x ->+                 NewDeviceMetadataType' <$>+                   (x .:? "DeviceGroupKey") <*> (x .:? "DeviceKey"))++instance Hashable NewDeviceMetadataType++instance NFData NewDeviceMetadataType+ -- | The minimum and maximum value of an attribute that is of the number data type. -- -- /See:/ 'numberAttributeConstraintsType' smart constructor.@@ -483,6 +851,55 @@                     _satDeveloperOnlyAttribute,                   ("Mutable" .=) <$> _satMutable]) +-- | The SMS configuratoin type.+--+-- /See:/ 'smsConfigurationType' smart constructor.+data SmsConfigurationType = SmsConfigurationType'+    { _sctSNSCallerARN :: !(Maybe Text)+    , _sctExternalId   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SmsConfigurationType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sctSNSCallerARN'+--+-- * 'sctExternalId'+smsConfigurationType+    :: SmsConfigurationType+smsConfigurationType =+    SmsConfigurationType'+    { _sctSNSCallerARN = Nothing+    , _sctExternalId = Nothing+    }++-- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) caller.+sctSNSCallerARN :: Lens' SmsConfigurationType (Maybe Text)+sctSNSCallerARN = lens _sctSNSCallerARN (\ s a -> s{_sctSNSCallerARN = a});++-- | The external ID.+sctExternalId :: Lens' SmsConfigurationType (Maybe Text)+sctExternalId = lens _sctExternalId (\ s a -> s{_sctExternalId = a});++instance FromJSON SmsConfigurationType where+        parseJSON+          = withObject "SmsConfigurationType"+              (\ x ->+                 SmsConfigurationType' <$>+                   (x .:? "SnsCallerArn") <*> (x .:? "ExternalId"))++instance Hashable SmsConfigurationType++instance NFData SmsConfigurationType++instance ToJSON SmsConfigurationType where+        toJSON SmsConfigurationType'{..}+          = object+              (catMaybes+                 [("SnsCallerArn" .=) <$> _sctSNSCallerARN,+                  ("ExternalId" .=) <$> _sctExternalId])+ -- | The type of constraints associated with an attribute of the string type. -- -- /See:/ 'stringAttributeConstraintsType' smart constructor.@@ -533,6 +950,156 @@                  [("MaxLength" .=) <$> _sactMaxLength,                   ("MinLength" .=) <$> _sactMinLength]) +-- | The user import job type.+--+-- /See:/ 'userImportJobType' smart constructor.+data UserImportJobType = UserImportJobType'+    { _uijtStatus                :: !(Maybe UserImportJobStatusType)+    , _uijtSkippedUsers          :: !(Maybe Integer)+    , _uijtJobId                 :: !(Maybe Text)+    , _uijtUserPoolId            :: !(Maybe Text)+    , _uijtJobName               :: !(Maybe Text)+    , _uijtPreSignedURL          :: !(Maybe Text)+    , _uijtFailedUsers           :: !(Maybe Integer)+    , _uijtStartDate             :: !(Maybe POSIX)+    , _uijtCompletionMessage     :: !(Maybe Text)+    , _uijtCreationDate          :: !(Maybe POSIX)+    , _uijtCompletionDate        :: !(Maybe POSIX)+    , _uijtCloudWatchLogsRoleARN :: !(Maybe Text)+    , _uijtImportedUsers         :: !(Maybe Integer)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UserImportJobType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uijtStatus'+--+-- * 'uijtSkippedUsers'+--+-- * 'uijtJobId'+--+-- * 'uijtUserPoolId'+--+-- * 'uijtJobName'+--+-- * 'uijtPreSignedURL'+--+-- * 'uijtFailedUsers'+--+-- * 'uijtStartDate'+--+-- * 'uijtCompletionMessage'+--+-- * 'uijtCreationDate'+--+-- * 'uijtCompletionDate'+--+-- * 'uijtCloudWatchLogsRoleARN'+--+-- * 'uijtImportedUsers'+userImportJobType+    :: UserImportJobType+userImportJobType =+    UserImportJobType'+    { _uijtStatus = Nothing+    , _uijtSkippedUsers = Nothing+    , _uijtJobId = Nothing+    , _uijtUserPoolId = Nothing+    , _uijtJobName = Nothing+    , _uijtPreSignedURL = Nothing+    , _uijtFailedUsers = Nothing+    , _uijtStartDate = Nothing+    , _uijtCompletionMessage = Nothing+    , _uijtCreationDate = Nothing+    , _uijtCompletionDate = Nothing+    , _uijtCloudWatchLogsRoleARN = Nothing+    , _uijtImportedUsers = Nothing+    }++-- | The status of the user import job. One of the following:+--+-- -   Created - The job was created but not started.+-- -   Pending - A transition state. You have started the job, but it has not begun importing users yet.+-- -   InProgress - The job has started, and users are being imported.+-- -   Stopping - You have stopped the job, but the job has not stopped importing users yet.+-- -   Stopped - You have stopped the job, and the job has stopped importing users.+-- -   Succeeded - The job has completed successfully.+-- -   Failed - The job has stopped due to an error.+-- -   Expired - You created a job, but did not start the job within 24-48 hours. All data associated with the job was deleted, and the job cannot be started.+uijtStatus :: Lens' UserImportJobType (Maybe UserImportJobStatusType)+uijtStatus = lens _uijtStatus (\ s a -> s{_uijtStatus = a});++-- | The number of users that were skipped.+uijtSkippedUsers :: Lens' UserImportJobType (Maybe Integer)+uijtSkippedUsers = lens _uijtSkippedUsers (\ s a -> s{_uijtSkippedUsers = a});++-- | The job ID for the user import job.+uijtJobId :: Lens' UserImportJobType (Maybe Text)+uijtJobId = lens _uijtJobId (\ s a -> s{_uijtJobId = a});++-- | The user pool ID for the user pool that the users are being imported into.+uijtUserPoolId :: Lens' UserImportJobType (Maybe Text)+uijtUserPoolId = lens _uijtUserPoolId (\ s a -> s{_uijtUserPoolId = a});++-- | The job name for the user import job.+uijtJobName :: Lens' UserImportJobType (Maybe Text)+uijtJobName = lens _uijtJobName (\ s a -> s{_uijtJobName = a});++-- | The pre-signed URL to be used to upload the .csv file.+uijtPreSignedURL :: Lens' UserImportJobType (Maybe Text)+uijtPreSignedURL = lens _uijtPreSignedURL (\ s a -> s{_uijtPreSignedURL = a});++-- | The number of users that could not be imported.+uijtFailedUsers :: Lens' UserImportJobType (Maybe Integer)+uijtFailedUsers = lens _uijtFailedUsers (\ s a -> s{_uijtFailedUsers = a});++-- | The date when the user import job was started.+uijtStartDate :: Lens' UserImportJobType (Maybe UTCTime)+uijtStartDate = lens _uijtStartDate (\ s a -> s{_uijtStartDate = a}) . mapping _Time;++-- | The message returned when the user import job is completed.+uijtCompletionMessage :: Lens' UserImportJobType (Maybe Text)+uijtCompletionMessage = lens _uijtCompletionMessage (\ s a -> s{_uijtCompletionMessage = a});++-- | The date when the user import job was created.+uijtCreationDate :: Lens' UserImportJobType (Maybe UTCTime)+uijtCreationDate = lens _uijtCreationDate (\ s a -> s{_uijtCreationDate = a}) . mapping _Time;++-- | The date when the user imoprt job was completed.+uijtCompletionDate :: Lens' UserImportJobType (Maybe UTCTime)+uijtCompletionDate = lens _uijtCompletionDate (\ s a -> s{_uijtCompletionDate = a}) . mapping _Time;++-- | The role ARN for the Amazon CloudWatch Logging role for the user import job. For more information, see \"Creating the CloudWatch Logs IAM Role\" in the Amazon Cognito Developer Guide.+uijtCloudWatchLogsRoleARN :: Lens' UserImportJobType (Maybe Text)+uijtCloudWatchLogsRoleARN = lens _uijtCloudWatchLogsRoleARN (\ s a -> s{_uijtCloudWatchLogsRoleARN = a});++-- | The number of users that were successfully imported.+uijtImportedUsers :: Lens' UserImportJobType (Maybe Integer)+uijtImportedUsers = lens _uijtImportedUsers (\ s a -> s{_uijtImportedUsers = a});++instance FromJSON UserImportJobType where+        parseJSON+          = withObject "UserImportJobType"+              (\ x ->+                 UserImportJobType' <$>+                   (x .:? "Status") <*> (x .:? "SkippedUsers") <*>+                     (x .:? "JobId")+                     <*> (x .:? "UserPoolId")+                     <*> (x .:? "JobName")+                     <*> (x .:? "PreSignedUrl")+                     <*> (x .:? "FailedUsers")+                     <*> (x .:? "StartDate")+                     <*> (x .:? "CompletionMessage")+                     <*> (x .:? "CreationDate")+                     <*> (x .:? "CompletionDate")+                     <*> (x .:? "CloudWatchLogsRoleArn")+                     <*> (x .:? "ImportedUsers"))++instance Hashable UserImportJobType++instance NFData UserImportJobType+ -- | The description of the user poool client. -- -- /See:/ 'userPoolClientDescription' smart constructor.@@ -588,45 +1155,69 @@ -- -- /See:/ 'userPoolClientType' smart constructor. data UserPoolClientType = UserPoolClientType'-    { _upctClientId         :: !(Maybe (Sensitive Text))-    , _upctClientSecret     :: !(Maybe (Sensitive Text))-    , _upctLastModifiedDate :: !(Maybe POSIX)-    , _upctUserPoolId       :: !(Maybe Text)-    , _upctCreationDate     :: !(Maybe POSIX)-    , _upctClientName       :: !(Maybe Text)+    { _upctRefreshTokenValidity :: !(Maybe Nat)+    , _upctClientId             :: !(Maybe (Sensitive Text))+    , _upctExplicitAuthFlows    :: !(Maybe [ExplicitAuthFlowsType])+    , _upctClientSecret         :: !(Maybe (Sensitive Text))+    , _upctLastModifiedDate     :: !(Maybe POSIX)+    , _upctUserPoolId           :: !(Maybe Text)+    , _upctWriteAttributes      :: !(Maybe [Text])+    , _upctCreationDate         :: !(Maybe POSIX)+    , _upctReadAttributes       :: !(Maybe [Text])+    , _upctClientName           :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UserPoolClientType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'upctRefreshTokenValidity'+-- -- * 'upctClientId' --+-- * 'upctExplicitAuthFlows'+-- -- * 'upctClientSecret' -- -- * 'upctLastModifiedDate' -- -- * 'upctUserPoolId' --+-- * 'upctWriteAttributes'+-- -- * 'upctCreationDate' --+-- * 'upctReadAttributes'+-- -- * 'upctClientName' userPoolClientType     :: UserPoolClientType userPoolClientType =     UserPoolClientType'-    { _upctClientId = Nothing+    { _upctRefreshTokenValidity = Nothing+    , _upctClientId = Nothing+    , _upctExplicitAuthFlows = Nothing     , _upctClientSecret = Nothing     , _upctLastModifiedDate = Nothing     , _upctUserPoolId = Nothing+    , _upctWriteAttributes = Nothing     , _upctCreationDate = Nothing+    , _upctReadAttributes = Nothing     , _upctClientName = Nothing     } +-- | The validity of the refresh token.+upctRefreshTokenValidity :: Lens' UserPoolClientType (Maybe Natural)+upctRefreshTokenValidity = lens _upctRefreshTokenValidity (\ s a -> s{_upctRefreshTokenValidity = a}) . mapping _Nat;+ -- | The ID of the client associated with the user pool. upctClientId :: Lens' UserPoolClientType (Maybe Text) upctClientId = lens _upctClientId (\ s a -> s{_upctClientId = a}) . mapping _Sensitive; +-- | The explicit authentication flows.+upctExplicitAuthFlows :: Lens' UserPoolClientType [ExplicitAuthFlowsType]+upctExplicitAuthFlows = lens _upctExplicitAuthFlows (\ s a -> s{_upctExplicitAuthFlows = a}) . _Default . _Coerce;+ -- | The client secret from the user pool request of the client type. upctClientSecret :: Lens' UserPoolClientType (Maybe Text) upctClientSecret = lens _upctClientSecret (\ s a -> s{_upctClientSecret = a}) . mapping _Sensitive;@@ -639,10 +1230,18 @@ upctUserPoolId :: Lens' UserPoolClientType (Maybe Text) upctUserPoolId = lens _upctUserPoolId (\ s a -> s{_upctUserPoolId = a}); +-- | The writeable attributes.+upctWriteAttributes :: Lens' UserPoolClientType [Text]+upctWriteAttributes = lens _upctWriteAttributes (\ s a -> s{_upctWriteAttributes = a}) . _Default . _Coerce;+ -- | The creation date from the user pool request of the client type. upctCreationDate :: Lens' UserPoolClientType (Maybe UTCTime) upctCreationDate = lens _upctCreationDate (\ s a -> s{_upctCreationDate = a}) . mapping _Time; +-- | The Read-only attributes.+upctReadAttributes :: Lens' UserPoolClientType [Text]+upctReadAttributes = lens _upctReadAttributes (\ s a -> s{_upctReadAttributes = a}) . _Default . _Coerce;+ -- | The client name from the user pool request of the client type. upctClientName :: Lens' UserPoolClientType (Maybe Text) upctClientName = lens _upctClientName (\ s a -> s{_upctClientName = a});@@ -652,10 +1251,14 @@           = withObject "UserPoolClientType"               (\ x ->                  UserPoolClientType' <$>-                   (x .:? "ClientId") <*> (x .:? "ClientSecret") <*>-                     (x .:? "LastModifiedDate")+                   (x .:? "RefreshTokenValidity") <*> (x .:? "ClientId")+                     <*> (x .:? "ExplicitAuthFlows" .!= mempty)+                     <*> (x .:? "ClientSecret")+                     <*> (x .:? "LastModifiedDate")                      <*> (x .:? "UserPoolId")+                     <*> (x .:? "WriteAttributes" .!= mempty)                      <*> (x .:? "CreationDate")+                     <*> (x .:? "ReadAttributes" .!= mempty)                      <*> (x .:? "ClientName"))  instance Hashable UserPoolClientType@@ -783,22 +1386,27 @@ -- -- /See:/ 'userPoolType' smart constructor. data UserPoolType = UserPoolType'-    { _uptStatus                   :: !(Maybe StatusType)-    , _uptLastModifiedDate         :: !(Maybe POSIX)-    , _uptEstimatedNumberOfUsers   :: !(Maybe Int)-    , _uptEmailVerificationMessage :: !(Maybe Text)-    , _uptSmsAuthenticationMessage :: !(Maybe Text)-    , _uptSchemaAttributes         :: !(Maybe (List1 SchemaAttributeType))-    , _uptEmailVerificationSubject :: !(Maybe Text)-    , _uptAliasAttributes          :: !(Maybe [AliasAttributeType])-    , _uptSmsVerificationMessage   :: !(Maybe Text)-    , _uptName                     :: !(Maybe Text)-    , _uptMFAConfiguration         :: !(Maybe UserPoolMFAType)-    , _uptId                       :: !(Maybe Text)-    , _uptCreationDate             :: !(Maybe POSIX)-    , _uptLambdaConfig             :: !(Maybe LambdaConfigType)-    , _uptAutoVerifiedAttributes   :: !(Maybe [VerifiedAttributeType])-    , _uptPolicies                 :: !(Maybe UserPoolPolicyType)+    { _uptStatus                    :: !(Maybe StatusType)+    , _uptEmailConfigurationFailure :: !(Maybe Text)+    , _uptLastModifiedDate          :: !(Maybe POSIX)+    , _uptEstimatedNumberOfUsers    :: !(Maybe Int)+    , _uptEmailVerificationMessage  :: !(Maybe Text)+    , _uptSmsAuthenticationMessage  :: !(Maybe Text)+    , _uptSchemaAttributes          :: !(Maybe (List1 SchemaAttributeType))+    , _uptEmailVerificationSubject  :: !(Maybe Text)+    , _uptAliasAttributes           :: !(Maybe [AliasAttributeType])+    , _uptEmailConfiguration        :: !(Maybe EmailConfigurationType)+    , _uptSmsVerificationMessage    :: !(Maybe Text)+    , _uptName                      :: !(Maybe Text)+    , _uptMFAConfiguration          :: !(Maybe UserPoolMFAType)+    , _uptId                        :: !(Maybe Text)+    , _uptSmsConfigurationFailure   :: !(Maybe Text)+    , _uptCreationDate              :: !(Maybe POSIX)+    , _uptLambdaConfig              :: !(Maybe LambdaConfigType)+    , _uptSmsConfiguration          :: !(Maybe SmsConfigurationType)+    , _uptDeviceConfiguration       :: !(Maybe DeviceConfigurationType)+    , _uptAutoVerifiedAttributes    :: !(Maybe [VerifiedAttributeType])+    , _uptPolicies                  :: !(Maybe UserPoolPolicyType)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UserPoolType' with the minimum fields required to make a request.@@ -807,6 +1415,8 @@ -- -- * 'uptStatus' --+-- * 'uptEmailConfigurationFailure'+-- -- * 'uptLastModifiedDate' -- -- * 'uptEstimatedNumberOfUsers'@@ -821,6 +1431,8 @@ -- -- * 'uptAliasAttributes' --+-- * 'uptEmailConfiguration'+-- -- * 'uptSmsVerificationMessage' -- -- * 'uptName'@@ -829,10 +1441,16 @@ -- -- * 'uptId' --+-- * 'uptSmsConfigurationFailure'+-- -- * 'uptCreationDate' -- -- * 'uptLambdaConfig' --+-- * 'uptSmsConfiguration'+--+-- * 'uptDeviceConfiguration'+-- -- * 'uptAutoVerifiedAttributes' -- -- * 'uptPolicies'@@ -841,6 +1459,7 @@ userPoolType =     UserPoolType'     { _uptStatus = Nothing+    , _uptEmailConfigurationFailure = Nothing     , _uptLastModifiedDate = Nothing     , _uptEstimatedNumberOfUsers = Nothing     , _uptEmailVerificationMessage = Nothing@@ -848,12 +1467,16 @@     , _uptSchemaAttributes = Nothing     , _uptEmailVerificationSubject = Nothing     , _uptAliasAttributes = Nothing+    , _uptEmailConfiguration = Nothing     , _uptSmsVerificationMessage = Nothing     , _uptName = Nothing     , _uptMFAConfiguration = Nothing     , _uptId = Nothing+    , _uptSmsConfigurationFailure = Nothing     , _uptCreationDate = Nothing     , _uptLambdaConfig = Nothing+    , _uptSmsConfiguration = Nothing+    , _uptDeviceConfiguration = Nothing     , _uptAutoVerifiedAttributes = Nothing     , _uptPolicies = Nothing     }@@ -862,6 +1485,10 @@ uptStatus :: Lens' UserPoolType (Maybe StatusType) uptStatus = lens _uptStatus (\ s a -> s{_uptStatus = a}); +-- | The reason why the email configuration cannot send the messages to your users.+uptEmailConfigurationFailure :: Lens' UserPoolType (Maybe Text)+uptEmailConfigurationFailure = lens _uptEmailConfigurationFailure (\ s a -> s{_uptEmailConfigurationFailure = a});+ -- | The last modified date of a user pool. uptLastModifiedDate :: Lens' UserPoolType (Maybe UTCTime) uptLastModifiedDate = lens _uptLastModifiedDate (\ s a -> s{_uptLastModifiedDate = a}) . mapping _Time;@@ -890,6 +1517,10 @@ uptAliasAttributes :: Lens' UserPoolType [AliasAttributeType] uptAliasAttributes = lens _uptAliasAttributes (\ s a -> s{_uptAliasAttributes = a}) . _Default . _Coerce; +-- | The email configuration.+uptEmailConfiguration :: Lens' UserPoolType (Maybe EmailConfigurationType)+uptEmailConfiguration = lens _uptEmailConfiguration (\ s a -> s{_uptEmailConfiguration = a});+ -- | The contents of the SMS verification message. uptSmsVerificationMessage :: Lens' UserPoolType (Maybe Text) uptSmsVerificationMessage = lens _uptSmsVerificationMessage (\ s a -> s{_uptSmsVerificationMessage = a});@@ -910,6 +1541,10 @@ uptId :: Lens' UserPoolType (Maybe Text) uptId = lens _uptId (\ s a -> s{_uptId = a}); +-- | The reason why the SMS configuration cannot send the message(s) to your users.+uptSmsConfigurationFailure :: Lens' UserPoolType (Maybe Text)+uptSmsConfigurationFailure = lens _uptSmsConfigurationFailure (\ s a -> s{_uptSmsConfigurationFailure = a});+ -- | The creation date of a user pool. uptCreationDate :: Lens' UserPoolType (Maybe UTCTime) uptCreationDate = lens _uptCreationDate (\ s a -> s{_uptCreationDate = a}) . mapping _Time;@@ -918,6 +1553,14 @@ uptLambdaConfig :: Lens' UserPoolType (Maybe LambdaConfigType) uptLambdaConfig = lens _uptLambdaConfig (\ s a -> s{_uptLambdaConfig = a}); +-- | The SMS configuration.+uptSmsConfiguration :: Lens' UserPoolType (Maybe SmsConfigurationType)+uptSmsConfiguration = lens _uptSmsConfiguration (\ s a -> s{_uptSmsConfiguration = a});++-- | The device configuration.+uptDeviceConfiguration :: Lens' UserPoolType (Maybe DeviceConfigurationType)+uptDeviceConfiguration = lens _uptDeviceConfiguration (\ s a -> s{_uptDeviceConfiguration = a});+ -- | Specifies the attributes that are auto-verified in a user pool. uptAutoVerifiedAttributes :: Lens' UserPoolType [VerifiedAttributeType] uptAutoVerifiedAttributes = lens _uptAutoVerifiedAttributes (\ s a -> s{_uptAutoVerifiedAttributes = a}) . _Default . _Coerce;@@ -931,19 +1574,25 @@           = withObject "UserPoolType"               (\ x ->                  UserPoolType' <$>-                   (x .:? "Status") <*> (x .:? "LastModifiedDate") <*>-                     (x .:? "EstimatedNumberOfUsers")+                   (x .:? "Status") <*>+                     (x .:? "EmailConfigurationFailure")+                     <*> (x .:? "LastModifiedDate")+                     <*> (x .:? "EstimatedNumberOfUsers")                      <*> (x .:? "EmailVerificationMessage")                      <*> (x .:? "SmsAuthenticationMessage")                      <*> (x .:? "SchemaAttributes")                      <*> (x .:? "EmailVerificationSubject")                      <*> (x .:? "AliasAttributes" .!= mempty)+                     <*> (x .:? "EmailConfiguration")                      <*> (x .:? "SmsVerificationMessage")                      <*> (x .:? "Name")                      <*> (x .:? "MfaConfiguration")                      <*> (x .:? "Id")+                     <*> (x .:? "SmsConfigurationFailure")                      <*> (x .:? "CreationDate")                      <*> (x .:? "LambdaConfig")+                     <*> (x .:? "SmsConfiguration")+                     <*> (x .:? "DeviceConfiguration")                      <*> (x .:? "AutoVerifiedAttributes" .!= mempty)                      <*> (x .:? "Policies")) 

@@ -65,7 +65,7 @@         "number" -> pure Number         "string" -> pure String         e -> fromTextError $ "Failure parsing AttributeDataType from value: '" <> e-           <> "'. Accepted values: Boolean, DateTime, Number, String"+           <> "'. Accepted values: boolean, datetime, number, string"  instance ToText AttributeDataType where     toText = \case@@ -86,6 +86,82 @@ instance FromJSON AttributeDataType where     parseJSON = parseJSONText "AttributeDataType" +data AuthFlowType+    = AdminNoSrpAuth+    | CustomAuth+    | RefreshToken+    | RefreshTokenAuth+    | UserSrpAuth+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText AuthFlowType where+    parser = takeLowerText >>= \case+        "admin_no_srp_auth" -> pure AdminNoSrpAuth+        "custom_auth" -> pure CustomAuth+        "refresh_token" -> pure RefreshToken+        "refresh_token_auth" -> pure RefreshTokenAuth+        "user_srp_auth" -> pure UserSrpAuth+        e -> fromTextError $ "Failure parsing AuthFlowType from value: '" <> e+           <> "'. Accepted values: admin_no_srp_auth, custom_auth, refresh_token, refresh_token_auth, user_srp_auth"++instance ToText AuthFlowType where+    toText = \case+        AdminNoSrpAuth -> "ADMIN_NO_SRP_AUTH"+        CustomAuth -> "CUSTOM_AUTH"+        RefreshToken -> "REFRESH_TOKEN"+        RefreshTokenAuth -> "REFRESH_TOKEN_AUTH"+        UserSrpAuth -> "USER_SRP_AUTH"++instance Hashable     AuthFlowType+instance NFData       AuthFlowType+instance ToByteString AuthFlowType+instance ToQuery      AuthFlowType+instance ToHeader     AuthFlowType++instance ToJSON AuthFlowType where+    toJSON = toJSONText++data ChallengeNameType+    = CNTAdminNoSrpAuth+    | CNTCustomChallenge+    | CNTDevicePasswordVerifier+    | CNTDeviceSrpAuth+    | CNTPasswordVerifier+    | CNTSmsMFA+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ChallengeNameType where+    parser = takeLowerText >>= \case+        "admin_no_srp_auth" -> pure CNTAdminNoSrpAuth+        "custom_challenge" -> pure CNTCustomChallenge+        "device_password_verifier" -> pure CNTDevicePasswordVerifier+        "device_srp_auth" -> pure CNTDeviceSrpAuth+        "password_verifier" -> pure CNTPasswordVerifier+        "sms_mfa" -> pure CNTSmsMFA+        e -> fromTextError $ "Failure parsing ChallengeNameType from value: '" <> e+           <> "'. Accepted values: admin_no_srp_auth, custom_challenge, device_password_verifier, device_srp_auth, password_verifier, sms_mfa"++instance ToText ChallengeNameType where+    toText = \case+        CNTAdminNoSrpAuth -> "ADMIN_NO_SRP_AUTH"+        CNTCustomChallenge -> "CUSTOM_CHALLENGE"+        CNTDevicePasswordVerifier -> "DEVICE_PASSWORD_VERIFIER"+        CNTDeviceSrpAuth -> "DEVICE_SRP_AUTH"+        CNTPasswordVerifier -> "PASSWORD_VERIFIER"+        CNTSmsMFA -> "SMS_MFA"++instance Hashable     ChallengeNameType+instance NFData       ChallengeNameType+instance ToByteString ChallengeNameType+instance ToQuery      ChallengeNameType+instance ToHeader     ChallengeNameType++instance ToJSON ChallengeNameType where+    toJSON = toJSONText++instance FromJSON ChallengeNameType where+    parseJSON = parseJSONText "ChallengeNameType"+ data DeliveryMediumType     = DMTEmail     | DMTSms@@ -96,7 +172,7 @@         "email" -> pure DMTEmail         "sms" -> pure DMTSms         e -> fromTextError $ "Failure parsing DeliveryMediumType from value: '" <> e-           <> "'. Accepted values: EMAIL, SMS"+           <> "'. Accepted values: email, sms"  instance ToText DeliveryMediumType where     toText = \case@@ -115,6 +191,61 @@ instance FromJSON DeliveryMediumType where     parseJSON = parseJSONText "DeliveryMediumType" +data DeviceRememberedStatusType+    = NotRemembered+    | Remembered+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText DeviceRememberedStatusType where+    parser = takeLowerText >>= \case+        "not_remembered" -> pure NotRemembered+        "remembered" -> pure Remembered+        e -> fromTextError $ "Failure parsing DeviceRememberedStatusType from value: '" <> e+           <> "'. Accepted values: not_remembered, remembered"++instance ToText DeviceRememberedStatusType where+    toText = \case+        NotRemembered -> "not_remembered"+        Remembered -> "remembered"++instance Hashable     DeviceRememberedStatusType+instance NFData       DeviceRememberedStatusType+instance ToByteString DeviceRememberedStatusType+instance ToQuery      DeviceRememberedStatusType+instance ToHeader     DeviceRememberedStatusType++instance ToJSON DeviceRememberedStatusType where+    toJSON = toJSONText++data ExplicitAuthFlowsType+    = EAFTAdminNoSrpAuth+    | EAFTCustomAuthFlowOnly+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ExplicitAuthFlowsType where+    parser = takeLowerText >>= \case+        "admin_no_srp_auth" -> pure EAFTAdminNoSrpAuth+        "custom_auth_flow_only" -> pure EAFTCustomAuthFlowOnly+        e -> fromTextError $ "Failure parsing ExplicitAuthFlowsType from value: '" <> e+           <> "'. Accepted values: admin_no_srp_auth, custom_auth_flow_only"++instance ToText ExplicitAuthFlowsType where+    toText = \case+        EAFTAdminNoSrpAuth -> "ADMIN_NO_SRP_AUTH"+        EAFTCustomAuthFlowOnly -> "CUSTOM_AUTH_FLOW_ONLY"++instance Hashable     ExplicitAuthFlowsType+instance NFData       ExplicitAuthFlowsType+instance ToByteString ExplicitAuthFlowsType+instance ToQuery      ExplicitAuthFlowsType+instance ToHeader     ExplicitAuthFlowsType++instance ToJSON ExplicitAuthFlowsType where+    toJSON = toJSONText++instance FromJSON ExplicitAuthFlowsType where+    parseJSON = parseJSONText "ExplicitAuthFlowsType"+ data StatusType     = Disabled     | Enabled@@ -125,7 +256,7 @@         "disabled" -> pure Disabled         "enabled" -> pure Enabled         e -> fromTextError $ "Failure parsing StatusType from value: '" <> e-           <> "'. Accepted values: Disabled, Enabled"+           <> "'. Accepted values: disabled, enabled"  instance ToText StatusType where     toText = \case@@ -141,6 +272,50 @@ instance FromJSON StatusType where     parseJSON = parseJSONText "StatusType" +data UserImportJobStatusType+    = Created+    | Expired+    | Failed+    | InProgress+    | Pending+    | Stopped+    | Stopping+    | Succeeded+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText UserImportJobStatusType where+    parser = takeLowerText >>= \case+        "created" -> pure Created+        "expired" -> pure Expired+        "failed" -> pure Failed+        "inprogress" -> pure InProgress+        "pending" -> pure Pending+        "stopped" -> pure Stopped+        "stopping" -> pure Stopping+        "succeeded" -> pure Succeeded+        e -> fromTextError $ "Failure parsing UserImportJobStatusType from value: '" <> e+           <> "'. Accepted values: created, expired, failed, inprogress, pending, stopped, stopping, succeeded"++instance ToText UserImportJobStatusType where+    toText = \case+        Created -> "Created"+        Expired -> "Expired"+        Failed -> "Failed"+        InProgress -> "InProgress"+        Pending -> "Pending"+        Stopped -> "Stopped"+        Stopping -> "Stopping"+        Succeeded -> "Succeeded"++instance Hashable     UserImportJobStatusType+instance NFData       UserImportJobStatusType+instance ToByteString UserImportJobStatusType+instance ToQuery      UserImportJobStatusType+instance ToHeader     UserImportJobStatusType++instance FromJSON UserImportJobStatusType where+    parseJSON = parseJSONText "UserImportJobStatusType"+ data UserPoolMFAType     = ON     | Off@@ -153,7 +328,7 @@         "off" -> pure Off         "optional" -> pure Optional         e -> fromTextError $ "Failure parsing UserPoolMFAType from value: '" <> e-           <> "'. Accepted values: ON, OFF, OPTIONAL"+           <> "'. Accepted values: on, off, optional"  instance ToText UserPoolMFAType where     toText = \case@@ -177,6 +352,7 @@     = Archived     | Compromised     | Confirmed+    | ResetRequired     | Unconfirmed     | Unknown     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -186,16 +362,18 @@         "archived" -> pure Archived         "compromised" -> pure Compromised         "confirmed" -> pure Confirmed+        "reset_required" -> pure ResetRequired         "unconfirmed" -> pure Unconfirmed         "unknown" -> pure Unknown         e -> fromTextError $ "Failure parsing UserStatusType from value: '" <> e-           <> "'. Accepted values: ARCHIVED, COMPROMISED, CONFIRMED, UNCONFIRMED, UNKNOWN"+           <> "'. Accepted values: archived, compromised, confirmed, reset_required, unconfirmed, unknown"  instance ToText UserStatusType where     toText = \case         Archived -> "ARCHIVED"         Compromised -> "COMPROMISED"         Confirmed -> "CONFIRMED"+        ResetRequired -> "RESET_REQUIRED"         Unconfirmed -> "UNCONFIRMED"         Unknown -> "UNKNOWN" @@ -204,9 +382,6 @@ instance ToByteString UserStatusType instance ToQuery      UserStatusType instance ToHeader     UserStatusType--instance ToJSON UserStatusType where-    toJSON = toJSONText  instance FromJSON UserStatusType where     parseJSON = parseJSONText "UserStatusType"

@@ -0,0 +1,149 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CognitoIdentityProvider.UpdateDeviceStatus+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the device status.+module Network.AWS.CognitoIdentityProvider.UpdateDeviceStatus+    (+    -- * Creating a Request+      updateDeviceStatus+    , UpdateDeviceStatus+    -- * Request Lenses+    , udsDeviceRememberedStatus+    , udsAccessToken+    , udsDeviceKey++    -- * Destructuring the Response+    , updateDeviceStatusResponse+    , UpdateDeviceStatusResponse+    -- * Response Lenses+    , udsrsResponseStatus+    ) where++import           Network.AWS.CognitoIdentityProvider.Types+import           Network.AWS.CognitoIdentityProvider.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to update the device status.+--+-- /See:/ 'updateDeviceStatus' smart constructor.+data UpdateDeviceStatus = UpdateDeviceStatus'+    { _udsDeviceRememberedStatus :: !(Maybe DeviceRememberedStatusType)+    , _udsAccessToken            :: !(Sensitive Text)+    , _udsDeviceKey              :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateDeviceStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'udsDeviceRememberedStatus'+--+-- * 'udsAccessToken'+--+-- * 'udsDeviceKey'+updateDeviceStatus+    :: Text -- ^ 'udsAccessToken'+    -> Text -- ^ 'udsDeviceKey'+    -> UpdateDeviceStatus+updateDeviceStatus pAccessToken_ pDeviceKey_ =+    UpdateDeviceStatus'+    { _udsDeviceRememberedStatus = Nothing+    , _udsAccessToken = _Sensitive # pAccessToken_+    , _udsDeviceKey = pDeviceKey_+    }++-- | The status of whether a device is remembered.+udsDeviceRememberedStatus :: Lens' UpdateDeviceStatus (Maybe DeviceRememberedStatusType)+udsDeviceRememberedStatus = lens _udsDeviceRememberedStatus (\ s a -> s{_udsDeviceRememberedStatus = a});++-- | The access token.+udsAccessToken :: Lens' UpdateDeviceStatus Text+udsAccessToken = lens _udsAccessToken (\ s a -> s{_udsAccessToken = a}) . _Sensitive;++-- | The device key.+udsDeviceKey :: Lens' UpdateDeviceStatus Text+udsDeviceKey = lens _udsDeviceKey (\ s a -> s{_udsDeviceKey = a});++instance AWSRequest UpdateDeviceStatus where+        type Rs UpdateDeviceStatus =+             UpdateDeviceStatusResponse+        request = postJSON cognitoIdentityProvider+        response+          = receiveEmpty+              (\ s h x ->+                 UpdateDeviceStatusResponse' <$> (pure (fromEnum s)))++instance Hashable UpdateDeviceStatus++instance NFData UpdateDeviceStatus++instance ToHeaders UpdateDeviceStatus where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSCognitoIdentityProviderService.UpdateDeviceStatus"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateDeviceStatus where+        toJSON UpdateDeviceStatus'{..}+          = object+              (catMaybes+                 [("DeviceRememberedStatus" .=) <$>+                    _udsDeviceRememberedStatus,+                  Just ("AccessToken" .= _udsAccessToken),+                  Just ("DeviceKey" .= _udsDeviceKey)])++instance ToPath UpdateDeviceStatus where+        toPath = const "/"++instance ToQuery UpdateDeviceStatus where+        toQuery = const mempty++-- | The response to the request to update the device status.+--+-- /See:/ 'updateDeviceStatusResponse' smart constructor.+newtype UpdateDeviceStatusResponse = UpdateDeviceStatusResponse'+    { _udsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateDeviceStatusResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'udsrsResponseStatus'+updateDeviceStatusResponse+    :: Int -- ^ 'udsrsResponseStatus'+    -> UpdateDeviceStatusResponse+updateDeviceStatusResponse pResponseStatus_ =+    UpdateDeviceStatusResponse'+    { _udsrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+udsrsResponseStatus :: Lens' UpdateDeviceStatusResponse Int+udsrsResponseStatus = lens _udsrsResponseStatus (\ s a -> s{_udsrsResponseStatus = a});++instance NFData UpdateDeviceStatusResponse

@@ -28,9 +28,12 @@     , uupEmailVerificationMessage     , uupSmsAuthenticationMessage     , uupEmailVerificationSubject+    , uupEmailConfiguration     , uupSmsVerificationMessage     , uupMFAConfiguration     , uupLambdaConfig+    , uupSmsConfiguration+    , uupDeviceConfiguration     , uupAutoVerifiedAttributes     , uupPolicies     , uupUserPoolId@@ -56,9 +59,12 @@     { _uupEmailVerificationMessage :: !(Maybe Text)     , _uupSmsAuthenticationMessage :: !(Maybe Text)     , _uupEmailVerificationSubject :: !(Maybe Text)+    , _uupEmailConfiguration       :: !(Maybe EmailConfigurationType)     , _uupSmsVerificationMessage   :: !(Maybe Text)     , _uupMFAConfiguration         :: !(Maybe UserPoolMFAType)     , _uupLambdaConfig             :: !(Maybe LambdaConfigType)+    , _uupSmsConfiguration         :: !(Maybe SmsConfigurationType)+    , _uupDeviceConfiguration      :: !(Maybe DeviceConfigurationType)     , _uupAutoVerifiedAttributes   :: !(Maybe [VerifiedAttributeType])     , _uupPolicies                 :: !(Maybe UserPoolPolicyType)     , _uupUserPoolId               :: !Text@@ -74,12 +80,18 @@ -- -- * 'uupEmailVerificationSubject' --+-- * 'uupEmailConfiguration'+-- -- * 'uupSmsVerificationMessage' -- -- * 'uupMFAConfiguration' -- -- * 'uupLambdaConfig' --+-- * 'uupSmsConfiguration'+--+-- * 'uupDeviceConfiguration'+-- -- * 'uupAutoVerifiedAttributes' -- -- * 'uupPolicies'@@ -93,9 +105,12 @@     { _uupEmailVerificationMessage = Nothing     , _uupSmsAuthenticationMessage = Nothing     , _uupEmailVerificationSubject = Nothing+    , _uupEmailConfiguration = Nothing     , _uupSmsVerificationMessage = Nothing     , _uupMFAConfiguration = Nothing     , _uupLambdaConfig = Nothing+    , _uupSmsConfiguration = Nothing+    , _uupDeviceConfiguration = Nothing     , _uupAutoVerifiedAttributes = Nothing     , _uupPolicies = Nothing     , _uupUserPoolId = pUserPoolId_@@ -113,6 +128,10 @@ uupEmailVerificationSubject :: Lens' UpdateUserPool (Maybe Text) uupEmailVerificationSubject = lens _uupEmailVerificationSubject (\ s a -> s{_uupEmailVerificationSubject = a}); +-- | Email configuration.+uupEmailConfiguration :: Lens' UpdateUserPool (Maybe EmailConfigurationType)+uupEmailConfiguration = lens _uupEmailConfiguration (\ s a -> s{_uupEmailConfiguration = a});+ -- | A container with information about the SMS verification message. uupSmsVerificationMessage :: Lens' UpdateUserPool (Maybe Text) uupSmsVerificationMessage = lens _uupSmsVerificationMessage (\ s a -> s{_uupSmsVerificationMessage = a});@@ -129,6 +148,14 @@ uupLambdaConfig :: Lens' UpdateUserPool (Maybe LambdaConfigType) uupLambdaConfig = lens _uupLambdaConfig (\ s a -> s{_uupLambdaConfig = a}); +-- | SMS configuration.+uupSmsConfiguration :: Lens' UpdateUserPool (Maybe SmsConfigurationType)+uupSmsConfiguration = lens _uupSmsConfiguration (\ s a -> s{_uupSmsConfiguration = a});++-- | Device configuration.+uupDeviceConfiguration :: Lens' UpdateUserPool (Maybe DeviceConfigurationType)+uupDeviceConfiguration = lens _uupDeviceConfiguration (\ s a -> s{_uupDeviceConfiguration = a});+ -- | The attributes that are automatically verified when the Amazon Cognito service makes a request to update user pools. uupAutoVerifiedAttributes :: Lens' UpdateUserPool [VerifiedAttributeType] uupAutoVerifiedAttributes = lens _uupAutoVerifiedAttributes (\ s a -> s{_uupAutoVerifiedAttributes = a}) . _Default . _Coerce;@@ -173,10 +200,14 @@                     _uupSmsAuthenticationMessage,                   ("EmailVerificationSubject" .=) <$>                     _uupEmailVerificationSubject,+                  ("EmailConfiguration" .=) <$> _uupEmailConfiguration,                   ("SmsVerificationMessage" .=) <$>                     _uupSmsVerificationMessage,                   ("MfaConfiguration" .=) <$> _uupMFAConfiguration,                   ("LambdaConfig" .=) <$> _uupLambdaConfig,+                  ("SmsConfiguration" .=) <$> _uupSmsConfiguration,+                  ("DeviceConfiguration" .=) <$>+                    _uupDeviceConfiguration,                   ("AutoVerifiedAttributes" .=) <$>                     _uupAutoVerifiedAttributes,                   ("Policies" .=) <$> _uupPolicies,

@@ -25,6 +25,10 @@       updateUserPoolClient     , UpdateUserPoolClient     -- * Request Lenses+    , uupcRefreshTokenValidity+    , uupcExplicitAuthFlows+    , uupcWriteAttributes+    , uupcReadAttributes     , uupcClientName     , uupcUserPoolId     , uupcClientId@@ -48,15 +52,27 @@ -- -- /See:/ 'updateUserPoolClient' smart constructor. data UpdateUserPoolClient = UpdateUserPoolClient'-    { _uupcClientName :: !(Maybe Text)-    , _uupcUserPoolId :: !Text-    , _uupcClientId   :: !(Sensitive Text)+    { _uupcRefreshTokenValidity :: !(Maybe Nat)+    , _uupcExplicitAuthFlows    :: !(Maybe [ExplicitAuthFlowsType])+    , _uupcWriteAttributes      :: !(Maybe [Text])+    , _uupcReadAttributes       :: !(Maybe [Text])+    , _uupcClientName           :: !(Maybe Text)+    , _uupcUserPoolId           :: !Text+    , _uupcClientId             :: !(Sensitive Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateUserPoolClient' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'uupcRefreshTokenValidity'+--+-- * 'uupcExplicitAuthFlows'+--+-- * 'uupcWriteAttributes'+--+-- * 'uupcReadAttributes'+-- -- * 'uupcClientName' -- -- * 'uupcUserPoolId'@@ -68,11 +84,31 @@     -> UpdateUserPoolClient updateUserPoolClient pUserPoolId_ pClientId_ =     UpdateUserPoolClient'-    { _uupcClientName = Nothing+    { _uupcRefreshTokenValidity = Nothing+    , _uupcExplicitAuthFlows = Nothing+    , _uupcWriteAttributes = Nothing+    , _uupcReadAttributes = Nothing+    , _uupcClientName = Nothing     , _uupcUserPoolId = pUserPoolId_     , _uupcClientId = _Sensitive # pClientId_     } +-- | The validity of the refresh token.+uupcRefreshTokenValidity :: Lens' UpdateUserPoolClient (Maybe Natural)+uupcRefreshTokenValidity = lens _uupcRefreshTokenValidity (\ s a -> s{_uupcRefreshTokenValidity = a}) . mapping _Nat;++-- | Explicit authentication flows.+uupcExplicitAuthFlows :: Lens' UpdateUserPoolClient [ExplicitAuthFlowsType]+uupcExplicitAuthFlows = lens _uupcExplicitAuthFlows (\ s a -> s{_uupcExplicitAuthFlows = a}) . _Default . _Coerce;++-- | The writeable attributes of the user pool.+uupcWriteAttributes :: Lens' UpdateUserPoolClient [Text]+uupcWriteAttributes = lens _uupcWriteAttributes (\ s a -> s{_uupcWriteAttributes = a}) . _Default . _Coerce;++-- | The read-only attributes of the user pool.+uupcReadAttributes :: Lens' UpdateUserPoolClient [Text]+uupcReadAttributes = lens _uupcReadAttributes (\ s a -> s{_uupcReadAttributes = a}) . _Default . _Coerce;+ -- | The client name from the update user pool client request. uupcClientName :: Lens' UpdateUserPoolClient (Maybe Text) uupcClientName = lens _uupcClientName (\ s a -> s{_uupcClientName = a});@@ -113,7 +149,12 @@         toJSON UpdateUserPoolClient'{..}           = object               (catMaybes-                 [("ClientName" .=) <$> _uupcClientName,+                 [("RefreshTokenValidity" .=) <$>+                    _uupcRefreshTokenValidity,+                  ("ExplicitAuthFlows" .=) <$> _uupcExplicitAuthFlows,+                  ("WriteAttributes" .=) <$> _uupcWriteAttributes,+                  ("ReadAttributes" .=) <$> _uupcReadAttributes,+                  ("ClientName" .=) <$> _uupcClientName,                   Just ("UserPoolId" .= _uupcUserPoolId),                   Just ("ClientId" .= _uupcClientId)]) 

@@ -34,6 +34,9 @@ --         , requestUpdateUserPool $ --             updateUserPool --+--         , requestAdminInitiateAuth $+--             adminInitiateAuth+-- --         , requestAdminEnableUser $ --             adminEnableUser --@@ -52,9 +55,15 @@ --         , requestAdminDisableUser $ --             adminDisableUser --+--         , requestConfirmDevice $+--             confirmDevice+-- --         , requestConfirmForgotPassword $ --             confirmForgotPassword --+--         , requestListUserImportJobs $+--             listUserImportJobs+-- --         , requestListUsers $ --             listUsers --@@ -67,24 +76,42 @@ --         , requestAdminGetUser $ --             adminGetUser --+--         , requestAdminUserGlobalSignOut $+--             adminUserGlobalSignOut+-- --         , requestForgotPassword $ --             forgotPassword -- --         , requestDescribeUserPool $ --             describeUserPool --+--         , requestInitiateAuth $+--             initiateAuth+-- --         , requestAdminConfirmSignUp $ --             adminConfirmSignUp --+--         , requestStartUserImportJob $+--             startUserImportJob+--+--         , requestGetDevice $+--             getDevice+-- --         , requestSignUp $ --             signUp -- --         , requestChangePassword $ --             changePassword --+--         , requestRespondToAuthChallenge $+--             respondToAuthChallenge+-- --         , requestCreateUserPool $ --             createUserPool --+--         , requestAdminGetDevice $+--             adminGetDevice+-- --         , requestConfirmSignUp $ --             confirmSignUp --@@ -94,12 +121,24 @@ --         , requestAdminResetUserPassword $ --             adminResetUserPassword --+--         , requestCreateUserImportJob $+--             createUserImportJob+-- --         , requestGetUser $ --             getUser --+--         , requestGetCSVHeader $+--             getCSVHeader+-- --         , requestAdminDeleteUser $ --             adminDeleteUser --+--         , requestAdminForgetDevice $+--             adminForgetDevice+--+--         , requestAdminUpdateDeviceStatus $+--             adminUpdateDeviceStatus+-- --         , requestAddCustomAttributes $ --             addCustomAttributes --@@ -112,15 +151,36 @@ --         , requestDeleteUserPoolClient $ --             deleteUserPoolClient --+--         , requestUpdateDeviceStatus $+--             updateDeviceStatus+--+--         , requestForgetDevice $+--             forgetDevice+-- --         , requestDeleteUser $ --             deleteUser -- --         , requestCreateUserPoolClient $ --             createUserPoolClient --+--         , requestStopUserImportJob $+--             stopUserImportJob+--+--         , requestDescribeUserImportJob $+--             describeUserImportJob+--+--         , requestGlobalSignOut $+--             globalSignOut+--+--         , requestAdminRespondToAuthChallenge $+--             adminRespondToAuthChallenge+-- --         , requestSetUserSettings $ --             setUserSettings --+--         , requestAdminListDevices $+--             adminListDevices+-- --         , requestDescribeUserPoolClient $ --             describeUserPoolClient --@@ -130,6 +190,9 @@ --         , requestAdminSetUserSettings $ --             adminSetUserSettings --+--         , requestListDevices $+--             listDevices+-- --           ]  --     , testGroup "response"@@ -139,6 +202,9 @@ --         , responseUpdateUserPool $ --             updateUserPoolResponse --+--         , responseAdminInitiateAuth $+--             adminInitiateAuthResponse+-- --         , responseAdminEnableUser $ --             adminEnableUserResponse --@@ -157,9 +223,15 @@ --         , responseAdminDisableUser $ --             adminDisableUserResponse --+--         , responseConfirmDevice $+--             confirmDeviceResponse+-- --         , responseConfirmForgotPassword $ --             confirmForgotPasswordResponse --+--         , responseListUserImportJobs $+--             listUserImportJobsResponse+-- --         , responseListUsers $ --             listUsersResponse --@@ -172,24 +244,42 @@ --         , responseAdminGetUser $ --             adminGetUserResponse --+--         , responseAdminUserGlobalSignOut $+--             adminUserGlobalSignOutResponse+-- --         , responseForgotPassword $ --             forgotPasswordResponse -- --         , responseDescribeUserPool $ --             describeUserPoolResponse --+--         , responseInitiateAuth $+--             initiateAuthResponse+-- --         , responseAdminConfirmSignUp $ --             adminConfirmSignUpResponse --+--         , responseStartUserImportJob $+--             startUserImportJobResponse+--+--         , responseGetDevice $+--             getDeviceResponse+-- --         , responseSignUp $ --             signUpResponse -- --         , responseChangePassword $ --             changePasswordResponse --+--         , responseRespondToAuthChallenge $+--             respondToAuthChallengeResponse+-- --         , responseCreateUserPool $ --             createUserPoolResponse --+--         , responseAdminGetDevice $+--             adminGetDeviceResponse+-- --         , responseConfirmSignUp $ --             confirmSignUpResponse --@@ -199,12 +289,24 @@ --         , responseAdminResetUserPassword $ --             adminResetUserPasswordResponse --+--         , responseCreateUserImportJob $+--             createUserImportJobResponse+-- --         , responseGetUser $ --             getUserResponse --+--         , responseGetCSVHeader $+--             getCSVHeaderResponse+-- --         , responseAdminDeleteUser $ --             adminDeleteUserResponse --+--         , responseAdminForgetDevice $+--             adminForgetDeviceResponse+--+--         , responseAdminUpdateDeviceStatus $+--             adminUpdateDeviceStatusResponse+-- --         , responseAddCustomAttributes $ --             addCustomAttributesResponse --@@ -217,15 +319,36 @@ --         , responseDeleteUserPoolClient $ --             deleteUserPoolClientResponse --+--         , responseUpdateDeviceStatus $+--             updateDeviceStatusResponse+--+--         , responseForgetDevice $+--             forgetDeviceResponse+-- --         , responseDeleteUser $ --             deleteUserResponse -- --         , responseCreateUserPoolClient $ --             createUserPoolClientResponse --+--         , responseStopUserImportJob $+--             stopUserImportJobResponse+--+--         , responseDescribeUserImportJob $+--             describeUserImportJobResponse+--+--         , responseGlobalSignOut $+--             globalSignOutResponse+--+--         , responseAdminRespondToAuthChallenge $+--             adminRespondToAuthChallengeResponse+-- --         , responseSetUserSettings $ --             setUserSettingsResponse --+--         , responseAdminListDevices $+--             adminListDevicesResponse+-- --         , responseDescribeUserPoolClient $ --             describeUserPoolClientResponse --@@ -235,6 +358,9 @@ --         , responseAdminSetUserSettings $ --             adminSetUserSettingsResponse --+--         , responseListDevices $+--             listDevicesResponse+-- --           ] --     ] @@ -250,6 +376,11 @@     "UpdateUserPool"     "fixture/UpdateUserPool.yaml" +requestAdminInitiateAuth :: AdminInitiateAuth -> TestTree+requestAdminInitiateAuth = req+    "AdminInitiateAuth"+    "fixture/AdminInitiateAuth.yaml"+ requestAdminEnableUser :: AdminEnableUser -> TestTree requestAdminEnableUser = req     "AdminEnableUser"@@ -280,11 +411,21 @@     "AdminDisableUser"     "fixture/AdminDisableUser.yaml" +requestConfirmDevice :: ConfirmDevice -> TestTree+requestConfirmDevice = req+    "ConfirmDevice"+    "fixture/ConfirmDevice.yaml"+ requestConfirmForgotPassword :: ConfirmForgotPassword -> TestTree requestConfirmForgotPassword = req     "ConfirmForgotPassword"     "fixture/ConfirmForgotPassword.yaml" +requestListUserImportJobs :: ListUserImportJobs -> TestTree+requestListUserImportJobs = req+    "ListUserImportJobs"+    "fixture/ListUserImportJobs.yaml"+ requestListUsers :: ListUsers -> TestTree requestListUsers = req     "ListUsers"@@ -305,6 +446,11 @@     "AdminGetUser"     "fixture/AdminGetUser.yaml" +requestAdminUserGlobalSignOut :: AdminUserGlobalSignOut -> TestTree+requestAdminUserGlobalSignOut = req+    "AdminUserGlobalSignOut"+    "fixture/AdminUserGlobalSignOut.yaml"+ requestForgotPassword :: ForgotPassword -> TestTree requestForgotPassword = req     "ForgotPassword"@@ -315,11 +461,26 @@     "DescribeUserPool"     "fixture/DescribeUserPool.yaml" +requestInitiateAuth :: InitiateAuth -> TestTree+requestInitiateAuth = req+    "InitiateAuth"+    "fixture/InitiateAuth.yaml"+ requestAdminConfirmSignUp :: AdminConfirmSignUp -> TestTree requestAdminConfirmSignUp = req     "AdminConfirmSignUp"     "fixture/AdminConfirmSignUp.yaml" +requestStartUserImportJob :: StartUserImportJob -> TestTree+requestStartUserImportJob = req+    "StartUserImportJob"+    "fixture/StartUserImportJob.yaml"++requestGetDevice :: GetDevice -> TestTree+requestGetDevice = req+    "GetDevice"+    "fixture/GetDevice.yaml"+ requestSignUp :: SignUp -> TestTree requestSignUp = req     "SignUp"@@ -330,11 +491,21 @@     "ChangePassword"     "fixture/ChangePassword.yaml" +requestRespondToAuthChallenge :: RespondToAuthChallenge -> TestTree+requestRespondToAuthChallenge = req+    "RespondToAuthChallenge"+    "fixture/RespondToAuthChallenge.yaml"+ requestCreateUserPool :: CreateUserPool -> TestTree requestCreateUserPool = req     "CreateUserPool"     "fixture/CreateUserPool.yaml" +requestAdminGetDevice :: AdminGetDevice -> TestTree+requestAdminGetDevice = req+    "AdminGetDevice"+    "fixture/AdminGetDevice.yaml"+ requestConfirmSignUp :: ConfirmSignUp -> TestTree requestConfirmSignUp = req     "ConfirmSignUp"@@ -350,16 +521,36 @@     "AdminResetUserPassword"     "fixture/AdminResetUserPassword.yaml" +requestCreateUserImportJob :: CreateUserImportJob -> TestTree+requestCreateUserImportJob = req+    "CreateUserImportJob"+    "fixture/CreateUserImportJob.yaml"+ requestGetUser :: GetUser -> TestTree requestGetUser = req     "GetUser"     "fixture/GetUser.yaml" +requestGetCSVHeader :: GetCSVHeader -> TestTree+requestGetCSVHeader = req+    "GetCSVHeader"+    "fixture/GetCSVHeader.yaml"+ requestAdminDeleteUser :: AdminDeleteUser -> TestTree requestAdminDeleteUser = req     "AdminDeleteUser"     "fixture/AdminDeleteUser.yaml" +requestAdminForgetDevice :: AdminForgetDevice -> TestTree+requestAdminForgetDevice = req+    "AdminForgetDevice"+    "fixture/AdminForgetDevice.yaml"++requestAdminUpdateDeviceStatus :: AdminUpdateDeviceStatus -> TestTree+requestAdminUpdateDeviceStatus = req+    "AdminUpdateDeviceStatus"+    "fixture/AdminUpdateDeviceStatus.yaml"+ requestAddCustomAttributes :: AddCustomAttributes -> TestTree requestAddCustomAttributes = req     "AddCustomAttributes"@@ -380,6 +571,16 @@     "DeleteUserPoolClient"     "fixture/DeleteUserPoolClient.yaml" +requestUpdateDeviceStatus :: UpdateDeviceStatus -> TestTree+requestUpdateDeviceStatus = req+    "UpdateDeviceStatus"+    "fixture/UpdateDeviceStatus.yaml"++requestForgetDevice :: ForgetDevice -> TestTree+requestForgetDevice = req+    "ForgetDevice"+    "fixture/ForgetDevice.yaml"+ requestDeleteUser :: DeleteUser -> TestTree requestDeleteUser = req     "DeleteUser"@@ -390,11 +591,36 @@     "CreateUserPoolClient"     "fixture/CreateUserPoolClient.yaml" +requestStopUserImportJob :: StopUserImportJob -> TestTree+requestStopUserImportJob = req+    "StopUserImportJob"+    "fixture/StopUserImportJob.yaml"++requestDescribeUserImportJob :: DescribeUserImportJob -> TestTree+requestDescribeUserImportJob = req+    "DescribeUserImportJob"+    "fixture/DescribeUserImportJob.yaml"++requestGlobalSignOut :: GlobalSignOut -> TestTree+requestGlobalSignOut = req+    "GlobalSignOut"+    "fixture/GlobalSignOut.yaml"++requestAdminRespondToAuthChallenge :: AdminRespondToAuthChallenge -> TestTree+requestAdminRespondToAuthChallenge = req+    "AdminRespondToAuthChallenge"+    "fixture/AdminRespondToAuthChallenge.yaml"+ requestSetUserSettings :: SetUserSettings -> TestTree requestSetUserSettings = req     "SetUserSettings"     "fixture/SetUserSettings.yaml" +requestAdminListDevices :: AdminListDevices -> TestTree+requestAdminListDevices = req+    "AdminListDevices"+    "fixture/AdminListDevices.yaml"+ requestDescribeUserPoolClient :: DescribeUserPoolClient -> TestTree requestDescribeUserPoolClient = req     "DescribeUserPoolClient"@@ -410,6 +636,11 @@     "AdminSetUserSettings"     "fixture/AdminSetUserSettings.yaml" +requestListDevices :: ListDevices -> TestTree+requestListDevices = req+    "ListDevices"+    "fixture/ListDevices.yaml"+ -- Responses  responseDeleteUserPool :: DeleteUserPoolResponse -> TestTree@@ -426,6 +657,13 @@     cognitoIdentityProvider     (Proxy :: Proxy UpdateUserPool) +responseAdminInitiateAuth :: AdminInitiateAuthResponse -> TestTree+responseAdminInitiateAuth = res+    "AdminInitiateAuthResponse"+    "fixture/AdminInitiateAuthResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminInitiateAuth)+ responseAdminEnableUser :: AdminEnableUserResponse -> TestTree responseAdminEnableUser = res     "AdminEnableUserResponse"@@ -468,6 +706,13 @@     cognitoIdentityProvider     (Proxy :: Proxy AdminDisableUser) +responseConfirmDevice :: ConfirmDeviceResponse -> TestTree+responseConfirmDevice = res+    "ConfirmDeviceResponse"+    "fixture/ConfirmDeviceResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy ConfirmDevice)+ responseConfirmForgotPassword :: ConfirmForgotPasswordResponse -> TestTree responseConfirmForgotPassword = res     "ConfirmForgotPasswordResponse"@@ -475,6 +720,13 @@     cognitoIdentityProvider     (Proxy :: Proxy ConfirmForgotPassword) +responseListUserImportJobs :: ListUserImportJobsResponse -> TestTree+responseListUserImportJobs = res+    "ListUserImportJobsResponse"+    "fixture/ListUserImportJobsResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy ListUserImportJobs)+ responseListUsers :: ListUsersResponse -> TestTree responseListUsers = res     "ListUsersResponse"@@ -503,6 +755,13 @@     cognitoIdentityProvider     (Proxy :: Proxy AdminGetUser) +responseAdminUserGlobalSignOut :: AdminUserGlobalSignOutResponse -> TestTree+responseAdminUserGlobalSignOut = res+    "AdminUserGlobalSignOutResponse"+    "fixture/AdminUserGlobalSignOutResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminUserGlobalSignOut)+ responseForgotPassword :: ForgotPasswordResponse -> TestTree responseForgotPassword = res     "ForgotPasswordResponse"@@ -517,6 +776,13 @@     cognitoIdentityProvider     (Proxy :: Proxy DescribeUserPool) +responseInitiateAuth :: InitiateAuthResponse -> TestTree+responseInitiateAuth = res+    "InitiateAuthResponse"+    "fixture/InitiateAuthResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy InitiateAuth)+ responseAdminConfirmSignUp :: AdminConfirmSignUpResponse -> TestTree responseAdminConfirmSignUp = res     "AdminConfirmSignUpResponse"@@ -524,6 +790,20 @@     cognitoIdentityProvider     (Proxy :: Proxy AdminConfirmSignUp) +responseStartUserImportJob :: StartUserImportJobResponse -> TestTree+responseStartUserImportJob = res+    "StartUserImportJobResponse"+    "fixture/StartUserImportJobResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy StartUserImportJob)++responseGetDevice :: GetDeviceResponse -> TestTree+responseGetDevice = res+    "GetDeviceResponse"+    "fixture/GetDeviceResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy GetDevice)+ responseSignUp :: SignUpResponse -> TestTree responseSignUp = res     "SignUpResponse"@@ -538,6 +818,13 @@     cognitoIdentityProvider     (Proxy :: Proxy ChangePassword) +responseRespondToAuthChallenge :: RespondToAuthChallengeResponse -> TestTree+responseRespondToAuthChallenge = res+    "RespondToAuthChallengeResponse"+    "fixture/RespondToAuthChallengeResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy RespondToAuthChallenge)+ responseCreateUserPool :: CreateUserPoolResponse -> TestTree responseCreateUserPool = res     "CreateUserPoolResponse"@@ -545,6 +832,13 @@     cognitoIdentityProvider     (Proxy :: Proxy CreateUserPool) +responseAdminGetDevice :: AdminGetDeviceResponse -> TestTree+responseAdminGetDevice = res+    "AdminGetDeviceResponse"+    "fixture/AdminGetDeviceResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminGetDevice)+ responseConfirmSignUp :: ConfirmSignUpResponse -> TestTree responseConfirmSignUp = res     "ConfirmSignUpResponse"@@ -566,6 +860,13 @@     cognitoIdentityProvider     (Proxy :: Proxy AdminResetUserPassword) +responseCreateUserImportJob :: CreateUserImportJobResponse -> TestTree+responseCreateUserImportJob = res+    "CreateUserImportJobResponse"+    "fixture/CreateUserImportJobResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy CreateUserImportJob)+ responseGetUser :: GetUserResponse -> TestTree responseGetUser = res     "GetUserResponse"@@ -573,6 +874,13 @@     cognitoIdentityProvider     (Proxy :: Proxy GetUser) +responseGetCSVHeader :: GetCSVHeaderResponse -> TestTree+responseGetCSVHeader = res+    "GetCSVHeaderResponse"+    "fixture/GetCSVHeaderResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy GetCSVHeader)+ responseAdminDeleteUser :: AdminDeleteUserResponse -> TestTree responseAdminDeleteUser = res     "AdminDeleteUserResponse"@@ -580,6 +888,20 @@     cognitoIdentityProvider     (Proxy :: Proxy AdminDeleteUser) +responseAdminForgetDevice :: AdminForgetDeviceResponse -> TestTree+responseAdminForgetDevice = res+    "AdminForgetDeviceResponse"+    "fixture/AdminForgetDeviceResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminForgetDevice)++responseAdminUpdateDeviceStatus :: AdminUpdateDeviceStatusResponse -> TestTree+responseAdminUpdateDeviceStatus = res+    "AdminUpdateDeviceStatusResponse"+    "fixture/AdminUpdateDeviceStatusResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminUpdateDeviceStatus)+ responseAddCustomAttributes :: AddCustomAttributesResponse -> TestTree responseAddCustomAttributes = res     "AddCustomAttributesResponse"@@ -608,6 +930,20 @@     cognitoIdentityProvider     (Proxy :: Proxy DeleteUserPoolClient) +responseUpdateDeviceStatus :: UpdateDeviceStatusResponse -> TestTree+responseUpdateDeviceStatus = res+    "UpdateDeviceStatusResponse"+    "fixture/UpdateDeviceStatusResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy UpdateDeviceStatus)++responseForgetDevice :: ForgetDeviceResponse -> TestTree+responseForgetDevice = res+    "ForgetDeviceResponse"+    "fixture/ForgetDeviceResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy ForgetDevice)+ responseDeleteUser :: DeleteUserResponse -> TestTree responseDeleteUser = res     "DeleteUserResponse"@@ -622,6 +958,34 @@     cognitoIdentityProvider     (Proxy :: Proxy CreateUserPoolClient) +responseStopUserImportJob :: StopUserImportJobResponse -> TestTree+responseStopUserImportJob = res+    "StopUserImportJobResponse"+    "fixture/StopUserImportJobResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy StopUserImportJob)++responseDescribeUserImportJob :: DescribeUserImportJobResponse -> TestTree+responseDescribeUserImportJob = res+    "DescribeUserImportJobResponse"+    "fixture/DescribeUserImportJobResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy DescribeUserImportJob)++responseGlobalSignOut :: GlobalSignOutResponse -> TestTree+responseGlobalSignOut = res+    "GlobalSignOutResponse"+    "fixture/GlobalSignOutResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy GlobalSignOut)++responseAdminRespondToAuthChallenge :: AdminRespondToAuthChallengeResponse -> TestTree+responseAdminRespondToAuthChallenge = res+    "AdminRespondToAuthChallengeResponse"+    "fixture/AdminRespondToAuthChallengeResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminRespondToAuthChallenge)+ responseSetUserSettings :: SetUserSettingsResponse -> TestTree responseSetUserSettings = res     "SetUserSettingsResponse"@@ -629,6 +993,13 @@     cognitoIdentityProvider     (Proxy :: Proxy SetUserSettings) +responseAdminListDevices :: AdminListDevicesResponse -> TestTree+responseAdminListDevices = res+    "AdminListDevicesResponse"+    "fixture/AdminListDevicesResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy AdminListDevices)+ responseDescribeUserPoolClient :: DescribeUserPoolClientResponse -> TestTree responseDescribeUserPoolClient = res     "DescribeUserPoolClientResponse"@@ -649,3 +1020,10 @@     "fixture/AdminSetUserSettingsResponse.proto"     cognitoIdentityProvider     (Proxy :: Proxy AdminSetUserSettings)++responseListDevices :: ListDevicesResponse -> TestTree+responseListDevices = res+    "ListDevicesResponse"+    "fixture/ListDevicesResponse.proto"+    cognitoIdentityProvider+    (Proxy :: Proxy ListDevices)