{-# 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.RespondToAuthChallenge
(
RespondToAuthChallenge (..),
newRespondToAuthChallenge,
respondToAuthChallenge_analyticsMetadata,
respondToAuthChallenge_challengeResponses,
respondToAuthChallenge_clientMetadata,
respondToAuthChallenge_session,
respondToAuthChallenge_userContextData,
respondToAuthChallenge_clientId,
respondToAuthChallenge_challengeName,
RespondToAuthChallengeResponse (..),
newRespondToAuthChallengeResponse,
respondToAuthChallengeResponse_authenticationResult,
respondToAuthChallengeResponse_challengeName,
respondToAuthChallengeResponse_challengeParameters,
respondToAuthChallengeResponse_session,
respondToAuthChallengeResponse_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 RespondToAuthChallenge = RespondToAuthChallenge'
{
RespondToAuthChallenge -> Maybe AnalyticsMetadataType
analyticsMetadata :: Prelude.Maybe AnalyticsMetadataType,
RespondToAuthChallenge -> Maybe (HashMap Text Text)
challengeResponses :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
RespondToAuthChallenge -> Maybe (HashMap Text Text)
clientMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
RespondToAuthChallenge -> Maybe Text
session :: Prelude.Maybe Prelude.Text,
RespondToAuthChallenge -> Maybe UserContextDataType
userContextData :: Prelude.Maybe UserContextDataType,
RespondToAuthChallenge -> Sensitive Text
clientId :: Data.Sensitive Prelude.Text,
RespondToAuthChallenge -> ChallengeNameType
challengeName :: ChallengeNameType
}
deriving (RespondToAuthChallenge -> RespondToAuthChallenge -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RespondToAuthChallenge -> RespondToAuthChallenge -> Bool
$c/= :: RespondToAuthChallenge -> RespondToAuthChallenge -> Bool
== :: RespondToAuthChallenge -> RespondToAuthChallenge -> Bool
$c== :: RespondToAuthChallenge -> RespondToAuthChallenge -> Bool
Prelude.Eq, Int -> RespondToAuthChallenge -> ShowS
[RespondToAuthChallenge] -> ShowS
RespondToAuthChallenge -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RespondToAuthChallenge] -> ShowS
$cshowList :: [RespondToAuthChallenge] -> ShowS
show :: RespondToAuthChallenge -> String
$cshow :: RespondToAuthChallenge -> String
showsPrec :: Int -> RespondToAuthChallenge -> ShowS
$cshowsPrec :: Int -> RespondToAuthChallenge -> ShowS
Prelude.Show, forall x. Rep RespondToAuthChallenge x -> RespondToAuthChallenge
forall x. RespondToAuthChallenge -> Rep RespondToAuthChallenge x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RespondToAuthChallenge x -> RespondToAuthChallenge
$cfrom :: forall x. RespondToAuthChallenge -> Rep RespondToAuthChallenge x
Prelude.Generic)
newRespondToAuthChallenge ::
Prelude.Text ->
ChallengeNameType ->
RespondToAuthChallenge
newRespondToAuthChallenge :: Text -> ChallengeNameType -> RespondToAuthChallenge
newRespondToAuthChallenge Text
pClientId_ ChallengeNameType
pChallengeName_ =
RespondToAuthChallenge'
{ $sel:analyticsMetadata:RespondToAuthChallenge' :: Maybe AnalyticsMetadataType
analyticsMetadata =
forall a. Maybe a
Prelude.Nothing,
$sel:challengeResponses:RespondToAuthChallenge' :: Maybe (HashMap Text Text)
challengeResponses = forall a. Maybe a
Prelude.Nothing,
$sel:clientMetadata:RespondToAuthChallenge' :: Maybe (HashMap Text Text)
clientMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:session:RespondToAuthChallenge' :: Maybe Text
session = forall a. Maybe a
Prelude.Nothing,
$sel:userContextData:RespondToAuthChallenge' :: Maybe UserContextDataType
userContextData = forall a. Maybe a
Prelude.Nothing,
$sel:clientId:RespondToAuthChallenge' :: Sensitive Text
clientId = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pClientId_,
$sel:challengeName:RespondToAuthChallenge' :: ChallengeNameType
challengeName = ChallengeNameType
pChallengeName_
}
respondToAuthChallenge_analyticsMetadata :: Lens.Lens' RespondToAuthChallenge (Prelude.Maybe AnalyticsMetadataType)
respondToAuthChallenge_analyticsMetadata :: Lens' RespondToAuthChallenge (Maybe AnalyticsMetadataType)
respondToAuthChallenge_analyticsMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {Maybe AnalyticsMetadataType
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:analyticsMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe AnalyticsMetadataType
analyticsMetadata} -> Maybe AnalyticsMetadataType
analyticsMetadata) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} Maybe AnalyticsMetadataType
a -> RespondToAuthChallenge
s {$sel:analyticsMetadata:RespondToAuthChallenge' :: Maybe AnalyticsMetadataType
analyticsMetadata = Maybe AnalyticsMetadataType
a} :: RespondToAuthChallenge)
respondToAuthChallenge_challengeResponses :: Lens.Lens' RespondToAuthChallenge (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
respondToAuthChallenge_challengeResponses :: Lens' RespondToAuthChallenge (Maybe (HashMap Text Text))
respondToAuthChallenge_challengeResponses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {Maybe (HashMap Text Text)
challengeResponses :: Maybe (HashMap Text Text)
$sel:challengeResponses:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
challengeResponses} -> Maybe (HashMap Text Text)
challengeResponses) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} Maybe (HashMap Text Text)
a -> RespondToAuthChallenge
s {$sel:challengeResponses:RespondToAuthChallenge' :: Maybe (HashMap Text Text)
challengeResponses = Maybe (HashMap Text Text)
a} :: RespondToAuthChallenge) 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
respondToAuthChallenge_clientMetadata :: Lens.Lens' RespondToAuthChallenge (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
respondToAuthChallenge_clientMetadata :: Lens' RespondToAuthChallenge (Maybe (HashMap Text Text))
respondToAuthChallenge_clientMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {Maybe (HashMap Text Text)
clientMetadata :: Maybe (HashMap Text Text)
$sel:clientMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
clientMetadata} -> Maybe (HashMap Text Text)
clientMetadata) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} Maybe (HashMap Text Text)
a -> RespondToAuthChallenge
s {$sel:clientMetadata:RespondToAuthChallenge' :: Maybe (HashMap Text Text)
clientMetadata = Maybe (HashMap Text Text)
a} :: RespondToAuthChallenge) 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
respondToAuthChallenge_session :: Lens.Lens' RespondToAuthChallenge (Prelude.Maybe Prelude.Text)
respondToAuthChallenge_session :: Lens' RespondToAuthChallenge (Maybe Text)
respondToAuthChallenge_session = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {Maybe Text
session :: Maybe Text
$sel:session:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe Text
session} -> Maybe Text
session) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} Maybe Text
a -> RespondToAuthChallenge
s {$sel:session:RespondToAuthChallenge' :: Maybe Text
session = Maybe Text
a} :: RespondToAuthChallenge)
respondToAuthChallenge_userContextData :: Lens.Lens' RespondToAuthChallenge (Prelude.Maybe UserContextDataType)
respondToAuthChallenge_userContextData :: Lens' RespondToAuthChallenge (Maybe UserContextDataType)
respondToAuthChallenge_userContextData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {Maybe UserContextDataType
userContextData :: Maybe UserContextDataType
$sel:userContextData:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe UserContextDataType
userContextData} -> Maybe UserContextDataType
userContextData) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} Maybe UserContextDataType
a -> RespondToAuthChallenge
s {$sel:userContextData:RespondToAuthChallenge' :: Maybe UserContextDataType
userContextData = Maybe UserContextDataType
a} :: RespondToAuthChallenge)
respondToAuthChallenge_clientId :: Lens.Lens' RespondToAuthChallenge Prelude.Text
respondToAuthChallenge_clientId :: Lens' RespondToAuthChallenge Text
respondToAuthChallenge_clientId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {Sensitive Text
clientId :: Sensitive Text
$sel:clientId:RespondToAuthChallenge' :: RespondToAuthChallenge -> Sensitive Text
clientId} -> Sensitive Text
clientId) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} Sensitive Text
a -> RespondToAuthChallenge
s {$sel:clientId:RespondToAuthChallenge' :: Sensitive Text
clientId = Sensitive Text
a} :: RespondToAuthChallenge) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
respondToAuthChallenge_challengeName :: Lens.Lens' RespondToAuthChallenge ChallengeNameType
respondToAuthChallenge_challengeName :: Lens' RespondToAuthChallenge ChallengeNameType
respondToAuthChallenge_challengeName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallenge' {ChallengeNameType
challengeName :: ChallengeNameType
$sel:challengeName:RespondToAuthChallenge' :: RespondToAuthChallenge -> ChallengeNameType
challengeName} -> ChallengeNameType
challengeName) (\s :: RespondToAuthChallenge
s@RespondToAuthChallenge' {} ChallengeNameType
a -> RespondToAuthChallenge
s {$sel:challengeName:RespondToAuthChallenge' :: ChallengeNameType
challengeName = ChallengeNameType
a} :: RespondToAuthChallenge)
instance Core.AWSRequest RespondToAuthChallenge where
type
AWSResponse RespondToAuthChallenge =
RespondToAuthChallengeResponse
request :: (Service -> Service)
-> RespondToAuthChallenge -> Request RespondToAuthChallenge
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 RespondToAuthChallenge
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RespondToAuthChallenge)))
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 AuthenticationResultType
-> Maybe ChallengeNameType
-> Maybe (HashMap Text Text)
-> Maybe Text
-> Int
-> RespondToAuthChallengeResponse
RespondToAuthChallengeResponse'
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
"AuthenticationResult")
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
"ChallengeName")
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
"ChallengeParameters"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
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
"Session")
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 RespondToAuthChallenge where
hashWithSalt :: Int -> RespondToAuthChallenge -> Int
hashWithSalt Int
_salt RespondToAuthChallenge' {Maybe Text
Maybe (HashMap Text Text)
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
ChallengeNameType
challengeName :: ChallengeNameType
clientId :: Sensitive Text
userContextData :: Maybe UserContextDataType
session :: Maybe Text
clientMetadata :: Maybe (HashMap Text Text)
challengeResponses :: Maybe (HashMap Text Text)
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:challengeName:RespondToAuthChallenge' :: RespondToAuthChallenge -> ChallengeNameType
$sel:clientId:RespondToAuthChallenge' :: RespondToAuthChallenge -> Sensitive Text
$sel:userContextData:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe UserContextDataType
$sel:session:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe Text
$sel:clientMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
$sel:challengeResponses:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
$sel:analyticsMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe AnalyticsMetadataType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AnalyticsMetadataType
analyticsMetadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
challengeResponses
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
clientMetadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
session
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UserContextDataType
userContextData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
clientId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ChallengeNameType
challengeName
instance Prelude.NFData RespondToAuthChallenge where
rnf :: RespondToAuthChallenge -> ()
rnf RespondToAuthChallenge' {Maybe Text
Maybe (HashMap Text Text)
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
ChallengeNameType
challengeName :: ChallengeNameType
clientId :: Sensitive Text
userContextData :: Maybe UserContextDataType
session :: Maybe Text
clientMetadata :: Maybe (HashMap Text Text)
challengeResponses :: Maybe (HashMap Text Text)
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:challengeName:RespondToAuthChallenge' :: RespondToAuthChallenge -> ChallengeNameType
$sel:clientId:RespondToAuthChallenge' :: RespondToAuthChallenge -> Sensitive Text
$sel:userContextData:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe UserContextDataType
$sel:session:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe Text
$sel:clientMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
$sel:challengeResponses:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
$sel:analyticsMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe AnalyticsMetadataType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AnalyticsMetadataType
analyticsMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
challengeResponses
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Text
session
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UserContextDataType
userContextData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
clientId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ChallengeNameType
challengeName
instance Data.ToHeaders RespondToAuthChallenge where
toHeaders :: RespondToAuthChallenge -> 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.RespondToAuthChallenge" ::
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 RespondToAuthChallenge where
toJSON :: RespondToAuthChallenge -> Value
toJSON RespondToAuthChallenge' {Maybe Text
Maybe (HashMap Text Text)
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
ChallengeNameType
challengeName :: ChallengeNameType
clientId :: Sensitive Text
userContextData :: Maybe UserContextDataType
session :: Maybe Text
clientMetadata :: Maybe (HashMap Text Text)
challengeResponses :: Maybe (HashMap Text Text)
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:challengeName:RespondToAuthChallenge' :: RespondToAuthChallenge -> ChallengeNameType
$sel:clientId:RespondToAuthChallenge' :: RespondToAuthChallenge -> Sensitive Text
$sel:userContextData:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe UserContextDataType
$sel:session:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe Text
$sel:clientMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
$sel:challengeResponses:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe (HashMap Text Text)
$sel:analyticsMetadata:RespondToAuthChallenge' :: RespondToAuthChallenge -> Maybe AnalyticsMetadataType
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AnalyticsMetadata" 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 AnalyticsMetadataType
analyticsMetadata,
(Key
"ChallengeResponses" 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)
challengeResponses,
(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
"Session" 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 Text
session,
(Key
"UserContextData" 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 UserContextDataType
userContextData,
forall a. a -> Maybe a
Prelude.Just (Key
"ClientId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
clientId),
forall a. a -> Maybe a
Prelude.Just
(Key
"ChallengeName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ChallengeNameType
challengeName)
]
)
instance Data.ToPath RespondToAuthChallenge where
toPath :: RespondToAuthChallenge -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RespondToAuthChallenge where
toQuery :: RespondToAuthChallenge -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RespondToAuthChallengeResponse = RespondToAuthChallengeResponse'
{
RespondToAuthChallengeResponse -> Maybe AuthenticationResultType
authenticationResult :: Prelude.Maybe AuthenticationResultType,
RespondToAuthChallengeResponse -> Maybe ChallengeNameType
challengeName :: Prelude.Maybe ChallengeNameType,
RespondToAuthChallengeResponse -> Maybe (HashMap Text Text)
challengeParameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
RespondToAuthChallengeResponse -> Maybe Text
session :: Prelude.Maybe Prelude.Text,
RespondToAuthChallengeResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RespondToAuthChallengeResponse
-> RespondToAuthChallengeResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RespondToAuthChallengeResponse
-> RespondToAuthChallengeResponse -> Bool
$c/= :: RespondToAuthChallengeResponse
-> RespondToAuthChallengeResponse -> Bool
== :: RespondToAuthChallengeResponse
-> RespondToAuthChallengeResponse -> Bool
$c== :: RespondToAuthChallengeResponse
-> RespondToAuthChallengeResponse -> Bool
Prelude.Eq, Int -> RespondToAuthChallengeResponse -> ShowS
[RespondToAuthChallengeResponse] -> ShowS
RespondToAuthChallengeResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RespondToAuthChallengeResponse] -> ShowS
$cshowList :: [RespondToAuthChallengeResponse] -> ShowS
show :: RespondToAuthChallengeResponse -> String
$cshow :: RespondToAuthChallengeResponse -> String
showsPrec :: Int -> RespondToAuthChallengeResponse -> ShowS
$cshowsPrec :: Int -> RespondToAuthChallengeResponse -> ShowS
Prelude.Show, forall x.
Rep RespondToAuthChallengeResponse x
-> RespondToAuthChallengeResponse
forall x.
RespondToAuthChallengeResponse
-> Rep RespondToAuthChallengeResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RespondToAuthChallengeResponse x
-> RespondToAuthChallengeResponse
$cfrom :: forall x.
RespondToAuthChallengeResponse
-> Rep RespondToAuthChallengeResponse x
Prelude.Generic)
newRespondToAuthChallengeResponse ::
Prelude.Int ->
RespondToAuthChallengeResponse
newRespondToAuthChallengeResponse :: Int -> RespondToAuthChallengeResponse
newRespondToAuthChallengeResponse Int
pHttpStatus_ =
RespondToAuthChallengeResponse'
{ $sel:authenticationResult:RespondToAuthChallengeResponse' :: Maybe AuthenticationResultType
authenticationResult =
forall a. Maybe a
Prelude.Nothing,
$sel:challengeName:RespondToAuthChallengeResponse' :: Maybe ChallengeNameType
challengeName = forall a. Maybe a
Prelude.Nothing,
$sel:challengeParameters:RespondToAuthChallengeResponse' :: Maybe (HashMap Text Text)
challengeParameters = forall a. Maybe a
Prelude.Nothing,
$sel:session:RespondToAuthChallengeResponse' :: Maybe Text
session = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RespondToAuthChallengeResponse' :: Int
httpStatus = Int
pHttpStatus_
}
respondToAuthChallengeResponse_authenticationResult :: Lens.Lens' RespondToAuthChallengeResponse (Prelude.Maybe AuthenticationResultType)
respondToAuthChallengeResponse_authenticationResult :: Lens'
RespondToAuthChallengeResponse (Maybe AuthenticationResultType)
respondToAuthChallengeResponse_authenticationResult = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallengeResponse' {Maybe AuthenticationResultType
authenticationResult :: Maybe AuthenticationResultType
$sel:authenticationResult:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe AuthenticationResultType
authenticationResult} -> Maybe AuthenticationResultType
authenticationResult) (\s :: RespondToAuthChallengeResponse
s@RespondToAuthChallengeResponse' {} Maybe AuthenticationResultType
a -> RespondToAuthChallengeResponse
s {$sel:authenticationResult:RespondToAuthChallengeResponse' :: Maybe AuthenticationResultType
authenticationResult = Maybe AuthenticationResultType
a} :: RespondToAuthChallengeResponse)
respondToAuthChallengeResponse_challengeName :: Lens.Lens' RespondToAuthChallengeResponse (Prelude.Maybe ChallengeNameType)
respondToAuthChallengeResponse_challengeName :: Lens' RespondToAuthChallengeResponse (Maybe ChallengeNameType)
respondToAuthChallengeResponse_challengeName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallengeResponse' {Maybe ChallengeNameType
challengeName :: Maybe ChallengeNameType
$sel:challengeName:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe ChallengeNameType
challengeName} -> Maybe ChallengeNameType
challengeName) (\s :: RespondToAuthChallengeResponse
s@RespondToAuthChallengeResponse' {} Maybe ChallengeNameType
a -> RespondToAuthChallengeResponse
s {$sel:challengeName:RespondToAuthChallengeResponse' :: Maybe ChallengeNameType
challengeName = Maybe ChallengeNameType
a} :: RespondToAuthChallengeResponse)
respondToAuthChallengeResponse_challengeParameters :: Lens.Lens' RespondToAuthChallengeResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
respondToAuthChallengeResponse_challengeParameters :: Lens' RespondToAuthChallengeResponse (Maybe (HashMap Text Text))
respondToAuthChallengeResponse_challengeParameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallengeResponse' {Maybe (HashMap Text Text)
challengeParameters :: Maybe (HashMap Text Text)
$sel:challengeParameters:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe (HashMap Text Text)
challengeParameters} -> Maybe (HashMap Text Text)
challengeParameters) (\s :: RespondToAuthChallengeResponse
s@RespondToAuthChallengeResponse' {} Maybe (HashMap Text Text)
a -> RespondToAuthChallengeResponse
s {$sel:challengeParameters:RespondToAuthChallengeResponse' :: Maybe (HashMap Text Text)
challengeParameters = Maybe (HashMap Text Text)
a} :: RespondToAuthChallengeResponse) 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
respondToAuthChallengeResponse_session :: Lens.Lens' RespondToAuthChallengeResponse (Prelude.Maybe Prelude.Text)
respondToAuthChallengeResponse_session :: Lens' RespondToAuthChallengeResponse (Maybe Text)
respondToAuthChallengeResponse_session = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallengeResponse' {Maybe Text
session :: Maybe Text
$sel:session:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe Text
session} -> Maybe Text
session) (\s :: RespondToAuthChallengeResponse
s@RespondToAuthChallengeResponse' {} Maybe Text
a -> RespondToAuthChallengeResponse
s {$sel:session:RespondToAuthChallengeResponse' :: Maybe Text
session = Maybe Text
a} :: RespondToAuthChallengeResponse)
respondToAuthChallengeResponse_httpStatus :: Lens.Lens' RespondToAuthChallengeResponse Prelude.Int
respondToAuthChallengeResponse_httpStatus :: Lens' RespondToAuthChallengeResponse Int
respondToAuthChallengeResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RespondToAuthChallengeResponse' {Int
httpStatus :: Int
$sel:httpStatus:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RespondToAuthChallengeResponse
s@RespondToAuthChallengeResponse' {} Int
a -> RespondToAuthChallengeResponse
s {$sel:httpStatus:RespondToAuthChallengeResponse' :: Int
httpStatus = Int
a} :: RespondToAuthChallengeResponse)
instance
Prelude.NFData
RespondToAuthChallengeResponse
where
rnf :: RespondToAuthChallengeResponse -> ()
rnf RespondToAuthChallengeResponse' {Int
Maybe Text
Maybe (HashMap Text Text)
Maybe ChallengeNameType
Maybe AuthenticationResultType
httpStatus :: Int
session :: Maybe Text
challengeParameters :: Maybe (HashMap Text Text)
challengeName :: Maybe ChallengeNameType
authenticationResult :: Maybe AuthenticationResultType
$sel:httpStatus:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Int
$sel:session:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe Text
$sel:challengeParameters:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe (HashMap Text Text)
$sel:challengeName:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe ChallengeNameType
$sel:authenticationResult:RespondToAuthChallengeResponse' :: RespondToAuthChallengeResponse -> Maybe AuthenticationResultType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AuthenticationResultType
authenticationResult
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ChallengeNameType
challengeName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
challengeParameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
session
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus