{-# 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
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssumeRole -> AssumeRole -> Bool
$c/= :: AssumeRole -> AssumeRole -> Bool
== :: AssumeRole -> AssumeRole -> Bool
$c== :: AssumeRole -> AssumeRole -> Bool
Prelude.Eq, ReadPrec [AssumeRole]
ReadPrec AssumeRole
Int -> ReadS AssumeRole
ReadS [AssumeRole]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AssumeRole]
$creadListPrec :: ReadPrec [AssumeRole]
readPrec :: ReadPrec AssumeRole
$creadPrec :: ReadPrec AssumeRole
readList :: ReadS [AssumeRole]
$creadList :: ReadS [AssumeRole]
readsPrec :: Int -> ReadS AssumeRole
$creadsPrec :: Int -> ReadS AssumeRole
Prelude.Read, Int -> AssumeRole -> ShowS
[AssumeRole] -> ShowS
AssumeRole -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AssumeRole] -> ShowS
$cshowList :: [AssumeRole] -> ShowS
show :: AssumeRole -> String
$cshow :: AssumeRole -> String
showsPrec :: Int -> AssumeRole -> ShowS
$cshowsPrec :: Int -> AssumeRole -> ShowS
Prelude.Show, 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
$cto :: forall x. Rep AssumeRole x -> AssumeRole
$cfrom :: forall x. AssumeRole -> Rep AssumeRole x
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 = forall a. Maybe a
Prelude.Nothing,
      $sel:externalId:AssumeRole' :: Maybe Text
externalId = forall a. Maybe a
Prelude.Nothing,
      $sel:policy:AssumeRole' :: Maybe Text
policy = forall a. Maybe a
Prelude.Nothing,
      $sel:policyArns:AssumeRole' :: Maybe [PolicyDescriptorType]
policyArns = forall a. Maybe a
Prelude.Nothing,
      $sel:serialNumber:AssumeRole' :: Maybe Text
serialNumber = forall a. Maybe a
Prelude.Nothing,
      $sel:sourceIdentity:AssumeRole' :: Maybe Text
sourceIdentity = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:AssumeRole' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:tokenCode:AssumeRole' :: Maybe Text
tokenCode = forall a. Maybe a
Prelude.Nothing,
      $sel:transitiveTagKeys:AssumeRole' :: Maybe [Text]
transitiveTagKeys = 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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Natural
durationSeconds :: Maybe Natural
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
durationSeconds} -> Maybe Natural
durationSeconds) (\s :: AssumeRole
s@AssumeRole' {} Maybe Natural
a -> AssumeRole
s {$sel:durationSeconds:AssumeRole' :: Maybe Natural
durationSeconds = Maybe Natural
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
externalId :: Maybe Text
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
externalId} -> Maybe Text
externalId) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {$sel:externalId:AssumeRole' :: Maybe Text
externalId = Maybe Text
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
policy :: Maybe Text
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
policy} -> Maybe Text
policy) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {$sel:policy:AssumeRole' :: Maybe Text
policy = Maybe Text
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe [PolicyDescriptorType]
policyArns :: Maybe [PolicyDescriptorType]
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
policyArns} -> Maybe [PolicyDescriptorType]
policyArns) (\s :: AssumeRole
s@AssumeRole' {} Maybe [PolicyDescriptorType]
a -> AssumeRole
s {$sel:policyArns:AssumeRole' :: Maybe [PolicyDescriptorType]
policyArns = Maybe [PolicyDescriptorType]
a} :: AssumeRole) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | 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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
serialNumber :: Maybe Text
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
serialNumber} -> Maybe Text
serialNumber) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {$sel:serialNumber:AssumeRole' :: Maybe Text
serialNumber = Maybe Text
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
sourceIdentity :: Maybe Text
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
sourceIdentity} -> Maybe Text
sourceIdentity) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {$sel:sourceIdentity:AssumeRole' :: Maybe Text
sourceIdentity = Maybe Text
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: AssumeRole
s@AssumeRole' {} Maybe [Tag]
a -> AssumeRole
s {$sel:tags:AssumeRole' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: AssumeRole) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | 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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe Text
tokenCode :: Maybe Text
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
tokenCode} -> Maybe Text
tokenCode) (\s :: AssumeRole
s@AssumeRole' {} Maybe Text
a -> AssumeRole
s {$sel:tokenCode:AssumeRole' :: Maybe Text
tokenCode = Maybe Text
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRole' {Maybe [Text]
transitiveTagKeys :: Maybe [Text]
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
transitiveTagKeys} -> Maybe [Text]
transitiveTagKeys) (\s :: AssumeRole
s@AssumeRole' {} Maybe [Text]
a -> AssumeRole
s {$sel:transitiveTagKeys:AssumeRole' :: Maybe [Text]
transitiveTagKeys = Maybe [Text]
a} :: AssumeRole) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

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

instance Core.AWSRequest AssumeRole where
  type AWSResponse AssumeRole = AssumeRoleResponse
  request :: (Service -> Service) -> AssumeRole -> Request AssumeRole
request Service -> Service
overrides =
    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 =
    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'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"AssumedRoleUser")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PackedPolicySize")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"SourceIdentity")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x 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
roleSessionName :: Text
roleArn :: Text
transitiveTagKeys :: Maybe [Text]
tokenCode :: Maybe Text
tags :: Maybe [Tag]
sourceIdentity :: Maybe Text
serialNumber :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
policy :: Maybe Text
externalId :: Maybe Text
durationSeconds :: Maybe Natural
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
durationSeconds
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
externalId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
policy
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [PolicyDescriptorType]
policyArns
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serialNumber
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceIdentity
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
tokenCode
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
transitiveTagKeys
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
      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
roleSessionName :: Text
roleArn :: Text
transitiveTagKeys :: Maybe [Text]
tokenCode :: Maybe Text
tags :: Maybe [Tag]
sourceIdentity :: Maybe Text
serialNumber :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
policy :: Maybe Text
externalId :: Maybe Text
durationSeconds :: Maybe Natural
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
durationSeconds
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
externalId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policy
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PolicyDescriptorType]
policyArns
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serialNumber
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceIdentity
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tokenCode
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
transitiveTagKeys
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleSessionName

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

instance Data.ToPath AssumeRole where
  toPath :: AssumeRole -> ByteString
toPath = 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
roleSessionName :: Text
roleArn :: Text
transitiveTagKeys :: Maybe [Text]
tokenCode :: Maybe Text
tags :: Maybe [Tag]
sourceIdentity :: Maybe Text
serialNumber :: Maybe Text
policyArns :: Maybe [PolicyDescriptorType]
policy :: Maybe Text
externalId :: Maybe Text
durationSeconds :: Maybe Natural
$sel:roleSessionName:AssumeRole' :: AssumeRole -> Text
$sel:roleArn:AssumeRole' :: AssumeRole -> Text
$sel:transitiveTagKeys:AssumeRole' :: AssumeRole -> Maybe [Text]
$sel:tokenCode:AssumeRole' :: AssumeRole -> Maybe Text
$sel:tags:AssumeRole' :: AssumeRole -> Maybe [Tag]
$sel:sourceIdentity:AssumeRole' :: AssumeRole -> Maybe Text
$sel:serialNumber:AssumeRole' :: AssumeRole -> Maybe Text
$sel:policyArns:AssumeRole' :: AssumeRole -> Maybe [PolicyDescriptorType]
$sel:policy:AssumeRole' :: AssumeRole -> Maybe Text
$sel:externalId:AssumeRole' :: AssumeRole -> Maybe Text
$sel:durationSeconds:AssumeRole' :: AssumeRole -> Maybe Natural
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"AssumeRole" :: Prelude.ByteString),
        ByteString
"Version"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2011-06-15" :: Prelude.ByteString),
        ByteString
"DurationSeconds" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
durationSeconds,
        ByteString
"ExternalId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
externalId,
        ByteString
"Policy" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
policy,
        ByteString
"PolicyArns"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
            (forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PolicyDescriptorType]
policyArns),
        ByteString
"SerialNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
serialNumber,
        ByteString
"SourceIdentity" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
sourceIdentity,
        ByteString
"Tags"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
            (forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
        ByteString
"TokenCode" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
tokenCode,
        ByteString
"TransitiveTagKeys"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
            ( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member"
                forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
transitiveTagKeys
            ),
        ByteString
"RoleArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
roleArn,
        ByteString
"RoleSessionName" 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
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
$c/= :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
== :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
$c== :: AssumeRoleResponse -> AssumeRoleResponse -> Bool
Prelude.Eq, Int -> AssumeRoleResponse -> ShowS
[AssumeRoleResponse] -> ShowS
AssumeRoleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AssumeRoleResponse] -> ShowS
$cshowList :: [AssumeRoleResponse] -> ShowS
show :: AssumeRoleResponse -> String
$cshow :: AssumeRoleResponse -> String
showsPrec :: Int -> AssumeRoleResponse -> ShowS
$cshowsPrec :: Int -> AssumeRoleResponse -> ShowS
Prelude.Show, 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
$cto :: forall x. Rep AssumeRoleResponse x -> AssumeRoleResponse
$cfrom :: forall x. AssumeRoleResponse -> Rep AssumeRoleResponse x
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 =
        forall a. Maybe a
Prelude.Nothing,
      $sel:packedPolicySize:AssumeRoleResponse' :: Maybe Natural
packedPolicySize = forall a. Maybe a
Prelude.Nothing,
      $sel:sourceIdentity:AssumeRoleResponse' :: Maybe Text
sourceIdentity = 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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Maybe AssumedRoleUser
assumedRoleUser :: Maybe AssumedRoleUser
$sel:assumedRoleUser:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe AssumedRoleUser
assumedRoleUser} -> Maybe AssumedRoleUser
assumedRoleUser) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Maybe AssumedRoleUser
a -> AssumeRoleResponse
s {$sel:assumedRoleUser:AssumeRoleResponse' :: Maybe AssumedRoleUser
assumedRoleUser = Maybe 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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Maybe Natural
packedPolicySize :: Maybe Natural
$sel:packedPolicySize:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe Natural
packedPolicySize} -> Maybe Natural
packedPolicySize) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Maybe Natural
a -> AssumeRoleResponse
s {$sel:packedPolicySize:AssumeRoleResponse' :: Maybe Natural
packedPolicySize = Maybe Natural
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 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AssumeRoleResponse' {Maybe Text
sourceIdentity :: Maybe Text
$sel:sourceIdentity:AssumeRoleResponse' :: AssumeRoleResponse -> Maybe Text
sourceIdentity} -> Maybe Text
sourceIdentity) (\s :: AssumeRoleResponse
s@AssumeRoleResponse' {} Maybe Text
a -> AssumeRoleResponse
s {$sel:sourceIdentity:AssumeRoleResponse' :: Maybe Text
sourceIdentity = Maybe Text
a} :: AssumeRoleResponse)

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

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