{-# 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. :: 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]) = 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