{-# 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.Organizations.CreateGovCloudAccount
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- This action is available if all of the following are true:
--
-- -   You\'re authorized to create accounts in the Amazon Web Services
--     GovCloud (US) Region. For more information on the Amazon Web
--     Services GovCloud (US) Region, see the
--     <https://docs.aws.amazon.com/govcloud-us/latest/UserGuide/welcome.html Amazon Web Services GovCloud User Guide.>
--
-- -   You already have an account in the Amazon Web Services GovCloud (US)
--     Region that is paired with a management account of an organization
--     in the commercial Region.
--
-- -   You call this action from the management account of your
--     organization in the commercial Region.
--
-- -   You have the @organizations:CreateGovCloudAccount@ permission.
--
-- Organizations automatically creates the required service-linked role
-- named @AWSServiceRoleForOrganizations@. For more information, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_integrate_services.html#orgs_integrate_services-using_slrs Organizations and Service-Linked Roles>
-- in the /Organizations User Guide./
--
-- Amazon Web Services automatically enables CloudTrail for Amazon Web
-- Services GovCloud (US) accounts, but you should also do the following:
--
-- -   Verify that CloudTrail is enabled to store logs.
--
-- -   Create an Amazon S3 bucket for CloudTrail log storage.
--
--     For more information, see
--     <https://docs.aws.amazon.com/govcloud-us/latest/UserGuide/verifying-cloudtrail.html Verifying CloudTrail Is Enabled>
--     in the /Amazon Web Services GovCloud User Guide/.
--
-- If the request includes tags, then the requester must have the
-- @organizations:TagResource@ permission. The tags are attached to the
-- commercial account associated with the GovCloud account, rather than the
-- GovCloud account itself. To add tags to the GovCloud account, call the
-- TagResource operation in the GovCloud Region after the new GovCloud
-- account exists.
--
-- You call this action from the management account of your organization in
-- the commercial Region to create a standalone Amazon Web Services account
-- in the Amazon Web Services GovCloud (US) Region. After the account is
-- created, the management account of an organization in the Amazon Web
-- Services GovCloud (US) Region can invite it to that organization. For
-- more information on inviting standalone accounts in the Amazon Web
-- Services GovCloud (US) to join an organization, see
-- <https://docs.aws.amazon.com/govcloud-us/latest/UserGuide/govcloud-organizations.html Organizations>
-- in the /Amazon Web Services GovCloud User Guide./
--
-- Calling @CreateGovCloudAccount@ is an asynchronous request that Amazon
-- Web Services performs in the background. Because @CreateGovCloudAccount@
-- operates asynchronously, it can return a successful completion message
-- even though account initialization might still be in progress. You might
-- need to wait a few minutes before you can successfully access the
-- account. To check the status of the request, do one of the following:
--
-- -   Use the @OperationId@ response element from this operation to
--     provide as a parameter to the DescribeCreateAccountStatus operation.
--
-- -   Check the CloudTrail log for the @CreateAccountResult@ event. For
--     information on using CloudTrail with Organizations, see
--     <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_monitoring.html Monitoring the Activity in Your Organization>
--     in the /Organizations User Guide./
--
-- When you call the @CreateGovCloudAccount@ action, you create two
-- accounts: a standalone account in the Amazon Web Services GovCloud (US)
-- Region and an associated account in the commercial Region for billing
-- and support purposes. The account in the commercial Region is
-- automatically a member of the organization whose credentials made the
-- request. Both accounts are associated with the same email address.
--
-- A role is created in the new account in the commercial Region that
-- allows the management account in the organization in the commercial
-- Region to assume it. An Amazon Web Services GovCloud (US) account is
-- then created and associated with the commercial account that you just
-- created. A role is also created in the new Amazon Web Services GovCloud
-- (US) account that can be assumed by the Amazon Web Services GovCloud
-- (US) account that is associated with the management account of the
-- commercial organization. For more information and to view a diagram that
-- explains how account access works, see
-- <https://docs.aws.amazon.com/govcloud-us/latest/UserGuide/govcloud-organizations.html Organizations>
-- in the /Amazon Web Services GovCloud User Guide./
--
-- For more information about creating accounts, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_manage_accounts_create.html Creating an Amazon Web Services account in Your Organization>
-- in the /Organizations User Guide./
--
-- -   When you create an account in an organization using the
--     Organizations console, API, or CLI commands, the information
--     required for the account to operate as a standalone account is /not/
--     automatically collected. This includes a payment method and signing
--     the end user license agreement (EULA). If you must remove an account
--     from your organization later, you can do so only after you provide
--     the missing information. Follow the steps at
--     <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_manage_accounts_remove.html#leave-without-all-info To leave an organization as a member account>
--     in the /Organizations User Guide./
--
-- -   If you get an exception that indicates that you exceeded your
--     account limits for the organization, contact
--     <https://console.aws.amazon.com/support/home#/ Amazon Web Services Support>.
--
-- -   If you get an exception that indicates that the operation failed
--     because your organization is still initializing, wait one hour and
--     then try again. If the error persists, contact
--     <https://console.aws.amazon.com/support/home#/ Amazon Web Services Support>.
--
-- -   Using @CreateGovCloudAccount@ to create multiple temporary accounts
--     isn\'t recommended. You can only close an account from the Amazon
--     Web Services Billing and Cost Management console, and you must be
--     signed in as the root user. For information on the requirements and
--     process for closing an account, see
--     <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_manage_accounts_close.html Closing an Amazon Web Services account>
--     in the /Organizations User Guide/.
--
-- When you create a member account with this operation, you can choose
-- whether to create the account with the __IAM User and Role Access to
-- Billing Information__ switch enabled. If you enable it, IAM users and
-- roles that have appropriate permissions can view billing information for
-- the account. If you disable it, only the account root user can access
-- billing information. For information about how to disable this switch
-- for an account, see
-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/grantaccess.html Granting Access to Your Billing Information and Tools>.
module Amazonka.Organizations.CreateGovCloudAccount
  ( -- * Creating a Request
    CreateGovCloudAccount (..),
    newCreateGovCloudAccount,

    -- * Request Lenses
    createGovCloudAccount_iamUserAccessToBilling,
    createGovCloudAccount_roleName,
    createGovCloudAccount_tags,
    createGovCloudAccount_email,
    createGovCloudAccount_accountName,

    -- * Destructuring the Response
    CreateGovCloudAccountResponse (..),
    newCreateGovCloudAccountResponse,

    -- * Response Lenses
    createGovCloudAccountResponse_createAccountStatus,
    createGovCloudAccountResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Organizations.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newCreateGovCloudAccount' smart constructor.
data CreateGovCloudAccount = CreateGovCloudAccount'
  { -- | If set to @ALLOW@, the new linked account in the commercial Region
    -- enables IAM users to access account billing information /if/ they have
    -- the required permissions. If set to @DENY@, only the root user of the
    -- new account can access account billing information. For more
    -- information, see
    -- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/grantaccess.html#ControllingAccessWebsite-Activate Activating Access to the Billing and Cost Management Console>
    -- in the /Amazon Web Services Billing and Cost Management User Guide./
    --
    -- If you don\'t specify this parameter, the value defaults to @ALLOW@, and
    -- IAM users and roles with the required permissions can access billing
    -- information for the new account.
    CreateGovCloudAccount -> Maybe IAMUserAccessToBilling
iamUserAccessToBilling :: Prelude.Maybe IAMUserAccessToBilling,
    -- | (Optional)
    --
    -- The name of an IAM role that Organizations automatically preconfigures
    -- in the new member accounts in both the Amazon Web Services GovCloud (US)
    -- Region and in the commercial Region. This role trusts the management
    -- account, allowing users in the management account to assume the role, as
    -- permitted by the management account administrator. The role has
    -- administrator permissions in the new member account.
    --
    -- If you don\'t specify this parameter, the role name defaults to
    -- @OrganizationAccountAccessRole@.
    --
    -- For more information about how to use this role to access the member
    -- account, see
    -- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_manage_accounts_access.html#orgs_manage_accounts_create-cross-account-role Accessing and Administering the Member Accounts in Your Organization>
    -- in the /Organizations User Guide/ and steps 2 and 3 in
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/tutorial_cross-account-with-roles.html Tutorial: Delegate Access Across Amazon Web Services accounts Using IAM Roles>
    -- in the /IAM User Guide./
    --
    -- The <http://wikipedia.org/wiki/regex regex pattern> that is used to
    -- validate this parameter. The pattern can include uppercase letters,
    -- lowercase letters, digits with no spaces, and any of the following
    -- characters: =,.\@-
    CreateGovCloudAccount -> Maybe Text
roleName :: Prelude.Maybe Prelude.Text,
    -- | A list of tags that you want to attach to the newly created account.
    -- These tags are attached to the commercial account associated with the
    -- GovCloud account, and not to the GovCloud account itself. To add tags to
    -- the actual GovCloud account, call the TagResource operation in the
    -- GovCloud region after the new GovCloud account exists.
    --
    -- For each tag in the list, you must specify both a tag key and a value.
    -- You can set the value to an empty string, but you can\'t set it to
    -- @null@. For more information about tagging, see
    -- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_tagging.html Tagging Organizations resources>
    -- in the Organizations User Guide.
    --
    -- If any one of the tags is invalid or if you exceed the maximum allowed
    -- number of tags for an account, then the entire request fails and the
    -- account is not created.
    CreateGovCloudAccount -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | Specifies the email address of the owner to assign to the new member
    -- account in the commercial Region. This email address must not already be
    -- associated with another Amazon Web Services account. You must use a
    -- valid email address to complete account creation.
    --
    -- The rules for a valid email address:
    --
    -- -   The address must be a minimum of 6 and a maximum of 64 characters
    --     long.
    --
    -- -   All characters must be 7-bit ASCII characters.
    --
    -- -   There must be one and only one \@ symbol, which separates the local
    --     name from the domain name.
    --
    -- -   The local name can\'t contain any of the following characters:
    --
    --     whitespace, \" \' ( ) \< > [ ] : ; , \\ | % &
    --
    -- -   The local name can\'t begin with a dot (.)
    --
    -- -   The domain name can consist of only the characters
    --     [a-z],[A-Z],[0-9], hyphen (-), or dot (.)
    --
    -- -   The domain name can\'t begin or end with a hyphen (-) or dot (.)
    --
    -- -   The domain name must contain at least one dot
    --
    -- You can\'t access the root user of the account or remove an account that
    -- was created with an invalid email address. Like all request parameters
    -- for @CreateGovCloudAccount@, the request for the email address for the
    -- Amazon Web Services GovCloud (US) account originates from the commercial
    -- Region, not from the Amazon Web Services GovCloud (US) Region.
    CreateGovCloudAccount -> Sensitive Text
email :: Data.Sensitive Prelude.Text,
    -- | The friendly name of the member account.
    --
    -- The account name can consist of only the characters [a-z],[A-Z],[0-9],
    -- hyphen (-), or dot (.) You can\'t separate characters with a dash (–).
    CreateGovCloudAccount -> Sensitive Text
accountName :: Data.Sensitive Prelude.Text
  }
  deriving (CreateGovCloudAccount -> CreateGovCloudAccount -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateGovCloudAccount -> CreateGovCloudAccount -> Bool
$c/= :: CreateGovCloudAccount -> CreateGovCloudAccount -> Bool
== :: CreateGovCloudAccount -> CreateGovCloudAccount -> Bool
$c== :: CreateGovCloudAccount -> CreateGovCloudAccount -> Bool
Prelude.Eq, Int -> CreateGovCloudAccount -> ShowS
[CreateGovCloudAccount] -> ShowS
CreateGovCloudAccount -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateGovCloudAccount] -> ShowS
$cshowList :: [CreateGovCloudAccount] -> ShowS
show :: CreateGovCloudAccount -> String
$cshow :: CreateGovCloudAccount -> String
showsPrec :: Int -> CreateGovCloudAccount -> ShowS
$cshowsPrec :: Int -> CreateGovCloudAccount -> ShowS
Prelude.Show, forall x. Rep CreateGovCloudAccount x -> CreateGovCloudAccount
forall x. CreateGovCloudAccount -> Rep CreateGovCloudAccount x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateGovCloudAccount x -> CreateGovCloudAccount
$cfrom :: forall x. CreateGovCloudAccount -> Rep CreateGovCloudAccount x
Prelude.Generic)

-- |
-- Create a value of 'CreateGovCloudAccount' 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:
--
-- 'iamUserAccessToBilling', 'createGovCloudAccount_iamUserAccessToBilling' - If set to @ALLOW@, the new linked account in the commercial Region
-- enables IAM users to access account billing information /if/ they have
-- the required permissions. If set to @DENY@, only the root user of the
-- new account can access account billing information. For more
-- information, see
-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/grantaccess.html#ControllingAccessWebsite-Activate Activating Access to the Billing and Cost Management Console>
-- in the /Amazon Web Services Billing and Cost Management User Guide./
--
-- If you don\'t specify this parameter, the value defaults to @ALLOW@, and
-- IAM users and roles with the required permissions can access billing
-- information for the new account.
--
-- 'roleName', 'createGovCloudAccount_roleName' - (Optional)
--
-- The name of an IAM role that Organizations automatically preconfigures
-- in the new member accounts in both the Amazon Web Services GovCloud (US)
-- Region and in the commercial Region. This role trusts the management
-- account, allowing users in the management account to assume the role, as
-- permitted by the management account administrator. The role has
-- administrator permissions in the new member account.
--
-- If you don\'t specify this parameter, the role name defaults to
-- @OrganizationAccountAccessRole@.
--
-- For more information about how to use this role to access the member
-- account, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_manage_accounts_access.html#orgs_manage_accounts_create-cross-account-role Accessing and Administering the Member Accounts in Your Organization>
-- in the /Organizations User Guide/ and steps 2 and 3 in
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/tutorial_cross-account-with-roles.html Tutorial: Delegate Access Across Amazon Web Services accounts Using IAM Roles>
-- in the /IAM User Guide./
--
-- The <http://wikipedia.org/wiki/regex regex pattern> that is used to
-- validate this parameter. The pattern can include uppercase letters,
-- lowercase letters, digits with no spaces, and any of the following
-- characters: =,.\@-
--
-- 'tags', 'createGovCloudAccount_tags' - A list of tags that you want to attach to the newly created account.
-- These tags are attached to the commercial account associated with the
-- GovCloud account, and not to the GovCloud account itself. To add tags to
-- the actual GovCloud account, call the TagResource operation in the
-- GovCloud region after the new GovCloud account exists.
--
-- For each tag in the list, you must specify both a tag key and a value.
-- You can set the value to an empty string, but you can\'t set it to
-- @null@. For more information about tagging, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_tagging.html Tagging Organizations resources>
-- in the Organizations User Guide.
--
-- If any one of the tags is invalid or if you exceed the maximum allowed
-- number of tags for an account, then the entire request fails and the
-- account is not created.
--
-- 'email', 'createGovCloudAccount_email' - Specifies the email address of the owner to assign to the new member
-- account in the commercial Region. This email address must not already be
-- associated with another Amazon Web Services account. You must use a
-- valid email address to complete account creation.
--
-- The rules for a valid email address:
--
-- -   The address must be a minimum of 6 and a maximum of 64 characters
--     long.
--
-- -   All characters must be 7-bit ASCII characters.
--
-- -   There must be one and only one \@ symbol, which separates the local
--     name from the domain name.
--
-- -   The local name can\'t contain any of the following characters:
--
--     whitespace, \" \' ( ) \< > [ ] : ; , \\ | % &
--
-- -   The local name can\'t begin with a dot (.)
--
-- -   The domain name can consist of only the characters
--     [a-z],[A-Z],[0-9], hyphen (-), or dot (.)
--
-- -   The domain name can\'t begin or end with a hyphen (-) or dot (.)
--
-- -   The domain name must contain at least one dot
--
-- You can\'t access the root user of the account or remove an account that
-- was created with an invalid email address. Like all request parameters
-- for @CreateGovCloudAccount@, the request for the email address for the
-- Amazon Web Services GovCloud (US) account originates from the commercial
-- Region, not from the Amazon Web Services GovCloud (US) Region.
--
-- 'accountName', 'createGovCloudAccount_accountName' - The friendly name of the member account.
--
-- The account name can consist of only the characters [a-z],[A-Z],[0-9],
-- hyphen (-), or dot (.) You can\'t separate characters with a dash (–).
newCreateGovCloudAccount ::
  -- | 'email'
  Prelude.Text ->
  -- | 'accountName'
  Prelude.Text ->
  CreateGovCloudAccount
newCreateGovCloudAccount :: Text -> Text -> CreateGovCloudAccount
newCreateGovCloudAccount Text
pEmail_ Text
pAccountName_ =
  CreateGovCloudAccount'
    { $sel:iamUserAccessToBilling:CreateGovCloudAccount' :: Maybe IAMUserAccessToBilling
iamUserAccessToBilling =
        forall a. Maybe a
Prelude.Nothing,
      $sel:roleName:CreateGovCloudAccount' :: Maybe Text
roleName = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreateGovCloudAccount' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:email:CreateGovCloudAccount' :: Sensitive Text
email = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pEmail_,
      $sel:accountName:CreateGovCloudAccount' :: Sensitive Text
accountName = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pAccountName_
    }

-- | If set to @ALLOW@, the new linked account in the commercial Region
-- enables IAM users to access account billing information /if/ they have
-- the required permissions. If set to @DENY@, only the root user of the
-- new account can access account billing information. For more
-- information, see
-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/grantaccess.html#ControllingAccessWebsite-Activate Activating Access to the Billing and Cost Management Console>
-- in the /Amazon Web Services Billing and Cost Management User Guide./
--
-- If you don\'t specify this parameter, the value defaults to @ALLOW@, and
-- IAM users and roles with the required permissions can access billing
-- information for the new account.
createGovCloudAccount_iamUserAccessToBilling :: Lens.Lens' CreateGovCloudAccount (Prelude.Maybe IAMUserAccessToBilling)
createGovCloudAccount_iamUserAccessToBilling :: Lens' CreateGovCloudAccount (Maybe IAMUserAccessToBilling)
createGovCloudAccount_iamUserAccessToBilling = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateGovCloudAccount' {Maybe IAMUserAccessToBilling
iamUserAccessToBilling :: Maybe IAMUserAccessToBilling
$sel:iamUserAccessToBilling:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe IAMUserAccessToBilling
iamUserAccessToBilling} -> Maybe IAMUserAccessToBilling
iamUserAccessToBilling) (\s :: CreateGovCloudAccount
s@CreateGovCloudAccount' {} Maybe IAMUserAccessToBilling
a -> CreateGovCloudAccount
s {$sel:iamUserAccessToBilling:CreateGovCloudAccount' :: Maybe IAMUserAccessToBilling
iamUserAccessToBilling = Maybe IAMUserAccessToBilling
a} :: CreateGovCloudAccount)

-- | (Optional)
--
-- The name of an IAM role that Organizations automatically preconfigures
-- in the new member accounts in both the Amazon Web Services GovCloud (US)
-- Region and in the commercial Region. This role trusts the management
-- account, allowing users in the management account to assume the role, as
-- permitted by the management account administrator. The role has
-- administrator permissions in the new member account.
--
-- If you don\'t specify this parameter, the role name defaults to
-- @OrganizationAccountAccessRole@.
--
-- For more information about how to use this role to access the member
-- account, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_manage_accounts_access.html#orgs_manage_accounts_create-cross-account-role Accessing and Administering the Member Accounts in Your Organization>
-- in the /Organizations User Guide/ and steps 2 and 3 in
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/tutorial_cross-account-with-roles.html Tutorial: Delegate Access Across Amazon Web Services accounts Using IAM Roles>
-- in the /IAM User Guide./
--
-- The <http://wikipedia.org/wiki/regex regex pattern> that is used to
-- validate this parameter. The pattern can include uppercase letters,
-- lowercase letters, digits with no spaces, and any of the following
-- characters: =,.\@-
createGovCloudAccount_roleName :: Lens.Lens' CreateGovCloudAccount (Prelude.Maybe Prelude.Text)
createGovCloudAccount_roleName :: Lens' CreateGovCloudAccount (Maybe Text)
createGovCloudAccount_roleName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateGovCloudAccount' {Maybe Text
roleName :: Maybe Text
$sel:roleName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe Text
roleName} -> Maybe Text
roleName) (\s :: CreateGovCloudAccount
s@CreateGovCloudAccount' {} Maybe Text
a -> CreateGovCloudAccount
s {$sel:roleName:CreateGovCloudAccount' :: Maybe Text
roleName = Maybe Text
a} :: CreateGovCloudAccount)

-- | A list of tags that you want to attach to the newly created account.
-- These tags are attached to the commercial account associated with the
-- GovCloud account, and not to the GovCloud account itself. To add tags to
-- the actual GovCloud account, call the TagResource operation in the
-- GovCloud region after the new GovCloud account exists.
--
-- For each tag in the list, you must specify both a tag key and a value.
-- You can set the value to an empty string, but you can\'t set it to
-- @null@. For more information about tagging, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_tagging.html Tagging Organizations resources>
-- in the Organizations User Guide.
--
-- If any one of the tags is invalid or if you exceed the maximum allowed
-- number of tags for an account, then the entire request fails and the
-- account is not created.
createGovCloudAccount_tags :: Lens.Lens' CreateGovCloudAccount (Prelude.Maybe [Tag])
createGovCloudAccount_tags :: Lens' CreateGovCloudAccount (Maybe [Tag])
createGovCloudAccount_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateGovCloudAccount' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateGovCloudAccount
s@CreateGovCloudAccount' {} Maybe [Tag]
a -> CreateGovCloudAccount
s {$sel:tags:CreateGovCloudAccount' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateGovCloudAccount) 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

-- | Specifies the email address of the owner to assign to the new member
-- account in the commercial Region. This email address must not already be
-- associated with another Amazon Web Services account. You must use a
-- valid email address to complete account creation.
--
-- The rules for a valid email address:
--
-- -   The address must be a minimum of 6 and a maximum of 64 characters
--     long.
--
-- -   All characters must be 7-bit ASCII characters.
--
-- -   There must be one and only one \@ symbol, which separates the local
--     name from the domain name.
--
-- -   The local name can\'t contain any of the following characters:
--
--     whitespace, \" \' ( ) \< > [ ] : ; , \\ | % &
--
-- -   The local name can\'t begin with a dot (.)
--
-- -   The domain name can consist of only the characters
--     [a-z],[A-Z],[0-9], hyphen (-), or dot (.)
--
-- -   The domain name can\'t begin or end with a hyphen (-) or dot (.)
--
-- -   The domain name must contain at least one dot
--
-- You can\'t access the root user of the account or remove an account that
-- was created with an invalid email address. Like all request parameters
-- for @CreateGovCloudAccount@, the request for the email address for the
-- Amazon Web Services GovCloud (US) account originates from the commercial
-- Region, not from the Amazon Web Services GovCloud (US) Region.
createGovCloudAccount_email :: Lens.Lens' CreateGovCloudAccount Prelude.Text
createGovCloudAccount_email :: Lens' CreateGovCloudAccount Text
createGovCloudAccount_email = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateGovCloudAccount' {Sensitive Text
email :: Sensitive Text
$sel:email:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
email} -> Sensitive Text
email) (\s :: CreateGovCloudAccount
s@CreateGovCloudAccount' {} Sensitive Text
a -> CreateGovCloudAccount
s {$sel:email:CreateGovCloudAccount' :: Sensitive Text
email = Sensitive Text
a} :: CreateGovCloudAccount) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive

-- | The friendly name of the member account.
--
-- The account name can consist of only the characters [a-z],[A-Z],[0-9],
-- hyphen (-), or dot (.) You can\'t separate characters with a dash (–).
createGovCloudAccount_accountName :: Lens.Lens' CreateGovCloudAccount Prelude.Text
createGovCloudAccount_accountName :: Lens' CreateGovCloudAccount Text
createGovCloudAccount_accountName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateGovCloudAccount' {Sensitive Text
accountName :: Sensitive Text
$sel:accountName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
accountName} -> Sensitive Text
accountName) (\s :: CreateGovCloudAccount
s@CreateGovCloudAccount' {} Sensitive Text
a -> CreateGovCloudAccount
s {$sel:accountName:CreateGovCloudAccount' :: Sensitive Text
accountName = Sensitive Text
a} :: CreateGovCloudAccount) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive

instance Core.AWSRequest CreateGovCloudAccount where
  type
    AWSResponse CreateGovCloudAccount =
      CreateGovCloudAccountResponse
  request :: (Service -> Service)
-> CreateGovCloudAccount -> Request CreateGovCloudAccount
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateGovCloudAccount
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateGovCloudAccount)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe CreateAccountStatus -> Int -> CreateGovCloudAccountResponse
CreateGovCloudAccountResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CreateAccountStatus")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CreateGovCloudAccount where
  hashWithSalt :: Int -> CreateGovCloudAccount -> Int
hashWithSalt Int
_salt CreateGovCloudAccount' {Maybe [Tag]
Maybe Text
Maybe IAMUserAccessToBilling
Sensitive Text
accountName :: Sensitive Text
email :: Sensitive Text
tags :: Maybe [Tag]
roleName :: Maybe Text
iamUserAccessToBilling :: Maybe IAMUserAccessToBilling
$sel:accountName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
$sel:email:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
$sel:tags:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe [Tag]
$sel:roleName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe Text
$sel:iamUserAccessToBilling:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe IAMUserAccessToBilling
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IAMUserAccessToBilling
iamUserAccessToBilling
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
roleName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
email
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
accountName

instance Prelude.NFData CreateGovCloudAccount where
  rnf :: CreateGovCloudAccount -> ()
rnf CreateGovCloudAccount' {Maybe [Tag]
Maybe Text
Maybe IAMUserAccessToBilling
Sensitive Text
accountName :: Sensitive Text
email :: Sensitive Text
tags :: Maybe [Tag]
roleName :: Maybe Text
iamUserAccessToBilling :: Maybe IAMUserAccessToBilling
$sel:accountName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
$sel:email:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
$sel:tags:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe [Tag]
$sel:roleName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe Text
$sel:iamUserAccessToBilling:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe IAMUserAccessToBilling
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe IAMUserAccessToBilling
iamUserAccessToBilling
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
roleName
      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 Sensitive Text
email
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
accountName

instance Data.ToHeaders CreateGovCloudAccount where
  toHeaders :: CreateGovCloudAccount -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSOrganizationsV20161128.CreateGovCloudAccount" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON CreateGovCloudAccount where
  toJSON :: CreateGovCloudAccount -> Value
toJSON CreateGovCloudAccount' {Maybe [Tag]
Maybe Text
Maybe IAMUserAccessToBilling
Sensitive Text
accountName :: Sensitive Text
email :: Sensitive Text
tags :: Maybe [Tag]
roleName :: Maybe Text
iamUserAccessToBilling :: Maybe IAMUserAccessToBilling
$sel:accountName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
$sel:email:CreateGovCloudAccount' :: CreateGovCloudAccount -> Sensitive Text
$sel:tags:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe [Tag]
$sel:roleName:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe Text
$sel:iamUserAccessToBilling:CreateGovCloudAccount' :: CreateGovCloudAccount -> Maybe IAMUserAccessToBilling
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"IamUserAccessToBilling" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IAMUserAccessToBilling
iamUserAccessToBilling,
            (Key
"RoleName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
roleName,
            (Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
            forall a. a -> Maybe a
Prelude.Just (Key
"Email" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
email),
            forall a. a -> Maybe a
Prelude.Just (Key
"AccountName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
accountName)
          ]
      )

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

instance Data.ToQuery CreateGovCloudAccount where
  toQuery :: CreateGovCloudAccount -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreateGovCloudAccountResponse' smart constructor.
data CreateGovCloudAccountResponse = CreateGovCloudAccountResponse'
  { CreateGovCloudAccountResponse -> Maybe CreateAccountStatus
createAccountStatus :: Prelude.Maybe CreateAccountStatus,
    -- | The response's http status code.
    CreateGovCloudAccountResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateGovCloudAccountResponse
-> CreateGovCloudAccountResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateGovCloudAccountResponse
-> CreateGovCloudAccountResponse -> Bool
$c/= :: CreateGovCloudAccountResponse
-> CreateGovCloudAccountResponse -> Bool
== :: CreateGovCloudAccountResponse
-> CreateGovCloudAccountResponse -> Bool
$c== :: CreateGovCloudAccountResponse
-> CreateGovCloudAccountResponse -> Bool
Prelude.Eq, Int -> CreateGovCloudAccountResponse -> ShowS
[CreateGovCloudAccountResponse] -> ShowS
CreateGovCloudAccountResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateGovCloudAccountResponse] -> ShowS
$cshowList :: [CreateGovCloudAccountResponse] -> ShowS
show :: CreateGovCloudAccountResponse -> String
$cshow :: CreateGovCloudAccountResponse -> String
showsPrec :: Int -> CreateGovCloudAccountResponse -> ShowS
$cshowsPrec :: Int -> CreateGovCloudAccountResponse -> ShowS
Prelude.Show, forall x.
Rep CreateGovCloudAccountResponse x
-> CreateGovCloudAccountResponse
forall x.
CreateGovCloudAccountResponse
-> Rep CreateGovCloudAccountResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateGovCloudAccountResponse x
-> CreateGovCloudAccountResponse
$cfrom :: forall x.
CreateGovCloudAccountResponse
-> Rep CreateGovCloudAccountResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateGovCloudAccountResponse' 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:
--
-- 'createAccountStatus', 'createGovCloudAccountResponse_createAccountStatus' - Undocumented member.
--
-- 'httpStatus', 'createGovCloudAccountResponse_httpStatus' - The response's http status code.
newCreateGovCloudAccountResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateGovCloudAccountResponse
newCreateGovCloudAccountResponse :: Int -> CreateGovCloudAccountResponse
newCreateGovCloudAccountResponse Int
pHttpStatus_ =
  CreateGovCloudAccountResponse'
    { $sel:createAccountStatus:CreateGovCloudAccountResponse' :: Maybe CreateAccountStatus
createAccountStatus =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateGovCloudAccountResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Undocumented member.
createGovCloudAccountResponse_createAccountStatus :: Lens.Lens' CreateGovCloudAccountResponse (Prelude.Maybe CreateAccountStatus)
createGovCloudAccountResponse_createAccountStatus :: Lens' CreateGovCloudAccountResponse (Maybe CreateAccountStatus)
createGovCloudAccountResponse_createAccountStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateGovCloudAccountResponse' {Maybe CreateAccountStatus
createAccountStatus :: Maybe CreateAccountStatus
$sel:createAccountStatus:CreateGovCloudAccountResponse' :: CreateGovCloudAccountResponse -> Maybe CreateAccountStatus
createAccountStatus} -> Maybe CreateAccountStatus
createAccountStatus) (\s :: CreateGovCloudAccountResponse
s@CreateGovCloudAccountResponse' {} Maybe CreateAccountStatus
a -> CreateGovCloudAccountResponse
s {$sel:createAccountStatus:CreateGovCloudAccountResponse' :: Maybe CreateAccountStatus
createAccountStatus = Maybe CreateAccountStatus
a} :: CreateGovCloudAccountResponse)

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

instance Prelude.NFData CreateGovCloudAccountResponse where
  rnf :: CreateGovCloudAccountResponse -> ()
rnf CreateGovCloudAccountResponse' {Int
Maybe CreateAccountStatus
httpStatus :: Int
createAccountStatus :: Maybe CreateAccountStatus
$sel:httpStatus:CreateGovCloudAccountResponse' :: CreateGovCloudAccountResponse -> Int
$sel:createAccountStatus:CreateGovCloudAccountResponse' :: CreateGovCloudAccountResponse -> Maybe CreateAccountStatus
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe CreateAccountStatus
createAccountStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus