{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.STS.AssumeRole
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns a set of temporary security credentials that you can use to
-- access Amazon Web Services resources that you might not normally have
-- access to. These temporary credentials consist of an access key ID, a
-- secret access key, and a security token. Typically, you use @AssumeRole@
-- within your account or for cross-account access. For a comparison of
-- @AssumeRole@ with other API operations that produce temporary
-- credentials, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_request.html Requesting Temporary Security Credentials>
-- and
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_request.html#stsapi_comparison Comparing the Amazon Web Services STS API operations>
-- in the /IAM User Guide/.
--
-- __Permissions__
--
-- The temporary security credentials created by @AssumeRole@ can be used
-- to make API calls to any Amazon Web Services service with the following
-- exception: You cannot call the Amazon Web Services STS
-- @GetFederationToken@ or @GetSessionToken@ API operations.
--
-- (Optional) You can pass inline or managed
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session session policies>
-- to this operation. You can pass a single JSON policy document to use as
-- an inline session policy. You can also specify up to 10 managed policy
-- Amazon Resource Names (ARNs) to use as managed session policies. The
-- plaintext that you use for both inline and managed session policies
-- can\'t exceed 2,048 characters. Passing policies to this operation
-- returns new temporary credentials. The resulting session\'s permissions
-- are the intersection of the role\'s identity-based policy and the
-- session policies. You can use the role\'s temporary credentials in
-- subsequent Amazon Web Services API calls to access resources in the
-- account that owns the role. You cannot use session policies to grant
-- more permissions than those allowed by the identity-based policy of the
-- role that is being assumed. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
-- in the /IAM User Guide/.
--
-- When you create a role, you create two policies: A role trust policy
-- that specifies /who/ can assume the role and a permissions policy that
-- specifies /what/ can be done with the role. You specify the trusted
-- principal who is allowed to assume the role in the role trust policy.
--
-- To assume a role from a different account, your Amazon Web Services
-- account must be trusted by the role. The trust relationship is defined
-- in the role\'s trust policy when the role is created. That trust policy
-- states which accounts are allowed to delegate that access to users in
-- the account.
--
-- A user who wants to access a role in a different account must also have
-- permissions that are delegated from the user account administrator. The
-- administrator must attach a policy that allows the user to call
-- @AssumeRole@ for the ARN of the role in the other account.
--
-- To allow a user to assume a role in the same account, you can do either
-- of the following:
--
-- -   Attach a policy to the user that allows the user to call
--     @AssumeRole@ (as long as the role\'s trust policy trusts the
--     account).
--
-- -   Add the user as a principal directly in the role\'s trust policy.
--
-- You can do either because the role’s trust policy acts as an IAM
-- resource-based policy. When a resource-based policy grants access to a
-- principal in the same account, no additional identity-based policy is
-- required. For more information about trust policies and resource-based
-- policies, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html IAM Policies>
-- in the /IAM User Guide/.
--
-- __Tags__
--
-- (Optional) You can pass tag key-value pairs to your session. These tags
-- are called session tags. For more information about session tags, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html Passing Session Tags in STS>
-- in the /IAM User Guide/.
--
-- An administrator must grant you the permissions necessary to pass
-- session tags. The administrator can also create granular permissions to
-- allow you to pass only specific session tags. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/tutorial_attribute-based-access-control.html Tutorial: Using Tags for Attribute-Based Access Control>
-- in the /IAM User Guide/.
--
-- You can set the session tags as transitive. Transitive tags persist
-- during role chaining. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_role-chaining Chaining Roles with Session Tags>
-- in the /IAM User Guide/.
--
-- __Using MFA with AssumeRole__
--
-- (Optional) You can include multi-factor authentication (MFA) information
-- when you call @AssumeRole@. This is useful for cross-account scenarios
-- to ensure that the user that assumes the role has been authenticated
-- with an Amazon Web Services MFA device. In that scenario, the trust
-- policy of the role being assumed includes a condition that tests for MFA
-- authentication. If the caller does not include valid MFA information,
-- the request to assume the role is denied. The condition in a trust
-- policy that tests for MFA authentication might look like the following
-- example.
--
-- @\"Condition\": {\"Bool\": {\"aws:MultiFactorAuthPresent\": true}}@
--
-- For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/MFAProtectedAPI.html Configuring MFA-Protected API Access>
-- in the /IAM User Guide/ guide.
--
-- To use MFA with @AssumeRole@, you pass values for the @SerialNumber@ and
-- @TokenCode@ parameters. The @SerialNumber@ value identifies the user\'s
-- hardware or virtual MFA device. The @TokenCode@ is the time-based
-- one-time password (TOTP) that the MFA device produces.
module Amazonka.STS.AssumeRole
  ( -- * Creating a Request
    AssumeRole (..),
    newAssumeRole,

    -- * Request Lenses
    assumeRole_durationSeconds,
    assumeRole_externalId,
    assumeRole_policy,
    assumeRole_policyArns,
    assumeRole_serialNumber,
    assumeRole_sourceIdentity,
    assumeRole_tags,
    assumeRole_tokenCode,
    assumeRole_transitiveTagKeys,
    assumeRole_roleArn,
    assumeRole_roleSessionName,

    -- * Destructuring the Response
    AssumeRoleResponse (..),
    newAssumeRoleResponse,

    -- * Response Lenses
    assumeRoleResponse_assumedRoleUser,
    assumeRoleResponse_packedPolicySize,
    assumeRoleResponse_sourceIdentity,
    assumeRoleResponse_httpStatus,
    assumeRoleResponse_credentials,
  )
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

-- | /See:/ 'newAssumeRole' smart constructor.
data AssumeRole = AssumeRole'
  { -- | The duration, in seconds, of the role session. The value specified can
    -- range from 900 seconds (15 minutes) up to the maximum session duration
    -- set for the role. The maximum session duration setting can have a value
    -- from 1 hour to 12 hours. If you specify a value higher than this setting
    -- or the administrator setting (whichever is lower), the operation fails.
    -- For example, if you specify a session duration of 12 hours, but your
    -- administrator set the maximum session duration to 6 hours, your
    -- operation fails.
    --
    -- Role chaining limits your Amazon Web Services CLI or Amazon Web Services
    -- API role session to a maximum of one hour. When you use the @AssumeRole@
    -- API operation to assume a role, you can specify the duration of your
    -- role session with the @DurationSeconds@ parameter. You can specify a
    -- parameter value of up to 43200 seconds (12 hours), depending on the
    -- maximum session duration setting for your role. However, if you assume a
    -- role using role chaining and provide a @DurationSeconds@ parameter value
    -- greater than one hour, the operation fails. To learn how to view the
    -- maximum value for your role, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_use.html#id_roles_use_view-role-max-session View the Maximum Session Duration Setting for a Role>
    -- in the /IAM User Guide/.
    --
    -- By default, the value is set to @3600@ seconds.
    --
    -- The @DurationSeconds@ parameter is separate from the duration of a
    -- console session that you might request using the returned credentials.
    -- The request to the federation endpoint for a console sign-in token takes
    -- a @SessionDuration@ parameter that specifies the maximum length of the
    -- console session. For more information, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_providers_enable-console-custom-url.html Creating a URL that Enables Federated Users to Access the Amazon Web Services Management Console>
    -- in the /IAM User Guide/.
    AssumeRole -> Maybe Natural
durationSeconds :: Prelude.Maybe Prelude.Natural,
    -- | A unique identifier that might be required when you assume a role in
    -- another account. If the administrator of the account to which the role
    -- belongs provided you with an external ID, then provide that value in the
    -- @ExternalId@ parameter. This value can be any string, such as a
    -- passphrase or account number. A cross-account role is usually set up to
    -- trust everyone in an account. Therefore, the administrator of the
    -- trusting account might send an external ID to the administrator of the
    -- trusted account. That way, only someone with the ID can assume the role,
    -- rather than everyone in the account. For more information about the
    -- external ID, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_create_for-user_externalid.html How to Use an External ID When Granting Access to Your Amazon Web Services Resources to a Third Party>
    -- in the /IAM User Guide/.
    --
    -- The regex used to validate this parameter is a string of characters
    -- consisting of upper- and lower-case alphanumeric characters with no
    -- spaces. You can also include underscores or any of the following
    -- characters: =,.\@:\/-
    AssumeRole -> Maybe Text
externalId :: Prelude.Maybe Prelude.Text,
    -- | An IAM policy in JSON format that you want to use as an inline session
    -- policy.
    --
    -- This parameter is optional. Passing policies to this operation returns
    -- new temporary credentials. The resulting session\'s permissions are the
    -- intersection of the role\'s identity-based policy and the session
    -- policies. You can use the role\'s temporary credentials in subsequent
    -- Amazon Web Services API calls to access resources in the account that
    -- owns the role. You cannot use session policies to grant more permissions
    -- than those allowed by the identity-based policy of the role that is
    -- being assumed. For more information, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
    -- in the /IAM User Guide/.
    --
    -- The plaintext that you use for both inline and managed session policies
    -- can\'t exceed 2,048 characters. The JSON policy characters can be any
    -- ASCII character from the space character to the end of the valid
    -- character list (\\u0020 through \\u00FF). It can also include the tab
    -- (\\u0009), linefeed (\\u000A), and carriage return (\\u000D) characters.
    --
    -- An Amazon Web Services conversion compresses the passed inline session
    -- policy, managed policy ARNs, and session tags into a packed binary
    -- format that has a separate limit. Your request can fail for this limit
    -- even if your plaintext meets the other requirements. The
    -- @PackedPolicySize@ response element indicates by percentage how close
    -- the policies and tags for your request are to the upper size limit.
    AssumeRole -> Maybe Text
policy :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Resource Names (ARNs) of the IAM managed policies that you
    -- want to use as managed session policies. The policies must exist in the
    -- same account as the role.
    --
    -- This parameter is optional. You can provide up to 10 managed policy
    -- ARNs. However, the plaintext that you use for both inline and managed
    -- session policies can\'t exceed 2,048 characters. For more information
    -- about ARNs, see
    -- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and Amazon Web Services Service Namespaces>
    -- in the Amazon Web Services General Reference.
    --
    -- An Amazon Web Services conversion compresses the passed inline session
    -- policy, managed policy ARNs, and session tags into a packed binary
    -- format that has a separate limit. Your request can fail for this limit
    -- even if your plaintext meets the other requirements. The
    -- @PackedPolicySize@ response element indicates by percentage how close
    -- the policies and tags for your request are to the upper size limit.
    --
    -- Passing policies to this operation returns new temporary credentials.
    -- The resulting session\'s permissions are the intersection of the role\'s
    -- identity-based policy and the session policies. You can use the role\'s
    -- temporary credentials in subsequent Amazon Web Services API calls to
    -- access resources in the account that owns the role. You cannot use
    -- session policies to grant more permissions than those allowed by the
    -- identity-based policy of the role that is being assumed. For more
    -- information, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
    -- in the /IAM User Guide/.
    AssumeRole -> Maybe [PolicyDescriptorType]
policyArns :: Prelude.Maybe [PolicyDescriptorType],
    -- | The identification number of the MFA device that is associated with the
    -- user who is making the @AssumeRole@ call. Specify this value if the
    -- trust policy of the role being assumed includes a condition that
    -- requires MFA authentication. The value is either the serial number for a
    -- hardware device (such as @GAHT12345678@) or an Amazon Resource Name
    -- (ARN) for a virtual device (such as
    -- @arn:aws:iam::123456789012:mfa\/user@).
    --
    -- The regex used to validate this parameter is a string of characters
    -- consisting of upper- and lower-case alphanumeric characters with no
    -- spaces. You can also include underscores or any of the following
    -- characters: =,.\@-
    AssumeRole -> Maybe Text
serialNumber :: Prelude.Maybe Prelude.Text,
    -- | The source identity specified by the principal that is calling the
    -- @AssumeRole@ operation.
    --
    -- You can require users to specify a source identity when they assume a
    -- role. You do this by using the @sts:SourceIdentity@ condition key in a
    -- role trust policy. You can use source identity information in CloudTrail
    -- logs to determine who took actions with a role. You can use the
    -- @aws:SourceIdentity@ condition key to further control access to Amazon
    -- Web Services resources based on the value of source identity. For more
    -- information about using source identity, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_control-access_monitor.html Monitor and control actions taken with assumed roles>
    -- in the /IAM User Guide/.
    --
    -- The regex used to validate this parameter is a string of characters
    -- consisting of upper- and lower-case alphanumeric characters with no
    -- spaces. You can also include underscores or any of the following
    -- characters: =,.\@-. You cannot use a value that begins with the text
    -- @aws:@. This prefix is reserved for Amazon Web Services internal use.
    AssumeRole -> Maybe Text
sourceIdentity :: Prelude.Maybe Prelude.Text,
    -- | A list of session tags that you want to pass. Each session tag consists
    -- of a key name and an associated value. For more information about
    -- session tags, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html Tagging Amazon Web Services STS Sessions>
    -- in the /IAM User Guide/.
    --
    -- This parameter is optional. You can pass up to 50 session tags. The
    -- plaintext session tag keys can’t exceed 128 characters, and the values
    -- can’t exceed 256 characters. For these and additional limits, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_iam-limits.html#reference_iam-limits-entity-length IAM and STS Character Limits>
    -- in the /IAM User Guide/.
    --
    -- An Amazon Web Services conversion compresses the passed inline session
    -- policy, managed policy ARNs, and session tags into a packed binary
    -- format that has a separate limit. Your request can fail for this limit
    -- even if your plaintext meets the other requirements. The
    -- @PackedPolicySize@ response element indicates by percentage how close
    -- the policies and tags for your request are to the upper size limit.
    --
    -- You can pass a session tag with the same key as a tag that is already
    -- attached to the role. When you do, session tags override a role tag with
    -- the same key.
    --
    -- Tag key–value pairs are not case sensitive, but case is preserved. This
    -- means that you cannot have separate @Department@ and @department@ tag
    -- keys. Assume that the role has the @Department@=@Marketing@ tag and you
    -- pass the @department@=@engineering@ session tag. @Department@ and
    -- @department@ are not saved as separate tags, and the session tag passed
    -- in the request takes precedence over the role tag.
    --
    -- Additionally, if you used temporary credentials to perform this
    -- operation, the new session inherits any transitive session tags from the
    -- calling session. If you pass a session tag with the same key as an
    -- inherited tag, the operation fails. To view the inherited tags for a
    -- session, see the CloudTrail logs. For more information, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_ctlogs Viewing Session Tags in CloudTrail>
    -- in the /IAM User Guide/.
    AssumeRole -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | The value provided by the MFA device, if the trust policy of the role
    -- being assumed requires MFA. (In other words, if the policy includes a
    -- condition that tests for MFA). If the role being assumed requires MFA
    -- and if the @TokenCode@ value is missing or expired, the @AssumeRole@
    -- call returns an \"access denied\" error.
    --
    -- The format for this parameter, as described by its regex pattern, is a
    -- sequence of six numeric digits.
    AssumeRole -> Maybe Text
tokenCode :: Prelude.Maybe Prelude.Text,
    -- | A list of keys for session tags that you want to set as transitive. If
    -- you set a tag key as transitive, the corresponding key and value passes
    -- to subsequent sessions in a role chain. For more information, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_role-chaining Chaining Roles with Session Tags>
    -- in the /IAM User Guide/.
    --
    -- This parameter is optional. When you set session tags as transitive, the
    -- session policy and session tags packed binary limit is not affected.
    --
    -- If you choose not to specify a transitive tag key, then no tags are
    -- passed from this session to any subsequent sessions.
    AssumeRole -> Maybe [Text]
transitiveTagKeys :: Prelude.Maybe [Prelude.Text],
    -- | The Amazon Resource Name (ARN) of the role to assume.
    AssumeRole -> Text
roleArn :: Prelude.Text,
    -- | An identifier for the assumed role session.
    --
    -- Use the role session name to uniquely identify a session when the same
    -- role is assumed by different principals or for different reasons. In
    -- cross-account scenarios, the role session name is visible to, and can be
    -- logged by the account that owns the role. The role session name is also
    -- used in the ARN of the assumed role principal. This means that
    -- subsequent cross-account API requests that use the temporary security
    -- credentials will expose the role session name to the external account in
    -- their CloudTrail logs.
    --
    -- The regex used to validate this parameter is a string of characters
    -- consisting of upper- and lower-case alphanumeric characters with no
    -- spaces. You can also include underscores or any of the following
    -- characters: =,.\@-
    AssumeRole -> Text
roleSessionName :: Prelude.Text
  }
  deriving (AssumeRole -> AssumeRole -> Bool
(AssumeRole -> AssumeRole -> Bool)
-> (AssumeRole -> AssumeRole -> Bool) -> Eq AssumeRole
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AssumeRole -> AssumeRole -> Bool
== :: AssumeRole -> AssumeRole -> Bool
$c/= :: AssumeRole -> AssumeRole -> Bool
/= :: AssumeRole -> AssumeRole -> Bool
Prelude.Eq, ReadPrec [AssumeRole]
ReadPrec AssumeRole
Int -> ReadS AssumeRole
ReadS [AssumeRole]
(Int -> ReadS AssumeRole)
-> ReadS [AssumeRole]
-> ReadPrec AssumeRole
-> ReadPrec [AssumeRole]
-> Read AssumeRole
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS AssumeRole
readsPrec :: Int -> ReadS AssumeRole
$creadList :: ReadS [AssumeRole]
readList :: ReadS [AssumeRole]
$creadPrec :: ReadPrec AssumeRole
readPrec :: ReadPrec AssumeRole
$creadListPrec :: ReadPrec [AssumeRole]
readListPrec :: ReadPrec [AssumeRole]
Prelude.Read, Int -> AssumeRole -> ShowS
[AssumeRole] -> ShowS
AssumeRole -> String
(Int -> AssumeRole -> ShowS)
-> (AssumeRole -> String)
-> ([AssumeRole] -> ShowS)
-> Show AssumeRole
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AssumeRole -> ShowS
showsPrec :: Int -> AssumeRole -> ShowS
$cshow :: AssumeRole -> String
show :: AssumeRole -> String
$cshowList :: [AssumeRole] -> ShowS
showList :: [AssumeRole] -> ShowS
Prelude.Show, (forall x. AssumeRole -> Rep AssumeRole x)
-> (forall x. Rep AssumeRole x -> AssumeRole) -> Generic AssumeRole
forall x. Rep AssumeRole x -> AssumeRole
forall x. AssumeRole -> Rep AssumeRole x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. AssumeRole -> Rep AssumeRole x
from :: forall x. AssumeRole -> Rep AssumeRole x
$cto :: forall x. Rep AssumeRole x -> AssumeRole
to :: forall x. Rep AssumeRole x -> AssumeRole
Prelude.Generic)

-- |
-- Create a value of 'AssumeRole' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'durationSeconds', 'assumeRole_durationSeconds' - The duration, in seconds, of the role session. The value specified can
-- range from 900 seconds (15 minutes) up to the maximum session duration
-- set for the role. The maximum session duration setting can have a value
-- from 1 hour to 12 hours. If you specify a value higher than this setting
-- or the administrator setting (whichever is lower), the operation fails.
-- For example, if you specify a session duration of 12 hours, but your
-- administrator set the maximum session duration to 6 hours, your
-- operation fails.
--
-- Role chaining limits your Amazon Web Services CLI or Amazon Web Services
-- API role session to a maximum of one hour. When you use the @AssumeRole@
-- API operation to assume a role, you can specify the duration of your
-- role session with the @DurationSeconds@ parameter. You can specify a
-- parameter value of up to 43200 seconds (12 hours), depending on the
-- maximum session duration setting for your role. However, if you assume a
-- role using role chaining and provide a @DurationSeconds@ parameter value
-- greater than one hour, the operation fails. To learn how to view the
-- maximum value for your role, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_use.html#id_roles_use_view-role-max-session View the Maximum Session Duration Setting for a Role>
-- in the /IAM User Guide/.
--
-- By default, the value is set to @3600@ seconds.
--
-- The @DurationSeconds@ parameter is separate from the duration of a
-- console session that you might request using the returned credentials.
-- The request to the federation endpoint for a console sign-in token takes
-- a @SessionDuration@ parameter that specifies the maximum length of the
-- console session. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_providers_enable-console-custom-url.html Creating a URL that Enables Federated Users to Access the Amazon Web Services Management Console>
-- in the /IAM User Guide/.
--
-- 'externalId', 'assumeRole_externalId' - A unique identifier that might be required when you assume a role in
-- another account. If the administrator of the account to which the role
-- belongs provided you with an external ID, then provide that value in the
-- @ExternalId@ parameter. This value can be any string, such as a
-- passphrase or account number. A cross-account role is usually set up to
-- trust everyone in an account. Therefore, the administrator of the
-- trusting account might send an external ID to the administrator of the
-- trusted account. That way, only someone with the ID can assume the role,
-- rather than everyone in the account. For more information about the
-- external ID, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_create_for-user_externalid.html How to Use an External ID When Granting Access to Your Amazon Web Services Resources to a Third Party>
-- in the /IAM User Guide/.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@:\/-
--
-- 'policy', 'assumeRole_policy' - An IAM policy in JSON format that you want to use as an inline session
-- policy.
--
-- This parameter is optional. Passing policies to this operation returns
-- new temporary credentials. The resulting session\'s permissions are the
-- intersection of the role\'s identity-based policy and the session
-- policies. You can use the role\'s temporary credentials in subsequent
-- Amazon Web Services API calls to access resources in the account that
-- owns the role. You cannot use session policies to grant more permissions
-- than those allowed by the identity-based policy of the role that is
-- being assumed. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
-- in the /IAM User Guide/.
--
-- The plaintext that you use for both inline and managed session policies
-- can\'t exceed 2,048 characters. The JSON policy characters can be any
-- ASCII character from the space character to the end of the valid
-- character list (\\u0020 through \\u00FF). It can also include the tab
-- (\\u0009), linefeed (\\u000A), and carriage return (\\u000D) characters.
--
-- An Amazon Web Services conversion compresses the passed inline session
-- policy, managed policy ARNs, and session tags into a packed binary
-- format that has a separate limit. Your request can fail for this limit
-- even if your plaintext meets the other requirements. The
-- @PackedPolicySize@ response element indicates by percentage how close
-- the policies and tags for your request are to the upper size limit.
--
-- 'policyArns', 'assumeRole_policyArns' - The Amazon Resource Names (ARNs) of the IAM managed policies that you
-- want to use as managed session policies. The policies must exist in the
-- same account as the role.
--
-- This parameter is optional. You can provide up to 10 managed policy
-- ARNs. However, the plaintext that you use for both inline and managed
-- session policies can\'t exceed 2,048 characters. For more information
-- about ARNs, see
-- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and Amazon Web Services Service Namespaces>
-- in the Amazon Web Services General Reference.
--
-- An Amazon Web Services conversion compresses the passed inline session
-- policy, managed policy ARNs, and session tags into a packed binary
-- format that has a separate limit. Your request can fail for this limit
-- even if your plaintext meets the other requirements. The
-- @PackedPolicySize@ response element indicates by percentage how close
-- the policies and tags for your request are to the upper size limit.
--
-- Passing policies to this operation returns new temporary credentials.
-- The resulting session\'s permissions are the intersection of the role\'s
-- identity-based policy and the session policies. You can use the role\'s
-- temporary credentials in subsequent Amazon Web Services API calls to
-- access resources in the account that owns the role. You cannot use
-- session policies to grant more permissions than those allowed by the
-- identity-based policy of the role that is being assumed. For more
-- information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
-- in the /IAM User Guide/.
--
-- 'serialNumber', 'assumeRole_serialNumber' - The identification number of the MFA device that is associated with the
-- user who is making the @AssumeRole@ call. Specify this value if the
-- trust policy of the role being assumed includes a condition that
-- requires MFA authentication. The value is either the serial number for a
-- hardware device (such as @GAHT12345678@) or an Amazon Resource Name
-- (ARN) for a virtual device (such as
-- @arn:aws:iam::123456789012:mfa\/user@).
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-
--
-- 'sourceIdentity', 'assumeRole_sourceIdentity' - The source identity specified by the principal that is calling the
-- @AssumeRole@ operation.
--
-- You can require users to specify a source identity when they assume a
-- role. You do this by using the @sts:SourceIdentity@ condition key in a
-- role trust policy. You can use source identity information in CloudTrail
-- logs to determine who took actions with a role. You can use the
-- @aws:SourceIdentity@ condition key to further control access to Amazon
-- Web Services resources based on the value of source identity. For more
-- information about using source identity, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_control-access_monitor.html Monitor and control actions taken with assumed roles>
-- in the /IAM User Guide/.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-. You cannot use a value that begins with the text
-- @aws:@. This prefix is reserved for Amazon Web Services internal use.
--
-- 'tags', 'assumeRole_tags' - A list of session tags that you want to pass. Each session tag consists
-- of a key name and an associated value. For more information about
-- session tags, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html Tagging Amazon Web Services STS Sessions>
-- in the /IAM User Guide/.
--
-- This parameter is optional. You can pass up to 50 session tags. The
-- plaintext session tag keys can’t exceed 128 characters, and the values
-- can’t exceed 256 characters. For these and additional limits, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_iam-limits.html#reference_iam-limits-entity-length IAM and STS Character Limits>
-- in the /IAM User Guide/.
--
-- An Amazon Web Services conversion compresses the passed inline session
-- policy, managed policy ARNs, and session tags into a packed binary
-- format that has a separate limit. Your request can fail for this limit
-- even if your plaintext meets the other requirements. The
-- @PackedPolicySize@ response element indicates by percentage how close
-- the policies and tags for your request are to the upper size limit.
--
-- You can pass a session tag with the same key as a tag that is already
-- attached to the role. When you do, session tags override a role tag with
-- the same key.
--
-- Tag key–value pairs are not case sensitive, but case is preserved. This
-- means that you cannot have separate @Department@ and @department@ tag
-- keys. Assume that the role has the @Department@=@Marketing@ tag and you
-- pass the @department@=@engineering@ session tag. @Department@ and
-- @department@ are not saved as separate tags, and the session tag passed
-- in the request takes precedence over the role tag.
--
-- Additionally, if you used temporary credentials to perform this
-- operation, the new session inherits any transitive session tags from the
-- calling session. If you pass a session tag with the same key as an
-- inherited tag, the operation fails. To view the inherited tags for a
-- session, see the CloudTrail logs. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_ctlogs Viewing Session Tags in CloudTrail>
-- in the /IAM User Guide/.
--
-- 'tokenCode', 'assumeRole_tokenCode' - The value provided by the MFA device, if the trust policy of the role
-- being assumed requires MFA. (In other words, if the policy includes a
-- condition that tests for MFA). If the role being assumed requires MFA
-- and if the @TokenCode@ value is missing or expired, the @AssumeRole@
-- call returns an \"access denied\" error.
--
-- The format for this parameter, as described by its regex pattern, is a
-- sequence of six numeric digits.
--
-- 'transitiveTagKeys', 'assumeRole_transitiveTagKeys' - A list of keys for session tags that you want to set as transitive. If
-- you set a tag key as transitive, the corresponding key and value passes
-- to subsequent sessions in a role chain. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_role-chaining Chaining Roles with Session Tags>
-- in the /IAM User Guide/.
--
-- This parameter is optional. When you set session tags as transitive, the
-- session policy and session tags packed binary limit is not affected.
--
-- If you choose not to specify a transitive tag key, then no tags are
-- passed from this session to any subsequent sessions.
--
-- 'roleArn', 'assumeRole_roleArn' - The Amazon Resource Name (ARN) of the role to assume.
--
-- 'roleSessionName', 'assumeRole_roleSessionName' - An identifier for the assumed role session.
--
-- Use the role session name to uniquely identify a session when the same
-- role is assumed by different principals or for different reasons. In
-- cross-account scenarios, the role session name is visible to, and can be
-- logged by the account that owns the role. The role session name is also
-- used in the ARN of the assumed role principal. This means that
-- subsequent cross-account API requests that use the temporary security
-- credentials will expose the role session name to the external account in
-- their CloudTrail logs.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-
newAssumeRole ::
  -- | 'roleArn'
  Prelude.Text ->
  -- | 'roleSessionName'
  Prelude.Text ->
  AssumeRole
newAssumeRole :: Text -> Text -> AssumeRole
newAssumeRole Text
pRoleArn_ Text
pRoleSessionName_ =
  AssumeRole'
    { $sel:durationSeconds:AssumeRole' :: Maybe Natural
durationSeconds = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
      $sel:externalId:AssumeRole' :: Maybe Text
externalId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:policy:AssumeRole' :: Maybe Text
policy = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:policyArns:AssumeRole' :: Maybe [PolicyDescriptorType]
policyArns = Maybe [PolicyDescriptorType]
forall a. Maybe a
Prelude.Nothing,
      $sel:serialNumber:AssumeRole' :: Maybe Text
serialNumber = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:sourceIdentity:AssumeRole' :: Maybe Text
sourceIdentity = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:AssumeRole' :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
      $sel:tokenCode:AssumeRole' :: Maybe Text
tokenCode = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:transitiveTagKeys:AssumeRole' :: Maybe [Text]
transitiveTagKeys = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
      $sel:roleArn:AssumeRole' :: Text
roleArn = Text
pRoleArn_,
      $sel:roleSessionName:AssumeRole' :: Text
roleSessionName = Text
pRoleSessionName_
    }

-- | The duration, in seconds, of the role session. The value specified can
-- range from 900 seconds (15 minutes) up to the maximum session duration
-- set for the role. The maximum session duration setting can have a value
-- from 1 hour to 12 hours. If you specify a value higher than this setting
-- or the administrator setting (whichever is lower), the operation fails.
-- For example, if you specify a session duration of 12 hours, but your
-- administrator set the maximum session duration to 6 hours, your
-- operation fails.
--
-- Role chaining limits your Amazon Web Services CLI or Amazon Web Services
-- API role session to a maximum of one hour. When you use the @AssumeRole@
-- API operation to assume a role, you can specify the duration of your
-- role session with the @DurationSeconds@ parameter. You can specify a
-- parameter value of up to 43200 seconds (12 hours), depending on the
-- maximum session duration setting for your role. However, if you assume a
-- role using role chaining and provide a @DurationSeconds@ parameter value
-- greater than one hour, the operation fails. To learn how to view the
-- maximum value for your role, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_use.html#id_roles_use_view-role-max-session View the Maximum Session Duration Setting for a Role>
-- in the /IAM User Guide/.
--
-- By default, the value is set to @3600@ seconds.
--
-- The @DurationSeconds@ parameter is separate from the duration of a
-- console session that you might request using the returned credentials.
-- The request to the federation endpoint for a console sign-in token takes
-- a @SessionDuration@ parameter that specifies the maximum length of the
-- console session. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_providers_enable-console-custom-url.html Creating a URL that Enables Federated Users to Access the Amazon Web Services Management Console>
-- in the /IAM User Guide/.
assumeRole_durationSeconds :: Lens.Lens' AssumeRole (Prelude.Maybe Prelude.Natural)
assumeRole_durationSeconds :: Lens' AssumeRole (Maybe Natural)
assumeRole_durationSeconds = (AssumeRole -> Maybe Natural)
-> (AssumeRole -> Maybe Natural -> AssumeRole)
-> Lens' AssumeRole (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Natural
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
durationSeconds :: Maybe Natural
durationSeconds} -> Maybe Natural
durationSeconds) (\s :: AssumeRole
s@AssumeRole' {} Maybe Natural
a -> AssumeRole
s {durationSeconds = a} :: AssumeRole)

-- | A unique identifier that might be required when you assume a role in
-- another account. If the administrator of the account to which the role
-- belongs provided you with an external ID, then provide that value in the
-- @ExternalId@ parameter. This value can be any string, such as a
-- passphrase or account number. A cross-account role is usually set up to
-- trust everyone in an account. Therefore, the administrator of the
-- trusting account might send an external ID to the administrator of the
-- trusted account. That way, only someone with the ID can assume the role,
-- rather than everyone in the account. For more information about the
-- external ID, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_roles_create_for-user_externalid.html How to Use an External ID When Granting Access to Your Amazon Web Services Resources to a Third Party>
-- in the /IAM User Guide/.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@:\/-
assumeRole_externalId :: Lens.Lens' AssumeRole (Prelude.Maybe Prelude.Text)
assumeRole_externalId :: Lens' AssumeRole (Maybe Text)
assumeRole_externalId = (AssumeRole -> Maybe Text)
-> (AssumeRole -> Maybe Text -> AssumeRole)
-> Lens' AssumeRole (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
externalId :: Maybe Text
externalId} -> Maybe Text
externalId) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {externalId = a} :: AssumeRole)

-- | An IAM policy in JSON format that you want to use as an inline session
-- policy.
--
-- This parameter is optional. Passing policies to this operation returns
-- new temporary credentials. The resulting session\'s permissions are the
-- intersection of the role\'s identity-based policy and the session
-- policies. You can use the role\'s temporary credentials in subsequent
-- Amazon Web Services API calls to access resources in the account that
-- owns the role. You cannot use session policies to grant more permissions
-- than those allowed by the identity-based policy of the role that is
-- being assumed. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
-- in the /IAM User Guide/.
--
-- The plaintext that you use for both inline and managed session policies
-- can\'t exceed 2,048 characters. The JSON policy characters can be any
-- ASCII character from the space character to the end of the valid
-- character list (\\u0020 through \\u00FF). It can also include the tab
-- (\\u0009), linefeed (\\u000A), and carriage return (\\u000D) characters.
--
-- An Amazon Web Services conversion compresses the passed inline session
-- policy, managed policy ARNs, and session tags into a packed binary
-- format that has a separate limit. Your request can fail for this limit
-- even if your plaintext meets the other requirements. The
-- @PackedPolicySize@ response element indicates by percentage how close
-- the policies and tags for your request are to the upper size limit.
assumeRole_policy :: Lens.Lens' AssumeRole (Prelude.Maybe Prelude.Text)
assumeRole_policy :: Lens' AssumeRole (Maybe Text)
assumeRole_policy = (AssumeRole -> Maybe Text)
-> (AssumeRole -> Maybe Text -> AssumeRole)
-> Lens' AssumeRole (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
policy :: Maybe Text
policy} -> Maybe Text
policy) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {policy = a} :: AssumeRole)

-- | The Amazon Resource Names (ARNs) of the IAM managed policies that you
-- want to use as managed session policies. The policies must exist in the
-- same account as the role.
--
-- This parameter is optional. You can provide up to 10 managed policy
-- ARNs. However, the plaintext that you use for both inline and managed
-- session policies can\'t exceed 2,048 characters. For more information
-- about ARNs, see
-- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and Amazon Web Services Service Namespaces>
-- in the Amazon Web Services General Reference.
--
-- An Amazon Web Services conversion compresses the passed inline session
-- policy, managed policy ARNs, and session tags into a packed binary
-- format that has a separate limit. Your request can fail for this limit
-- even if your plaintext meets the other requirements. The
-- @PackedPolicySize@ response element indicates by percentage how close
-- the policies and tags for your request are to the upper size limit.
--
-- Passing policies to this operation returns new temporary credentials.
-- The resulting session\'s permissions are the intersection of the role\'s
-- identity-based policy and the session policies. You can use the role\'s
-- temporary credentials in subsequent Amazon Web Services API calls to
-- access resources in the account that owns the role. You cannot use
-- session policies to grant more permissions than those allowed by the
-- identity-based policy of the role that is being assumed. For more
-- information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies.html#policies_session Session Policies>
-- in the /IAM User Guide/.
assumeRole_policyArns :: Lens.Lens' AssumeRole (Prelude.Maybe [PolicyDescriptorType])
assumeRole_policyArns :: Lens' AssumeRole (Maybe [PolicyDescriptorType])
assumeRole_policyArns = (AssumeRole -> Maybe [PolicyDescriptorType])
-> (AssumeRole -> Maybe [PolicyDescriptorType] -> AssumeRole)
-> Lens' AssumeRole (Maybe [PolicyDescriptorType])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe [PolicyDescriptorType]
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
policyArns :: Maybe [PolicyDescriptorType]
policyArns} -> Maybe [PolicyDescriptorType]
policyArns) (\s :: AssumeRole
s@AssumeRole' {} Maybe [PolicyDescriptorType]
a -> AssumeRole
s {policyArns = a} :: AssumeRole) ((Maybe [PolicyDescriptorType] -> f (Maybe [PolicyDescriptorType]))
 -> AssumeRole -> f AssumeRole)
-> ((Maybe [PolicyDescriptorType]
     -> f (Maybe [PolicyDescriptorType]))
    -> Maybe [PolicyDescriptorType]
    -> f (Maybe [PolicyDescriptorType]))
-> (Maybe [PolicyDescriptorType]
    -> f (Maybe [PolicyDescriptorType]))
-> AssumeRole
-> f AssumeRole
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

-- | The identification number of the MFA device that is associated with the
-- user who is making the @AssumeRole@ call. Specify this value if the
-- trust policy of the role being assumed includes a condition that
-- requires MFA authentication. The value is either the serial number for a
-- hardware device (such as @GAHT12345678@) or an Amazon Resource Name
-- (ARN) for a virtual device (such as
-- @arn:aws:iam::123456789012:mfa\/user@).
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-
assumeRole_serialNumber :: Lens.Lens' AssumeRole (Prelude.Maybe Prelude.Text)
assumeRole_serialNumber :: Lens' AssumeRole (Maybe Text)
assumeRole_serialNumber = (AssumeRole -> Maybe Text)
-> (AssumeRole -> Maybe Text -> AssumeRole)
-> Lens' AssumeRole (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
serialNumber :: Maybe Text
serialNumber} -> Maybe Text
serialNumber) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {serialNumber = a} :: AssumeRole)

-- | The source identity specified by the principal that is calling the
-- @AssumeRole@ operation.
--
-- You can require users to specify a source identity when they assume a
-- role. You do this by using the @sts:SourceIdentity@ condition key in a
-- role trust policy. You can use source identity information in CloudTrail
-- logs to determine who took actions with a role. You can use the
-- @aws:SourceIdentity@ condition key to further control access to Amazon
-- Web Services resources based on the value of source identity. For more
-- information about using source identity, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_control-access_monitor.html Monitor and control actions taken with assumed roles>
-- in the /IAM User Guide/.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-. You cannot use a value that begins with the text
-- @aws:@. This prefix is reserved for Amazon Web Services internal use.
assumeRole_sourceIdentity :: Lens.Lens' AssumeRole (Prelude.Maybe Prelude.Text)
assumeRole_sourceIdentity :: Lens' AssumeRole (Maybe Text)
assumeRole_sourceIdentity = (AssumeRole -> Maybe Text)
-> (AssumeRole -> Maybe Text -> AssumeRole)
-> Lens' AssumeRole (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
sourceIdentity :: Maybe Text
sourceIdentity} -> Maybe Text
sourceIdentity) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {sourceIdentity = a} :: AssumeRole)

-- | A list of session tags that you want to pass. Each session tag consists
-- of a key name and an associated value. For more information about
-- session tags, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html Tagging Amazon Web Services STS Sessions>
-- in the /IAM User Guide/.
--
-- This parameter is optional. You can pass up to 50 session tags. The
-- plaintext session tag keys can’t exceed 128 characters, and the values
-- can’t exceed 256 characters. For these and additional limits, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_iam-limits.html#reference_iam-limits-entity-length IAM and STS Character Limits>
-- in the /IAM User Guide/.
--
-- An Amazon Web Services conversion compresses the passed inline session
-- policy, managed policy ARNs, and session tags into a packed binary
-- format that has a separate limit. Your request can fail for this limit
-- even if your plaintext meets the other requirements. The
-- @PackedPolicySize@ response element indicates by percentage how close
-- the policies and tags for your request are to the upper size limit.
--
-- You can pass a session tag with the same key as a tag that is already
-- attached to the role. When you do, session tags override a role tag with
-- the same key.
--
-- Tag key–value pairs are not case sensitive, but case is preserved. This
-- means that you cannot have separate @Department@ and @department@ tag
-- keys. Assume that the role has the @Department@=@Marketing@ tag and you
-- pass the @department@=@engineering@ session tag. @Department@ and
-- @department@ are not saved as separate tags, and the session tag passed
-- in the request takes precedence over the role tag.
--
-- Additionally, if you used temporary credentials to perform this
-- operation, the new session inherits any transitive session tags from the
-- calling session. If you pass a session tag with the same key as an
-- inherited tag, the operation fails. To view the inherited tags for a
-- session, see the CloudTrail logs. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_ctlogs Viewing Session Tags in CloudTrail>
-- in the /IAM User Guide/.
assumeRole_tags :: Lens.Lens' AssumeRole (Prelude.Maybe [Tag])
assumeRole_tags :: Lens' AssumeRole (Maybe [Tag])
assumeRole_tags = (AssumeRole -> Maybe [Tag])
-> (AssumeRole -> Maybe [Tag] -> AssumeRole)
-> Lens' AssumeRole (Maybe [Tag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe [Tag]
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
tags :: Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: AssumeRole
s@AssumeRole' {} Maybe [Tag]
a -> AssumeRole
s {tags = a} :: AssumeRole) ((Maybe [Tag] -> f (Maybe [Tag])) -> AssumeRole -> f AssumeRole)
-> ((Maybe [Tag] -> f (Maybe [Tag]))
    -> Maybe [Tag] -> f (Maybe [Tag]))
-> (Maybe [Tag] -> f (Maybe [Tag]))
-> AssumeRole
-> f AssumeRole
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Tag] [Tag] [Tag] [Tag]
-> Iso (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag])
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 [Tag] [Tag] [Tag] [Tag]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso [Tag] [Tag] [Tag] [Tag]
Lens.coerced

-- | The value provided by the MFA device, if the trust policy of the role
-- being assumed requires MFA. (In other words, if the policy includes a
-- condition that tests for MFA). If the role being assumed requires MFA
-- and if the @TokenCode@ value is missing or expired, the @AssumeRole@
-- call returns an \"access denied\" error.
--
-- The format for this parameter, as described by its regex pattern, is a
-- sequence of six numeric digits.
assumeRole_tokenCode :: Lens.Lens' AssumeRole (Prelude.Maybe Prelude.Text)
assumeRole_tokenCode :: Lens' AssumeRole (Maybe Text)
assumeRole_tokenCode = (AssumeRole -> Maybe Text)
-> (AssumeRole -> Maybe Text -> AssumeRole)
-> Lens' AssumeRole (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
tokenCode :: Maybe Text
tokenCode} -> Maybe Text
tokenCode) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {tokenCode = a} :: AssumeRole)

-- | A list of keys for session tags that you want to set as transitive. If
-- you set a tag key as transitive, the corresponding key and value passes
-- to subsequent sessions in a role chain. For more information, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_session-tags.html#id_session-tags_role-chaining Chaining Roles with Session Tags>
-- in the /IAM User Guide/.
--
-- This parameter is optional. When you set session tags as transitive, the
-- session policy and session tags packed binary limit is not affected.
--
-- If you choose not to specify a transitive tag key, then no tags are
-- passed from this session to any subsequent sessions.
assumeRole_transitiveTagKeys :: Lens.Lens' AssumeRole (Prelude.Maybe [Prelude.Text])
assumeRole_transitiveTagKeys :: Lens' AssumeRole (Maybe [Text])
assumeRole_transitiveTagKeys = (AssumeRole -> Maybe [Text])
-> (AssumeRole -> Maybe [Text] -> AssumeRole)
-> Lens' AssumeRole (Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe [Text]
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
transitiveTagKeys :: Maybe [Text]
transitiveTagKeys} -> Maybe [Text]
transitiveTagKeys) (\s :: AssumeRole
s@AssumeRole' {} Maybe [Text]
a -> AssumeRole
s {transitiveTagKeys = a} :: AssumeRole) ((Maybe [Text] -> f (Maybe [Text])) -> AssumeRole -> f AssumeRole)
-> ((Maybe [Text] -> f (Maybe [Text]))
    -> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> AssumeRole
-> f AssumeRole
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso [Text] [Text] [Text] [Text]
Lens.coerced

-- | The Amazon Resource Name (ARN) of the role to assume.
assumeRole_roleArn :: Lens.Lens' AssumeRole Prelude.Text
assumeRole_roleArn :: Lens' AssumeRole Text
assumeRole_roleArn = (AssumeRole -> Text)
-> (AssumeRole -> Text -> AssumeRole) -> Lens' AssumeRole Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Text
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
roleArn :: Text
roleArn} -> Text
roleArn) (\s :: AssumeRole
s@AssumeRole' {} Text
a -> AssumeRole
s {roleArn = a} :: AssumeRole)

-- | An identifier for the assumed role session.
--
-- Use the role session name to uniquely identify a session when the same
-- role is assumed by different principals or for different reasons. In
-- cross-account scenarios, the role session name is visible to, and can be
-- logged by the account that owns the role. The role session name is also
-- used in the ARN of the assumed role principal. This means that
-- subsequent cross-account API requests that use the temporary security
-- credentials will expose the role session name to the external account in
-- their CloudTrail logs.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-
assumeRole_roleSessionName :: Lens.Lens' AssumeRole Prelude.Text
assumeRole_roleSessionName :: Lens' AssumeRole Text
assumeRole_roleSessionName = (AssumeRole -> Text)
-> (AssumeRole -> Text -> AssumeRole) -> Lens' AssumeRole Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Text
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
roleSessionName :: Text
roleSessionName} -> Text
roleSessionName) (\s :: AssumeRole
s@AssumeRole' {} Text
a -> AssumeRole
s {roleSessionName = a} :: AssumeRole)

instance Core.AWSRequest AssumeRole where
  type AWSResponse AssumeRole = AssumeRoleResponse
  request :: (Service -> Service) -> AssumeRole -> Request AssumeRole
request Service -> Service
overrides =
    Service -> AssumeRole -> Request AssumeRole
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 AssumeRole
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse AssumeRole)))
response =
    Text
-> (Int
    -> ResponseHeaders
    -> [Node]
    -> Either String (AWSResponse AssumeRole))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AssumeRole
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse AssumeRole)))
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
"AssumeRoleResult"
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe AssumedRoleUser
-> Maybe Natural
-> Maybe Text
-> Int
-> AuthEnv
-> AssumeRoleResponse
AssumeRoleResponse'
            (Maybe AssumedRoleUser
 -> Maybe Natural
 -> Maybe Text
 -> Int
 -> AuthEnv
 -> AssumeRoleResponse)
-> Either String (Maybe AssumedRoleUser)
-> Either
     String
     (Maybe Natural
      -> Maybe Text -> Int -> AuthEnv -> AssumeRoleResponse)
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 Natural
   -> Maybe Text -> Int -> AuthEnv -> AssumeRoleResponse)
-> Either String (Maybe Natural)
-> Either
     String (Maybe Text -> Int -> AuthEnv -> AssumeRoleResponse)
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 -> Int -> AuthEnv -> AssumeRoleResponse)
-> Either String (Maybe Text)
-> Either String (Int -> AuthEnv -> AssumeRoleResponse)
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 (Int -> AuthEnv -> AssumeRoleResponse)
-> Either String Int
-> Either String (AuthEnv -> AssumeRoleResponse)
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))
            Either String (AuthEnv -> AssumeRoleResponse)
-> Either String AuthEnv -> Either String AssumeRoleResponse
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 AuthEnv
forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"Credentials")
      )

instance Prelude.Hashable AssumeRole where
  hashWithSalt :: Int -> AssumeRole -> Int
hashWithSalt Int
_salt AssumeRole' {Maybe Natural
Maybe [Text]
Maybe [PolicyDescriptorType]
Maybe [Tag]
Maybe Text
Text
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
durationSeconds :: Maybe Natural
externalId :: Maybe Text
policy :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
serialNumber :: Maybe Text
sourceIdentity :: Maybe Text
tags :: Maybe [Tag]
tokenCode :: Maybe Text
transitiveTagKeys :: Maybe [Text]
roleArn :: Text
roleSessionName :: 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
externalId
      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 -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serialNumber
      Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceIdentity
      Int -> Maybe [Tag] -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
      Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tokenCode
      Int -> Maybe [Text] -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
transitiveTagKeys
      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
roleSessionName

instance Prelude.NFData AssumeRole where
  rnf :: AssumeRole -> ()
rnf AssumeRole' {Maybe Natural
Maybe [Text]
Maybe [PolicyDescriptorType]
Maybe [Tag]
Maybe Text
Text
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
durationSeconds :: Maybe Natural
externalId :: Maybe Text
policy :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
serialNumber :: Maybe Text
sourceIdentity :: Maybe Text
tags :: Maybe [Tag]
tokenCode :: Maybe Text
transitiveTagKeys :: Maybe [Text]
roleArn :: Text
roleSessionName :: 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
externalId
      () -> () -> ()
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` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serialNumber
      () -> () -> ()
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 [Tag] -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
      () -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tokenCode
      () -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe [Text] -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
transitiveTagKeys
      () -> () -> ()
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
roleSessionName

instance Data.ToHeaders AssumeRole where
  toHeaders :: AssumeRole -> ResponseHeaders
toHeaders = ResponseHeaders -> AssumeRole -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty

instance Data.ToPath AssumeRole where
  toPath :: AssumeRole -> ByteString
toPath = ByteString -> AssumeRole -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery AssumeRole where
  toQuery :: AssumeRole -> QueryString
toQuery AssumeRole' {Maybe Natural
Maybe [Text]
Maybe [PolicyDescriptorType]
Maybe [Tag]
Maybe Text
Text
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
durationSeconds :: Maybe Natural
externalId :: Maybe Text
policy :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
serialNumber :: Maybe Text
sourceIdentity :: Maybe Text
tags :: Maybe [Tag]
tokenCode :: Maybe Text
transitiveTagKeys :: Maybe [Text]
roleArn :: Text
roleSessionName :: 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
"AssumeRole" :: 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
"ExternalId" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
externalId,
        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
"SerialNumber" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
serialNumber,
        ByteString
"SourceIdentity" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
sourceIdentity,
        ByteString
"Tags"
          ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Data.toQuery
            (ByteString -> [Tag] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" ([Tag] -> QueryString) -> Maybe [Tag] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
        ByteString
"TokenCode" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
tokenCode,
        ByteString
"TransitiveTagKeys"
          ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Data.toQuery
            ( ByteString -> [Text] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member"
                ([Text] -> QueryString) -> Maybe [Text] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
transitiveTagKeys
            ),
        ByteString
"RoleArn" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
roleArn,
        ByteString
"RoleSessionName" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
roleSessionName
      ]

-- | Contains the response to a successful AssumeRole request, including
-- temporary Amazon Web Services credentials that can be used to make
-- Amazon Web Services requests.
--
-- /See:/ 'newAssumeRoleResponse' smart constructor.
data AssumeRoleResponse = AssumeRoleResponse'
  { -- | The Amazon Resource Name (ARN) and the assumed role ID, which are
    -- identifiers that you can use to refer to the resulting temporary
    -- security credentials. For example, you can reference these credentials
    -- as a principal in a resource-based policy by using the ARN or assumed
    -- role ID. The ARN and ID include the @RoleSessionName@ that you specified
    -- when you called @AssumeRole@.
    AssumeRoleResponse -> Maybe AssumedRoleUser
assumedRoleUser :: Prelude.Maybe AssumedRoleUser,
    -- | A percentage value that indicates the packed size of the session
    -- policies and session tags combined passed in the request. The request
    -- fails if the packed size is greater than 100 percent, which means the
    -- policies and tags exceeded the allowed space.
    AssumeRoleResponse -> Maybe Natural
packedPolicySize :: Prelude.Maybe Prelude.Natural,
    -- | The source identity specified by the principal that is calling the
    -- @AssumeRole@ operation.
    --
    -- You can require users to specify a source identity when they assume a
    -- role. You do this by using the @sts:SourceIdentity@ condition key in a
    -- role trust policy. You can use source identity information in CloudTrail
    -- logs to determine who took actions with a role. You can use the
    -- @aws:SourceIdentity@ condition key to further control access to Amazon
    -- Web Services resources based on the value of source identity. For more
    -- information about using source identity, see
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_control-access_monitor.html Monitor and control actions taken with assumed roles>
    -- in the /IAM User Guide/.
    --
    -- The regex used to validate this parameter is a string of characters
    -- consisting of upper- and lower-case alphanumeric characters with no
    -- spaces. You can also include underscores or any of the following
    -- characters: =,.\@-
    AssumeRoleResponse -> Maybe Text
sourceIdentity :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    AssumeRoleResponse -> Int
httpStatus :: Prelude.Int,
    -- | The temporary security credentials, which include an access key ID, a
    -- secret access key, and a security (or session) token.
    --
    -- The size of the security token that STS API operations return is not
    -- fixed. We strongly recommend that you make no assumptions about the
    -- maximum size.
    AssumeRoleResponse -> AuthEnv
credentials :: Core.AuthEnv
  }
  deriving (AssumeRoleResponse -> AssumeRoleResponse -> Bool
(AssumeRoleResponse -> AssumeRoleResponse -> Bool)
-> (AssumeRoleResponse -> AssumeRoleResponse -> Bool)
-> Eq AssumeRoleResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
== :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
$c/= :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
/= :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
Prelude.Eq, Int -> AssumeRoleResponse -> ShowS
[AssumeRoleResponse] -> ShowS
AssumeRoleResponse -> String
(Int -> AssumeRoleResponse -> ShowS)
-> (AssumeRoleResponse -> String)
-> ([AssumeRoleResponse] -> ShowS)
-> Show AssumeRoleResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AssumeRoleResponse -> ShowS
showsPrec :: Int -> AssumeRoleResponse -> ShowS
$cshow :: AssumeRoleResponse -> String
show :: AssumeRoleResponse -> String
$cshowList :: [AssumeRoleResponse] -> ShowS
showList :: [AssumeRoleResponse] -> ShowS
Prelude.Show, (forall x. AssumeRoleResponse -> Rep AssumeRoleResponse x)
-> (forall x. Rep AssumeRoleResponse x -> AssumeRoleResponse)
-> Generic AssumeRoleResponse
forall x. Rep AssumeRoleResponse x -> AssumeRoleResponse
forall x. AssumeRoleResponse -> Rep AssumeRoleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. AssumeRoleResponse -> Rep AssumeRoleResponse x
from :: forall x. AssumeRoleResponse -> Rep AssumeRoleResponse x
$cto :: forall x. Rep AssumeRoleResponse x -> AssumeRoleResponse
to :: forall x. Rep AssumeRoleResponse x -> AssumeRoleResponse
Prelude.Generic)

-- |
-- Create a value of 'AssumeRoleResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'assumedRoleUser', 'assumeRoleResponse_assumedRoleUser' - The Amazon Resource Name (ARN) and the assumed role ID, which are
-- identifiers that you can use to refer to the resulting temporary
-- security credentials. For example, you can reference these credentials
-- as a principal in a resource-based policy by using the ARN or assumed
-- role ID. The ARN and ID include the @RoleSessionName@ that you specified
-- when you called @AssumeRole@.
--
-- 'packedPolicySize', 'assumeRoleResponse_packedPolicySize' - A percentage value that indicates the packed size of the session
-- policies and session tags combined passed in the request. The request
-- fails if the packed size is greater than 100 percent, which means the
-- policies and tags exceeded the allowed space.
--
-- 'sourceIdentity', 'assumeRoleResponse_sourceIdentity' - The source identity specified by the principal that is calling the
-- @AssumeRole@ operation.
--
-- You can require users to specify a source identity when they assume a
-- role. You do this by using the @sts:SourceIdentity@ condition key in a
-- role trust policy. You can use source identity information in CloudTrail
-- logs to determine who took actions with a role. You can use the
-- @aws:SourceIdentity@ condition key to further control access to Amazon
-- Web Services resources based on the value of source identity. For more
-- information about using source identity, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_control-access_monitor.html Monitor and control actions taken with assumed roles>
-- in the /IAM User Guide/.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-
--
-- 'httpStatus', 'assumeRoleResponse_httpStatus' - The response's http status code.
--
-- 'credentials', 'assumeRoleResponse_credentials' - The temporary security credentials, which include an access key ID, a
-- secret access key, and a security (or session) token.
--
-- The size of the security token that STS API operations return is not
-- fixed. We strongly recommend that you make no assumptions about the
-- maximum size.
newAssumeRoleResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'credentials'
  Core.AuthEnv ->
  AssumeRoleResponse
newAssumeRoleResponse :: Int -> AuthEnv -> AssumeRoleResponse
newAssumeRoleResponse Int
pHttpStatus_ AuthEnv
pCredentials_ =
  AssumeRoleResponse'
    { $sel:assumedRoleUser:AssumeRoleResponse' :: Maybe AssumedRoleUser
assumedRoleUser =
        Maybe AssumedRoleUser
forall a. Maybe a
Prelude.Nothing,
      $sel:packedPolicySize:AssumeRoleResponse' :: Maybe Natural
packedPolicySize = Maybe Natural
forall a. Maybe a
Prelude.Nothing,
      sourceIdentity :: Maybe Text
sourceIdentity = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:AssumeRoleResponse' :: Int
httpStatus = Int
pHttpStatus_,
      $sel:credentials:AssumeRoleResponse' :: AuthEnv
credentials = AuthEnv
pCredentials_
    }

-- | The Amazon Resource Name (ARN) and the assumed role ID, which are
-- identifiers that you can use to refer to the resulting temporary
-- security credentials. For example, you can reference these credentials
-- as a principal in a resource-based policy by using the ARN or assumed
-- role ID. The ARN and ID include the @RoleSessionName@ that you specified
-- when you called @AssumeRole@.
assumeRoleResponse_assumedRoleUser :: Lens.Lens' AssumeRoleResponse (Prelude.Maybe AssumedRoleUser)
assumeRoleResponse_assumedRoleUser :: Lens' AssumeRoleResponse (Maybe AssumedRoleUser)
assumeRoleResponse_assumedRoleUser = (AssumeRoleResponse -> Maybe AssumedRoleUser)
-> (AssumeRoleResponse
    -> Maybe AssumedRoleUser -> AssumeRoleResponse)
-> Lens' AssumeRoleResponse (Maybe AssumedRoleUser)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Maybe AssumedRoleUser
$sel:assumedRoleUser:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe AssumedRoleUser
assumedRoleUser :: Maybe AssumedRoleUser
assumedRoleUser} -> Maybe AssumedRoleUser
assumedRoleUser) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Maybe AssumedRoleUser
a -> AssumeRoleResponse
s {assumedRoleUser = a} :: AssumeRoleResponse)

-- | A percentage value that indicates the packed size of the session
-- policies and session tags combined passed in the request. The request
-- fails if the packed size is greater than 100 percent, which means the
-- policies and tags exceeded the allowed space.
assumeRoleResponse_packedPolicySize :: Lens.Lens' AssumeRoleResponse (Prelude.Maybe Prelude.Natural)
assumeRoleResponse_packedPolicySize :: Lens' AssumeRoleResponse (Maybe Natural)
assumeRoleResponse_packedPolicySize = (AssumeRoleResponse -> Maybe Natural)
-> (AssumeRoleResponse -> Maybe Natural -> AssumeRoleResponse)
-> Lens' AssumeRoleResponse (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Maybe Natural
$sel:packedPolicySize:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe Natural
packedPolicySize :: Maybe Natural
packedPolicySize} -> Maybe Natural
packedPolicySize) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Maybe Natural
a -> AssumeRoleResponse
s {packedPolicySize = a} :: AssumeRoleResponse)

-- | The source identity specified by the principal that is calling the
-- @AssumeRole@ operation.
--
-- You can require users to specify a source identity when they assume a
-- role. You do this by using the @sts:SourceIdentity@ condition key in a
-- role trust policy. You can use source identity information in CloudTrail
-- logs to determine who took actions with a role. You can use the
-- @aws:SourceIdentity@ condition key to further control access to Amazon
-- Web Services resources based on the value of source identity. For more
-- information about using source identity, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/id_credentials_temp_control-access_monitor.html Monitor and control actions taken with assumed roles>
-- in the /IAM User Guide/.
--
-- The regex used to validate this parameter is a string of characters
-- consisting of upper- and lower-case alphanumeric characters with no
-- spaces. You can also include underscores or any of the following
-- characters: =,.\@-
assumeRoleResponse_sourceIdentity :: Lens.Lens' AssumeRoleResponse (Prelude.Maybe Prelude.Text)
assumeRoleResponse_sourceIdentity :: Lens' AssumeRoleResponse (Maybe Text)
assumeRoleResponse_sourceIdentity = (AssumeRoleResponse -> Maybe Text)
-> (AssumeRoleResponse -> Maybe Text -> AssumeRoleResponse)
-> Lens' AssumeRoleResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Maybe Text
sourceIdentity :: AssumeRoleResponse -> Maybe Text
sourceIdentity :: Maybe Text
sourceIdentity} -> Maybe Text
sourceIdentity) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Maybe Text
a -> AssumeRoleResponse
s {sourceIdentity = a} :: AssumeRoleResponse)

-- | The response's http status code.
assumeRoleResponse_httpStatus :: Lens.Lens' AssumeRoleResponse Prelude.Int
assumeRoleResponse_httpStatus :: Lens' AssumeRoleResponse Int
assumeRoleResponse_httpStatus = (AssumeRoleResponse -> Int)
-> (AssumeRoleResponse -> Int -> AssumeRoleResponse)
-> Lens' AssumeRoleResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Int
$sel:httpStatus:AssumeRoleResponse' :: AssumeRoleResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Int
a -> AssumeRoleResponse
s {httpStatus = a} :: AssumeRoleResponse)

-- | The temporary security credentials, which include an access key ID, a
-- secret access key, and a security (or session) token.
--
-- The size of the security token that STS API operations return is not
-- fixed. We strongly recommend that you make no assumptions about the
-- maximum size.
assumeRoleResponse_credentials :: Lens.Lens' AssumeRoleResponse Core.AuthEnv
assumeRoleResponse_credentials :: Lens' AssumeRoleResponse AuthEnv
assumeRoleResponse_credentials = (AssumeRoleResponse -> AuthEnv)
-> (AssumeRoleResponse -> AuthEnv -> AssumeRoleResponse)
-> Lens' AssumeRoleResponse AuthEnv
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {AuthEnv
$sel:credentials:AssumeRoleResponse' :: AssumeRoleResponse -> AuthEnv
credentials :: AuthEnv
credentials} -> AuthEnv
credentials) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} AuthEnv
a -> AssumeRoleResponse
s {credentials = a} :: AssumeRoleResponse)

instance Prelude.NFData AssumeRoleResponse where
  rnf :: AssumeRoleResponse -> ()
rnf AssumeRoleResponse' {Int
Maybe Natural
Maybe Text
Maybe AssumedRoleUser
AuthEnv
sourceIdentity :: AssumeRoleResponse -> Maybe Text
$sel:assumedRoleUser:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe AssumedRoleUser
$sel:packedPolicySize:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe Natural
$sel:httpStatus:AssumeRoleResponse' :: AssumeRoleResponse -> Int
$sel:credentials:AssumeRoleResponse' :: AssumeRoleResponse -> AuthEnv
assumedRoleUser :: Maybe AssumedRoleUser
packedPolicySize :: Maybe Natural
sourceIdentity :: Maybe Text
httpStatus :: Int
credentials :: AuthEnv
..} =
    Maybe AssumedRoleUser -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe AssumedRoleUser
assumedRoleUser
      () -> () -> ()
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` Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      () -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` AuthEnv -> ()
forall a. NFData a => a -> ()
Prelude.rnf AuthEnv
credentials