{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.CognitoIdentityProvider.AdminUpdateUserAttributes
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Updates the specified user\'s attributes, including developer
-- attributes, as an administrator. Works on any user.
--
-- For custom attributes, you must prepend the @custom:@ prefix to the
-- attribute name.
--
-- In addition to updating user attributes, this API can also be used to
-- mark phone and email as verified.
--
-- This action might generate an SMS text message. Starting June 1, 2021,
-- US telecom carriers require you to register an origination phone number
-- before you can send SMS messages to US phone numbers. If you use SMS
-- text messages in Amazon Cognito, you must register a phone number with
-- <https://console.aws.amazon.com/pinpoint/home/ Amazon Pinpoint>. Amazon
-- Cognito uses the registered number automatically. Otherwise, Amazon
-- Cognito users who must receive SMS messages might not be able to sign
-- up, activate their accounts, or sign in.
--
-- If you have never used SMS text messages with Amazon Cognito or any
-- other Amazon Web Service, Amazon Simple Notification Service might place
-- your account in the SMS sandbox. In
-- /<https://docs.aws.amazon.com/sns/latest/dg/sns-sms-sandbox.html sandbox mode>/
-- , you can send messages only to verified phone numbers. After you test
-- your app while in the sandbox environment, you can move out of the
-- sandbox and into production. For more information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-sms-userpool-settings.html SMS message settings for Amazon Cognito user pools>
-- in the /Amazon Cognito Developer Guide/.
--
-- Calling this action requires developer credentials.
module Amazonka.CognitoIdentityProvider.AdminUpdateUserAttributes
  ( -- * Creating a Request
    AdminUpdateUserAttributes (..),
    newAdminUpdateUserAttributes,

    -- * Request Lenses
    adminUpdateUserAttributes_clientMetadata,
    adminUpdateUserAttributes_userPoolId,
    adminUpdateUserAttributes_username,
    adminUpdateUserAttributes_userAttributes,

    -- * Destructuring the Response
    AdminUpdateUserAttributesResponse (..),
    newAdminUpdateUserAttributesResponse,

    -- * Response Lenses
    adminUpdateUserAttributesResponse_httpStatus,
  )
where

import Amazonka.CognitoIdentityProvider.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | Represents the request to update the user\'s attributes as an
-- administrator.
--
-- /See:/ 'newAdminUpdateUserAttributes' smart constructor.
data AdminUpdateUserAttributes = AdminUpdateUserAttributes'
  { -- | A map of custom key-value pairs that you can provide as input for any
    -- custom workflows that this action triggers.
    --
    -- You create custom workflows by assigning Lambda functions to user pool
    -- triggers. When you use the AdminUpdateUserAttributes API action, Amazon
    -- Cognito invokes the function that is assigned to the /custom message/
    -- trigger. When Amazon Cognito invokes this function, it passes a JSON
    -- payload, which the function receives as input. This payload contains a
    -- @clientMetadata@ attribute, which provides the data that you assigned to
    -- the ClientMetadata parameter in your AdminUpdateUserAttributes request.
    -- In your function code in Lambda, you can process the @clientMetadata@
    -- value to enhance your workflow for your specific needs.
    --
    -- For more information, see
    -- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-working-with-aws-lambda-triggers.html Customizing user pool Workflows with Lambda Triggers>
    -- in the /Amazon Cognito Developer Guide/.
    --
    -- When you use the ClientMetadata parameter, remember that Amazon Cognito
    -- won\'t do the following:
    --
    -- -   Store the ClientMetadata value. This data is available only to
    --     Lambda triggers that are assigned to a user pool to support custom
    --     workflows. If your user pool configuration doesn\'t include
    --     triggers, the ClientMetadata parameter serves no purpose.
    --
    -- -   Validate the ClientMetadata value.
    --
    -- -   Encrypt the ClientMetadata value. Don\'t use Amazon Cognito to
    --     provide sensitive information.
    AdminUpdateUserAttributes -> Maybe (HashMap Text Text)
clientMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The user pool ID for the user pool where you want to update user
    -- attributes.
    AdminUpdateUserAttributes -> Text
userPoolId :: Prelude.Text,
    -- | The user name of the user for whom you want to update user attributes.
    AdminUpdateUserAttributes -> Sensitive Text
username :: Data.Sensitive Prelude.Text,
    -- | An array of name-value pairs representing user attributes.
    --
    -- For custom attributes, you must prepend the @custom:@ prefix to the
    -- attribute name.
    --
    -- If your user pool requires verification before Amazon Cognito updates an
    -- attribute value that you specify in this request, Amazon Cognito doesn’t
    -- immediately update the value of that attribute. After your user receives
    -- and responds to a verification message to verify the new value, Amazon
    -- Cognito updates the attribute value. Your user can sign in and receive
    -- messages with the original attribute value until they verify the new
    -- value.
    --
    -- To update the value of an attribute that requires verification in the
    -- same API request, include the @email_verified@ or
    -- @phone_number_verified@ attribute, with a value of @true@. If you set
    -- the @email_verified@ or @phone_number_verified@ value for an @email@ or
    -- @phone_number@ attribute that requires verification to @true@, Amazon
    -- Cognito doesn’t send a verification message to your user.
    AdminUpdateUserAttributes -> [AttributeType]
userAttributes :: [AttributeType]
  }
  deriving (AdminUpdateUserAttributes -> AdminUpdateUserAttributes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminUpdateUserAttributes -> AdminUpdateUserAttributes -> Bool
$c/= :: AdminUpdateUserAttributes -> AdminUpdateUserAttributes -> Bool
== :: AdminUpdateUserAttributes -> AdminUpdateUserAttributes -> Bool
$c== :: AdminUpdateUserAttributes -> AdminUpdateUserAttributes -> Bool
Prelude.Eq, Int -> AdminUpdateUserAttributes -> ShowS
[AdminUpdateUserAttributes] -> ShowS
AdminUpdateUserAttributes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminUpdateUserAttributes] -> ShowS
$cshowList :: [AdminUpdateUserAttributes] -> ShowS
show :: AdminUpdateUserAttributes -> String
$cshow :: AdminUpdateUserAttributes -> String
showsPrec :: Int -> AdminUpdateUserAttributes -> ShowS
$cshowsPrec :: Int -> AdminUpdateUserAttributes -> ShowS
Prelude.Show, forall x.
Rep AdminUpdateUserAttributes x -> AdminUpdateUserAttributes
forall x.
AdminUpdateUserAttributes -> Rep AdminUpdateUserAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AdminUpdateUserAttributes x -> AdminUpdateUserAttributes
$cfrom :: forall x.
AdminUpdateUserAttributes -> Rep AdminUpdateUserAttributes x
Prelude.Generic)

-- |
-- Create a value of 'AdminUpdateUserAttributes' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'clientMetadata', 'adminUpdateUserAttributes_clientMetadata' - A map of custom key-value pairs that you can provide as input for any
-- custom workflows that this action triggers.
--
-- You create custom workflows by assigning Lambda functions to user pool
-- triggers. When you use the AdminUpdateUserAttributes API action, Amazon
-- Cognito invokes the function that is assigned to the /custom message/
-- trigger. When Amazon Cognito invokes this function, it passes a JSON
-- payload, which the function receives as input. This payload contains a
-- @clientMetadata@ attribute, which provides the data that you assigned to
-- the ClientMetadata parameter in your AdminUpdateUserAttributes request.
-- In your function code in Lambda, you can process the @clientMetadata@
-- value to enhance your workflow for your specific needs.
--
-- For more information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-working-with-aws-lambda-triggers.html Customizing user pool Workflows with Lambda Triggers>
-- in the /Amazon Cognito Developer Guide/.
--
-- When you use the ClientMetadata parameter, remember that Amazon Cognito
-- won\'t do the following:
--
-- -   Store the ClientMetadata value. This data is available only to
--     Lambda triggers that are assigned to a user pool to support custom
--     workflows. If your user pool configuration doesn\'t include
--     triggers, the ClientMetadata parameter serves no purpose.
--
-- -   Validate the ClientMetadata value.
--
-- -   Encrypt the ClientMetadata value. Don\'t use Amazon Cognito to
--     provide sensitive information.
--
-- 'userPoolId', 'adminUpdateUserAttributes_userPoolId' - The user pool ID for the user pool where you want to update user
-- attributes.
--
-- 'username', 'adminUpdateUserAttributes_username' - The user name of the user for whom you want to update user attributes.
--
-- 'userAttributes', 'adminUpdateUserAttributes_userAttributes' - An array of name-value pairs representing user attributes.
--
-- For custom attributes, you must prepend the @custom:@ prefix to the
-- attribute name.
--
-- If your user pool requires verification before Amazon Cognito updates an
-- attribute value that you specify in this request, Amazon Cognito doesn’t
-- immediately update the value of that attribute. After your user receives
-- and responds to a verification message to verify the new value, Amazon
-- Cognito updates the attribute value. Your user can sign in and receive
-- messages with the original attribute value until they verify the new
-- value.
--
-- To update the value of an attribute that requires verification in the
-- same API request, include the @email_verified@ or
-- @phone_number_verified@ attribute, with a value of @true@. If you set
-- the @email_verified@ or @phone_number_verified@ value for an @email@ or
-- @phone_number@ attribute that requires verification to @true@, Amazon
-- Cognito doesn’t send a verification message to your user.
newAdminUpdateUserAttributes ::
  -- | 'userPoolId'
  Prelude.Text ->
  -- | 'username'
  Prelude.Text ->
  AdminUpdateUserAttributes
newAdminUpdateUserAttributes :: Text -> Text -> AdminUpdateUserAttributes
newAdminUpdateUserAttributes Text
pUserPoolId_ Text
pUsername_ =
  AdminUpdateUserAttributes'
    { $sel:clientMetadata:AdminUpdateUserAttributes' :: Maybe (HashMap Text Text)
clientMetadata =
        forall a. Maybe a
Prelude.Nothing,
      $sel:userPoolId:AdminUpdateUserAttributes' :: Text
userPoolId = Text
pUserPoolId_,
      $sel:username:AdminUpdateUserAttributes' :: Sensitive Text
username = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pUsername_,
      $sel:userAttributes:AdminUpdateUserAttributes' :: [AttributeType]
userAttributes = forall a. Monoid a => a
Prelude.mempty
    }

-- | A map of custom key-value pairs that you can provide as input for any
-- custom workflows that this action triggers.
--
-- You create custom workflows by assigning Lambda functions to user pool
-- triggers. When you use the AdminUpdateUserAttributes API action, Amazon
-- Cognito invokes the function that is assigned to the /custom message/
-- trigger. When Amazon Cognito invokes this function, it passes a JSON
-- payload, which the function receives as input. This payload contains a
-- @clientMetadata@ attribute, which provides the data that you assigned to
-- the ClientMetadata parameter in your AdminUpdateUserAttributes request.
-- In your function code in Lambda, you can process the @clientMetadata@
-- value to enhance your workflow for your specific needs.
--
-- For more information, see
-- <https://docs.aws.amazon.com/cognito/latest/developerguide/cognito-user-identity-pools-working-with-aws-lambda-triggers.html Customizing user pool Workflows with Lambda Triggers>
-- in the /Amazon Cognito Developer Guide/.
--
-- When you use the ClientMetadata parameter, remember that Amazon Cognito
-- won\'t do the following:
--
-- -   Store the ClientMetadata value. This data is available only to
--     Lambda triggers that are assigned to a user pool to support custom
--     workflows. If your user pool configuration doesn\'t include
--     triggers, the ClientMetadata parameter serves no purpose.
--
-- -   Validate the ClientMetadata value.
--
-- -   Encrypt the ClientMetadata value. Don\'t use Amazon Cognito to
--     provide sensitive information.
adminUpdateUserAttributes_clientMetadata :: Lens.Lens' AdminUpdateUserAttributes (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
adminUpdateUserAttributes_clientMetadata :: Lens' AdminUpdateUserAttributes (Maybe (HashMap Text Text))
adminUpdateUserAttributes_clientMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminUpdateUserAttributes' {Maybe (HashMap Text Text)
clientMetadata :: Maybe (HashMap Text Text)
$sel:clientMetadata:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Maybe (HashMap Text Text)
clientMetadata} -> Maybe (HashMap Text Text)
clientMetadata) (\s :: AdminUpdateUserAttributes
s@AdminUpdateUserAttributes' {} Maybe (HashMap Text Text)
a -> AdminUpdateUserAttributes
s {$sel:clientMetadata:AdminUpdateUserAttributes' :: Maybe (HashMap Text Text)
clientMetadata = Maybe (HashMap Text Text)
a} :: AdminUpdateUserAttributes) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The user pool ID for the user pool where you want to update user
-- attributes.
adminUpdateUserAttributes_userPoolId :: Lens.Lens' AdminUpdateUserAttributes Prelude.Text
adminUpdateUserAttributes_userPoolId :: Lens' AdminUpdateUserAttributes Text
adminUpdateUserAttributes_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminUpdateUserAttributes' {Text
userPoolId :: Text
$sel:userPoolId:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Text
userPoolId} -> Text
userPoolId) (\s :: AdminUpdateUserAttributes
s@AdminUpdateUserAttributes' {} Text
a -> AdminUpdateUserAttributes
s {$sel:userPoolId:AdminUpdateUserAttributes' :: Text
userPoolId = Text
a} :: AdminUpdateUserAttributes)

-- | The user name of the user for whom you want to update user attributes.
adminUpdateUserAttributes_username :: Lens.Lens' AdminUpdateUserAttributes Prelude.Text
adminUpdateUserAttributes_username :: Lens' AdminUpdateUserAttributes Text
adminUpdateUserAttributes_username = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminUpdateUserAttributes' {Sensitive Text
username :: Sensitive Text
$sel:username:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Sensitive Text
username} -> Sensitive Text
username) (\s :: AdminUpdateUserAttributes
s@AdminUpdateUserAttributes' {} Sensitive Text
a -> AdminUpdateUserAttributes
s {$sel:username:AdminUpdateUserAttributes' :: Sensitive Text
username = Sensitive Text
a} :: AdminUpdateUserAttributes) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive

-- | An array of name-value pairs representing user attributes.
--
-- For custom attributes, you must prepend the @custom:@ prefix to the
-- attribute name.
--
-- If your user pool requires verification before Amazon Cognito updates an
-- attribute value that you specify in this request, Amazon Cognito doesn’t
-- immediately update the value of that attribute. After your user receives
-- and responds to a verification message to verify the new value, Amazon
-- Cognito updates the attribute value. Your user can sign in and receive
-- messages with the original attribute value until they verify the new
-- value.
--
-- To update the value of an attribute that requires verification in the
-- same API request, include the @email_verified@ or
-- @phone_number_verified@ attribute, with a value of @true@. If you set
-- the @email_verified@ or @phone_number_verified@ value for an @email@ or
-- @phone_number@ attribute that requires verification to @true@, Amazon
-- Cognito doesn’t send a verification message to your user.
adminUpdateUserAttributes_userAttributes :: Lens.Lens' AdminUpdateUserAttributes [AttributeType]
adminUpdateUserAttributes_userAttributes :: Lens' AdminUpdateUserAttributes [AttributeType]
adminUpdateUserAttributes_userAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminUpdateUserAttributes' {[AttributeType]
userAttributes :: [AttributeType]
$sel:userAttributes:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> [AttributeType]
userAttributes} -> [AttributeType]
userAttributes) (\s :: AdminUpdateUserAttributes
s@AdminUpdateUserAttributes' {} [AttributeType]
a -> AdminUpdateUserAttributes
s {$sel:userAttributes:AdminUpdateUserAttributes' :: [AttributeType]
userAttributes = [AttributeType]
a} :: AdminUpdateUserAttributes) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Core.AWSRequest AdminUpdateUserAttributes where
  type
    AWSResponse AdminUpdateUserAttributes =
      AdminUpdateUserAttributesResponse
  request :: (Service -> Service)
-> AdminUpdateUserAttributes -> Request AdminUpdateUserAttributes
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AdminUpdateUserAttributes
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse AdminUpdateUserAttributes)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
      ( \Int
s ResponseHeaders
h ()
x ->
          Int -> AdminUpdateUserAttributesResponse
AdminUpdateUserAttributesResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable AdminUpdateUserAttributes where
  hashWithSalt :: Int -> AdminUpdateUserAttributes -> Int
hashWithSalt Int
_salt AdminUpdateUserAttributes' {[AttributeType]
Maybe (HashMap Text Text)
Text
Sensitive Text
userAttributes :: [AttributeType]
username :: Sensitive Text
userPoolId :: Text
clientMetadata :: Maybe (HashMap Text Text)
$sel:userAttributes:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> [AttributeType]
$sel:username:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Sensitive Text
$sel:userPoolId:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Text
$sel:clientMetadata:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Maybe (HashMap Text Text)
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
clientMetadata
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
username
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [AttributeType]
userAttributes

instance Prelude.NFData AdminUpdateUserAttributes where
  rnf :: AdminUpdateUserAttributes -> ()
rnf AdminUpdateUserAttributes' {[AttributeType]
Maybe (HashMap Text Text)
Text
Sensitive Text
userAttributes :: [AttributeType]
username :: Sensitive Text
userPoolId :: Text
clientMetadata :: Maybe (HashMap Text Text)
$sel:userAttributes:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> [AttributeType]
$sel:username:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Sensitive Text
$sel:userPoolId:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Text
$sel:clientMetadata:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Maybe (HashMap Text Text)
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
clientMetadata
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userPoolId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
username
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [AttributeType]
userAttributes

instance Data.ToHeaders AdminUpdateUserAttributes where
  toHeaders :: AdminUpdateUserAttributes -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSCognitoIdentityProviderService.AdminUpdateUserAttributes" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON AdminUpdateUserAttributes where
  toJSON :: AdminUpdateUserAttributes -> Value
toJSON AdminUpdateUserAttributes' {[AttributeType]
Maybe (HashMap Text Text)
Text
Sensitive Text
userAttributes :: [AttributeType]
username :: Sensitive Text
userPoolId :: Text
clientMetadata :: Maybe (HashMap Text Text)
$sel:userAttributes:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> [AttributeType]
$sel:username:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Sensitive Text
$sel:userPoolId:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Text
$sel:clientMetadata:AdminUpdateUserAttributes' :: AdminUpdateUserAttributes -> Maybe (HashMap Text Text)
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"ClientMetadata" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
clientMetadata,
            forall a. a -> Maybe a
Prelude.Just (Key
"UserPoolId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userPoolId),
            forall a. a -> Maybe a
Prelude.Just (Key
"Username" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
username),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"UserAttributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [AttributeType]
userAttributes)
          ]
      )

instance Data.ToPath AdminUpdateUserAttributes where
  toPath :: AdminUpdateUserAttributes -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery AdminUpdateUserAttributes where
  toQuery :: AdminUpdateUserAttributes -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | Represents the response from the server for the request to update user
-- attributes as an administrator.
--
-- /See:/ 'newAdminUpdateUserAttributesResponse' smart constructor.
data AdminUpdateUserAttributesResponse = AdminUpdateUserAttributesResponse'
  { -- | The response's http status code.
    AdminUpdateUserAttributesResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (AdminUpdateUserAttributesResponse
-> AdminUpdateUserAttributesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminUpdateUserAttributesResponse
-> AdminUpdateUserAttributesResponse -> Bool
$c/= :: AdminUpdateUserAttributesResponse
-> AdminUpdateUserAttributesResponse -> Bool
== :: AdminUpdateUserAttributesResponse
-> AdminUpdateUserAttributesResponse -> Bool
$c== :: AdminUpdateUserAttributesResponse
-> AdminUpdateUserAttributesResponse -> Bool
Prelude.Eq, ReadPrec [AdminUpdateUserAttributesResponse]
ReadPrec AdminUpdateUserAttributesResponse
Int -> ReadS AdminUpdateUserAttributesResponse
ReadS [AdminUpdateUserAttributesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AdminUpdateUserAttributesResponse]
$creadListPrec :: ReadPrec [AdminUpdateUserAttributesResponse]
readPrec :: ReadPrec AdminUpdateUserAttributesResponse
$creadPrec :: ReadPrec AdminUpdateUserAttributesResponse
readList :: ReadS [AdminUpdateUserAttributesResponse]
$creadList :: ReadS [AdminUpdateUserAttributesResponse]
readsPrec :: Int -> ReadS AdminUpdateUserAttributesResponse
$creadsPrec :: Int -> ReadS AdminUpdateUserAttributesResponse
Prelude.Read, Int -> AdminUpdateUserAttributesResponse -> ShowS
[AdminUpdateUserAttributesResponse] -> ShowS
AdminUpdateUserAttributesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminUpdateUserAttributesResponse] -> ShowS
$cshowList :: [AdminUpdateUserAttributesResponse] -> ShowS
show :: AdminUpdateUserAttributesResponse -> String
$cshow :: AdminUpdateUserAttributesResponse -> String
showsPrec :: Int -> AdminUpdateUserAttributesResponse -> ShowS
$cshowsPrec :: Int -> AdminUpdateUserAttributesResponse -> ShowS
Prelude.Show, forall x.
Rep AdminUpdateUserAttributesResponse x
-> AdminUpdateUserAttributesResponse
forall x.
AdminUpdateUserAttributesResponse
-> Rep AdminUpdateUserAttributesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AdminUpdateUserAttributesResponse x
-> AdminUpdateUserAttributesResponse
$cfrom :: forall x.
AdminUpdateUserAttributesResponse
-> Rep AdminUpdateUserAttributesResponse x
Prelude.Generic)

-- |
-- Create a value of 'AdminUpdateUserAttributesResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'httpStatus', 'adminUpdateUserAttributesResponse_httpStatus' - The response's http status code.
newAdminUpdateUserAttributesResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  AdminUpdateUserAttributesResponse
newAdminUpdateUserAttributesResponse :: Int -> AdminUpdateUserAttributesResponse
newAdminUpdateUserAttributesResponse Int
pHttpStatus_ =
  AdminUpdateUserAttributesResponse'
    { $sel:httpStatus:AdminUpdateUserAttributesResponse' :: Int
httpStatus =
        Int
pHttpStatus_
    }

-- | The response's http status code.
adminUpdateUserAttributesResponse_httpStatus :: Lens.Lens' AdminUpdateUserAttributesResponse Prelude.Int
adminUpdateUserAttributesResponse_httpStatus :: Lens' AdminUpdateUserAttributesResponse Int
adminUpdateUserAttributesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminUpdateUserAttributesResponse' {Int
httpStatus :: Int
$sel:httpStatus:AdminUpdateUserAttributesResponse' :: AdminUpdateUserAttributesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AdminUpdateUserAttributesResponse
s@AdminUpdateUserAttributesResponse' {} Int
a -> AdminUpdateUserAttributesResponse
s {$sel:httpStatus:AdminUpdateUserAttributesResponse' :: Int
httpStatus = Int
a} :: AdminUpdateUserAttributesResponse)

instance
  Prelude.NFData
    AdminUpdateUserAttributesResponse
  where
  rnf :: AdminUpdateUserAttributesResponse -> ()
rnf AdminUpdateUserAttributesResponse' {Int
httpStatus :: Int
$sel:httpStatus:AdminUpdateUserAttributesResponse' :: AdminUpdateUserAttributesResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus