{-# 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 #-}
module Amazonka.CognitoIdentityProvider.AdminCreateUser
(
AdminCreateUser (..),
newAdminCreateUser,
adminCreateUser_clientMetadata,
adminCreateUser_desiredDeliveryMediums,
adminCreateUser_forceAliasCreation,
adminCreateUser_messageAction,
adminCreateUser_temporaryPassword,
adminCreateUser_userAttributes,
adminCreateUser_validationData,
adminCreateUser_userPoolId,
adminCreateUser_username,
AdminCreateUserResponse (..),
newAdminCreateUserResponse,
adminCreateUserResponse_user,
adminCreateUserResponse_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
data AdminCreateUser = AdminCreateUser'
{
AdminCreateUser -> Maybe (HashMap Text Text)
clientMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
AdminCreateUser -> Maybe [DeliveryMediumType]
desiredDeliveryMediums :: Prelude.Maybe [DeliveryMediumType],
AdminCreateUser -> Maybe Bool
forceAliasCreation :: Prelude.Maybe Prelude.Bool,
AdminCreateUser -> Maybe MessageActionType
messageAction :: Prelude.Maybe MessageActionType,
AdminCreateUser -> Maybe (Sensitive Text)
temporaryPassword :: Prelude.Maybe (Data.Sensitive Prelude.Text),
AdminCreateUser -> Maybe [AttributeType]
userAttributes :: Prelude.Maybe [AttributeType],
AdminCreateUser -> Maybe [AttributeType]
validationData :: Prelude.Maybe [AttributeType],
AdminCreateUser -> Text
userPoolId :: Prelude.Text,
AdminCreateUser -> Sensitive Text
username :: Data.Sensitive Prelude.Text
}
deriving (AdminCreateUser -> AdminCreateUser -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminCreateUser -> AdminCreateUser -> Bool
$c/= :: AdminCreateUser -> AdminCreateUser -> Bool
== :: AdminCreateUser -> AdminCreateUser -> Bool
$c== :: AdminCreateUser -> AdminCreateUser -> Bool
Prelude.Eq, Int -> AdminCreateUser -> ShowS
[AdminCreateUser] -> ShowS
AdminCreateUser -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminCreateUser] -> ShowS
$cshowList :: [AdminCreateUser] -> ShowS
show :: AdminCreateUser -> String
$cshow :: AdminCreateUser -> String
showsPrec :: Int -> AdminCreateUser -> ShowS
$cshowsPrec :: Int -> AdminCreateUser -> ShowS
Prelude.Show, forall x. Rep AdminCreateUser x -> AdminCreateUser
forall x. AdminCreateUser -> Rep AdminCreateUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AdminCreateUser x -> AdminCreateUser
$cfrom :: forall x. AdminCreateUser -> Rep AdminCreateUser x
Prelude.Generic)
newAdminCreateUser ::
Prelude.Text ->
Prelude.Text ->
AdminCreateUser
newAdminCreateUser :: Text -> Text -> AdminCreateUser
newAdminCreateUser Text
pUserPoolId_ Text
pUsername_ =
AdminCreateUser'
{ $sel:clientMetadata:AdminCreateUser' :: Maybe (HashMap Text Text)
clientMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:desiredDeliveryMediums:AdminCreateUser' :: Maybe [DeliveryMediumType]
desiredDeliveryMediums = forall a. Maybe a
Prelude.Nothing,
$sel:forceAliasCreation:AdminCreateUser' :: Maybe Bool
forceAliasCreation = forall a. Maybe a
Prelude.Nothing,
$sel:messageAction:AdminCreateUser' :: Maybe MessageActionType
messageAction = forall a. Maybe a
Prelude.Nothing,
$sel:temporaryPassword:AdminCreateUser' :: Maybe (Sensitive Text)
temporaryPassword = forall a. Maybe a
Prelude.Nothing,
$sel:userAttributes:AdminCreateUser' :: Maybe [AttributeType]
userAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:validationData:AdminCreateUser' :: Maybe [AttributeType]
validationData = forall a. Maybe a
Prelude.Nothing,
$sel:userPoolId:AdminCreateUser' :: Text
userPoolId = Text
pUserPoolId_,
$sel:username:AdminCreateUser' :: Sensitive Text
username = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pUsername_
}
adminCreateUser_clientMetadata :: Lens.Lens' AdminCreateUser (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
adminCreateUser_clientMetadata :: Lens' AdminCreateUser (Maybe (HashMap Text Text))
adminCreateUser_clientMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe (HashMap Text Text)
clientMetadata :: Maybe (HashMap Text Text)
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> Maybe (HashMap Text Text)
clientMetadata} -> Maybe (HashMap Text Text)
clientMetadata) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe (HashMap Text Text)
a -> AdminCreateUser
s {$sel:clientMetadata:AdminCreateUser' :: Maybe (HashMap Text Text)
clientMetadata = Maybe (HashMap Text Text)
a} :: AdminCreateUser) 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
adminCreateUser_desiredDeliveryMediums :: Lens.Lens' AdminCreateUser (Prelude.Maybe [DeliveryMediumType])
adminCreateUser_desiredDeliveryMediums :: Lens' AdminCreateUser (Maybe [DeliveryMediumType])
adminCreateUser_desiredDeliveryMediums = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe [DeliveryMediumType]
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
desiredDeliveryMediums} -> Maybe [DeliveryMediumType]
desiredDeliveryMediums) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe [DeliveryMediumType]
a -> AdminCreateUser
s {$sel:desiredDeliveryMediums:AdminCreateUser' :: Maybe [DeliveryMediumType]
desiredDeliveryMediums = Maybe [DeliveryMediumType]
a} :: AdminCreateUser) 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
adminCreateUser_forceAliasCreation :: Lens.Lens' AdminCreateUser (Prelude.Maybe Prelude.Bool)
adminCreateUser_forceAliasCreation :: Lens' AdminCreateUser (Maybe Bool)
adminCreateUser_forceAliasCreation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe Bool
forceAliasCreation :: Maybe Bool
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
forceAliasCreation} -> Maybe Bool
forceAliasCreation) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe Bool
a -> AdminCreateUser
s {$sel:forceAliasCreation:AdminCreateUser' :: Maybe Bool
forceAliasCreation = Maybe Bool
a} :: AdminCreateUser)
adminCreateUser_messageAction :: Lens.Lens' AdminCreateUser (Prelude.Maybe MessageActionType)
adminCreateUser_messageAction :: Lens' AdminCreateUser (Maybe MessageActionType)
adminCreateUser_messageAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe MessageActionType
messageAction :: Maybe MessageActionType
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
messageAction} -> Maybe MessageActionType
messageAction) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe MessageActionType
a -> AdminCreateUser
s {$sel:messageAction:AdminCreateUser' :: Maybe MessageActionType
messageAction = Maybe MessageActionType
a} :: AdminCreateUser)
adminCreateUser_temporaryPassword :: Lens.Lens' AdminCreateUser (Prelude.Maybe Prelude.Text)
adminCreateUser_temporaryPassword :: Lens' AdminCreateUser (Maybe Text)
adminCreateUser_temporaryPassword = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe (Sensitive Text)
temporaryPassword :: Maybe (Sensitive Text)
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
temporaryPassword} -> Maybe (Sensitive Text)
temporaryPassword) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe (Sensitive Text)
a -> AdminCreateUser
s {$sel:temporaryPassword:AdminCreateUser' :: Maybe (Sensitive Text)
temporaryPassword = Maybe (Sensitive Text)
a} :: AdminCreateUser) 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 a. Iso' (Sensitive a) a
Data._Sensitive
adminCreateUser_userAttributes :: Lens.Lens' AdminCreateUser (Prelude.Maybe [AttributeType])
adminCreateUser_userAttributes :: Lens' AdminCreateUser (Maybe [AttributeType])
adminCreateUser_userAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
userAttributes} -> Maybe [AttributeType]
userAttributes) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe [AttributeType]
a -> AdminCreateUser
s {$sel:userAttributes:AdminCreateUser' :: Maybe [AttributeType]
userAttributes = Maybe [AttributeType]
a} :: AdminCreateUser) 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
adminCreateUser_validationData :: Lens.Lens' AdminCreateUser (Prelude.Maybe [AttributeType])
adminCreateUser_validationData :: Lens' AdminCreateUser (Maybe [AttributeType])
adminCreateUser_validationData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Maybe [AttributeType]
validationData :: Maybe [AttributeType]
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
validationData} -> Maybe [AttributeType]
validationData) (\s :: AdminCreateUser
s@AdminCreateUser' {} Maybe [AttributeType]
a -> AdminCreateUser
s {$sel:validationData:AdminCreateUser' :: Maybe [AttributeType]
validationData = Maybe [AttributeType]
a} :: AdminCreateUser) 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
adminCreateUser_userPoolId :: Lens.Lens' AdminCreateUser Prelude.Text
adminCreateUser_userPoolId :: Lens' AdminCreateUser Text
adminCreateUser_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Text
userPoolId :: Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
userPoolId} -> Text
userPoolId) (\s :: AdminCreateUser
s@AdminCreateUser' {} Text
a -> AdminCreateUser
s {$sel:userPoolId:AdminCreateUser' :: Text
userPoolId = Text
a} :: AdminCreateUser)
adminCreateUser_username :: Lens.Lens' AdminCreateUser Prelude.Text
adminCreateUser_username :: Lens' AdminCreateUser Text
adminCreateUser_username = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUser' {Sensitive Text
username :: Sensitive Text
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
username} -> Sensitive Text
username) (\s :: AdminCreateUser
s@AdminCreateUser' {} Sensitive Text
a -> AdminCreateUser
s {$sel:username:AdminCreateUser' :: Sensitive Text
username = Sensitive Text
a} :: AdminCreateUser) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
instance Core.AWSRequest AdminCreateUser where
type
AWSResponse AdminCreateUser =
AdminCreateUserResponse
request :: (Service -> Service) -> AdminCreateUser -> Request AdminCreateUser
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 AdminCreateUser
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse AdminCreateUser)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe UserType -> Int -> AdminCreateUserResponse
AdminCreateUserResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"User")
forall (f :: * -> *) a b. Applicative f => 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 AdminCreateUser where
hashWithSalt :: Int -> AdminCreateUser -> Int
hashWithSalt Int
_salt AdminCreateUser' {Maybe Bool
Maybe [AttributeType]
Maybe [DeliveryMediumType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe MessageActionType
Text
Sensitive Text
username :: Sensitive Text
userPoolId :: Text
validationData :: Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
temporaryPassword :: Maybe (Sensitive Text)
messageAction :: Maybe MessageActionType
forceAliasCreation :: Maybe Bool
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
clientMetadata :: Maybe (HashMap Text Text)
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> 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` Maybe [DeliveryMediumType]
desiredDeliveryMediums
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
forceAliasCreation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MessageActionType
messageAction
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
temporaryPassword
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AttributeType]
userAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AttributeType]
validationData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
username
instance Prelude.NFData AdminCreateUser where
rnf :: AdminCreateUser -> ()
rnf AdminCreateUser' {Maybe Bool
Maybe [AttributeType]
Maybe [DeliveryMediumType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe MessageActionType
Text
Sensitive Text
username :: Sensitive Text
userPoolId :: Text
validationData :: Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
temporaryPassword :: Maybe (Sensitive Text)
messageAction :: Maybe MessageActionType
forceAliasCreation :: Maybe Bool
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
clientMetadata :: Maybe (HashMap Text Text)
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> 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 Maybe [DeliveryMediumType]
desiredDeliveryMediums
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
forceAliasCreation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MessageActionType
messageAction
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
temporaryPassword
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AttributeType]
userAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AttributeType]
validationData
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
instance Data.ToHeaders AdminCreateUser where
toHeaders :: AdminCreateUser -> 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.AdminCreateUser" ::
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 AdminCreateUser where
toJSON :: AdminCreateUser -> Value
toJSON AdminCreateUser' {Maybe Bool
Maybe [AttributeType]
Maybe [DeliveryMediumType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe MessageActionType
Text
Sensitive Text
username :: Sensitive Text
userPoolId :: Text
validationData :: Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
temporaryPassword :: Maybe (Sensitive Text)
messageAction :: Maybe MessageActionType
forceAliasCreation :: Maybe Bool
desiredDeliveryMediums :: Maybe [DeliveryMediumType]
clientMetadata :: Maybe (HashMap Text Text)
$sel:username:AdminCreateUser' :: AdminCreateUser -> Sensitive Text
$sel:userPoolId:AdminCreateUser' :: AdminCreateUser -> Text
$sel:validationData:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:userAttributes:AdminCreateUser' :: AdminCreateUser -> Maybe [AttributeType]
$sel:temporaryPassword:AdminCreateUser' :: AdminCreateUser -> Maybe (Sensitive Text)
$sel:messageAction:AdminCreateUser' :: AdminCreateUser -> Maybe MessageActionType
$sel:forceAliasCreation:AdminCreateUser' :: AdminCreateUser -> Maybe Bool
$sel:desiredDeliveryMediums:AdminCreateUser' :: AdminCreateUser -> Maybe [DeliveryMediumType]
$sel:clientMetadata:AdminCreateUser' :: AdminCreateUser -> 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,
(Key
"DesiredDeliveryMediums" 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 [DeliveryMediumType]
desiredDeliveryMediums,
(Key
"ForceAliasCreation" 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 Bool
forceAliasCreation,
(Key
"MessageAction" 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 MessageActionType
messageAction,
(Key
"TemporaryPassword" 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 (Sensitive Text)
temporaryPassword,
(Key
"UserAttributes" 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 [AttributeType]
userAttributes,
(Key
"ValidationData" 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 [AttributeType]
validationData,
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)
]
)
instance Data.ToPath AdminCreateUser where
toPath :: AdminCreateUser -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AdminCreateUser where
toQuery :: AdminCreateUser -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data AdminCreateUserResponse = AdminCreateUserResponse'
{
AdminCreateUserResponse -> Maybe UserType
user :: Prelude.Maybe UserType,
AdminCreateUserResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
$c/= :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
== :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
$c== :: AdminCreateUserResponse -> AdminCreateUserResponse -> Bool
Prelude.Eq, Int -> AdminCreateUserResponse -> ShowS
[AdminCreateUserResponse] -> ShowS
AdminCreateUserResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminCreateUserResponse] -> ShowS
$cshowList :: [AdminCreateUserResponse] -> ShowS
show :: AdminCreateUserResponse -> String
$cshow :: AdminCreateUserResponse -> String
showsPrec :: Int -> AdminCreateUserResponse -> ShowS
$cshowsPrec :: Int -> AdminCreateUserResponse -> ShowS
Prelude.Show, forall x. Rep AdminCreateUserResponse x -> AdminCreateUserResponse
forall x. AdminCreateUserResponse -> Rep AdminCreateUserResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AdminCreateUserResponse x -> AdminCreateUserResponse
$cfrom :: forall x. AdminCreateUserResponse -> Rep AdminCreateUserResponse x
Prelude.Generic)
newAdminCreateUserResponse ::
Prelude.Int ->
AdminCreateUserResponse
newAdminCreateUserResponse :: Int -> AdminCreateUserResponse
newAdminCreateUserResponse Int
pHttpStatus_ =
AdminCreateUserResponse'
{ $sel:user:AdminCreateUserResponse' :: Maybe UserType
user = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AdminCreateUserResponse' :: Int
httpStatus = Int
pHttpStatus_
}
adminCreateUserResponse_user :: Lens.Lens' AdminCreateUserResponse (Prelude.Maybe UserType)
adminCreateUserResponse_user :: Lens' AdminCreateUserResponse (Maybe UserType)
adminCreateUserResponse_user = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUserResponse' {Maybe UserType
user :: Maybe UserType
$sel:user:AdminCreateUserResponse' :: AdminCreateUserResponse -> Maybe UserType
user} -> Maybe UserType
user) (\s :: AdminCreateUserResponse
s@AdminCreateUserResponse' {} Maybe UserType
a -> AdminCreateUserResponse
s {$sel:user:AdminCreateUserResponse' :: Maybe UserType
user = Maybe UserType
a} :: AdminCreateUserResponse)
adminCreateUserResponse_httpStatus :: Lens.Lens' AdminCreateUserResponse Prelude.Int
adminCreateUserResponse_httpStatus :: Lens' AdminCreateUserResponse Int
adminCreateUserResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminCreateUserResponse' {Int
httpStatus :: Int
$sel:httpStatus:AdminCreateUserResponse' :: AdminCreateUserResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AdminCreateUserResponse
s@AdminCreateUserResponse' {} Int
a -> AdminCreateUserResponse
s {$sel:httpStatus:AdminCreateUserResponse' :: Int
httpStatus = Int
a} :: AdminCreateUserResponse)
instance Prelude.NFData AdminCreateUserResponse where
rnf :: AdminCreateUserResponse -> ()
rnf AdminCreateUserResponse' {Int
Maybe UserType
httpStatus :: Int
user :: Maybe UserType
$sel:httpStatus:AdminCreateUserResponse' :: AdminCreateUserResponse -> Int
$sel:user:AdminCreateUserResponse' :: AdminCreateUserResponse -> Maybe UserType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe UserType
user
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus