{-# 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.AdminDisableProviderForUser
(
AdminDisableProviderForUser (..),
newAdminDisableProviderForUser,
adminDisableProviderForUser_userPoolId,
adminDisableProviderForUser_user,
AdminDisableProviderForUserResponse (..),
newAdminDisableProviderForUserResponse,
adminDisableProviderForUserResponse_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 AdminDisableProviderForUser = AdminDisableProviderForUser'
{
AdminDisableProviderForUser -> Text
userPoolId :: Prelude.Text,
AdminDisableProviderForUser -> ProviderUserIdentifierType
user :: ProviderUserIdentifierType
}
deriving (AdminDisableProviderForUser -> AdminDisableProviderForUser -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminDisableProviderForUser -> AdminDisableProviderForUser -> Bool
$c/= :: AdminDisableProviderForUser -> AdminDisableProviderForUser -> Bool
== :: AdminDisableProviderForUser -> AdminDisableProviderForUser -> Bool
$c== :: AdminDisableProviderForUser -> AdminDisableProviderForUser -> Bool
Prelude.Eq, ReadPrec [AdminDisableProviderForUser]
ReadPrec AdminDisableProviderForUser
Int -> ReadS AdminDisableProviderForUser
ReadS [AdminDisableProviderForUser]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AdminDisableProviderForUser]
$creadListPrec :: ReadPrec [AdminDisableProviderForUser]
readPrec :: ReadPrec AdminDisableProviderForUser
$creadPrec :: ReadPrec AdminDisableProviderForUser
readList :: ReadS [AdminDisableProviderForUser]
$creadList :: ReadS [AdminDisableProviderForUser]
readsPrec :: Int -> ReadS AdminDisableProviderForUser
$creadsPrec :: Int -> ReadS AdminDisableProviderForUser
Prelude.Read, Int -> AdminDisableProviderForUser -> ShowS
[AdminDisableProviderForUser] -> ShowS
AdminDisableProviderForUser -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminDisableProviderForUser] -> ShowS
$cshowList :: [AdminDisableProviderForUser] -> ShowS
show :: AdminDisableProviderForUser -> String
$cshow :: AdminDisableProviderForUser -> String
showsPrec :: Int -> AdminDisableProviderForUser -> ShowS
$cshowsPrec :: Int -> AdminDisableProviderForUser -> ShowS
Prelude.Show, forall x.
Rep AdminDisableProviderForUser x -> AdminDisableProviderForUser
forall x.
AdminDisableProviderForUser -> Rep AdminDisableProviderForUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AdminDisableProviderForUser x -> AdminDisableProviderForUser
$cfrom :: forall x.
AdminDisableProviderForUser -> Rep AdminDisableProviderForUser x
Prelude.Generic)
newAdminDisableProviderForUser ::
Prelude.Text ->
ProviderUserIdentifierType ->
AdminDisableProviderForUser
newAdminDisableProviderForUser :: Text -> ProviderUserIdentifierType -> AdminDisableProviderForUser
newAdminDisableProviderForUser Text
pUserPoolId_ ProviderUserIdentifierType
pUser_ =
AdminDisableProviderForUser'
{ $sel:userPoolId:AdminDisableProviderForUser' :: Text
userPoolId =
Text
pUserPoolId_,
$sel:user:AdminDisableProviderForUser' :: ProviderUserIdentifierType
user = ProviderUserIdentifierType
pUser_
}
adminDisableProviderForUser_userPoolId :: Lens.Lens' AdminDisableProviderForUser Prelude.Text
adminDisableProviderForUser_userPoolId :: Lens' AdminDisableProviderForUser Text
adminDisableProviderForUser_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminDisableProviderForUser' {Text
userPoolId :: Text
$sel:userPoolId:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> Text
userPoolId} -> Text
userPoolId) (\s :: AdminDisableProviderForUser
s@AdminDisableProviderForUser' {} Text
a -> AdminDisableProviderForUser
s {$sel:userPoolId:AdminDisableProviderForUser' :: Text
userPoolId = Text
a} :: AdminDisableProviderForUser)
adminDisableProviderForUser_user :: Lens.Lens' AdminDisableProviderForUser ProviderUserIdentifierType
adminDisableProviderForUser_user :: Lens' AdminDisableProviderForUser ProviderUserIdentifierType
adminDisableProviderForUser_user = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminDisableProviderForUser' {ProviderUserIdentifierType
user :: ProviderUserIdentifierType
$sel:user:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> ProviderUserIdentifierType
user} -> ProviderUserIdentifierType
user) (\s :: AdminDisableProviderForUser
s@AdminDisableProviderForUser' {} ProviderUserIdentifierType
a -> AdminDisableProviderForUser
s {$sel:user:AdminDisableProviderForUser' :: ProviderUserIdentifierType
user = ProviderUserIdentifierType
a} :: AdminDisableProviderForUser)
instance Core.AWSRequest AdminDisableProviderForUser where
type
AWSResponse AdminDisableProviderForUser =
AdminDisableProviderForUserResponse
request :: (Service -> Service)
-> AdminDisableProviderForUser
-> Request AdminDisableProviderForUser
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 AdminDisableProviderForUser
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AdminDisableProviderForUser)))
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 -> AdminDisableProviderForUserResponse
AdminDisableProviderForUserResponse'
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 AdminDisableProviderForUser where
hashWithSalt :: Int -> AdminDisableProviderForUser -> Int
hashWithSalt Int
_salt AdminDisableProviderForUser' {Text
ProviderUserIdentifierType
user :: ProviderUserIdentifierType
userPoolId :: Text
$sel:user:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> ProviderUserIdentifierType
$sel:userPoolId:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ProviderUserIdentifierType
user
instance Prelude.NFData AdminDisableProviderForUser where
rnf :: AdminDisableProviderForUser -> ()
rnf AdminDisableProviderForUser' {Text
ProviderUserIdentifierType
user :: ProviderUserIdentifierType
userPoolId :: Text
$sel:user:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> ProviderUserIdentifierType
$sel:userPoolId:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> 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 ProviderUserIdentifierType
user
instance Data.ToHeaders AdminDisableProviderForUser where
toHeaders :: AdminDisableProviderForUser -> 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.AdminDisableProviderForUser" ::
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 AdminDisableProviderForUser where
toJSON :: AdminDisableProviderForUser -> Value
toJSON AdminDisableProviderForUser' {Text
ProviderUserIdentifierType
user :: ProviderUserIdentifierType
userPoolId :: Text
$sel:user:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> ProviderUserIdentifierType
$sel:userPoolId:AdminDisableProviderForUser' :: AdminDisableProviderForUser -> 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
"User" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ProviderUserIdentifierType
user)
]
)
instance Data.ToPath AdminDisableProviderForUser where
toPath :: AdminDisableProviderForUser -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AdminDisableProviderForUser where
toQuery :: AdminDisableProviderForUser -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data AdminDisableProviderForUserResponse = AdminDisableProviderForUserResponse'
{
AdminDisableProviderForUserResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AdminDisableProviderForUserResponse
-> AdminDisableProviderForUserResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminDisableProviderForUserResponse
-> AdminDisableProviderForUserResponse -> Bool
$c/= :: AdminDisableProviderForUserResponse
-> AdminDisableProviderForUserResponse -> Bool
== :: AdminDisableProviderForUserResponse
-> AdminDisableProviderForUserResponse -> Bool
$c== :: AdminDisableProviderForUserResponse
-> AdminDisableProviderForUserResponse -> Bool
Prelude.Eq, ReadPrec [AdminDisableProviderForUserResponse]
ReadPrec AdminDisableProviderForUserResponse
Int -> ReadS AdminDisableProviderForUserResponse
ReadS [AdminDisableProviderForUserResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AdminDisableProviderForUserResponse]
$creadListPrec :: ReadPrec [AdminDisableProviderForUserResponse]
readPrec :: ReadPrec AdminDisableProviderForUserResponse
$creadPrec :: ReadPrec AdminDisableProviderForUserResponse
readList :: ReadS [AdminDisableProviderForUserResponse]
$creadList :: ReadS [AdminDisableProviderForUserResponse]
readsPrec :: Int -> ReadS AdminDisableProviderForUserResponse
$creadsPrec :: Int -> ReadS AdminDisableProviderForUserResponse
Prelude.Read, Int -> AdminDisableProviderForUserResponse -> ShowS
[AdminDisableProviderForUserResponse] -> ShowS
AdminDisableProviderForUserResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminDisableProviderForUserResponse] -> ShowS
$cshowList :: [AdminDisableProviderForUserResponse] -> ShowS
show :: AdminDisableProviderForUserResponse -> String
$cshow :: AdminDisableProviderForUserResponse -> String
showsPrec :: Int -> AdminDisableProviderForUserResponse -> ShowS
$cshowsPrec :: Int -> AdminDisableProviderForUserResponse -> ShowS
Prelude.Show, forall x.
Rep AdminDisableProviderForUserResponse x
-> AdminDisableProviderForUserResponse
forall x.
AdminDisableProviderForUserResponse
-> Rep AdminDisableProviderForUserResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AdminDisableProviderForUserResponse x
-> AdminDisableProviderForUserResponse
$cfrom :: forall x.
AdminDisableProviderForUserResponse
-> Rep AdminDisableProviderForUserResponse x
Prelude.Generic)
newAdminDisableProviderForUserResponse ::
Prelude.Int ->
AdminDisableProviderForUserResponse
newAdminDisableProviderForUserResponse :: Int -> AdminDisableProviderForUserResponse
newAdminDisableProviderForUserResponse Int
pHttpStatus_ =
AdminDisableProviderForUserResponse'
{ $sel:httpStatus:AdminDisableProviderForUserResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
adminDisableProviderForUserResponse_httpStatus :: Lens.Lens' AdminDisableProviderForUserResponse Prelude.Int
adminDisableProviderForUserResponse_httpStatus :: Lens' AdminDisableProviderForUserResponse Int
adminDisableProviderForUserResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AdminDisableProviderForUserResponse' {Int
httpStatus :: Int
$sel:httpStatus:AdminDisableProviderForUserResponse' :: AdminDisableProviderForUserResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AdminDisableProviderForUserResponse
s@AdminDisableProviderForUserResponse' {} Int
a -> AdminDisableProviderForUserResponse
s {$sel:httpStatus:AdminDisableProviderForUserResponse' :: Int
httpStatus = Int
a} :: AdminDisableProviderForUserResponse)
instance
Prelude.NFData
AdminDisableProviderForUserResponse
where
rnf :: AdminDisableProviderForUserResponse -> ()
rnf AdminDisableProviderForUserResponse' {Int
httpStatus :: Int
$sel:httpStatus:AdminDisableProviderForUserResponse' :: AdminDisableProviderForUserResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus