{-# 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.AdminAddUserToGroup
(
AdminAddUserToGroup (..),
newAdminAddUserToGroup,
adminAddUserToGroup_userPoolId,
adminAddUserToGroup_username,
adminAddUserToGroup_groupName,
AdminAddUserToGroupResponse (..),
newAdminAddUserToGroupResponse,
)
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 AdminAddUserToGroup = AdminAddUserToGroup'
{
AdminAddUserToGroup -> Text
userPoolId :: Prelude.Text,
AdminAddUserToGroup -> Sensitive Text
username :: Data.Sensitive Prelude.Text,
AdminAddUserToGroup -> Text
groupName :: Prelude.Text
}
deriving (AdminAddUserToGroup -> AdminAddUserToGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminAddUserToGroup -> AdminAddUserToGroup -> Bool
$c/= :: AdminAddUserToGroup -> AdminAddUserToGroup -> Bool
== :: AdminAddUserToGroup -> AdminAddUserToGroup -> Bool
$c== :: AdminAddUserToGroup -> AdminAddUserToGroup -> Bool
Prelude.Eq, Int -> AdminAddUserToGroup -> ShowS
[AdminAddUserToGroup] -> ShowS
AdminAddUserToGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminAddUserToGroup] -> ShowS
$cshowList :: [AdminAddUserToGroup] -> ShowS
show :: AdminAddUserToGroup -> String
$cshow :: AdminAddUserToGroup -> String
showsPrec :: Int -> AdminAddUserToGroup -> ShowS
$cshowsPrec :: Int -> AdminAddUserToGroup -> ShowS
Prelude.Show, forall x. Rep AdminAddUserToGroup x -> AdminAddUserToGroup
forall x. AdminAddUserToGroup -> Rep AdminAddUserToGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AdminAddUserToGroup x -> AdminAddUserToGroup
$cfrom :: forall x. AdminAddUserToGroup -> Rep AdminAddUserToGroup x
Prelude.Generic)
newAdminAddUserToGroup ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
AdminAddUserToGroup
newAdminAddUserToGroup :: Text -> Text -> Text -> AdminAddUserToGroup
newAdminAddUserToGroup
Text
pUserPoolId_
Text
pUsername_
Text
pGroupName_ =
AdminAddUserToGroup'
{ $sel:userPoolId:AdminAddUserToGroup' :: Text
userPoolId = Text
pUserPoolId_,
$sel:username:AdminAddUserToGroup' :: Sensitive Text
username = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pUsername_,
$sel:groupName:AdminAddUserToGroup' :: Text
groupName = Text
pGroupName_
}
adminAddUserToGroup_userPoolId :: Lens.Lens' AdminAddUserToGroup Prelude.Text
adminAddUserToGroup_userPoolId :: Lens' AdminAddUserToGroup Text
adminAddUserToGroup_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminAddUserToGroup' {Text
userPoolId :: Text
$sel:userPoolId:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
userPoolId} -> Text
userPoolId) (\s :: AdminAddUserToGroup
s@AdminAddUserToGroup' {} Text
a -> AdminAddUserToGroup
s {$sel:userPoolId:AdminAddUserToGroup' :: Text
userPoolId = Text
a} :: AdminAddUserToGroup)
adminAddUserToGroup_username :: Lens.Lens' AdminAddUserToGroup Prelude.Text
adminAddUserToGroup_username :: Lens' AdminAddUserToGroup Text
adminAddUserToGroup_username = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminAddUserToGroup' {Sensitive Text
username :: Sensitive Text
$sel:username:AdminAddUserToGroup' :: AdminAddUserToGroup -> Sensitive Text
username} -> Sensitive Text
username) (\s :: AdminAddUserToGroup
s@AdminAddUserToGroup' {} Sensitive Text
a -> AdminAddUserToGroup
s {$sel:username:AdminAddUserToGroup' :: Sensitive Text
username = Sensitive Text
a} :: AdminAddUserToGroup) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
adminAddUserToGroup_groupName :: Lens.Lens' AdminAddUserToGroup Prelude.Text
adminAddUserToGroup_groupName :: Lens' AdminAddUserToGroup Text
adminAddUserToGroup_groupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminAddUserToGroup' {Text
groupName :: Text
$sel:groupName:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
groupName} -> Text
groupName) (\s :: AdminAddUserToGroup
s@AdminAddUserToGroup' {} Text
a -> AdminAddUserToGroup
s {$sel:groupName:AdminAddUserToGroup' :: Text
groupName = Text
a} :: AdminAddUserToGroup)
instance Core.AWSRequest AdminAddUserToGroup where
type
AWSResponse AdminAddUserToGroup =
AdminAddUserToGroupResponse
request :: (Service -> Service)
-> AdminAddUserToGroup -> Request AdminAddUserToGroup
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 AdminAddUserToGroup
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AdminAddUserToGroup)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull AdminAddUserToGroupResponse
AdminAddUserToGroupResponse'
instance Prelude.Hashable AdminAddUserToGroup where
hashWithSalt :: Int -> AdminAddUserToGroup -> Int
hashWithSalt Int
_salt AdminAddUserToGroup' {Text
Sensitive Text
groupName :: Text
username :: Sensitive Text
userPoolId :: Text
$sel:groupName:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
$sel:username:AdminAddUserToGroup' :: AdminAddUserToGroup -> Sensitive Text
$sel:userPoolId:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
..} =
Int
_salt
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` Text
groupName
instance Prelude.NFData AdminAddUserToGroup where
rnf :: AdminAddUserToGroup -> ()
rnf AdminAddUserToGroup' {Text
Sensitive Text
groupName :: Text
username :: Sensitive Text
userPoolId :: Text
$sel:groupName:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
$sel:username:AdminAddUserToGroup' :: AdminAddUserToGroup -> Sensitive Text
$sel:userPoolId:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
..} =
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 Text
groupName
instance Data.ToHeaders AdminAddUserToGroup where
toHeaders :: AdminAddUserToGroup -> [Header]
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 -> [Header]
Data.=# ( ByteString
"AWSCognitoIdentityProviderService.AdminAddUserToGroup" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON AdminAddUserToGroup where
toJSON :: AdminAddUserToGroup -> Value
toJSON AdminAddUserToGroup' {Text
Sensitive Text
groupName :: Text
username :: Sensitive Text
userPoolId :: Text
$sel:groupName:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
$sel:username:AdminAddUserToGroup' :: AdminAddUserToGroup -> Sensitive Text
$sel:userPoolId:AdminAddUserToGroup' :: AdminAddUserToGroup -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ 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
"GroupName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
groupName)
]
)
instance Data.ToPath AdminAddUserToGroup where
toPath :: AdminAddUserToGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AdminAddUserToGroup where
toQuery :: AdminAddUserToGroup -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data AdminAddUserToGroupResponse = AdminAddUserToGroupResponse'
{
}
deriving (AdminAddUserToGroupResponse -> AdminAddUserToGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminAddUserToGroupResponse -> AdminAddUserToGroupResponse -> Bool
$c/= :: AdminAddUserToGroupResponse -> AdminAddUserToGroupResponse -> Bool
== :: AdminAddUserToGroupResponse -> AdminAddUserToGroupResponse -> Bool
$c== :: AdminAddUserToGroupResponse -> AdminAddUserToGroupResponse -> Bool
Prelude.Eq, ReadPrec [AdminAddUserToGroupResponse]
ReadPrec AdminAddUserToGroupResponse
Int -> ReadS AdminAddUserToGroupResponse
ReadS [AdminAddUserToGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AdminAddUserToGroupResponse]
$creadListPrec :: ReadPrec [AdminAddUserToGroupResponse]
readPrec :: ReadPrec AdminAddUserToGroupResponse
$creadPrec :: ReadPrec AdminAddUserToGroupResponse
readList :: ReadS [AdminAddUserToGroupResponse]
$creadList :: ReadS [AdminAddUserToGroupResponse]
readsPrec :: Int -> ReadS AdminAddUserToGroupResponse
$creadsPrec :: Int -> ReadS AdminAddUserToGroupResponse
Prelude.Read, Int -> AdminAddUserToGroupResponse -> ShowS
[AdminAddUserToGroupResponse] -> ShowS
AdminAddUserToGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminAddUserToGroupResponse] -> ShowS
$cshowList :: [AdminAddUserToGroupResponse] -> ShowS
show :: AdminAddUserToGroupResponse -> String
$cshow :: AdminAddUserToGroupResponse -> String
showsPrec :: Int -> AdminAddUserToGroupResponse -> ShowS
$cshowsPrec :: Int -> AdminAddUserToGroupResponse -> ShowS
Prelude.Show, forall x.
Rep AdminAddUserToGroupResponse x -> AdminAddUserToGroupResponse
forall x.
AdminAddUserToGroupResponse -> Rep AdminAddUserToGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AdminAddUserToGroupResponse x -> AdminAddUserToGroupResponse
$cfrom :: forall x.
AdminAddUserToGroupResponse -> Rep AdminAddUserToGroupResponse x
Prelude.Generic)
newAdminAddUserToGroupResponse ::
AdminAddUserToGroupResponse
newAdminAddUserToGroupResponse :: AdminAddUserToGroupResponse
newAdminAddUserToGroupResponse =
AdminAddUserToGroupResponse
AdminAddUserToGroupResponse'
instance Prelude.NFData AdminAddUserToGroupResponse where
rnf :: AdminAddUserToGroupResponse -> ()
rnf AdminAddUserToGroupResponse
_ = ()