{-# 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.CreateAccount
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates an Amazon Web Services account that is automatically a member of
-- the organization whose credentials made the request. This is an
-- asynchronous request that Amazon Web Services performs in the
-- background. Because @CreateAccount@ 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 @Id@ value of the @CreateAccountStatus@ 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_security_incident-response.html#orgs_cloudtrail-integration Logging and monitoring in Organizations>
--     in the /Organizations User Guide./
--
-- The user who calls the API to create an account must have the
-- @organizations:CreateAccount@ permission. If you enabled all features in
-- the organization, Organizations 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/.
--
-- If the request includes tags, then the requester must have the
-- @organizations:TagResource@ permission.
--
-- Organizations preconfigures the new member account with a role (named
-- @OrganizationAccountAccessRole@ by default) that grants users in the
-- management account administrator permissions in the new member account.
-- Principals in the management account can assume the role. Organizations
-- clones the company name and address information for the new account from
-- the organization\'s management account.
--
-- This operation can be called only from the organization\'s management
-- account.
--
-- 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, such as
--     a payment method and signing the end user license agreement (EULA)
--     is /not/ automatically collected. 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 @CreateAccount@ to create multiple temporary accounts isn\'t
--     recommended. You can only close an account from the 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.CreateAccount
  ( -- * Creating a Request
    CreateAccount (..),
    newCreateAccount,

    -- * Request Lenses
    createAccount_iamUserAccessToBilling,
    createAccount_roleName,
    createAccount_tags,
    createAccount_email,
    createAccount_accountName,

    -- * Destructuring the Response
    CreateAccountResponse (..),
    newCreateAccountResponse,

    -- * Response Lenses
    createAccountResponse_createAccountStatus,
    createAccountResponse_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:/ 'newCreateAccount' smart constructor.
data CreateAccount = CreateAccount'
  { -- | If set to @ALLOW@, the new account 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.
    CreateAccount -> Maybe IAMUserAccessToBilling
iamUserAccessToBilling :: Prelude.Maybe IAMUserAccessToBilling,
    -- | The name of an IAM role that Organizations automatically preconfigures
    -- in the new member account. 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 the following links:
    --
    -- -   <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/
    --
    -- -   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: =,.\@-
    CreateAccount -> Maybe Text
roleName :: Prelude.Maybe Prelude.Text,
    -- | A list of tags that you want to attach to the newly created account. 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.
    CreateAccount -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | The email address of the owner to assign to the new member account. 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.
    CreateAccount -> Sensitive Text
email :: Data.Sensitive Prelude.Text,
    -- | The friendly name of the member account.
    CreateAccount -> Sensitive Text
accountName :: Data.Sensitive Prelude.Text
  }
  deriving (CreateAccount -> CreateAccount -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAccount -> CreateAccount -> Bool
$c/= :: CreateAccount -> CreateAccount -> Bool
== :: CreateAccount -> CreateAccount -> Bool
$c== :: CreateAccount -> CreateAccount -> Bool
Prelude.Eq, Int -> CreateAccount -> ShowS
[CreateAccount] -> ShowS
CreateAccount -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAccount] -> ShowS
$cshowList :: [CreateAccount] -> ShowS
show :: CreateAccount -> String
$cshow :: CreateAccount -> String
showsPrec :: Int -> CreateAccount -> ShowS
$cshowsPrec :: Int -> CreateAccount -> ShowS
Prelude.Show, forall x. Rep CreateAccount x -> CreateAccount
forall x. CreateAccount -> Rep CreateAccount x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAccount x -> CreateAccount
$cfrom :: forall x. CreateAccount -> Rep CreateAccount x
Prelude.Generic)

-- |
-- Create a value of 'CreateAccount' 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', 'createAccount_iamUserAccessToBilling' - If set to @ALLOW@, the new account 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', 'createAccount_roleName' - The name of an IAM role that Organizations automatically preconfigures
-- in the new member account. 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 the following links:
--
-- -   <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/
--
-- -   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', 'createAccount_tags' - A list of tags that you want to attach to the newly created account. 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', 'createAccount_email' - The email address of the owner to assign to the new member account. 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.
--
-- 'accountName', 'createAccount_accountName' - The friendly name of the member account.
newCreateAccount ::
  -- | 'email'
  Prelude.Text ->
  -- | 'accountName'
  Prelude.Text ->
  CreateAccount
newCreateAccount :: Text -> Text -> CreateAccount
newCreateAccount Text
pEmail_ Text
pAccountName_ =
  CreateAccount'
    { $sel:iamUserAccessToBilling:CreateAccount' :: Maybe IAMUserAccessToBilling
iamUserAccessToBilling =
        forall a. Maybe a
Prelude.Nothing,
      $sel:roleName:CreateAccount' :: Maybe Text
roleName = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreateAccount' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:email:CreateAccount' :: Sensitive Text
email = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pEmail_,
      $sel:accountName:CreateAccount' :: 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 account 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.
createAccount_iamUserAccessToBilling :: Lens.Lens' CreateAccount (Prelude.Maybe IAMUserAccessToBilling)
createAccount_iamUserAccessToBilling :: Lens' CreateAccount (Maybe IAMUserAccessToBilling)
createAccount_iamUserAccessToBilling = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccount' {Maybe IAMUserAccessToBilling
iamUserAccessToBilling :: Maybe IAMUserAccessToBilling
$sel:iamUserAccessToBilling:CreateAccount' :: CreateAccount -> Maybe IAMUserAccessToBilling
iamUserAccessToBilling} -> Maybe IAMUserAccessToBilling
iamUserAccessToBilling) (\s :: CreateAccount
s@CreateAccount' {} Maybe IAMUserAccessToBilling
a -> CreateAccount
s {$sel:iamUserAccessToBilling:CreateAccount' :: Maybe IAMUserAccessToBilling
iamUserAccessToBilling = Maybe IAMUserAccessToBilling
a} :: CreateAccount)

-- | The name of an IAM role that Organizations automatically preconfigures
-- in the new member account. 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 the following links:
--
-- -   <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/
--
-- -   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: =,.\@-
createAccount_roleName :: Lens.Lens' CreateAccount (Prelude.Maybe Prelude.Text)
createAccount_roleName :: Lens' CreateAccount (Maybe Text)
createAccount_roleName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccount' {Maybe Text
roleName :: Maybe Text
$sel:roleName:CreateAccount' :: CreateAccount -> Maybe Text
roleName} -> Maybe Text
roleName) (\s :: CreateAccount
s@CreateAccount' {} Maybe Text
a -> CreateAccount
s {$sel:roleName:CreateAccount' :: Maybe Text
roleName = Maybe Text
a} :: CreateAccount)

-- | A list of tags that you want to attach to the newly created account. 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.
createAccount_tags :: Lens.Lens' CreateAccount (Prelude.Maybe [Tag])
createAccount_tags :: Lens' CreateAccount (Maybe [Tag])
createAccount_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccount' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateAccount' :: CreateAccount -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateAccount
s@CreateAccount' {} Maybe [Tag]
a -> CreateAccount
s {$sel:tags:CreateAccount' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateAccount) 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 email address of the owner to assign to the new member account. 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.
createAccount_email :: Lens.Lens' CreateAccount Prelude.Text
createAccount_email :: Lens' CreateAccount Text
createAccount_email = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccount' {Sensitive Text
email :: Sensitive Text
$sel:email:CreateAccount' :: CreateAccount -> Sensitive Text
email} -> Sensitive Text
email) (\s :: CreateAccount
s@CreateAccount' {} Sensitive Text
a -> CreateAccount
s {$sel:email:CreateAccount' :: Sensitive Text
email = Sensitive Text
a} :: CreateAccount) 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.
createAccount_accountName :: Lens.Lens' CreateAccount Prelude.Text
createAccount_accountName :: Lens' CreateAccount Text
createAccount_accountName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccount' {Sensitive Text
accountName :: Sensitive Text
$sel:accountName:CreateAccount' :: CreateAccount -> Sensitive Text
accountName} -> Sensitive Text
accountName) (\s :: CreateAccount
s@CreateAccount' {} Sensitive Text
a -> CreateAccount
s {$sel:accountName:CreateAccount' :: Sensitive Text
accountName = Sensitive Text
a} :: CreateAccount) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive

instance Core.AWSRequest CreateAccount where
  type
    AWSResponse CreateAccount =
      CreateAccountResponse
  request :: (Service -> Service) -> CreateAccount -> Request CreateAccount
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 CreateAccount
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateAccount)))
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 -> CreateAccountResponse
CreateAccountResponse'
            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 CreateAccount where
  hashWithSalt :: Int -> CreateAccount -> Int
hashWithSalt Int
_salt CreateAccount' {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:CreateAccount' :: CreateAccount -> Sensitive Text
$sel:email:CreateAccount' :: CreateAccount -> Sensitive Text
$sel:tags:CreateAccount' :: CreateAccount -> Maybe [Tag]
$sel:roleName:CreateAccount' :: CreateAccount -> Maybe Text
$sel:iamUserAccessToBilling:CreateAccount' :: CreateAccount -> 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 CreateAccount where
  rnf :: CreateAccount -> ()
rnf CreateAccount' {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:CreateAccount' :: CreateAccount -> Sensitive Text
$sel:email:CreateAccount' :: CreateAccount -> Sensitive Text
$sel:tags:CreateAccount' :: CreateAccount -> Maybe [Tag]
$sel:roleName:CreateAccount' :: CreateAccount -> Maybe Text
$sel:iamUserAccessToBilling:CreateAccount' :: CreateAccount -> 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 CreateAccount where
  toHeaders :: CreateAccount -> 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.CreateAccount" ::
                          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 CreateAccount where
  toJSON :: CreateAccount -> Value
toJSON CreateAccount' {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:CreateAccount' :: CreateAccount -> Sensitive Text
$sel:email:CreateAccount' :: CreateAccount -> Sensitive Text
$sel:tags:CreateAccount' :: CreateAccount -> Maybe [Tag]
$sel:roleName:CreateAccount' :: CreateAccount -> Maybe Text
$sel:iamUserAccessToBilling:CreateAccount' :: CreateAccount -> 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 CreateAccount where
  toPath :: CreateAccount -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

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

-- | /See:/ 'newCreateAccountResponse' smart constructor.
data CreateAccountResponse = CreateAccountResponse'
  { -- | A structure that contains details about the request to create an
    -- account. This response structure might not be fully populated when you
    -- first receive it because account creation is an asynchronous process.
    -- You can pass the returned @CreateAccountStatus@ ID as a parameter to
    -- DescribeCreateAccountStatus to get status about the progress of the
    -- request at later times. You can also check the CloudTrail log for the
    -- @CreateAccountResult@ event. For more information, see
    -- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_monitoring.html Monitoring the Activity in Your Organization>
    -- in the /Organizations User Guide/.
    CreateAccountResponse -> Maybe CreateAccountStatus
createAccountStatus :: Prelude.Maybe CreateAccountStatus,
    -- | The response's http status code.
    CreateAccountResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateAccountResponse -> CreateAccountResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAccountResponse -> CreateAccountResponse -> Bool
$c/= :: CreateAccountResponse -> CreateAccountResponse -> Bool
== :: CreateAccountResponse -> CreateAccountResponse -> Bool
$c== :: CreateAccountResponse -> CreateAccountResponse -> Bool
Prelude.Eq, Int -> CreateAccountResponse -> ShowS
[CreateAccountResponse] -> ShowS
CreateAccountResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAccountResponse] -> ShowS
$cshowList :: [CreateAccountResponse] -> ShowS
show :: CreateAccountResponse -> String
$cshow :: CreateAccountResponse -> String
showsPrec :: Int -> CreateAccountResponse -> ShowS
$cshowsPrec :: Int -> CreateAccountResponse -> ShowS
Prelude.Show, forall x. Rep CreateAccountResponse x -> CreateAccountResponse
forall x. CreateAccountResponse -> Rep CreateAccountResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAccountResponse x -> CreateAccountResponse
$cfrom :: forall x. CreateAccountResponse -> Rep CreateAccountResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateAccountResponse' 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', 'createAccountResponse_createAccountStatus' - A structure that contains details about the request to create an
-- account. This response structure might not be fully populated when you
-- first receive it because account creation is an asynchronous process.
-- You can pass the returned @CreateAccountStatus@ ID as a parameter to
-- DescribeCreateAccountStatus to get status about the progress of the
-- request at later times. You can also check the CloudTrail log for the
-- @CreateAccountResult@ event. For more information, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_monitoring.html Monitoring the Activity in Your Organization>
-- in the /Organizations User Guide/.
--
-- 'httpStatus', 'createAccountResponse_httpStatus' - The response's http status code.
newCreateAccountResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateAccountResponse
newCreateAccountResponse :: Int -> CreateAccountResponse
newCreateAccountResponse Int
pHttpStatus_ =
  CreateAccountResponse'
    { $sel:createAccountStatus:CreateAccountResponse' :: Maybe CreateAccountStatus
createAccountStatus =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateAccountResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | A structure that contains details about the request to create an
-- account. This response structure might not be fully populated when you
-- first receive it because account creation is an asynchronous process.
-- You can pass the returned @CreateAccountStatus@ ID as a parameter to
-- DescribeCreateAccountStatus to get status about the progress of the
-- request at later times. You can also check the CloudTrail log for the
-- @CreateAccountResult@ event. For more information, see
-- <https://docs.aws.amazon.com/organizations/latest/userguide/orgs_monitoring.html Monitoring the Activity in Your Organization>
-- in the /Organizations User Guide/.
createAccountResponse_createAccountStatus :: Lens.Lens' CreateAccountResponse (Prelude.Maybe CreateAccountStatus)
createAccountResponse_createAccountStatus :: Lens' CreateAccountResponse (Maybe CreateAccountStatus)
createAccountResponse_createAccountStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAccountResponse' {Maybe CreateAccountStatus
createAccountStatus :: Maybe CreateAccountStatus
$sel:createAccountStatus:CreateAccountResponse' :: CreateAccountResponse -> Maybe CreateAccountStatus
createAccountStatus} -> Maybe CreateAccountStatus
createAccountStatus) (\s :: CreateAccountResponse
s@CreateAccountResponse' {} Maybe CreateAccountStatus
a -> CreateAccountResponse
s {$sel:createAccountStatus:CreateAccountResponse' :: Maybe CreateAccountStatus
createAccountStatus = Maybe CreateAccountStatus
a} :: CreateAccountResponse)

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

instance Prelude.NFData CreateAccountResponse where
  rnf :: CreateAccountResponse -> ()
rnf CreateAccountResponse' {Int
Maybe CreateAccountStatus
httpStatus :: Int
createAccountStatus :: Maybe CreateAccountStatus
$sel:httpStatus:CreateAccountResponse' :: CreateAccountResponse -> Int
$sel:createAccountStatus:CreateAccountResponse' :: CreateAccountResponse -> 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