{-# 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.SetUserPoolMfaConfig
(
SetUserPoolMfaConfig (..),
newSetUserPoolMfaConfig,
setUserPoolMfaConfig_mfaConfiguration,
setUserPoolMfaConfig_smsMfaConfiguration,
setUserPoolMfaConfig_softwareTokenMfaConfiguration,
setUserPoolMfaConfig_userPoolId,
SetUserPoolMfaConfigResponse (..),
newSetUserPoolMfaConfigResponse,
setUserPoolMfaConfigResponse_mfaConfiguration,
setUserPoolMfaConfigResponse_smsMfaConfiguration,
setUserPoolMfaConfigResponse_softwareTokenMfaConfiguration,
setUserPoolMfaConfigResponse_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 SetUserPoolMfaConfig = SetUserPoolMfaConfig'
{
SetUserPoolMfaConfig -> Maybe UserPoolMfaType
mfaConfiguration :: Prelude.Maybe UserPoolMfaType,
SetUserPoolMfaConfig -> Maybe SmsMfaConfigType
smsMfaConfiguration :: Prelude.Maybe SmsMfaConfigType,
SetUserPoolMfaConfig -> Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration :: Prelude.Maybe SoftwareTokenMfaConfigType,
SetUserPoolMfaConfig -> Text
userPoolId :: Prelude.Text
}
deriving (SetUserPoolMfaConfig -> SetUserPoolMfaConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetUserPoolMfaConfig -> SetUserPoolMfaConfig -> Bool
$c/= :: SetUserPoolMfaConfig -> SetUserPoolMfaConfig -> Bool
== :: SetUserPoolMfaConfig -> SetUserPoolMfaConfig -> Bool
$c== :: SetUserPoolMfaConfig -> SetUserPoolMfaConfig -> Bool
Prelude.Eq, ReadPrec [SetUserPoolMfaConfig]
ReadPrec SetUserPoolMfaConfig
Int -> ReadS SetUserPoolMfaConfig
ReadS [SetUserPoolMfaConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetUserPoolMfaConfig]
$creadListPrec :: ReadPrec [SetUserPoolMfaConfig]
readPrec :: ReadPrec SetUserPoolMfaConfig
$creadPrec :: ReadPrec SetUserPoolMfaConfig
readList :: ReadS [SetUserPoolMfaConfig]
$creadList :: ReadS [SetUserPoolMfaConfig]
readsPrec :: Int -> ReadS SetUserPoolMfaConfig
$creadsPrec :: Int -> ReadS SetUserPoolMfaConfig
Prelude.Read, Int -> SetUserPoolMfaConfig -> ShowS
[SetUserPoolMfaConfig] -> ShowS
SetUserPoolMfaConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetUserPoolMfaConfig] -> ShowS
$cshowList :: [SetUserPoolMfaConfig] -> ShowS
show :: SetUserPoolMfaConfig -> String
$cshow :: SetUserPoolMfaConfig -> String
showsPrec :: Int -> SetUserPoolMfaConfig -> ShowS
$cshowsPrec :: Int -> SetUserPoolMfaConfig -> ShowS
Prelude.Show, forall x. Rep SetUserPoolMfaConfig x -> SetUserPoolMfaConfig
forall x. SetUserPoolMfaConfig -> Rep SetUserPoolMfaConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetUserPoolMfaConfig x -> SetUserPoolMfaConfig
$cfrom :: forall x. SetUserPoolMfaConfig -> Rep SetUserPoolMfaConfig x
Prelude.Generic)
newSetUserPoolMfaConfig ::
Prelude.Text ->
SetUserPoolMfaConfig
newSetUserPoolMfaConfig :: Text -> SetUserPoolMfaConfig
newSetUserPoolMfaConfig Text
pUserPoolId_ =
SetUserPoolMfaConfig'
{ $sel:mfaConfiguration:SetUserPoolMfaConfig' :: Maybe UserPoolMfaType
mfaConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:smsMfaConfiguration:SetUserPoolMfaConfig' :: Maybe SmsMfaConfigType
smsMfaConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfig' :: Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:userPoolId:SetUserPoolMfaConfig' :: Text
userPoolId = Text
pUserPoolId_
}
setUserPoolMfaConfig_mfaConfiguration :: Lens.Lens' SetUserPoolMfaConfig (Prelude.Maybe UserPoolMfaType)
setUserPoolMfaConfig_mfaConfiguration :: Lens' SetUserPoolMfaConfig (Maybe UserPoolMfaType)
setUserPoolMfaConfig_mfaConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfig' {Maybe UserPoolMfaType
mfaConfiguration :: Maybe UserPoolMfaType
$sel:mfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe UserPoolMfaType
mfaConfiguration} -> Maybe UserPoolMfaType
mfaConfiguration) (\s :: SetUserPoolMfaConfig
s@SetUserPoolMfaConfig' {} Maybe UserPoolMfaType
a -> SetUserPoolMfaConfig
s {$sel:mfaConfiguration:SetUserPoolMfaConfig' :: Maybe UserPoolMfaType
mfaConfiguration = Maybe UserPoolMfaType
a} :: SetUserPoolMfaConfig)
setUserPoolMfaConfig_smsMfaConfiguration :: Lens.Lens' SetUserPoolMfaConfig (Prelude.Maybe SmsMfaConfigType)
setUserPoolMfaConfig_smsMfaConfiguration :: Lens' SetUserPoolMfaConfig (Maybe SmsMfaConfigType)
setUserPoolMfaConfig_smsMfaConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfig' {Maybe SmsMfaConfigType
smsMfaConfiguration :: Maybe SmsMfaConfigType
$sel:smsMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SmsMfaConfigType
smsMfaConfiguration} -> Maybe SmsMfaConfigType
smsMfaConfiguration) (\s :: SetUserPoolMfaConfig
s@SetUserPoolMfaConfig' {} Maybe SmsMfaConfigType
a -> SetUserPoolMfaConfig
s {$sel:smsMfaConfiguration:SetUserPoolMfaConfig' :: Maybe SmsMfaConfigType
smsMfaConfiguration = Maybe SmsMfaConfigType
a} :: SetUserPoolMfaConfig)
setUserPoolMfaConfig_softwareTokenMfaConfiguration :: Lens.Lens' SetUserPoolMfaConfig (Prelude.Maybe SoftwareTokenMfaConfigType)
setUserPoolMfaConfig_softwareTokenMfaConfiguration :: Lens' SetUserPoolMfaConfig (Maybe SoftwareTokenMfaConfigType)
setUserPoolMfaConfig_softwareTokenMfaConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfig' {Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration :: Maybe SoftwareTokenMfaConfigType
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration} -> Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration) (\s :: SetUserPoolMfaConfig
s@SetUserPoolMfaConfig' {} Maybe SoftwareTokenMfaConfigType
a -> SetUserPoolMfaConfig
s {$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfig' :: Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration = Maybe SoftwareTokenMfaConfigType
a} :: SetUserPoolMfaConfig)
setUserPoolMfaConfig_userPoolId :: Lens.Lens' SetUserPoolMfaConfig Prelude.Text
setUserPoolMfaConfig_userPoolId :: Lens' SetUserPoolMfaConfig Text
setUserPoolMfaConfig_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfig' {Text
userPoolId :: Text
$sel:userPoolId:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Text
userPoolId} -> Text
userPoolId) (\s :: SetUserPoolMfaConfig
s@SetUserPoolMfaConfig' {} Text
a -> SetUserPoolMfaConfig
s {$sel:userPoolId:SetUserPoolMfaConfig' :: Text
userPoolId = Text
a} :: SetUserPoolMfaConfig)
instance Core.AWSRequest SetUserPoolMfaConfig where
type
AWSResponse SetUserPoolMfaConfig =
SetUserPoolMfaConfigResponse
request :: (Service -> Service)
-> SetUserPoolMfaConfig -> Request SetUserPoolMfaConfig
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 SetUserPoolMfaConfig
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetUserPoolMfaConfig)))
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 UserPoolMfaType
-> Maybe SmsMfaConfigType
-> Maybe SoftwareTokenMfaConfigType
-> Int
-> SetUserPoolMfaConfigResponse
SetUserPoolMfaConfigResponse'
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
"MfaConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SmsMfaConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SoftwareTokenMfaConfiguration")
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 SetUserPoolMfaConfig where
hashWithSalt :: Int -> SetUserPoolMfaConfig -> Int
hashWithSalt Int
_salt SetUserPoolMfaConfig' {Maybe SmsMfaConfigType
Maybe SoftwareTokenMfaConfigType
Maybe UserPoolMfaType
Text
userPoolId :: Text
softwareTokenMfaConfiguration :: Maybe SoftwareTokenMfaConfigType
smsMfaConfiguration :: Maybe SmsMfaConfigType
mfaConfiguration :: Maybe UserPoolMfaType
$sel:userPoolId:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Text
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SoftwareTokenMfaConfigType
$sel:smsMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SmsMfaConfigType
$sel:mfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe UserPoolMfaType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UserPoolMfaType
mfaConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SmsMfaConfigType
smsMfaConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
instance Prelude.NFData SetUserPoolMfaConfig where
rnf :: SetUserPoolMfaConfig -> ()
rnf SetUserPoolMfaConfig' {Maybe SmsMfaConfigType
Maybe SoftwareTokenMfaConfigType
Maybe UserPoolMfaType
Text
userPoolId :: Text
softwareTokenMfaConfiguration :: Maybe SoftwareTokenMfaConfigType
smsMfaConfiguration :: Maybe SmsMfaConfigType
mfaConfiguration :: Maybe UserPoolMfaType
$sel:userPoolId:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Text
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SoftwareTokenMfaConfigType
$sel:smsMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SmsMfaConfigType
$sel:mfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe UserPoolMfaType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe UserPoolMfaType
mfaConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SmsMfaConfigType
smsMfaConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userPoolId
instance Data.ToHeaders SetUserPoolMfaConfig where
toHeaders :: SetUserPoolMfaConfig -> 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.SetUserPoolMfaConfig" ::
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 SetUserPoolMfaConfig where
toJSON :: SetUserPoolMfaConfig -> Value
toJSON SetUserPoolMfaConfig' {Maybe SmsMfaConfigType
Maybe SoftwareTokenMfaConfigType
Maybe UserPoolMfaType
Text
userPoolId :: Text
softwareTokenMfaConfiguration :: Maybe SoftwareTokenMfaConfigType
smsMfaConfiguration :: Maybe SmsMfaConfigType
mfaConfiguration :: Maybe UserPoolMfaType
$sel:userPoolId:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Text
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SoftwareTokenMfaConfigType
$sel:smsMfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe SmsMfaConfigType
$sel:mfaConfiguration:SetUserPoolMfaConfig' :: SetUserPoolMfaConfig -> Maybe UserPoolMfaType
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MfaConfiguration" 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 UserPoolMfaType
mfaConfiguration,
(Key
"SmsMfaConfiguration" 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 SmsMfaConfigType
smsMfaConfiguration,
(Key
"SoftwareTokenMfaConfiguration" 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 SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration,
forall a. a -> Maybe a
Prelude.Just (Key
"UserPoolId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userPoolId)
]
)
instance Data.ToPath SetUserPoolMfaConfig where
toPath :: SetUserPoolMfaConfig -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetUserPoolMfaConfig where
toQuery :: SetUserPoolMfaConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SetUserPoolMfaConfigResponse = SetUserPoolMfaConfigResponse'
{
SetUserPoolMfaConfigResponse -> Maybe UserPoolMfaType
mfaConfiguration :: Prelude.Maybe UserPoolMfaType,
SetUserPoolMfaConfigResponse -> Maybe SmsMfaConfigType
smsMfaConfiguration :: Prelude.Maybe SmsMfaConfigType,
SetUserPoolMfaConfigResponse -> Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration :: Prelude.Maybe SoftwareTokenMfaConfigType,
SetUserPoolMfaConfigResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetUserPoolMfaConfigResponse
-> SetUserPoolMfaConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetUserPoolMfaConfigResponse
-> SetUserPoolMfaConfigResponse -> Bool
$c/= :: SetUserPoolMfaConfigResponse
-> SetUserPoolMfaConfigResponse -> Bool
== :: SetUserPoolMfaConfigResponse
-> SetUserPoolMfaConfigResponse -> Bool
$c== :: SetUserPoolMfaConfigResponse
-> SetUserPoolMfaConfigResponse -> Bool
Prelude.Eq, ReadPrec [SetUserPoolMfaConfigResponse]
ReadPrec SetUserPoolMfaConfigResponse
Int -> ReadS SetUserPoolMfaConfigResponse
ReadS [SetUserPoolMfaConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetUserPoolMfaConfigResponse]
$creadListPrec :: ReadPrec [SetUserPoolMfaConfigResponse]
readPrec :: ReadPrec SetUserPoolMfaConfigResponse
$creadPrec :: ReadPrec SetUserPoolMfaConfigResponse
readList :: ReadS [SetUserPoolMfaConfigResponse]
$creadList :: ReadS [SetUserPoolMfaConfigResponse]
readsPrec :: Int -> ReadS SetUserPoolMfaConfigResponse
$creadsPrec :: Int -> ReadS SetUserPoolMfaConfigResponse
Prelude.Read, Int -> SetUserPoolMfaConfigResponse -> ShowS
[SetUserPoolMfaConfigResponse] -> ShowS
SetUserPoolMfaConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetUserPoolMfaConfigResponse] -> ShowS
$cshowList :: [SetUserPoolMfaConfigResponse] -> ShowS
show :: SetUserPoolMfaConfigResponse -> String
$cshow :: SetUserPoolMfaConfigResponse -> String
showsPrec :: Int -> SetUserPoolMfaConfigResponse -> ShowS
$cshowsPrec :: Int -> SetUserPoolMfaConfigResponse -> ShowS
Prelude.Show, forall x.
Rep SetUserPoolMfaConfigResponse x -> SetUserPoolMfaConfigResponse
forall x.
SetUserPoolMfaConfigResponse -> Rep SetUserPoolMfaConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetUserPoolMfaConfigResponse x -> SetUserPoolMfaConfigResponse
$cfrom :: forall x.
SetUserPoolMfaConfigResponse -> Rep SetUserPoolMfaConfigResponse x
Prelude.Generic)
newSetUserPoolMfaConfigResponse ::
Prelude.Int ->
SetUserPoolMfaConfigResponse
newSetUserPoolMfaConfigResponse :: Int -> SetUserPoolMfaConfigResponse
newSetUserPoolMfaConfigResponse Int
pHttpStatus_ =
SetUserPoolMfaConfigResponse'
{ $sel:mfaConfiguration:SetUserPoolMfaConfigResponse' :: Maybe UserPoolMfaType
mfaConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:smsMfaConfiguration:SetUserPoolMfaConfigResponse' :: Maybe SmsMfaConfigType
smsMfaConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfigResponse' :: Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SetUserPoolMfaConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
}
setUserPoolMfaConfigResponse_mfaConfiguration :: Lens.Lens' SetUserPoolMfaConfigResponse (Prelude.Maybe UserPoolMfaType)
setUserPoolMfaConfigResponse_mfaConfiguration :: Lens' SetUserPoolMfaConfigResponse (Maybe UserPoolMfaType)
setUserPoolMfaConfigResponse_mfaConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfigResponse' {Maybe UserPoolMfaType
mfaConfiguration :: Maybe UserPoolMfaType
$sel:mfaConfiguration:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Maybe UserPoolMfaType
mfaConfiguration} -> Maybe UserPoolMfaType
mfaConfiguration) (\s :: SetUserPoolMfaConfigResponse
s@SetUserPoolMfaConfigResponse' {} Maybe UserPoolMfaType
a -> SetUserPoolMfaConfigResponse
s {$sel:mfaConfiguration:SetUserPoolMfaConfigResponse' :: Maybe UserPoolMfaType
mfaConfiguration = Maybe UserPoolMfaType
a} :: SetUserPoolMfaConfigResponse)
setUserPoolMfaConfigResponse_smsMfaConfiguration :: Lens.Lens' SetUserPoolMfaConfigResponse (Prelude.Maybe SmsMfaConfigType)
setUserPoolMfaConfigResponse_smsMfaConfiguration :: Lens' SetUserPoolMfaConfigResponse (Maybe SmsMfaConfigType)
setUserPoolMfaConfigResponse_smsMfaConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfigResponse' {Maybe SmsMfaConfigType
smsMfaConfiguration :: Maybe SmsMfaConfigType
$sel:smsMfaConfiguration:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Maybe SmsMfaConfigType
smsMfaConfiguration} -> Maybe SmsMfaConfigType
smsMfaConfiguration) (\s :: SetUserPoolMfaConfigResponse
s@SetUserPoolMfaConfigResponse' {} Maybe SmsMfaConfigType
a -> SetUserPoolMfaConfigResponse
s {$sel:smsMfaConfiguration:SetUserPoolMfaConfigResponse' :: Maybe SmsMfaConfigType
smsMfaConfiguration = Maybe SmsMfaConfigType
a} :: SetUserPoolMfaConfigResponse)
setUserPoolMfaConfigResponse_softwareTokenMfaConfiguration :: Lens.Lens' SetUserPoolMfaConfigResponse (Prelude.Maybe SoftwareTokenMfaConfigType)
setUserPoolMfaConfigResponse_softwareTokenMfaConfiguration :: Lens'
SetUserPoolMfaConfigResponse (Maybe SoftwareTokenMfaConfigType)
setUserPoolMfaConfigResponse_softwareTokenMfaConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfigResponse' {Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration :: Maybe SoftwareTokenMfaConfigType
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration} -> Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration) (\s :: SetUserPoolMfaConfigResponse
s@SetUserPoolMfaConfigResponse' {} Maybe SoftwareTokenMfaConfigType
a -> SetUserPoolMfaConfigResponse
s {$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfigResponse' :: Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration = Maybe SoftwareTokenMfaConfigType
a} :: SetUserPoolMfaConfigResponse)
setUserPoolMfaConfigResponse_httpStatus :: Lens.Lens' SetUserPoolMfaConfigResponse Prelude.Int
setUserPoolMfaConfigResponse_httpStatus :: Lens' SetUserPoolMfaConfigResponse Int
setUserPoolMfaConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetUserPoolMfaConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetUserPoolMfaConfigResponse
s@SetUserPoolMfaConfigResponse' {} Int
a -> SetUserPoolMfaConfigResponse
s {$sel:httpStatus:SetUserPoolMfaConfigResponse' :: Int
httpStatus = Int
a} :: SetUserPoolMfaConfigResponse)
instance Prelude.NFData SetUserPoolMfaConfigResponse where
rnf :: SetUserPoolMfaConfigResponse -> ()
rnf SetUserPoolMfaConfigResponse' {Int
Maybe SmsMfaConfigType
Maybe SoftwareTokenMfaConfigType
Maybe UserPoolMfaType
httpStatus :: Int
softwareTokenMfaConfiguration :: Maybe SoftwareTokenMfaConfigType
smsMfaConfiguration :: Maybe SmsMfaConfigType
mfaConfiguration :: Maybe UserPoolMfaType
$sel:httpStatus:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Int
$sel:softwareTokenMfaConfiguration:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Maybe SoftwareTokenMfaConfigType
$sel:smsMfaConfiguration:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Maybe SmsMfaConfigType
$sel:mfaConfiguration:SetUserPoolMfaConfigResponse' :: SetUserPoolMfaConfigResponse -> Maybe UserPoolMfaType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe UserPoolMfaType
mfaConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SmsMfaConfigType
smsMfaConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SoftwareTokenMfaConfigType
softwareTokenMfaConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus