{-# 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.KMS.CreateKey
-- 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 a unique customer managed
-- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#kms-keys KMS key>
-- in your Amazon Web Services account and Region. You can use a KMS key in
-- cryptographic operations, such as encryption and signing. Some Amazon
-- Web Services services let you use KMS keys that you create and manage to
-- protect your service resources.
--
-- A KMS key is a logical representation of a cryptographic key. In
-- addition to the key material used in cryptographic operations, a KMS key
-- includes metadata, such as the key ID, key policy, creation date,
-- description, and key state. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/getting-started.html Managing keys>
-- in the /Key Management Service Developer Guide/
--
-- Use the parameters of @CreateKey@ to specify the type of KMS key, the
-- source of its key material, its key policy, description, tags, and other
-- properties.
--
-- KMS has replaced the term /customer master key (CMK)/ with /KMS key/ and
-- /KMS key/. The concept has not changed. To prevent breaking changes, KMS
-- is keeping some variations of this term.
--
-- To create different types of KMS keys, use the following guidance:
--
-- [Symmetric encryption KMS key]
--     By default, @CreateKey@ creates a symmetric encryption KMS key with
--     key material that KMS generates. This is the basic and most widely
--     used type of KMS key, and provides the best performance.
--
--     To create a symmetric encryption KMS key, you don\'t need to specify
--     any parameters. The default value for @KeySpec@,
--     @SYMMETRIC_DEFAULT@, the default value for @KeyUsage@,
--     @ENCRYPT_DECRYPT@, and the default value for @Origin@, @AWS_KMS@,
--     create a symmetric encryption KMS key with KMS key material.
--
--     If you need a key for basic encryption and decryption or you are
--     creating a KMS key to protect your resources in an Amazon Web
--     Services service, create a symmetric encryption KMS key. The key
--     material in a symmetric encryption key never leaves KMS unencrypted.
--     You can use a symmetric encryption KMS key to encrypt and decrypt
--     data up to 4,096 bytes, but they are typically used to generate data
--     keys and data keys pairs. For details, see GenerateDataKey and
--     GenerateDataKeyPair.
--
-- [Asymmetric KMS keys]
--     To create an asymmetric KMS key, use the @KeySpec@ parameter to
--     specify the type of key material in the KMS key. Then, use the
--     @KeyUsage@ parameter to determine whether the KMS key will be used
--     to encrypt and decrypt or sign and verify. You can\'t change these
--     properties after the KMS key is created.
--
--     Asymmetric KMS keys contain an RSA key pair, Elliptic Curve (ECC)
--     key pair, or an SM2 key pair (China Regions only). The private key
--     in an asymmetric KMS key never leaves KMS unencrypted. However, you
--     can use the GetPublicKey operation to download the public key so it
--     can be used outside of KMS. KMS keys with RSA or SM2 key pairs can
--     be used to encrypt or decrypt data or sign and verify messages (but
--     not both). KMS keys with ECC key pairs can be used only to sign and
--     verify messages. For information about asymmetric KMS keys, see
--     <https://docs.aws.amazon.com/kms/latest/developerguide/symmetric-asymmetric.html Asymmetric KMS keys>
--     in the /Key Management Service Developer Guide/.
--
-- [HMAC KMS key]
--     To create an HMAC KMS key, set the @KeySpec@ parameter to a key spec
--     value for HMAC KMS keys. Then set the @KeyUsage@ parameter to
--     @GENERATE_VERIFY_MAC@. You must set the key usage even though
--     @GENERATE_VERIFY_MAC@ is the only valid key usage value for HMAC KMS
--     keys. You can\'t change these properties after the KMS key is
--     created.
--
--     HMAC KMS keys are symmetric keys that never leave KMS unencrypted.
--     You can use HMAC keys to generate (GenerateMac) and verify
--     (VerifyMac) HMAC codes for messages up to 4096 bytes.
--
--     HMAC KMS keys are not supported in all Amazon Web Services Regions.
--     If you try to create an HMAC KMS key in an Amazon Web Services
--     Region in which HMAC keys are not supported, the @CreateKey@
--     operation returns an @UnsupportedOperationException@. For a list of
--     Regions in which HMAC KMS keys are supported, see
--     <https://docs.aws.amazon.com/kms/latest/developerguide/hmac.html HMAC keys in KMS>
--     in the /Key Management Service Developer Guide/.
--
-- [Multi-Region primary keys
-- Imported key material]
--     To create a multi-Region /primary key/ in the local Amazon Web
--     Services Region, use the @MultiRegion@ parameter with a value of
--     @True@. To create a multi-Region /replica key/, that is, a KMS key
--     with the same key ID and key material as a primary key, but in a
--     different Amazon Web Services Region, use the ReplicateKey
--     operation. To change a replica key to a primary key, and its primary
--     key to a replica key, use the UpdatePrimaryRegion operation.
--
--     You can create multi-Region KMS keys for all supported KMS key
--     types: symmetric encryption KMS keys, HMAC KMS keys, asymmetric
--     encryption KMS keys, and asymmetric signing KMS keys. You can also
--     create multi-Region keys with imported key material. However, you
--     can\'t create multi-Region keys in a custom key store.
--
--     This operation supports /multi-Region keys/, an KMS feature that
--     lets you create multiple interoperable KMS keys in different Amazon
--     Web Services Regions. Because these KMS keys have the same key ID,
--     key material, and other metadata, you can use them interchangeably
--     to encrypt data in one Amazon Web Services Region and decrypt it in
--     a different Amazon Web Services Region without re-encrypting the
--     data or making a cross-Region call. For more information about
--     multi-Region keys, see
--     <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Multi-Region keys in KMS>
--     in the /Key Management Service Developer Guide/.
--
--     To import your own key material into a KMS key, begin by creating a
--     symmetric encryption KMS key with no key material. To do this, use
--     the @Origin@ parameter of @CreateKey@ with a value of @EXTERNAL@.
--     Next, use GetParametersForImport operation to get a public key and
--     import token, and use the public key to encrypt your key material.
--     Then, use ImportKeyMaterial with your import token to import the key
--     material. For step-by-step instructions, see
--     <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys.html Importing Key Material>
--     in the //Key Management Service Developer Guide// .
--
--     This feature supports only symmetric encryption KMS keys, including
--     multi-Region symmetric encryption KMS keys. You cannot import key
--     material into any other type of KMS key.
--
--     To create a multi-Region primary key with imported key material, use
--     the @Origin@ parameter of @CreateKey@ with a value of @EXTERNAL@ and
--     the @MultiRegion@ parameter with a value of @True@. To create
--     replicas of the multi-Region primary key, use the ReplicateKey
--     operation. For instructions, see
--     <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-import.html%20 Importing key material into multi-Region keys>.
--     For more information about multi-Region keys, see
--     <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Multi-Region keys in KMS>
--     in the /Key Management Service Developer Guide/.
--
-- [Custom key store]
--     A
--     <https://docs.aws.amazon.com/kms/latest/developerguide/custom-key-store-overview.html custom key store>
--     lets you protect your Amazon Web Services resources using keys in a
--     backing key store that you own and manage. When you request a
--     cryptographic operation with a KMS key in a custom key store, the
--     operation is performed in the backing key store using its
--     cryptographic keys.
--
--     KMS supports
--     <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-cloudhsm.html CloudHSM key stores>
--     backed by an CloudHSM cluster and
--     <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html external key stores>
--     backed by an external key manager outside of Amazon Web Services.
--     When you create a KMS key in an CloudHSM key store, KMS generates an
--     encryption key in the CloudHSM cluster and associates it with the
--     KMS key. When you create a KMS key in an external key store, you
--     specify an existing encryption key in the external key manager.
--
--     Some external key managers provide a simpler method for creating a
--     KMS key in an external key store. For details, see your external key
--     manager documentation.
--
--     Before you create a KMS key in a custom key store, the
--     @ConnectionState@ of the key store must be @CONNECTED@. To connect
--     the custom key store, use the ConnectCustomKeyStore operation. To
--     find the @ConnectionState@, use the DescribeCustomKeyStores
--     operation.
--
--     To create a KMS key in a custom key store, use the
--     @CustomKeyStoreId@. Use the default @KeySpec@ value,
--     @SYMMETRIC_DEFAULT@, and the default @KeyUsage@ value,
--     @ENCRYPT_DECRYPT@ to create a symmetric encryption key. No other key
--     type is supported in a custom key store.
--
--     To create a KMS key in an
--     <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-cloudhsm.html CloudHSM key store>,
--     use the @Origin@ parameter with a value of @AWS_CLOUDHSM@. The
--     CloudHSM cluster that is associated with the custom key store must
--     have at least two active HSMs in different Availability Zones in the
--     Amazon Web Services Region.
--
--     To create a KMS key in an
--     <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html external key store>,
--     use the @Origin@ parameter with a value of @EXTERNAL_KEY_STORE@ and
--     an @XksKeyId@ parameter that identifies an existing external key.
--
--     Some external key managers provide a simpler method for creating a
--     KMS key in an external key store. For details, see your external key
--     manager documentation.
--
-- __Cross-account use__: No. You cannot use this operation to create a KMS
-- key in a different Amazon Web Services account.
--
-- __Required permissions__:
-- <https://docs.aws.amazon.com/kms/latest/developerguide/kms-api-permissions-reference.html kms:CreateKey>
-- (IAM policy). To use the @Tags@ parameter,
-- <https://docs.aws.amazon.com/kms/latest/developerguide/kms-api-permissions-reference.html kms:TagResource>
-- (IAM policy). For examples and information about related permissions,
-- see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/iam-policies.html#iam-policy-example-create-key Allow a user to create KMS keys>
-- in the /Key Management Service Developer Guide/.
--
-- __Related operations:__
--
-- -   DescribeKey
--
-- -   ListKeys
--
-- -   ScheduleKeyDeletion
module Amazonka.KMS.CreateKey
  ( -- * Creating a Request
    CreateKey (..),
    newCreateKey,

    -- * Request Lenses
    createKey_bypassPolicyLockoutSafetyCheck,
    createKey_customKeyStoreId,
    createKey_customerMasterKeySpec,
    createKey_description,
    createKey_keySpec,
    createKey_keyUsage,
    createKey_multiRegion,
    createKey_origin,
    createKey_policy,
    createKey_tags,
    createKey_xksKeyId,

    -- * Destructuring the Response
    CreateKeyResponse (..),
    newCreateKeyResponse,

    -- * Response Lenses
    createKeyResponse_keyMetadata,
    createKeyResponse_httpStatus,
  )
where

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

-- | /See:/ 'newCreateKey' smart constructor.
data CreateKey = CreateKey'
  { -- | A flag to indicate whether to bypass the key policy lockout safety
    -- check.
    --
    -- Setting this value to true increases the risk that the KMS key becomes
    -- unmanageable. Do not set this value to true indiscriminately.
    --
    -- For more information, refer to the scenario in the
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default-allow-root-enable-iam Default Key Policy>
    -- section in the //Key Management Service Developer Guide// .
    --
    -- Use this parameter only when you include a policy in the request and you
    -- intend to prevent the principal that is making the request from making a
    -- subsequent PutKeyPolicy request on the KMS key.
    --
    -- The default value is false.
    CreateKey -> Maybe Bool
bypassPolicyLockoutSafetyCheck :: Prelude.Maybe Prelude.Bool,
    -- | Creates the KMS key in the specified
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/custom-key-store-overview.html custom key store>.
    -- The @ConnectionState@ of the custom key store must be @CONNECTED@. To
    -- find the CustomKeyStoreID and ConnectionState use the
    -- DescribeCustomKeyStores operation.
    --
    -- This parameter is valid only for symmetric encryption KMS keys in a
    -- single Region. You cannot create any other type of KMS key in a custom
    -- key store.
    --
    -- When you create a KMS key in an CloudHSM key store, KMS generates a
    -- non-exportable 256-bit symmetric key in its associated CloudHSM cluster
    -- and associates it with the KMS key. When you create a KMS key in an
    -- external key store, you must use the @XksKeyId@ parameter to specify an
    -- external key that serves as key material for the KMS key.
    CreateKey -> Maybe Text
customKeyStoreId :: Prelude.Maybe Prelude.Text,
    -- | Instead, use the @KeySpec@ parameter.
    --
    -- The @KeySpec@ and @CustomerMasterKeySpec@ parameters work the same way.
    -- Only the names differ. We recommend that you use @KeySpec@ parameter in
    -- your code. However, to avoid breaking changes, KMS supports both
    -- parameters.
    CreateKey -> Maybe CustomerMasterKeySpec
customerMasterKeySpec :: Prelude.Maybe CustomerMasterKeySpec,
    -- | A description of the KMS key.
    --
    -- Use a description that helps you decide whether the KMS key is
    -- appropriate for a task. The default value is an empty string (no
    -- description).
    --
    -- To set or change the description after the key is created, use
    -- UpdateKeyDescription.
    CreateKey -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    -- | Specifies the type of KMS key to create. The default value,
    -- @SYMMETRIC_DEFAULT@, creates a KMS key with a 256-bit AES-GCM key that
    -- is used for encryption and decryption, except in China Regions, where it
    -- creates a 128-bit symmetric key that uses SM4 encryption. For help
    -- choosing a key spec for your KMS key, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/key-types.html#symm-asymm-choose Choosing a KMS key type>
    -- in the //Key Management Service Developer Guide// .
    --
    -- The @KeySpec@ determines whether the KMS key contains a symmetric key or
    -- an asymmetric key pair. It also determines the algorithms that the KMS
    -- key supports. You can\'t change the @KeySpec@ after the KMS key is
    -- created. To further restrict the algorithms that can be used with the
    -- KMS key, use a condition key in its key policy or IAM policy. For more
    -- information, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-encryption-algorithm kms:EncryptionAlgorithm>,
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-mac-algorithm kms:MacAlgorithm>
    -- or
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-signing-algorithm kms:Signing Algorithm>
    -- in the //Key Management Service Developer Guide// .
    --
    -- <http://aws.amazon.com/kms/features/#AWS_Service_Integration Amazon Web Services services that are integrated with KMS>
    -- use symmetric encryption KMS keys to protect your data. These services
    -- do not support asymmetric KMS keys or HMAC KMS keys.
    --
    -- KMS supports the following key specs for KMS keys:
    --
    -- -   Symmetric encryption key (default)
    --
    --     -   @SYMMETRIC_DEFAULT@
    --
    -- -   HMAC keys (symmetric)
    --
    --     -   @HMAC_224@
    --
    --     -   @HMAC_256@
    --
    --     -   @HMAC_384@
    --
    --     -   @HMAC_512@
    --
    -- -   Asymmetric RSA key pairs
    --
    --     -   @RSA_2048@
    --
    --     -   @RSA_3072@
    --
    --     -   @RSA_4096@
    --
    -- -   Asymmetric NIST-recommended elliptic curve key pairs
    --
    --     -   @ECC_NIST_P256@ (secp256r1)
    --
    --     -   @ECC_NIST_P384@ (secp384r1)
    --
    --     -   @ECC_NIST_P521@ (secp521r1)
    --
    -- -   Other asymmetric elliptic curve key pairs
    --
    --     -   @ECC_SECG_P256K1@ (secp256k1), commonly used for
    --         cryptocurrencies.
    --
    -- -   SM2 key pairs (China Regions only)
    --
    --     -   @SM2@
    CreateKey -> Maybe KeySpec
keySpec :: Prelude.Maybe KeySpec,
    -- | Determines the
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#cryptographic-operations cryptographic operations>
    -- for which you can use the KMS key. The default value is
    -- @ENCRYPT_DECRYPT@. This parameter is optional when you are creating a
    -- symmetric encryption KMS key; otherwise, it is required. You can\'t
    -- change the @KeyUsage@ value after the KMS key is created.
    --
    -- Select only one valid value.
    --
    -- -   For symmetric encryption KMS keys, omit the parameter or specify
    --     @ENCRYPT_DECRYPT@.
    --
    -- -   For HMAC KMS keys (symmetric), specify @GENERATE_VERIFY_MAC@.
    --
    -- -   For asymmetric KMS keys with RSA key material, specify
    --     @ENCRYPT_DECRYPT@ or @SIGN_VERIFY@.
    --
    -- -   For asymmetric KMS keys with ECC key material, specify
    --     @SIGN_VERIFY@.
    --
    -- -   For asymmetric KMS keys with SM2 key material (China Regions only),
    --     specify @ENCRYPT_DECRYPT@ or @SIGN_VERIFY@.
    CreateKey -> Maybe KeyUsageType
keyUsage :: Prelude.Maybe KeyUsageType,
    -- | Creates a multi-Region primary key that you can replicate into other
    -- Amazon Web Services Regions. You cannot change this value after you
    -- create the KMS key.
    --
    -- For a multi-Region key, set this parameter to @True@. For a
    -- single-Region KMS key, omit this parameter or set it to @False@. The
    -- default value is @False@.
    --
    -- This operation supports /multi-Region keys/, an KMS feature that lets
    -- you create multiple interoperable KMS keys in different Amazon Web
    -- Services Regions. Because these KMS keys have the same key ID, key
    -- material, and other metadata, you can use them interchangeably to
    -- encrypt data in one Amazon Web Services Region and decrypt it in a
    -- different Amazon Web Services Region without re-encrypting the data or
    -- making a cross-Region call. For more information about multi-Region
    -- keys, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Multi-Region keys in KMS>
    -- in the /Key Management Service Developer Guide/.
    --
    -- This value creates a /primary key/, not a replica. To create a /replica
    -- key/, use the ReplicateKey operation.
    --
    -- You can create a symmetric or asymmetric multi-Region key, and you can
    -- create a multi-Region key with imported key material. However, you
    -- cannot create a multi-Region key in a custom key store.
    CreateKey -> Maybe Bool
multiRegion :: Prelude.Maybe Prelude.Bool,
    -- | The source of the key material for the KMS key. You cannot change the
    -- origin after you create the KMS key. The default is @AWS_KMS@, which
    -- means that KMS creates the key material.
    --
    -- To
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys-create-cmk.html create a KMS key with no key material>
    -- (for imported key material), set this value to @EXTERNAL@. For more
    -- information about importing key material into KMS, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys.html Importing Key Material>
    -- in the /Key Management Service Developer Guide/. The @EXTERNAL@ origin
    -- value is valid only for symmetric KMS keys.
    --
    -- To
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/create-cmk-keystore.html create a KMS key in an CloudHSM key store>
    -- and create its key material in the associated CloudHSM cluster, set this
    -- value to @AWS_CLOUDHSM@. You must also use the @CustomKeyStoreId@
    -- parameter to identify the CloudHSM key store. The @KeySpec@ value must
    -- be @SYMMETRIC_DEFAULT@.
    --
    -- To
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/create-xks-keys.html create a KMS key in an external key store>,
    -- set this value to @EXTERNAL_KEY_STORE@. You must also use the
    -- @CustomKeyStoreId@ parameter to identify the external key store and the
    -- @XksKeyId@ parameter to identify the associated external key. The
    -- @KeySpec@ value must be @SYMMETRIC_DEFAULT@.
    CreateKey -> Maybe OriginType
origin :: Prelude.Maybe OriginType,
    -- | The key policy to attach to the KMS key.
    --
    -- If you provide a key policy, it must meet the following criteria:
    --
    -- -   If you don\'t set @BypassPolicyLockoutSafetyCheck@ to true, the key
    --     policy must allow the principal that is making the @CreateKey@
    --     request to make a subsequent PutKeyPolicy request on the KMS key.
    --     This reduces the risk that the KMS key becomes unmanageable. For
    --     more information, refer to the scenario in the
    --     <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default-allow-root-enable-iam Default Key Policy>
    --     section of the //Key Management Service Developer Guide// .
    --
    -- -   Each statement in the key policy must contain one or more
    --     principals. The principals in the key policy must exist and be
    --     visible to KMS. When you create a new Amazon Web Services principal
    --     (for example, an IAM user or role), you might need to enforce a
    --     delay before including the new principal in a key policy because the
    --     new principal might not be immediately visible to KMS. For more
    --     information, see
    --     <https://docs.aws.amazon.com/IAM/latest/UserGuide/troubleshoot_general.html#troubleshoot_general_eventual-consistency Changes that I make are not always immediately visible>
    --     in the /Amazon Web Services Identity and Access Management User
    --     Guide/.
    --
    -- If you do not provide a key policy, KMS attaches a default key policy to
    -- the KMS key. For more information, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default Default Key Policy>
    -- in the /Key Management Service Developer Guide/.
    --
    -- The key policy size quota is 32 kilobytes (32768 bytes).
    --
    -- For help writing and formatting a JSON policy document, see the
    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_policies.html IAM JSON Policy Reference>
    -- in the //Identity and Access Management User Guide// .
    CreateKey -> Maybe Text
policy :: Prelude.Maybe Prelude.Text,
    -- | Assigns one or more tags to the KMS key. Use this parameter to tag the
    -- KMS key when it is created. To tag an existing KMS key, use the
    -- TagResource operation.
    --
    -- Tagging or untagging a KMS key can allow or deny permission to the KMS
    -- key. For details, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/abac.html ABAC for KMS>
    -- in the /Key Management Service Developer Guide/.
    --
    -- To use this parameter, you must have
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/kms-api-permissions-reference.html kms:TagResource>
    -- permission in an IAM policy.
    --
    -- Each tag consists of a tag key and a tag value. Both the tag key and the
    -- tag value are required, but the tag value can be an empty (null) string.
    -- You cannot have more than one tag on a KMS key with the same tag key. If
    -- you specify an existing tag key with a different tag value, KMS replaces
    -- the current tag value with the specified one.
    --
    -- When you add tags to an Amazon Web Services resource, Amazon Web
    -- Services generates a cost allocation report with usage and costs
    -- aggregated by tags. Tags can also be used to control access to a KMS
    -- key. For details, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/tagging-keys.html Tagging Keys>.
    CreateKey -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | Identifies the
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-external-key external key>
    -- that serves as key material for the KMS key in an
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html external key store>.
    -- Specify the ID that the
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-xks-proxy external key store proxy>
    -- uses to refer to the external key. For help, see the documentation for
    -- your external key store proxy.
    --
    -- This parameter is required for a KMS key with an @Origin@ value of
    -- @EXTERNAL_KEY_STORE@. It is not valid for KMS keys with any other
    -- @Origin@ value.
    --
    -- The external key must be an existing 256-bit AES symmetric encryption
    -- key hosted outside of Amazon Web Services in an external key manager
    -- associated with the external key store specified by the
    -- @CustomKeyStoreId@ parameter. This key must be enabled and configured to
    -- perform encryption and decryption. Each KMS key in an external key store
    -- must use a different external key. For details, see
    -- <https://docs.aws.amazon.com/create-xks-keys.html#xks-key-requirements Requirements for a KMS key in an external key store>
    -- in the /Key Management Service Developer Guide/.
    --
    -- Each KMS key in an external key store is associated two backing keys.
    -- One is key material that KMS generates. The other is the external key
    -- specified by this parameter. When you use the KMS key in an external key
    -- store to encrypt data, the encryption operation is performed first by
    -- KMS using the KMS key material, and then by the external key manager
    -- using the specified external key, a process known as /double
    -- encryption/. For details, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-double-encryption Double encryption>
    -- in the /Key Management Service Developer Guide/.
    CreateKey -> Maybe Text
xksKeyId :: Prelude.Maybe Prelude.Text
  }
  deriving (CreateKey -> CreateKey -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateKey -> CreateKey -> Bool
$c/= :: CreateKey -> CreateKey -> Bool
== :: CreateKey -> CreateKey -> Bool
$c== :: CreateKey -> CreateKey -> Bool
Prelude.Eq, ReadPrec [CreateKey]
ReadPrec CreateKey
Int -> ReadS CreateKey
ReadS [CreateKey]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateKey]
$creadListPrec :: ReadPrec [CreateKey]
readPrec :: ReadPrec CreateKey
$creadPrec :: ReadPrec CreateKey
readList :: ReadS [CreateKey]
$creadList :: ReadS [CreateKey]
readsPrec :: Int -> ReadS CreateKey
$creadsPrec :: Int -> ReadS CreateKey
Prelude.Read, Int -> CreateKey -> ShowS
[CreateKey] -> ShowS
CreateKey -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateKey] -> ShowS
$cshowList :: [CreateKey] -> ShowS
show :: CreateKey -> String
$cshow :: CreateKey -> String
showsPrec :: Int -> CreateKey -> ShowS
$cshowsPrec :: Int -> CreateKey -> ShowS
Prelude.Show, forall x. Rep CreateKey x -> CreateKey
forall x. CreateKey -> Rep CreateKey x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateKey x -> CreateKey
$cfrom :: forall x. CreateKey -> Rep CreateKey x
Prelude.Generic)

-- |
-- Create a value of 'CreateKey' 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:
--
-- 'bypassPolicyLockoutSafetyCheck', 'createKey_bypassPolicyLockoutSafetyCheck' - A flag to indicate whether to bypass the key policy lockout safety
-- check.
--
-- Setting this value to true increases the risk that the KMS key becomes
-- unmanageable. Do not set this value to true indiscriminately.
--
-- For more information, refer to the scenario in the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default-allow-root-enable-iam Default Key Policy>
-- section in the //Key Management Service Developer Guide// .
--
-- Use this parameter only when you include a policy in the request and you
-- intend to prevent the principal that is making the request from making a
-- subsequent PutKeyPolicy request on the KMS key.
--
-- The default value is false.
--
-- 'customKeyStoreId', 'createKey_customKeyStoreId' - Creates the KMS key in the specified
-- <https://docs.aws.amazon.com/kms/latest/developerguide/custom-key-store-overview.html custom key store>.
-- The @ConnectionState@ of the custom key store must be @CONNECTED@. To
-- find the CustomKeyStoreID and ConnectionState use the
-- DescribeCustomKeyStores operation.
--
-- This parameter is valid only for symmetric encryption KMS keys in a
-- single Region. You cannot create any other type of KMS key in a custom
-- key store.
--
-- When you create a KMS key in an CloudHSM key store, KMS generates a
-- non-exportable 256-bit symmetric key in its associated CloudHSM cluster
-- and associates it with the KMS key. When you create a KMS key in an
-- external key store, you must use the @XksKeyId@ parameter to specify an
-- external key that serves as key material for the KMS key.
--
-- 'customerMasterKeySpec', 'createKey_customerMasterKeySpec' - Instead, use the @KeySpec@ parameter.
--
-- The @KeySpec@ and @CustomerMasterKeySpec@ parameters work the same way.
-- Only the names differ. We recommend that you use @KeySpec@ parameter in
-- your code. However, to avoid breaking changes, KMS supports both
-- parameters.
--
-- 'description', 'createKey_description' - A description of the KMS key.
--
-- Use a description that helps you decide whether the KMS key is
-- appropriate for a task. The default value is an empty string (no
-- description).
--
-- To set or change the description after the key is created, use
-- UpdateKeyDescription.
--
-- 'keySpec', 'createKey_keySpec' - Specifies the type of KMS key to create. The default value,
-- @SYMMETRIC_DEFAULT@, creates a KMS key with a 256-bit AES-GCM key that
-- is used for encryption and decryption, except in China Regions, where it
-- creates a 128-bit symmetric key that uses SM4 encryption. For help
-- choosing a key spec for your KMS key, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-types.html#symm-asymm-choose Choosing a KMS key type>
-- in the //Key Management Service Developer Guide// .
--
-- The @KeySpec@ determines whether the KMS key contains a symmetric key or
-- an asymmetric key pair. It also determines the algorithms that the KMS
-- key supports. You can\'t change the @KeySpec@ after the KMS key is
-- created. To further restrict the algorithms that can be used with the
-- KMS key, use a condition key in its key policy or IAM policy. For more
-- information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-encryption-algorithm kms:EncryptionAlgorithm>,
-- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-mac-algorithm kms:MacAlgorithm>
-- or
-- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-signing-algorithm kms:Signing Algorithm>
-- in the //Key Management Service Developer Guide// .
--
-- <http://aws.amazon.com/kms/features/#AWS_Service_Integration Amazon Web Services services that are integrated with KMS>
-- use symmetric encryption KMS keys to protect your data. These services
-- do not support asymmetric KMS keys or HMAC KMS keys.
--
-- KMS supports the following key specs for KMS keys:
--
-- -   Symmetric encryption key (default)
--
--     -   @SYMMETRIC_DEFAULT@
--
-- -   HMAC keys (symmetric)
--
--     -   @HMAC_224@
--
--     -   @HMAC_256@
--
--     -   @HMAC_384@
--
--     -   @HMAC_512@
--
-- -   Asymmetric RSA key pairs
--
--     -   @RSA_2048@
--
--     -   @RSA_3072@
--
--     -   @RSA_4096@
--
-- -   Asymmetric NIST-recommended elliptic curve key pairs
--
--     -   @ECC_NIST_P256@ (secp256r1)
--
--     -   @ECC_NIST_P384@ (secp384r1)
--
--     -   @ECC_NIST_P521@ (secp521r1)
--
-- -   Other asymmetric elliptic curve key pairs
--
--     -   @ECC_SECG_P256K1@ (secp256k1), commonly used for
--         cryptocurrencies.
--
-- -   SM2 key pairs (China Regions only)
--
--     -   @SM2@
--
-- 'keyUsage', 'createKey_keyUsage' - Determines the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#cryptographic-operations cryptographic operations>
-- for which you can use the KMS key. The default value is
-- @ENCRYPT_DECRYPT@. This parameter is optional when you are creating a
-- symmetric encryption KMS key; otherwise, it is required. You can\'t
-- change the @KeyUsage@ value after the KMS key is created.
--
-- Select only one valid value.
--
-- -   For symmetric encryption KMS keys, omit the parameter or specify
--     @ENCRYPT_DECRYPT@.
--
-- -   For HMAC KMS keys (symmetric), specify @GENERATE_VERIFY_MAC@.
--
-- -   For asymmetric KMS keys with RSA key material, specify
--     @ENCRYPT_DECRYPT@ or @SIGN_VERIFY@.
--
-- -   For asymmetric KMS keys with ECC key material, specify
--     @SIGN_VERIFY@.
--
-- -   For asymmetric KMS keys with SM2 key material (China Regions only),
--     specify @ENCRYPT_DECRYPT@ or @SIGN_VERIFY@.
--
-- 'multiRegion', 'createKey_multiRegion' - Creates a multi-Region primary key that you can replicate into other
-- Amazon Web Services Regions. You cannot change this value after you
-- create the KMS key.
--
-- For a multi-Region key, set this parameter to @True@. For a
-- single-Region KMS key, omit this parameter or set it to @False@. The
-- default value is @False@.
--
-- This operation supports /multi-Region keys/, an KMS feature that lets
-- you create multiple interoperable KMS keys in different Amazon Web
-- Services Regions. Because these KMS keys have the same key ID, key
-- material, and other metadata, you can use them interchangeably to
-- encrypt data in one Amazon Web Services Region and decrypt it in a
-- different Amazon Web Services Region without re-encrypting the data or
-- making a cross-Region call. For more information about multi-Region
-- keys, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Multi-Region keys in KMS>
-- in the /Key Management Service Developer Guide/.
--
-- This value creates a /primary key/, not a replica. To create a /replica
-- key/, use the ReplicateKey operation.
--
-- You can create a symmetric or asymmetric multi-Region key, and you can
-- create a multi-Region key with imported key material. However, you
-- cannot create a multi-Region key in a custom key store.
--
-- 'origin', 'createKey_origin' - The source of the key material for the KMS key. You cannot change the
-- origin after you create the KMS key. The default is @AWS_KMS@, which
-- means that KMS creates the key material.
--
-- To
-- <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys-create-cmk.html create a KMS key with no key material>
-- (for imported key material), set this value to @EXTERNAL@. For more
-- information about importing key material into KMS, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys.html Importing Key Material>
-- in the /Key Management Service Developer Guide/. The @EXTERNAL@ origin
-- value is valid only for symmetric KMS keys.
--
-- To
-- <https://docs.aws.amazon.com/kms/latest/developerguide/create-cmk-keystore.html create a KMS key in an CloudHSM key store>
-- and create its key material in the associated CloudHSM cluster, set this
-- value to @AWS_CLOUDHSM@. You must also use the @CustomKeyStoreId@
-- parameter to identify the CloudHSM key store. The @KeySpec@ value must
-- be @SYMMETRIC_DEFAULT@.
--
-- To
-- <https://docs.aws.amazon.com/kms/latest/developerguide/create-xks-keys.html create a KMS key in an external key store>,
-- set this value to @EXTERNAL_KEY_STORE@. You must also use the
-- @CustomKeyStoreId@ parameter to identify the external key store and the
-- @XksKeyId@ parameter to identify the associated external key. The
-- @KeySpec@ value must be @SYMMETRIC_DEFAULT@.
--
-- 'policy', 'createKey_policy' - The key policy to attach to the KMS key.
--
-- If you provide a key policy, it must meet the following criteria:
--
-- -   If you don\'t set @BypassPolicyLockoutSafetyCheck@ to true, the key
--     policy must allow the principal that is making the @CreateKey@
--     request to make a subsequent PutKeyPolicy request on the KMS key.
--     This reduces the risk that the KMS key becomes unmanageable. For
--     more information, refer to the scenario in the
--     <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default-allow-root-enable-iam Default Key Policy>
--     section of the //Key Management Service Developer Guide// .
--
-- -   Each statement in the key policy must contain one or more
--     principals. The principals in the key policy must exist and be
--     visible to KMS. When you create a new Amazon Web Services principal
--     (for example, an IAM user or role), you might need to enforce a
--     delay before including the new principal in a key policy because the
--     new principal might not be immediately visible to KMS. For more
--     information, see
--     <https://docs.aws.amazon.com/IAM/latest/UserGuide/troubleshoot_general.html#troubleshoot_general_eventual-consistency Changes that I make are not always immediately visible>
--     in the /Amazon Web Services Identity and Access Management User
--     Guide/.
--
-- If you do not provide a key policy, KMS attaches a default key policy to
-- the KMS key. For more information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default Default Key Policy>
-- in the /Key Management Service Developer Guide/.
--
-- The key policy size quota is 32 kilobytes (32768 bytes).
--
-- For help writing and formatting a JSON policy document, see the
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_policies.html IAM JSON Policy Reference>
-- in the //Identity and Access Management User Guide// .
--
-- 'tags', 'createKey_tags' - Assigns one or more tags to the KMS key. Use this parameter to tag the
-- KMS key when it is created. To tag an existing KMS key, use the
-- TagResource operation.
--
-- Tagging or untagging a KMS key can allow or deny permission to the KMS
-- key. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/abac.html ABAC for KMS>
-- in the /Key Management Service Developer Guide/.
--
-- To use this parameter, you must have
-- <https://docs.aws.amazon.com/kms/latest/developerguide/kms-api-permissions-reference.html kms:TagResource>
-- permission in an IAM policy.
--
-- Each tag consists of a tag key and a tag value. Both the tag key and the
-- tag value are required, but the tag value can be an empty (null) string.
-- You cannot have more than one tag on a KMS key with the same tag key. If
-- you specify an existing tag key with a different tag value, KMS replaces
-- the current tag value with the specified one.
--
-- When you add tags to an Amazon Web Services resource, Amazon Web
-- Services generates a cost allocation report with usage and costs
-- aggregated by tags. Tags can also be used to control access to a KMS
-- key. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/tagging-keys.html Tagging Keys>.
--
-- 'xksKeyId', 'createKey_xksKeyId' - Identifies the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-external-key external key>
-- that serves as key material for the KMS key in an
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html external key store>.
-- Specify the ID that the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-xks-proxy external key store proxy>
-- uses to refer to the external key. For help, see the documentation for
-- your external key store proxy.
--
-- This parameter is required for a KMS key with an @Origin@ value of
-- @EXTERNAL_KEY_STORE@. It is not valid for KMS keys with any other
-- @Origin@ value.
--
-- The external key must be an existing 256-bit AES symmetric encryption
-- key hosted outside of Amazon Web Services in an external key manager
-- associated with the external key store specified by the
-- @CustomKeyStoreId@ parameter. This key must be enabled and configured to
-- perform encryption and decryption. Each KMS key in an external key store
-- must use a different external key. For details, see
-- <https://docs.aws.amazon.com/create-xks-keys.html#xks-key-requirements Requirements for a KMS key in an external key store>
-- in the /Key Management Service Developer Guide/.
--
-- Each KMS key in an external key store is associated two backing keys.
-- One is key material that KMS generates. The other is the external key
-- specified by this parameter. When you use the KMS key in an external key
-- store to encrypt data, the encryption operation is performed first by
-- KMS using the KMS key material, and then by the external key manager
-- using the specified external key, a process known as /double
-- encryption/. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-double-encryption Double encryption>
-- in the /Key Management Service Developer Guide/.
newCreateKey ::
  CreateKey
newCreateKey :: CreateKey
newCreateKey =
  CreateKey'
    { $sel:bypassPolicyLockoutSafetyCheck:CreateKey' :: Maybe Bool
bypassPolicyLockoutSafetyCheck =
        forall a. Maybe a
Prelude.Nothing,
      $sel:customKeyStoreId:CreateKey' :: Maybe Text
customKeyStoreId = forall a. Maybe a
Prelude.Nothing,
      $sel:customerMasterKeySpec:CreateKey' :: Maybe CustomerMasterKeySpec
customerMasterKeySpec = forall a. Maybe a
Prelude.Nothing,
      $sel:description:CreateKey' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
      $sel:keySpec:CreateKey' :: Maybe KeySpec
keySpec = forall a. Maybe a
Prelude.Nothing,
      $sel:keyUsage:CreateKey' :: Maybe KeyUsageType
keyUsage = forall a. Maybe a
Prelude.Nothing,
      $sel:multiRegion:CreateKey' :: Maybe Bool
multiRegion = forall a. Maybe a
Prelude.Nothing,
      $sel:origin:CreateKey' :: Maybe OriginType
origin = forall a. Maybe a
Prelude.Nothing,
      $sel:policy:CreateKey' :: Maybe Text
policy = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreateKey' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:xksKeyId:CreateKey' :: Maybe Text
xksKeyId = forall a. Maybe a
Prelude.Nothing
    }

-- | A flag to indicate whether to bypass the key policy lockout safety
-- check.
--
-- Setting this value to true increases the risk that the KMS key becomes
-- unmanageable. Do not set this value to true indiscriminately.
--
-- For more information, refer to the scenario in the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default-allow-root-enable-iam Default Key Policy>
-- section in the //Key Management Service Developer Guide// .
--
-- Use this parameter only when you include a policy in the request and you
-- intend to prevent the principal that is making the request from making a
-- subsequent PutKeyPolicy request on the KMS key.
--
-- The default value is false.
createKey_bypassPolicyLockoutSafetyCheck :: Lens.Lens' CreateKey (Prelude.Maybe Prelude.Bool)
createKey_bypassPolicyLockoutSafetyCheck :: Lens' CreateKey (Maybe Bool)
createKey_bypassPolicyLockoutSafetyCheck = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe Bool
bypassPolicyLockoutSafetyCheck :: Maybe Bool
$sel:bypassPolicyLockoutSafetyCheck:CreateKey' :: CreateKey -> Maybe Bool
bypassPolicyLockoutSafetyCheck} -> Maybe Bool
bypassPolicyLockoutSafetyCheck) (\s :: CreateKey
s@CreateKey' {} Maybe Bool
a -> CreateKey
s {$sel:bypassPolicyLockoutSafetyCheck:CreateKey' :: Maybe Bool
bypassPolicyLockoutSafetyCheck = Maybe Bool
a} :: CreateKey)

-- | Creates the KMS key in the specified
-- <https://docs.aws.amazon.com/kms/latest/developerguide/custom-key-store-overview.html custom key store>.
-- The @ConnectionState@ of the custom key store must be @CONNECTED@. To
-- find the CustomKeyStoreID and ConnectionState use the
-- DescribeCustomKeyStores operation.
--
-- This parameter is valid only for symmetric encryption KMS keys in a
-- single Region. You cannot create any other type of KMS key in a custom
-- key store.
--
-- When you create a KMS key in an CloudHSM key store, KMS generates a
-- non-exportable 256-bit symmetric key in its associated CloudHSM cluster
-- and associates it with the KMS key. When you create a KMS key in an
-- external key store, you must use the @XksKeyId@ parameter to specify an
-- external key that serves as key material for the KMS key.
createKey_customKeyStoreId :: Lens.Lens' CreateKey (Prelude.Maybe Prelude.Text)
createKey_customKeyStoreId :: Lens' CreateKey (Maybe Text)
createKey_customKeyStoreId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe Text
customKeyStoreId :: Maybe Text
$sel:customKeyStoreId:CreateKey' :: CreateKey -> Maybe Text
customKeyStoreId} -> Maybe Text
customKeyStoreId) (\s :: CreateKey
s@CreateKey' {} Maybe Text
a -> CreateKey
s {$sel:customKeyStoreId:CreateKey' :: Maybe Text
customKeyStoreId = Maybe Text
a} :: CreateKey)

-- | Instead, use the @KeySpec@ parameter.
--
-- The @KeySpec@ and @CustomerMasterKeySpec@ parameters work the same way.
-- Only the names differ. We recommend that you use @KeySpec@ parameter in
-- your code. However, to avoid breaking changes, KMS supports both
-- parameters.
createKey_customerMasterKeySpec :: Lens.Lens' CreateKey (Prelude.Maybe CustomerMasterKeySpec)
createKey_customerMasterKeySpec :: Lens' CreateKey (Maybe CustomerMasterKeySpec)
createKey_customerMasterKeySpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe CustomerMasterKeySpec
customerMasterKeySpec :: Maybe CustomerMasterKeySpec
$sel:customerMasterKeySpec:CreateKey' :: CreateKey -> Maybe CustomerMasterKeySpec
customerMasterKeySpec} -> Maybe CustomerMasterKeySpec
customerMasterKeySpec) (\s :: CreateKey
s@CreateKey' {} Maybe CustomerMasterKeySpec
a -> CreateKey
s {$sel:customerMasterKeySpec:CreateKey' :: Maybe CustomerMasterKeySpec
customerMasterKeySpec = Maybe CustomerMasterKeySpec
a} :: CreateKey)

-- | A description of the KMS key.
--
-- Use a description that helps you decide whether the KMS key is
-- appropriate for a task. The default value is an empty string (no
-- description).
--
-- To set or change the description after the key is created, use
-- UpdateKeyDescription.
createKey_description :: Lens.Lens' CreateKey (Prelude.Maybe Prelude.Text)
createKey_description :: Lens' CreateKey (Maybe Text)
createKey_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe Text
description :: Maybe Text
$sel:description:CreateKey' :: CreateKey -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateKey
s@CreateKey' {} Maybe Text
a -> CreateKey
s {$sel:description:CreateKey' :: Maybe Text
description = Maybe Text
a} :: CreateKey)

-- | Specifies the type of KMS key to create. The default value,
-- @SYMMETRIC_DEFAULT@, creates a KMS key with a 256-bit AES-GCM key that
-- is used for encryption and decryption, except in China Regions, where it
-- creates a 128-bit symmetric key that uses SM4 encryption. For help
-- choosing a key spec for your KMS key, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-types.html#symm-asymm-choose Choosing a KMS key type>
-- in the //Key Management Service Developer Guide// .
--
-- The @KeySpec@ determines whether the KMS key contains a symmetric key or
-- an asymmetric key pair. It also determines the algorithms that the KMS
-- key supports. You can\'t change the @KeySpec@ after the KMS key is
-- created. To further restrict the algorithms that can be used with the
-- KMS key, use a condition key in its key policy or IAM policy. For more
-- information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-encryption-algorithm kms:EncryptionAlgorithm>,
-- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-mac-algorithm kms:MacAlgorithm>
-- or
-- <https://docs.aws.amazon.com/kms/latest/developerguide/policy-conditions.html#conditions-kms-signing-algorithm kms:Signing Algorithm>
-- in the //Key Management Service Developer Guide// .
--
-- <http://aws.amazon.com/kms/features/#AWS_Service_Integration Amazon Web Services services that are integrated with KMS>
-- use symmetric encryption KMS keys to protect your data. These services
-- do not support asymmetric KMS keys or HMAC KMS keys.
--
-- KMS supports the following key specs for KMS keys:
--
-- -   Symmetric encryption key (default)
--
--     -   @SYMMETRIC_DEFAULT@
--
-- -   HMAC keys (symmetric)
--
--     -   @HMAC_224@
--
--     -   @HMAC_256@
--
--     -   @HMAC_384@
--
--     -   @HMAC_512@
--
-- -   Asymmetric RSA key pairs
--
--     -   @RSA_2048@
--
--     -   @RSA_3072@
--
--     -   @RSA_4096@
--
-- -   Asymmetric NIST-recommended elliptic curve key pairs
--
--     -   @ECC_NIST_P256@ (secp256r1)
--
--     -   @ECC_NIST_P384@ (secp384r1)
--
--     -   @ECC_NIST_P521@ (secp521r1)
--
-- -   Other asymmetric elliptic curve key pairs
--
--     -   @ECC_SECG_P256K1@ (secp256k1), commonly used for
--         cryptocurrencies.
--
-- -   SM2 key pairs (China Regions only)
--
--     -   @SM2@
createKey_keySpec :: Lens.Lens' CreateKey (Prelude.Maybe KeySpec)
createKey_keySpec :: Lens' CreateKey (Maybe KeySpec)
createKey_keySpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe KeySpec
keySpec :: Maybe KeySpec
$sel:keySpec:CreateKey' :: CreateKey -> Maybe KeySpec
keySpec} -> Maybe KeySpec
keySpec) (\s :: CreateKey
s@CreateKey' {} Maybe KeySpec
a -> CreateKey
s {$sel:keySpec:CreateKey' :: Maybe KeySpec
keySpec = Maybe KeySpec
a} :: CreateKey)

-- | Determines the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#cryptographic-operations cryptographic operations>
-- for which you can use the KMS key. The default value is
-- @ENCRYPT_DECRYPT@. This parameter is optional when you are creating a
-- symmetric encryption KMS key; otherwise, it is required. You can\'t
-- change the @KeyUsage@ value after the KMS key is created.
--
-- Select only one valid value.
--
-- -   For symmetric encryption KMS keys, omit the parameter or specify
--     @ENCRYPT_DECRYPT@.
--
-- -   For HMAC KMS keys (symmetric), specify @GENERATE_VERIFY_MAC@.
--
-- -   For asymmetric KMS keys with RSA key material, specify
--     @ENCRYPT_DECRYPT@ or @SIGN_VERIFY@.
--
-- -   For asymmetric KMS keys with ECC key material, specify
--     @SIGN_VERIFY@.
--
-- -   For asymmetric KMS keys with SM2 key material (China Regions only),
--     specify @ENCRYPT_DECRYPT@ or @SIGN_VERIFY@.
createKey_keyUsage :: Lens.Lens' CreateKey (Prelude.Maybe KeyUsageType)
createKey_keyUsage :: Lens' CreateKey (Maybe KeyUsageType)
createKey_keyUsage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe KeyUsageType
keyUsage :: Maybe KeyUsageType
$sel:keyUsage:CreateKey' :: CreateKey -> Maybe KeyUsageType
keyUsage} -> Maybe KeyUsageType
keyUsage) (\s :: CreateKey
s@CreateKey' {} Maybe KeyUsageType
a -> CreateKey
s {$sel:keyUsage:CreateKey' :: Maybe KeyUsageType
keyUsage = Maybe KeyUsageType
a} :: CreateKey)

-- | Creates a multi-Region primary key that you can replicate into other
-- Amazon Web Services Regions. You cannot change this value after you
-- create the KMS key.
--
-- For a multi-Region key, set this parameter to @True@. For a
-- single-Region KMS key, omit this parameter or set it to @False@. The
-- default value is @False@.
--
-- This operation supports /multi-Region keys/, an KMS feature that lets
-- you create multiple interoperable KMS keys in different Amazon Web
-- Services Regions. Because these KMS keys have the same key ID, key
-- material, and other metadata, you can use them interchangeably to
-- encrypt data in one Amazon Web Services Region and decrypt it in a
-- different Amazon Web Services Region without re-encrypting the data or
-- making a cross-Region call. For more information about multi-Region
-- keys, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Multi-Region keys in KMS>
-- in the /Key Management Service Developer Guide/.
--
-- This value creates a /primary key/, not a replica. To create a /replica
-- key/, use the ReplicateKey operation.
--
-- You can create a symmetric or asymmetric multi-Region key, and you can
-- create a multi-Region key with imported key material. However, you
-- cannot create a multi-Region key in a custom key store.
createKey_multiRegion :: Lens.Lens' CreateKey (Prelude.Maybe Prelude.Bool)
createKey_multiRegion :: Lens' CreateKey (Maybe Bool)
createKey_multiRegion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe Bool
multiRegion :: Maybe Bool
$sel:multiRegion:CreateKey' :: CreateKey -> Maybe Bool
multiRegion} -> Maybe Bool
multiRegion) (\s :: CreateKey
s@CreateKey' {} Maybe Bool
a -> CreateKey
s {$sel:multiRegion:CreateKey' :: Maybe Bool
multiRegion = Maybe Bool
a} :: CreateKey)

-- | The source of the key material for the KMS key. You cannot change the
-- origin after you create the KMS key. The default is @AWS_KMS@, which
-- means that KMS creates the key material.
--
-- To
-- <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys-create-cmk.html create a KMS key with no key material>
-- (for imported key material), set this value to @EXTERNAL@. For more
-- information about importing key material into KMS, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/importing-keys.html Importing Key Material>
-- in the /Key Management Service Developer Guide/. The @EXTERNAL@ origin
-- value is valid only for symmetric KMS keys.
--
-- To
-- <https://docs.aws.amazon.com/kms/latest/developerguide/create-cmk-keystore.html create a KMS key in an CloudHSM key store>
-- and create its key material in the associated CloudHSM cluster, set this
-- value to @AWS_CLOUDHSM@. You must also use the @CustomKeyStoreId@
-- parameter to identify the CloudHSM key store. The @KeySpec@ value must
-- be @SYMMETRIC_DEFAULT@.
--
-- To
-- <https://docs.aws.amazon.com/kms/latest/developerguide/create-xks-keys.html create a KMS key in an external key store>,
-- set this value to @EXTERNAL_KEY_STORE@. You must also use the
-- @CustomKeyStoreId@ parameter to identify the external key store and the
-- @XksKeyId@ parameter to identify the associated external key. The
-- @KeySpec@ value must be @SYMMETRIC_DEFAULT@.
createKey_origin :: Lens.Lens' CreateKey (Prelude.Maybe OriginType)
createKey_origin :: Lens' CreateKey (Maybe OriginType)
createKey_origin = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe OriginType
origin :: Maybe OriginType
$sel:origin:CreateKey' :: CreateKey -> Maybe OriginType
origin} -> Maybe OriginType
origin) (\s :: CreateKey
s@CreateKey' {} Maybe OriginType
a -> CreateKey
s {$sel:origin:CreateKey' :: Maybe OriginType
origin = Maybe OriginType
a} :: CreateKey)

-- | The key policy to attach to the KMS key.
--
-- If you provide a key policy, it must meet the following criteria:
--
-- -   If you don\'t set @BypassPolicyLockoutSafetyCheck@ to true, the key
--     policy must allow the principal that is making the @CreateKey@
--     request to make a subsequent PutKeyPolicy request on the KMS key.
--     This reduces the risk that the KMS key becomes unmanageable. For
--     more information, refer to the scenario in the
--     <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default-allow-root-enable-iam Default Key Policy>
--     section of the //Key Management Service Developer Guide// .
--
-- -   Each statement in the key policy must contain one or more
--     principals. The principals in the key policy must exist and be
--     visible to KMS. When you create a new Amazon Web Services principal
--     (for example, an IAM user or role), you might need to enforce a
--     delay before including the new principal in a key policy because the
--     new principal might not be immediately visible to KMS. For more
--     information, see
--     <https://docs.aws.amazon.com/IAM/latest/UserGuide/troubleshoot_general.html#troubleshoot_general_eventual-consistency Changes that I make are not always immediately visible>
--     in the /Amazon Web Services Identity and Access Management User
--     Guide/.
--
-- If you do not provide a key policy, KMS attaches a default key policy to
-- the KMS key. For more information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-policies.html#key-policy-default Default Key Policy>
-- in the /Key Management Service Developer Guide/.
--
-- The key policy size quota is 32 kilobytes (32768 bytes).
--
-- For help writing and formatting a JSON policy document, see the
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/reference_policies.html IAM JSON Policy Reference>
-- in the //Identity and Access Management User Guide// .
createKey_policy :: Lens.Lens' CreateKey (Prelude.Maybe Prelude.Text)
createKey_policy :: Lens' CreateKey (Maybe Text)
createKey_policy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe Text
policy :: Maybe Text
$sel:policy:CreateKey' :: CreateKey -> Maybe Text
policy} -> Maybe Text
policy) (\s :: CreateKey
s@CreateKey' {} Maybe Text
a -> CreateKey
s {$sel:policy:CreateKey' :: Maybe Text
policy = Maybe Text
a} :: CreateKey)

-- | Assigns one or more tags to the KMS key. Use this parameter to tag the
-- KMS key when it is created. To tag an existing KMS key, use the
-- TagResource operation.
--
-- Tagging or untagging a KMS key can allow or deny permission to the KMS
-- key. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/abac.html ABAC for KMS>
-- in the /Key Management Service Developer Guide/.
--
-- To use this parameter, you must have
-- <https://docs.aws.amazon.com/kms/latest/developerguide/kms-api-permissions-reference.html kms:TagResource>
-- permission in an IAM policy.
--
-- Each tag consists of a tag key and a tag value. Both the tag key and the
-- tag value are required, but the tag value can be an empty (null) string.
-- You cannot have more than one tag on a KMS key with the same tag key. If
-- you specify an existing tag key with a different tag value, KMS replaces
-- the current tag value with the specified one.
--
-- When you add tags to an Amazon Web Services resource, Amazon Web
-- Services generates a cost allocation report with usage and costs
-- aggregated by tags. Tags can also be used to control access to a KMS
-- key. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/tagging-keys.html Tagging Keys>.
createKey_tags :: Lens.Lens' CreateKey (Prelude.Maybe [Tag])
createKey_tags :: Lens' CreateKey (Maybe [Tag])
createKey_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateKey' :: CreateKey -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateKey
s@CreateKey' {} Maybe [Tag]
a -> CreateKey
s {$sel:tags:CreateKey' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateKey) 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

-- | Identifies the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-external-key external key>
-- that serves as key material for the KMS key in an
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html external key store>.
-- Specify the ID that the
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-xks-proxy external key store proxy>
-- uses to refer to the external key. For help, see the documentation for
-- your external key store proxy.
--
-- This parameter is required for a KMS key with an @Origin@ value of
-- @EXTERNAL_KEY_STORE@. It is not valid for KMS keys with any other
-- @Origin@ value.
--
-- The external key must be an existing 256-bit AES symmetric encryption
-- key hosted outside of Amazon Web Services in an external key manager
-- associated with the external key store specified by the
-- @CustomKeyStoreId@ parameter. This key must be enabled and configured to
-- perform encryption and decryption. Each KMS key in an external key store
-- must use a different external key. For details, see
-- <https://docs.aws.amazon.com/create-xks-keys.html#xks-key-requirements Requirements for a KMS key in an external key store>
-- in the /Key Management Service Developer Guide/.
--
-- Each KMS key in an external key store is associated two backing keys.
-- One is key material that KMS generates. The other is the external key
-- specified by this parameter. When you use the KMS key in an external key
-- store to encrypt data, the encryption operation is performed first by
-- KMS using the KMS key material, and then by the external key manager
-- using the specified external key, a process known as /double
-- encryption/. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/keystore-external.html#concept-double-encryption Double encryption>
-- in the /Key Management Service Developer Guide/.
createKey_xksKeyId :: Lens.Lens' CreateKey (Prelude.Maybe Prelude.Text)
createKey_xksKeyId :: Lens' CreateKey (Maybe Text)
createKey_xksKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKey' {Maybe Text
xksKeyId :: Maybe Text
$sel:xksKeyId:CreateKey' :: CreateKey -> Maybe Text
xksKeyId} -> Maybe Text
xksKeyId) (\s :: CreateKey
s@CreateKey' {} Maybe Text
a -> CreateKey
s {$sel:xksKeyId:CreateKey' :: Maybe Text
xksKeyId = Maybe Text
a} :: CreateKey)

instance Core.AWSRequest CreateKey where
  type AWSResponse CreateKey = CreateKeyResponse
  request :: (Service -> Service) -> CreateKey -> Request CreateKey
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 CreateKey
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateKey)))
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 KeyMetadata -> Int -> CreateKeyResponse
CreateKeyResponse'
            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
"KeyMetadata")
            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 CreateKey where
  hashWithSalt :: Int -> CreateKey -> Int
hashWithSalt Int
_salt CreateKey' {Maybe Bool
Maybe [Tag]
Maybe Text
Maybe CustomerMasterKeySpec
Maybe KeySpec
Maybe KeyUsageType
Maybe OriginType
xksKeyId :: Maybe Text
tags :: Maybe [Tag]
policy :: Maybe Text
origin :: Maybe OriginType
multiRegion :: Maybe Bool
keyUsage :: Maybe KeyUsageType
keySpec :: Maybe KeySpec
description :: Maybe Text
customerMasterKeySpec :: Maybe CustomerMasterKeySpec
customKeyStoreId :: Maybe Text
bypassPolicyLockoutSafetyCheck :: Maybe Bool
$sel:xksKeyId:CreateKey' :: CreateKey -> Maybe Text
$sel:tags:CreateKey' :: CreateKey -> Maybe [Tag]
$sel:policy:CreateKey' :: CreateKey -> Maybe Text
$sel:origin:CreateKey' :: CreateKey -> Maybe OriginType
$sel:multiRegion:CreateKey' :: CreateKey -> Maybe Bool
$sel:keyUsage:CreateKey' :: CreateKey -> Maybe KeyUsageType
$sel:keySpec:CreateKey' :: CreateKey -> Maybe KeySpec
$sel:description:CreateKey' :: CreateKey -> Maybe Text
$sel:customerMasterKeySpec:CreateKey' :: CreateKey -> Maybe CustomerMasterKeySpec
$sel:customKeyStoreId:CreateKey' :: CreateKey -> Maybe Text
$sel:bypassPolicyLockoutSafetyCheck:CreateKey' :: CreateKey -> Maybe Bool
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
bypassPolicyLockoutSafetyCheck
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customKeyStoreId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CustomerMasterKeySpec
customerMasterKeySpec
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe KeySpec
keySpec
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe KeyUsageType
keyUsage
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
multiRegion
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OriginType
origin
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
policy
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
xksKeyId

instance Prelude.NFData CreateKey where
  rnf :: CreateKey -> ()
rnf CreateKey' {Maybe Bool
Maybe [Tag]
Maybe Text
Maybe CustomerMasterKeySpec
Maybe KeySpec
Maybe KeyUsageType
Maybe OriginType
xksKeyId :: Maybe Text
tags :: Maybe [Tag]
policy :: Maybe Text
origin :: Maybe OriginType
multiRegion :: Maybe Bool
keyUsage :: Maybe KeyUsageType
keySpec :: Maybe KeySpec
description :: Maybe Text
customerMasterKeySpec :: Maybe CustomerMasterKeySpec
customKeyStoreId :: Maybe Text
bypassPolicyLockoutSafetyCheck :: Maybe Bool
$sel:xksKeyId:CreateKey' :: CreateKey -> Maybe Text
$sel:tags:CreateKey' :: CreateKey -> Maybe [Tag]
$sel:policy:CreateKey' :: CreateKey -> Maybe Text
$sel:origin:CreateKey' :: CreateKey -> Maybe OriginType
$sel:multiRegion:CreateKey' :: CreateKey -> Maybe Bool
$sel:keyUsage:CreateKey' :: CreateKey -> Maybe KeyUsageType
$sel:keySpec:CreateKey' :: CreateKey -> Maybe KeySpec
$sel:description:CreateKey' :: CreateKey -> Maybe Text
$sel:customerMasterKeySpec:CreateKey' :: CreateKey -> Maybe CustomerMasterKeySpec
$sel:customKeyStoreId:CreateKey' :: CreateKey -> Maybe Text
$sel:bypassPolicyLockoutSafetyCheck:CreateKey' :: CreateKey -> Maybe Bool
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
bypassPolicyLockoutSafetyCheck
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customKeyStoreId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CustomerMasterKeySpec
customerMasterKeySpec
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe KeySpec
keySpec
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe KeyUsageType
keyUsage
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
multiRegion
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OriginType
origin
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policy
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
xksKeyId

instance Data.ToHeaders CreateKey where
  toHeaders :: CreateKey -> 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
"TrentService.CreateKey" :: 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 CreateKey where
  toJSON :: CreateKey -> Value
toJSON CreateKey' {Maybe Bool
Maybe [Tag]
Maybe Text
Maybe CustomerMasterKeySpec
Maybe KeySpec
Maybe KeyUsageType
Maybe OriginType
xksKeyId :: Maybe Text
tags :: Maybe [Tag]
policy :: Maybe Text
origin :: Maybe OriginType
multiRegion :: Maybe Bool
keyUsage :: Maybe KeyUsageType
keySpec :: Maybe KeySpec
description :: Maybe Text
customerMasterKeySpec :: Maybe CustomerMasterKeySpec
customKeyStoreId :: Maybe Text
bypassPolicyLockoutSafetyCheck :: Maybe Bool
$sel:xksKeyId:CreateKey' :: CreateKey -> Maybe Text
$sel:tags:CreateKey' :: CreateKey -> Maybe [Tag]
$sel:policy:CreateKey' :: CreateKey -> Maybe Text
$sel:origin:CreateKey' :: CreateKey -> Maybe OriginType
$sel:multiRegion:CreateKey' :: CreateKey -> Maybe Bool
$sel:keyUsage:CreateKey' :: CreateKey -> Maybe KeyUsageType
$sel:keySpec:CreateKey' :: CreateKey -> Maybe KeySpec
$sel:description:CreateKey' :: CreateKey -> Maybe Text
$sel:customerMasterKeySpec:CreateKey' :: CreateKey -> Maybe CustomerMasterKeySpec
$sel:customKeyStoreId:CreateKey' :: CreateKey -> Maybe Text
$sel:bypassPolicyLockoutSafetyCheck:CreateKey' :: CreateKey -> Maybe Bool
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"BypassPolicyLockoutSafetyCheck" 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 Bool
bypassPolicyLockoutSafetyCheck,
            (Key
"CustomKeyStoreId" 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
customKeyStoreId,
            (Key
"CustomerMasterKeySpec" 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 CustomerMasterKeySpec
customerMasterKeySpec,
            (Key
"Description" 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
description,
            (Key
"KeySpec" 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 KeySpec
keySpec,
            (Key
"KeyUsage" 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 KeyUsageType
keyUsage,
            (Key
"MultiRegion" 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 Bool
multiRegion,
            (Key
"Origin" 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 OriginType
origin,
            (Key
"Policy" 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
policy,
            (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,
            (Key
"XksKeyId" 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
xksKeyId
          ]
      )

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

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

-- | /See:/ 'newCreateKeyResponse' smart constructor.
data CreateKeyResponse = CreateKeyResponse'
  { -- | Metadata associated with the KMS key.
    CreateKeyResponse -> Maybe KeyMetadata
keyMetadata :: Prelude.Maybe KeyMetadata,
    -- | The response's http status code.
    CreateKeyResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateKeyResponse -> CreateKeyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateKeyResponse -> CreateKeyResponse -> Bool
$c/= :: CreateKeyResponse -> CreateKeyResponse -> Bool
== :: CreateKeyResponse -> CreateKeyResponse -> Bool
$c== :: CreateKeyResponse -> CreateKeyResponse -> Bool
Prelude.Eq, ReadPrec [CreateKeyResponse]
ReadPrec CreateKeyResponse
Int -> ReadS CreateKeyResponse
ReadS [CreateKeyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateKeyResponse]
$creadListPrec :: ReadPrec [CreateKeyResponse]
readPrec :: ReadPrec CreateKeyResponse
$creadPrec :: ReadPrec CreateKeyResponse
readList :: ReadS [CreateKeyResponse]
$creadList :: ReadS [CreateKeyResponse]
readsPrec :: Int -> ReadS CreateKeyResponse
$creadsPrec :: Int -> ReadS CreateKeyResponse
Prelude.Read, Int -> CreateKeyResponse -> ShowS
[CreateKeyResponse] -> ShowS
CreateKeyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateKeyResponse] -> ShowS
$cshowList :: [CreateKeyResponse] -> ShowS
show :: CreateKeyResponse -> String
$cshow :: CreateKeyResponse -> String
showsPrec :: Int -> CreateKeyResponse -> ShowS
$cshowsPrec :: Int -> CreateKeyResponse -> ShowS
Prelude.Show, forall x. Rep CreateKeyResponse x -> CreateKeyResponse
forall x. CreateKeyResponse -> Rep CreateKeyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateKeyResponse x -> CreateKeyResponse
$cfrom :: forall x. CreateKeyResponse -> Rep CreateKeyResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateKeyResponse' 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:
--
-- 'keyMetadata', 'createKeyResponse_keyMetadata' - Metadata associated with the KMS key.
--
-- 'httpStatus', 'createKeyResponse_httpStatus' - The response's http status code.
newCreateKeyResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateKeyResponse
newCreateKeyResponse :: Int -> CreateKeyResponse
newCreateKeyResponse Int
pHttpStatus_ =
  CreateKeyResponse'
    { $sel:keyMetadata:CreateKeyResponse' :: Maybe KeyMetadata
keyMetadata = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateKeyResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Metadata associated with the KMS key.
createKeyResponse_keyMetadata :: Lens.Lens' CreateKeyResponse (Prelude.Maybe KeyMetadata)
createKeyResponse_keyMetadata :: Lens' CreateKeyResponse (Maybe KeyMetadata)
createKeyResponse_keyMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateKeyResponse' {Maybe KeyMetadata
keyMetadata :: Maybe KeyMetadata
$sel:keyMetadata:CreateKeyResponse' :: CreateKeyResponse -> Maybe KeyMetadata
keyMetadata} -> Maybe KeyMetadata
keyMetadata) (\s :: CreateKeyResponse
s@CreateKeyResponse' {} Maybe KeyMetadata
a -> CreateKeyResponse
s {$sel:keyMetadata:CreateKeyResponse' :: Maybe KeyMetadata
keyMetadata = Maybe KeyMetadata
a} :: CreateKeyResponse)

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

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