{-# 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.STS.AssumeRoleWithSAML
(
AssumeRoleWithSAML (..),
newAssumeRoleWithSAML,
assumeRoleWithSAML_durationSeconds,
assumeRoleWithSAML_policy,
assumeRoleWithSAML_policyArns,
assumeRoleWithSAML_roleArn,
assumeRoleWithSAML_principalArn,
assumeRoleWithSAML_sAMLAssertion,
AssumeRoleWithSAMLResponse (..),
newAssumeRoleWithSAMLResponse,
assumeRoleWithSAMLResponse_assumedRoleUser,
assumeRoleWithSAMLResponse_audience,
assumeRoleWithSAMLResponse_credentials,
assumeRoleWithSAMLResponse_issuer,
assumeRoleWithSAMLResponse_nameQualifier,
assumeRoleWithSAMLResponse_packedPolicySize,
assumeRoleWithSAMLResponse_sourceIdentity,
assumeRoleWithSAMLResponse_subject,
assumeRoleWithSAMLResponse_subjectType,
assumeRoleWithSAMLResponse_httpStatus,
)
where
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
import Amazonka.STS.Types
data AssumeRoleWithSAML = AssumeRoleWithSAML'
{
AssumeRoleWithSAML -> Maybe Natural
durationSeconds :: Prelude.Maybe Prelude.Natural,
AssumeRoleWithSAML -> Maybe Text
policy :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAML -> Maybe [PolicyDescriptorType]
policyArns :: Prelude.Maybe [PolicyDescriptorType],
AssumeRoleWithSAML -> Text
roleArn :: Prelude.Text,
AssumeRoleWithSAML -> Text
principalArn :: Prelude.Text,
AssumeRoleWithSAML -> Text
sAMLAssertion :: Prelude.Text
}
deriving (AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool
(AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool)
-> (AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool)
-> Eq AssumeRoleWithSAML
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool
== :: AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool
$c/= :: AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool
/= :: AssumeRoleWithSAML -> AssumeRoleWithSAML -> Bool
Prelude.Eq, ReadPrec [AssumeRoleWithSAML]
ReadPrec AssumeRoleWithSAML
Int -> ReadS AssumeRoleWithSAML
ReadS [AssumeRoleWithSAML]
(Int -> ReadS AssumeRoleWithSAML)
-> ReadS [AssumeRoleWithSAML]
-> ReadPrec AssumeRoleWithSAML
-> ReadPrec [AssumeRoleWithSAML]
-> Read AssumeRoleWithSAML
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS AssumeRoleWithSAML
readsPrec :: Int -> ReadS AssumeRoleWithSAML
$creadList :: ReadS [AssumeRoleWithSAML]
readList :: ReadS [AssumeRoleWithSAML]
$creadPrec :: ReadPrec AssumeRoleWithSAML
readPrec :: ReadPrec AssumeRoleWithSAML
$creadListPrec :: ReadPrec [AssumeRoleWithSAML]
readListPrec :: ReadPrec [AssumeRoleWithSAML]
Prelude.Read, Int -> AssumeRoleWithSAML -> ShowS
[AssumeRoleWithSAML] -> ShowS
AssumeRoleWithSAML -> String
(Int -> AssumeRoleWithSAML -> ShowS)
-> (AssumeRoleWithSAML -> String)
-> ([AssumeRoleWithSAML] -> ShowS)
-> Show AssumeRoleWithSAML
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AssumeRoleWithSAML -> ShowS
showsPrec :: Int -> AssumeRoleWithSAML -> ShowS
$cshow :: AssumeRoleWithSAML -> String
show :: AssumeRoleWithSAML -> String
$cshowList :: [AssumeRoleWithSAML] -> ShowS
showList :: [AssumeRoleWithSAML] -> ShowS
Prelude.Show, (forall x. AssumeRoleWithSAML -> Rep AssumeRoleWithSAML x)
-> (forall x. Rep AssumeRoleWithSAML x -> AssumeRoleWithSAML)
-> Generic AssumeRoleWithSAML
forall x. Rep AssumeRoleWithSAML x -> AssumeRoleWithSAML
forall x. AssumeRoleWithSAML -> Rep AssumeRoleWithSAML x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. AssumeRoleWithSAML -> Rep AssumeRoleWithSAML x
from :: forall x. AssumeRoleWithSAML -> Rep AssumeRoleWithSAML x
$cto :: forall x. Rep AssumeRoleWithSAML x -> AssumeRoleWithSAML
to :: forall x. Rep AssumeRoleWithSAML x -> AssumeRoleWithSAML
Prelude.Generic)
newAssumeRoleWithSAML ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
AssumeRoleWithSAML
newAssumeRoleWithSAML :: Text -> Text -> Text -> AssumeRoleWithSAML
newAssumeRoleWithSAML
Text
pRoleArn_
Text
pPrincipalArn_
Text
pSAMLAssertion_ =
AssumeRoleWithSAML'
{ $sel:durationSeconds:AssumeRoleWithSAML' :: Maybe Natural
durationSeconds =
Maybe Natural
forall a. Maybe a
Prelude.Nothing,
$sel:policy:AssumeRoleWithSAML' :: Maybe Text
policy = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:policyArns:AssumeRoleWithSAML' :: Maybe [PolicyDescriptorType]
policyArns = Maybe [PolicyDescriptorType]
forall a. Maybe a
Prelude.Nothing,
$sel:roleArn:AssumeRoleWithSAML' :: Text
roleArn = Text
pRoleArn_,
$sel:principalArn:AssumeRoleWithSAML' :: Text
principalArn = Text
pPrincipalArn_,
$sel:sAMLAssertion:AssumeRoleWithSAML' :: Text
sAMLAssertion = Text
pSAMLAssertion_
}
assumeRoleWithSAML_durationSeconds :: Lens.Lens' AssumeRoleWithSAML (Prelude.Maybe Prelude.Natural)
assumeRoleWithSAML_durationSeconds :: Lens' AssumeRoleWithSAML (Maybe Natural)
assumeRoleWithSAML_durationSeconds = (AssumeRoleWithSAML -> Maybe Natural)
-> (AssumeRoleWithSAML -> Maybe Natural -> AssumeRoleWithSAML)
-> Lens' AssumeRoleWithSAML (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAML' {Maybe Natural
$sel:durationSeconds:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Natural
durationSeconds :: Maybe Natural
durationSeconds} -> Maybe Natural
durationSeconds) (\s :: AssumeRoleWithSAML
s@AssumeRoleWithSAML' {} Maybe Natural
a -> AssumeRoleWithSAML
s {durationSeconds = a} :: AssumeRoleWithSAML)
assumeRoleWithSAML_policy :: Lens.Lens' AssumeRoleWithSAML (Prelude.Maybe Prelude.Text)
assumeRoleWithSAML_policy :: Lens' AssumeRoleWithSAML (Maybe Text)
assumeRoleWithSAML_policy = (AssumeRoleWithSAML -> Maybe Text)
-> (AssumeRoleWithSAML -> Maybe Text -> AssumeRoleWithSAML)
-> Lens' AssumeRoleWithSAML (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAML' {Maybe Text
$sel:policy:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Text
policy :: Maybe Text
policy} -> Maybe Text
policy) (\s :: AssumeRoleWithSAML
s@AssumeRoleWithSAML' {} Maybe Text
a -> AssumeRoleWithSAML
s {policy = a} :: AssumeRoleWithSAML)
assumeRoleWithSAML_policyArns :: Lens.Lens' AssumeRoleWithSAML (Prelude.Maybe [PolicyDescriptorType])
assumeRoleWithSAML_policyArns :: Lens' AssumeRoleWithSAML (Maybe [PolicyDescriptorType])
assumeRoleWithSAML_policyArns = (AssumeRoleWithSAML -> Maybe [PolicyDescriptorType])
-> (AssumeRoleWithSAML
-> Maybe [PolicyDescriptorType] -> AssumeRoleWithSAML)
-> Lens' AssumeRoleWithSAML (Maybe [PolicyDescriptorType])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAML' {Maybe [PolicyDescriptorType]
$sel:policyArns:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe [PolicyDescriptorType]
policyArns :: Maybe [PolicyDescriptorType]
policyArns} -> Maybe [PolicyDescriptorType]
policyArns) (\s :: AssumeRoleWithSAML
s@AssumeRoleWithSAML' {} Maybe [PolicyDescriptorType]
a -> AssumeRoleWithSAML
s {policyArns = a} :: AssumeRoleWithSAML) ((Maybe [PolicyDescriptorType] -> f (Maybe [PolicyDescriptorType]))
-> AssumeRoleWithSAML -> f AssumeRoleWithSAML)
-> ((Maybe [PolicyDescriptorType]
-> f (Maybe [PolicyDescriptorType]))
-> Maybe [PolicyDescriptorType]
-> f (Maybe [PolicyDescriptorType]))
-> (Maybe [PolicyDescriptorType]
-> f (Maybe [PolicyDescriptorType]))
-> AssumeRoleWithSAML
-> f AssumeRoleWithSAML
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[PolicyDescriptorType]
[PolicyDescriptorType]
[PolicyDescriptorType]
[PolicyDescriptorType]
-> Iso
(Maybe [PolicyDescriptorType])
(Maybe [PolicyDescriptorType])
(Maybe [PolicyDescriptorType])
(Maybe [PolicyDescriptorType])
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 AnIso
[PolicyDescriptorType]
[PolicyDescriptorType]
[PolicyDescriptorType]
[PolicyDescriptorType]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso
[PolicyDescriptorType]
[PolicyDescriptorType]
[PolicyDescriptorType]
[PolicyDescriptorType]
Lens.coerced
assumeRoleWithSAML_roleArn :: Lens.Lens' AssumeRoleWithSAML Prelude.Text
assumeRoleWithSAML_roleArn :: Lens' AssumeRoleWithSAML Text
assumeRoleWithSAML_roleArn = (AssumeRoleWithSAML -> Text)
-> (AssumeRoleWithSAML -> Text -> AssumeRoleWithSAML)
-> Lens' AssumeRoleWithSAML Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAML' {Text
$sel:roleArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
roleArn :: Text
roleArn} -> Text
roleArn) (\s :: AssumeRoleWithSAML
s@AssumeRoleWithSAML' {} Text
a -> AssumeRoleWithSAML
s {roleArn = a} :: AssumeRoleWithSAML)
assumeRoleWithSAML_principalArn :: Lens.Lens' AssumeRoleWithSAML Prelude.Text
assumeRoleWithSAML_principalArn :: Lens' AssumeRoleWithSAML Text
assumeRoleWithSAML_principalArn = (AssumeRoleWithSAML -> Text)
-> (AssumeRoleWithSAML -> Text -> AssumeRoleWithSAML)
-> Lens' AssumeRoleWithSAML Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAML' {Text
$sel:principalArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
principalArn :: Text
principalArn} -> Text
principalArn) (\s :: AssumeRoleWithSAML
s@AssumeRoleWithSAML' {} Text
a -> AssumeRoleWithSAML
s {principalArn = a} :: AssumeRoleWithSAML)
assumeRoleWithSAML_sAMLAssertion :: Lens.Lens' AssumeRoleWithSAML Prelude.Text
assumeRoleWithSAML_sAMLAssertion :: Lens' AssumeRoleWithSAML Text
assumeRoleWithSAML_sAMLAssertion = (AssumeRoleWithSAML -> Text)
-> (AssumeRoleWithSAML -> Text -> AssumeRoleWithSAML)
-> Lens' AssumeRoleWithSAML Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAML' {Text
$sel:sAMLAssertion:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
sAMLAssertion :: Text
sAMLAssertion} -> Text
sAMLAssertion) (\s :: AssumeRoleWithSAML
s@AssumeRoleWithSAML' {} Text
a -> AssumeRoleWithSAML
s {sAMLAssertion = a} :: AssumeRoleWithSAML)
instance Core.AWSRequest AssumeRoleWithSAML where
type
AWSResponse AssumeRoleWithSAML =
AssumeRoleWithSAMLResponse
request :: (Service -> Service)
-> AssumeRoleWithSAML -> Request AssumeRoleWithSAML
request Service -> Service
overrides =
Service -> AssumeRoleWithSAML -> Request AssumeRoleWithSAML
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AssumeRoleWithSAML
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AssumeRoleWithSAML)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse AssumeRoleWithSAML))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AssumeRoleWithSAML
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AssumeRoleWithSAML)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"AssumeRoleWithSAMLResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe AssumedRoleUser
-> Maybe Text
-> Maybe AuthEnv
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse
AssumeRoleWithSAMLResponse'
(Maybe AssumedRoleUser
-> Maybe Text
-> Maybe AuthEnv
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
-> Either String (Maybe AssumedRoleUser)
-> Either
String
(Maybe Text
-> Maybe AuthEnv
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x [Node] -> Text -> Either String (Maybe AssumedRoleUser)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"AssumedRoleUser")
Either
String
(Maybe Text
-> Maybe AuthEnv
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe AuthEnv
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Audience")
Either
String
(Maybe AuthEnv
-> Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
-> Either String (Maybe AuthEnv)
-> Either
String
(Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe AuthEnv)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Credentials")
Either
String
(Maybe Text
-> Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Issuer")
Either
String
(Maybe Text
-> Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NameQualifier")
Either
String
(Maybe Natural
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Natural)
-> Either
String
(Maybe Text
-> Maybe Text -> Maybe Text -> Int -> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Natural)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PackedPolicySize")
Either
String
(Maybe Text
-> Maybe Text -> Maybe Text -> Int -> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text -> Maybe Text -> Int -> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"SourceIdentity")
Either
String
(Maybe Text -> Maybe Text -> Int -> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Text)
-> Either String (Maybe Text -> Int -> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Subject")
Either String (Maybe Text -> Int -> AssumeRoleWithSAMLResponse)
-> Either String (Maybe Text)
-> Either String (Int -> AssumeRoleWithSAMLResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"SubjectType")
Either String (Int -> AssumeRoleWithSAMLResponse)
-> Either String Int -> Either String AssumeRoleWithSAMLResponse
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall a. a -> Either String a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable AssumeRoleWithSAML where
hashWithSalt :: Int -> AssumeRoleWithSAML -> Int
hashWithSalt Int
_salt AssumeRoleWithSAML' {Maybe Natural
Maybe [PolicyDescriptorType]
Maybe Text
Text
$sel:durationSeconds:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Natural
$sel:policy:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Text
$sel:policyArns:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe [PolicyDescriptorType]
$sel:roleArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
$sel:principalArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
$sel:sAMLAssertion:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
durationSeconds :: Maybe Natural
policy :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
roleArn :: Text
principalArn :: Text
sAMLAssertion :: Text
..} =
Int
_salt
Int -> Maybe Natural -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
durationSeconds
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
policy
Int -> Maybe [PolicyDescriptorType] -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PolicyDescriptorType]
policyArns
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
principalArn
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sAMLAssertion
instance Prelude.NFData AssumeRoleWithSAML where
rnf :: AssumeRoleWithSAML -> ()
rnf AssumeRoleWithSAML' {Maybe Natural
Maybe [PolicyDescriptorType]
Maybe Text
Text
$sel:durationSeconds:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Natural
$sel:policy:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Text
$sel:policyArns:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe [PolicyDescriptorType]
$sel:roleArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
$sel:principalArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
$sel:sAMLAssertion:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
durationSeconds :: Maybe Natural
policy :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
roleArn :: Text
principalArn :: Text
sAMLAssertion :: Text
..} =
Maybe Natural -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
durationSeconds
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policy
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe [PolicyDescriptorType] -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe [PolicyDescriptorType]
policyArns
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
roleArn
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
principalArn
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
sAMLAssertion
instance Data.ToHeaders AssumeRoleWithSAML where
toHeaders :: AssumeRoleWithSAML -> ResponseHeaders
toHeaders = ResponseHeaders -> AssumeRoleWithSAML -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath AssumeRoleWithSAML where
toPath :: AssumeRoleWithSAML -> ByteString
toPath = ByteString -> AssumeRoleWithSAML -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AssumeRoleWithSAML where
toQuery :: AssumeRoleWithSAML -> QueryString
toQuery AssumeRoleWithSAML' {Maybe Natural
Maybe [PolicyDescriptorType]
Maybe Text
Text
$sel:durationSeconds:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Natural
$sel:policy:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe Text
$sel:policyArns:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Maybe [PolicyDescriptorType]
$sel:roleArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
$sel:principalArn:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
$sel:sAMLAssertion:AssumeRoleWithSAML' :: AssumeRoleWithSAML -> Text
durationSeconds :: Maybe Natural
policy :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
roleArn :: Text
principalArn :: Text
sAMLAssertion :: Text
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"AssumeRoleWithSAML" :: Prelude.ByteString),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2011-06-15" :: Prelude.ByteString),
ByteString
"DurationSeconds" ByteString -> Maybe Natural -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
durationSeconds,
ByteString
"Policy" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
policy,
ByteString
"PolicyArns"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Data.toQuery
(ByteString -> [PolicyDescriptorType] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" ([PolicyDescriptorType] -> QueryString)
-> Maybe [PolicyDescriptorType] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PolicyDescriptorType]
policyArns),
ByteString
"RoleArn" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
roleArn,
ByteString
"PrincipalArn" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
principalArn,
ByteString
"SAMLAssertion" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
sAMLAssertion
]
data AssumeRoleWithSAMLResponse = AssumeRoleWithSAMLResponse'
{
AssumeRoleWithSAMLResponse -> Maybe AssumedRoleUser
assumedRoleUser :: Prelude.Maybe AssumedRoleUser,
AssumeRoleWithSAMLResponse -> Maybe Text
audience :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAMLResponse -> Maybe AuthEnv
credentials :: Prelude.Maybe Core.AuthEnv,
AssumeRoleWithSAMLResponse -> Maybe Text
issuer :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAMLResponse -> Maybe Text
nameQualifier :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAMLResponse -> Maybe Natural
packedPolicySize :: Prelude.Maybe Prelude.Natural,
AssumeRoleWithSAMLResponse -> Maybe Text
sourceIdentity :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAMLResponse -> Maybe Text
subject :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAMLResponse -> Maybe Text
subjectType :: Prelude.Maybe Prelude.Text,
AssumeRoleWithSAMLResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AssumeRoleWithSAMLResponse -> AssumeRoleWithSAMLResponse -> Bool
(AssumeRoleWithSAMLResponse -> AssumeRoleWithSAMLResponse -> Bool)
-> (AssumeRoleWithSAMLResponse
-> AssumeRoleWithSAMLResponse -> Bool)
-> Eq AssumeRoleWithSAMLResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AssumeRoleWithSAMLResponse -> AssumeRoleWithSAMLResponse -> Bool
== :: AssumeRoleWithSAMLResponse -> AssumeRoleWithSAMLResponse -> Bool
$c/= :: AssumeRoleWithSAMLResponse -> AssumeRoleWithSAMLResponse -> Bool
/= :: AssumeRoleWithSAMLResponse -> AssumeRoleWithSAMLResponse -> Bool
Prelude.Eq, Int -> AssumeRoleWithSAMLResponse -> ShowS
[AssumeRoleWithSAMLResponse] -> ShowS
AssumeRoleWithSAMLResponse -> String
(Int -> AssumeRoleWithSAMLResponse -> ShowS)
-> (AssumeRoleWithSAMLResponse -> String)
-> ([AssumeRoleWithSAMLResponse] -> ShowS)
-> Show AssumeRoleWithSAMLResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AssumeRoleWithSAMLResponse -> ShowS
showsPrec :: Int -> AssumeRoleWithSAMLResponse -> ShowS
$cshow :: AssumeRoleWithSAMLResponse -> String
show :: AssumeRoleWithSAMLResponse -> String
$cshowList :: [AssumeRoleWithSAMLResponse] -> ShowS
showList :: [AssumeRoleWithSAMLResponse] -> ShowS
Prelude.Show, (forall x.
AssumeRoleWithSAMLResponse -> Rep AssumeRoleWithSAMLResponse x)
-> (forall x.
Rep AssumeRoleWithSAMLResponse x -> AssumeRoleWithSAMLResponse)
-> Generic AssumeRoleWithSAMLResponse
forall x.
Rep AssumeRoleWithSAMLResponse x -> AssumeRoleWithSAMLResponse
forall x.
AssumeRoleWithSAMLResponse -> Rep AssumeRoleWithSAMLResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
AssumeRoleWithSAMLResponse -> Rep AssumeRoleWithSAMLResponse x
from :: forall x.
AssumeRoleWithSAMLResponse -> Rep AssumeRoleWithSAMLResponse x
$cto :: forall x.
Rep AssumeRoleWithSAMLResponse x -> AssumeRoleWithSAMLResponse
to :: forall x.
Rep AssumeRoleWithSAMLResponse x -> AssumeRoleWithSAMLResponse
Prelude.Generic)
newAssumeRoleWithSAMLResponse ::
Prelude.Int ->
AssumeRoleWithSAMLResponse
newAssumeRoleWithSAMLResponse :: Int -> AssumeRoleWithSAMLResponse
newAssumeRoleWithSAMLResponse Int
pHttpStatus_ =
AssumeRoleWithSAMLResponse'
{ $sel:assumedRoleUser:AssumeRoleWithSAMLResponse' :: Maybe AssumedRoleUser
assumedRoleUser =
Maybe AssumedRoleUser
forall a. Maybe a
Prelude.Nothing,
$sel:audience:AssumeRoleWithSAMLResponse' :: Maybe Text
audience = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:credentials:AssumeRoleWithSAMLResponse' :: Maybe AuthEnv
credentials = Maybe AuthEnv
forall a. Maybe a
Prelude.Nothing,
$sel:issuer:AssumeRoleWithSAMLResponse' :: Maybe Text
issuer = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:nameQualifier:AssumeRoleWithSAMLResponse' :: Maybe Text
nameQualifier = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:packedPolicySize:AssumeRoleWithSAMLResponse' :: Maybe Natural
packedPolicySize = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
$sel:sourceIdentity:AssumeRoleWithSAMLResponse' :: Maybe Text
sourceIdentity = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:subject:AssumeRoleWithSAMLResponse' :: Maybe Text
subject = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:subjectType:AssumeRoleWithSAMLResponse' :: Maybe Text
subjectType = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AssumeRoleWithSAMLResponse' :: Int
httpStatus = Int
pHttpStatus_
}
assumeRoleWithSAMLResponse_assumedRoleUser :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe AssumedRoleUser)
assumeRoleWithSAMLResponse_assumedRoleUser :: Lens' AssumeRoleWithSAMLResponse (Maybe AssumedRoleUser)
assumeRoleWithSAMLResponse_assumedRoleUser = (AssumeRoleWithSAMLResponse -> Maybe AssumedRoleUser)
-> (AssumeRoleWithSAMLResponse
-> Maybe AssumedRoleUser -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe AssumedRoleUser)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe AssumedRoleUser
$sel:assumedRoleUser:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe AssumedRoleUser
assumedRoleUser :: Maybe AssumedRoleUser
assumedRoleUser} -> Maybe AssumedRoleUser
assumedRoleUser) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe AssumedRoleUser
a -> AssumeRoleWithSAMLResponse
s {assumedRoleUser = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_audience :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Text)
assumeRoleWithSAMLResponse_audience :: Lens' AssumeRoleWithSAMLResponse (Maybe Text)
assumeRoleWithSAMLResponse_audience = (AssumeRoleWithSAMLResponse -> Maybe Text)
-> (AssumeRoleWithSAMLResponse
-> Maybe Text -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Text
$sel:audience:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
audience :: Maybe Text
audience} -> Maybe Text
audience) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Text
a -> AssumeRoleWithSAMLResponse
s {audience = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_credentials :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Core.AuthEnv)
assumeRoleWithSAMLResponse_credentials :: Lens' AssumeRoleWithSAMLResponse (Maybe AuthEnv)
assumeRoleWithSAMLResponse_credentials = (AssumeRoleWithSAMLResponse -> Maybe AuthEnv)
-> (AssumeRoleWithSAMLResponse
-> Maybe AuthEnv -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe AuthEnv)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe AuthEnv
$sel:credentials:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe AuthEnv
credentials :: Maybe AuthEnv
credentials} -> Maybe AuthEnv
credentials) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe AuthEnv
a -> AssumeRoleWithSAMLResponse
s {credentials = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_issuer :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Text)
assumeRoleWithSAMLResponse_issuer :: Lens' AssumeRoleWithSAMLResponse (Maybe Text)
assumeRoleWithSAMLResponse_issuer = (AssumeRoleWithSAMLResponse -> Maybe Text)
-> (AssumeRoleWithSAMLResponse
-> Maybe Text -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Text
$sel:issuer:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
issuer :: Maybe Text
issuer} -> Maybe Text
issuer) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Text
a -> AssumeRoleWithSAMLResponse
s {issuer = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_nameQualifier :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Text)
assumeRoleWithSAMLResponse_nameQualifier :: Lens' AssumeRoleWithSAMLResponse (Maybe Text)
assumeRoleWithSAMLResponse_nameQualifier = (AssumeRoleWithSAMLResponse -> Maybe Text)
-> (AssumeRoleWithSAMLResponse
-> Maybe Text -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Text
$sel:nameQualifier:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
nameQualifier :: Maybe Text
nameQualifier} -> Maybe Text
nameQualifier) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Text
a -> AssumeRoleWithSAMLResponse
s {nameQualifier = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_packedPolicySize :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Natural)
assumeRoleWithSAMLResponse_packedPolicySize :: Lens' AssumeRoleWithSAMLResponse (Maybe Natural)
assumeRoleWithSAMLResponse_packedPolicySize = (AssumeRoleWithSAMLResponse -> Maybe Natural)
-> (AssumeRoleWithSAMLResponse
-> Maybe Natural -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Natural
$sel:packedPolicySize:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Natural
packedPolicySize :: Maybe Natural
packedPolicySize} -> Maybe Natural
packedPolicySize) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Natural
a -> AssumeRoleWithSAMLResponse
s {packedPolicySize = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_sourceIdentity :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Text)
assumeRoleWithSAMLResponse_sourceIdentity :: Lens' AssumeRoleWithSAMLResponse (Maybe Text)
assumeRoleWithSAMLResponse_sourceIdentity = (AssumeRoleWithSAMLResponse -> Maybe Text)
-> (AssumeRoleWithSAMLResponse
-> Maybe Text -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Text
$sel:sourceIdentity:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
sourceIdentity :: Maybe Text
sourceIdentity} -> Maybe Text
sourceIdentity) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Text
a -> AssumeRoleWithSAMLResponse
s {sourceIdentity = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_subject :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Text)
assumeRoleWithSAMLResponse_subject :: Lens' AssumeRoleWithSAMLResponse (Maybe Text)
assumeRoleWithSAMLResponse_subject = (AssumeRoleWithSAMLResponse -> Maybe Text)
-> (AssumeRoleWithSAMLResponse
-> Maybe Text -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Text
$sel:subject:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
subject :: Maybe Text
subject} -> Maybe Text
subject) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Text
a -> AssumeRoleWithSAMLResponse
s {subject = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_subjectType :: Lens.Lens' AssumeRoleWithSAMLResponse (Prelude.Maybe Prelude.Text)
assumeRoleWithSAMLResponse_subjectType :: Lens' AssumeRoleWithSAMLResponse (Maybe Text)
assumeRoleWithSAMLResponse_subjectType = (AssumeRoleWithSAMLResponse -> Maybe Text)
-> (AssumeRoleWithSAMLResponse
-> Maybe Text -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Maybe Text
$sel:subjectType:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
subjectType :: Maybe Text
subjectType} -> Maybe Text
subjectType) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Maybe Text
a -> AssumeRoleWithSAMLResponse
s {subjectType = a} :: AssumeRoleWithSAMLResponse)
assumeRoleWithSAMLResponse_httpStatus :: Lens.Lens' AssumeRoleWithSAMLResponse Prelude.Int
assumeRoleWithSAMLResponse_httpStatus :: Lens' AssumeRoleWithSAMLResponse Int
assumeRoleWithSAMLResponse_httpStatus = (AssumeRoleWithSAMLResponse -> Int)
-> (AssumeRoleWithSAMLResponse
-> Int -> AssumeRoleWithSAMLResponse)
-> Lens' AssumeRoleWithSAMLResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleWithSAMLResponse' {Int
$sel:httpStatus:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: AssumeRoleWithSAMLResponse
s@AssumeRoleWithSAMLResponse' {} Int
a -> AssumeRoleWithSAMLResponse
s {httpStatus = a} :: AssumeRoleWithSAMLResponse)
instance Prelude.NFData AssumeRoleWithSAMLResponse where
rnf :: AssumeRoleWithSAMLResponse -> ()
rnf AssumeRoleWithSAMLResponse' {Int
Maybe Natural
Maybe Text
Maybe AuthEnv
Maybe AssumedRoleUser
$sel:assumedRoleUser:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe AssumedRoleUser
$sel:audience:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
$sel:credentials:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe AuthEnv
$sel:issuer:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
$sel:nameQualifier:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
$sel:packedPolicySize:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Natural
$sel:sourceIdentity:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
$sel:subject:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
$sel:subjectType:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Maybe Text
$sel:httpStatus:AssumeRoleWithSAMLResponse' :: AssumeRoleWithSAMLResponse -> Int
assumedRoleUser :: Maybe AssumedRoleUser
audience :: Maybe Text
credentials :: Maybe AuthEnv
issuer :: Maybe Text
nameQualifier :: Maybe Text
packedPolicySize :: Maybe Natural
sourceIdentity :: Maybe Text
subject :: Maybe Text
subjectType :: Maybe Text
httpStatus :: Int
..} =
Maybe AssumedRoleUser -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe AssumedRoleUser
assumedRoleUser
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
audience
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe AuthEnv -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe AuthEnv
credentials
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
issuer
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nameQualifier
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Natural -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
packedPolicySize
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceIdentity
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subject
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subjectType
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus