{-# 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.GenerateDataKeyPair
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns a unique asymmetric data key pair for use outside of KMS. This
-- operation returns a plaintext public key, a plaintext private key, and a
-- copy of the private key that is encrypted under the symmetric encryption
-- KMS key you specify. You can use the data key pair to perform asymmetric
-- cryptography and implement digital signatures outside of KMS. The bytes
-- in the keys are random; they not related to the caller or to the KMS key
-- that is used to encrypt the private key.
--
-- You can use the public key that @GenerateDataKeyPair@ returns to encrypt
-- data or verify a signature outside of KMS. Then, store the encrypted
-- private key with the data. When you are ready to decrypt data or sign a
-- message, you can use the Decrypt operation to decrypt the encrypted
-- private key.
--
-- To generate a data key pair, you must specify a symmetric encryption KMS
-- key to encrypt the private key in a data key pair. You cannot use an
-- asymmetric KMS key or a KMS key in a custom key store. To get the type
-- and origin of your KMS key, use the DescribeKey operation.
--
-- Use the @KeyPairSpec@ parameter to choose an RSA or Elliptic Curve (ECC)
-- data key pair. In China Regions, you can also choose an SM2 data key
-- pair. KMS recommends that you use ECC key pairs for signing, and use RSA
-- and SM2 key pairs for either encryption or signing, but not both.
-- However, KMS cannot enforce any restrictions on the use of data key
-- pairs outside of KMS.
--
-- If you are using the data key pair to encrypt data, or for any operation
-- where you don\'t immediately need a private key, consider using the
-- GenerateDataKeyPairWithoutPlaintext operation.
-- @GenerateDataKeyPairWithoutPlaintext@ returns a plaintext public key and
-- an encrypted private key, but omits the plaintext private key that you
-- need only to decrypt ciphertext or sign a message. Later, when you need
-- to decrypt the data or sign a message, use the Decrypt operation to
-- decrypt the encrypted private key in the data key pair.
--
-- @GenerateDataKeyPair@ returns a unique data key pair for each request.
-- The bytes in the keys are random; they are not related to the caller or
-- the KMS key that is used to encrypt the private key. The public key is a
-- DER-encoded X.509 SubjectPublicKeyInfo, as specified in
-- <https://tools.ietf.org/html/rfc5280 RFC 5280>. The private key is a
-- DER-encoded PKCS8 PrivateKeyInfo, as specified in
-- <https://tools.ietf.org/html/rfc5958 RFC 5958>.
--
-- You can use an optional encryption context to add additional security to
-- the encryption operation. If you specify an @EncryptionContext@, you
-- must specify the same encryption context (a case-sensitive exact match)
-- when decrypting the encrypted data key. Otherwise, the request to
-- decrypt fails with an @InvalidCiphertextException@. For more
-- information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#encrypt_context Encryption Context>
-- in the /Key Management Service Developer Guide/.
--
-- The KMS key that you use for this operation must be in a compatible key
-- state. For details, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/key-state.html Key states of KMS keys>
-- in the /Key Management Service Developer Guide/.
--
-- __Cross-account use__: Yes. To perform this operation with a KMS key in
-- a different Amazon Web Services account, specify the key ARN or alias
-- ARN in the value of the @KeyId@ parameter.
--
-- __Required permissions__:
-- <https://docs.aws.amazon.com/kms/latest/developerguide/kms-api-permissions-reference.html kms:GenerateDataKeyPair>
-- (key policy)
--
-- __Related operations:__
--
-- -   Decrypt
--
-- -   Encrypt
--
-- -   GenerateDataKey
--
-- -   GenerateDataKeyPairWithoutPlaintext
--
-- -   GenerateDataKeyWithoutPlaintext
module Amazonka.KMS.GenerateDataKeyPair
  ( -- * Creating a Request
    GenerateDataKeyPair (..),
    newGenerateDataKeyPair,

    -- * Request Lenses
    generateDataKeyPair_encryptionContext,
    generateDataKeyPair_grantTokens,
    generateDataKeyPair_keyId,
    generateDataKeyPair_keyPairSpec,

    -- * Destructuring the Response
    GenerateDataKeyPairResponse (..),
    newGenerateDataKeyPairResponse,

    -- * Response Lenses
    generateDataKeyPairResponse_keyId,
    generateDataKeyPairResponse_keyPairSpec,
    generateDataKeyPairResponse_privateKeyCiphertextBlob,
    generateDataKeyPairResponse_privateKeyPlaintext,
    generateDataKeyPairResponse_publicKey,
    generateDataKeyPairResponse_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:/ 'newGenerateDataKeyPair' smart constructor.
data GenerateDataKeyPair = GenerateDataKeyPair'
  { -- | Specifies the encryption context that will be used when encrypting the
    -- private key in the data key pair.
    --
    -- An /encryption context/ is a collection of non-secret key-value pairs
    -- that represent additional authenticated data. When you use an encryption
    -- context to encrypt data, you must specify the same (an exact
    -- case-sensitive match) encryption context to decrypt the data. An
    -- encryption context is supported only on operations with symmetric
    -- encryption KMS keys. On operations with symmetric encryption KMS keys,
    -- an encryption context is optional, but it is strongly recommended.
    --
    -- For more information, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#encrypt_context Encryption context>
    -- in the /Key Management Service Developer Guide/.
    GenerateDataKeyPair -> Maybe (HashMap Text Text)
encryptionContext :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | A list of grant tokens.
    --
    -- Use a grant token when your permission to call this operation comes from
    -- a new grant that has not yet achieved /eventual consistency/. For more
    -- information, see
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/grants.html#grant_token Grant token>
    -- and
    -- <https://docs.aws.amazon.com/kms/latest/developerguide/grant-manage.html#using-grant-token Using a grant token>
    -- in the /Key Management Service Developer Guide/.
    GenerateDataKeyPair -> Maybe [Text]
grantTokens :: Prelude.Maybe [Prelude.Text],
    -- | Specifies the symmetric encryption KMS key that encrypts the private key
    -- in the data key pair. You cannot specify an asymmetric KMS key or a KMS
    -- key in a custom key store. To get the type and origin of your KMS key,
    -- use the DescribeKey operation.
    --
    -- To specify a KMS key, use its key ID, key ARN, alias name, or alias ARN.
    -- When using an alias name, prefix it with @\"alias\/\"@. To specify a KMS
    -- key in a different Amazon Web Services account, you must use the key ARN
    -- or alias ARN.
    --
    -- For example:
    --
    -- -   Key ID: @1234abcd-12ab-34cd-56ef-1234567890ab@
    --
    -- -   Key ARN:
    --     @arn:aws:kms:us-east-2:111122223333:key\/1234abcd-12ab-34cd-56ef-1234567890ab@
    --
    -- -   Alias name: @alias\/ExampleAlias@
    --
    -- -   Alias ARN: @arn:aws:kms:us-east-2:111122223333:alias\/ExampleAlias@
    --
    -- To get the key ID and key ARN for a KMS key, use ListKeys or
    -- DescribeKey. To get the alias name and alias ARN, use ListAliases.
    GenerateDataKeyPair -> Text
keyId :: Prelude.Text,
    -- | Determines the type of data key pair that is generated.
    --
    -- The KMS rule that restricts the use of asymmetric RSA and SM2 KMS keys
    -- to encrypt and decrypt or to sign and verify (but not both), and the
    -- rule that permits you to use ECC KMS keys only to sign and verify, are
    -- not effective on data key pairs, which are used outside of KMS. The SM2
    -- key spec is only available in China Regions.
    GenerateDataKeyPair -> DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
  }
  deriving (GenerateDataKeyPair -> GenerateDataKeyPair -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateDataKeyPair -> GenerateDataKeyPair -> Bool
$c/= :: GenerateDataKeyPair -> GenerateDataKeyPair -> Bool
== :: GenerateDataKeyPair -> GenerateDataKeyPair -> Bool
$c== :: GenerateDataKeyPair -> GenerateDataKeyPair -> Bool
Prelude.Eq, ReadPrec [GenerateDataKeyPair]
ReadPrec GenerateDataKeyPair
Int -> ReadS GenerateDataKeyPair
ReadS [GenerateDataKeyPair]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateDataKeyPair]
$creadListPrec :: ReadPrec [GenerateDataKeyPair]
readPrec :: ReadPrec GenerateDataKeyPair
$creadPrec :: ReadPrec GenerateDataKeyPair
readList :: ReadS [GenerateDataKeyPair]
$creadList :: ReadS [GenerateDataKeyPair]
readsPrec :: Int -> ReadS GenerateDataKeyPair
$creadsPrec :: Int -> ReadS GenerateDataKeyPair
Prelude.Read, Int -> GenerateDataKeyPair -> ShowS
[GenerateDataKeyPair] -> ShowS
GenerateDataKeyPair -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateDataKeyPair] -> ShowS
$cshowList :: [GenerateDataKeyPair] -> ShowS
show :: GenerateDataKeyPair -> String
$cshow :: GenerateDataKeyPair -> String
showsPrec :: Int -> GenerateDataKeyPair -> ShowS
$cshowsPrec :: Int -> GenerateDataKeyPair -> ShowS
Prelude.Show, forall x. Rep GenerateDataKeyPair x -> GenerateDataKeyPair
forall x. GenerateDataKeyPair -> Rep GenerateDataKeyPair x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GenerateDataKeyPair x -> GenerateDataKeyPair
$cfrom :: forall x. GenerateDataKeyPair -> Rep GenerateDataKeyPair x
Prelude.Generic)

-- |
-- Create a value of 'GenerateDataKeyPair' 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:
--
-- 'encryptionContext', 'generateDataKeyPair_encryptionContext' - Specifies the encryption context that will be used when encrypting the
-- private key in the data key pair.
--
-- An /encryption context/ is a collection of non-secret key-value pairs
-- that represent additional authenticated data. When you use an encryption
-- context to encrypt data, you must specify the same (an exact
-- case-sensitive match) encryption context to decrypt the data. An
-- encryption context is supported only on operations with symmetric
-- encryption KMS keys. On operations with symmetric encryption KMS keys,
-- an encryption context is optional, but it is strongly recommended.
--
-- For more information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#encrypt_context Encryption context>
-- in the /Key Management Service Developer Guide/.
--
-- 'grantTokens', 'generateDataKeyPair_grantTokens' - A list of grant tokens.
--
-- Use a grant token when your permission to call this operation comes from
-- a new grant that has not yet achieved /eventual consistency/. For more
-- information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/grants.html#grant_token Grant token>
-- and
-- <https://docs.aws.amazon.com/kms/latest/developerguide/grant-manage.html#using-grant-token Using a grant token>
-- in the /Key Management Service Developer Guide/.
--
-- 'keyId', 'generateDataKeyPair_keyId' - Specifies the symmetric encryption KMS key that encrypts the private key
-- in the data key pair. You cannot specify an asymmetric KMS key or a KMS
-- key in a custom key store. To get the type and origin of your KMS key,
-- use the DescribeKey operation.
--
-- To specify a KMS key, use its key ID, key ARN, alias name, or alias ARN.
-- When using an alias name, prefix it with @\"alias\/\"@. To specify a KMS
-- key in a different Amazon Web Services account, you must use the key ARN
-- or alias ARN.
--
-- For example:
--
-- -   Key ID: @1234abcd-12ab-34cd-56ef-1234567890ab@
--
-- -   Key ARN:
--     @arn:aws:kms:us-east-2:111122223333:key\/1234abcd-12ab-34cd-56ef-1234567890ab@
--
-- -   Alias name: @alias\/ExampleAlias@
--
-- -   Alias ARN: @arn:aws:kms:us-east-2:111122223333:alias\/ExampleAlias@
--
-- To get the key ID and key ARN for a KMS key, use ListKeys or
-- DescribeKey. To get the alias name and alias ARN, use ListAliases.
--
-- 'keyPairSpec', 'generateDataKeyPair_keyPairSpec' - Determines the type of data key pair that is generated.
--
-- The KMS rule that restricts the use of asymmetric RSA and SM2 KMS keys
-- to encrypt and decrypt or to sign and verify (but not both), and the
-- rule that permits you to use ECC KMS keys only to sign and verify, are
-- not effective on data key pairs, which are used outside of KMS. The SM2
-- key spec is only available in China Regions.
newGenerateDataKeyPair ::
  -- | 'keyId'
  Prelude.Text ->
  -- | 'keyPairSpec'
  DataKeyPairSpec ->
  GenerateDataKeyPair
newGenerateDataKeyPair :: Text -> DataKeyPairSpec -> GenerateDataKeyPair
newGenerateDataKeyPair Text
pKeyId_ DataKeyPairSpec
pKeyPairSpec_ =
  GenerateDataKeyPair'
    { $sel:encryptionContext:GenerateDataKeyPair' :: Maybe (HashMap Text Text)
encryptionContext =
        forall a. Maybe a
Prelude.Nothing,
      $sel:grantTokens:GenerateDataKeyPair' :: Maybe [Text]
grantTokens = forall a. Maybe a
Prelude.Nothing,
      $sel:keyId:GenerateDataKeyPair' :: Text
keyId = Text
pKeyId_,
      $sel:keyPairSpec:GenerateDataKeyPair' :: DataKeyPairSpec
keyPairSpec = DataKeyPairSpec
pKeyPairSpec_
    }

-- | Specifies the encryption context that will be used when encrypting the
-- private key in the data key pair.
--
-- An /encryption context/ is a collection of non-secret key-value pairs
-- that represent additional authenticated data. When you use an encryption
-- context to encrypt data, you must specify the same (an exact
-- case-sensitive match) encryption context to decrypt the data. An
-- encryption context is supported only on operations with symmetric
-- encryption KMS keys. On operations with symmetric encryption KMS keys,
-- an encryption context is optional, but it is strongly recommended.
--
-- For more information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#encrypt_context Encryption context>
-- in the /Key Management Service Developer Guide/.
generateDataKeyPair_encryptionContext :: Lens.Lens' GenerateDataKeyPair (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
generateDataKeyPair_encryptionContext :: Lens' GenerateDataKeyPair (Maybe (HashMap Text Text))
generateDataKeyPair_encryptionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPair' {Maybe (HashMap Text Text)
encryptionContext :: Maybe (HashMap Text Text)
$sel:encryptionContext:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe (HashMap Text Text)
encryptionContext} -> Maybe (HashMap Text Text)
encryptionContext) (\s :: GenerateDataKeyPair
s@GenerateDataKeyPair' {} Maybe (HashMap Text Text)
a -> GenerateDataKeyPair
s {$sel:encryptionContext:GenerateDataKeyPair' :: Maybe (HashMap Text Text)
encryptionContext = Maybe (HashMap Text Text)
a} :: GenerateDataKeyPair) 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

-- | A list of grant tokens.
--
-- Use a grant token when your permission to call this operation comes from
-- a new grant that has not yet achieved /eventual consistency/. For more
-- information, see
-- <https://docs.aws.amazon.com/kms/latest/developerguide/grants.html#grant_token Grant token>
-- and
-- <https://docs.aws.amazon.com/kms/latest/developerguide/grant-manage.html#using-grant-token Using a grant token>
-- in the /Key Management Service Developer Guide/.
generateDataKeyPair_grantTokens :: Lens.Lens' GenerateDataKeyPair (Prelude.Maybe [Prelude.Text])
generateDataKeyPair_grantTokens :: Lens' GenerateDataKeyPair (Maybe [Text])
generateDataKeyPair_grantTokens = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPair' {Maybe [Text]
grantTokens :: Maybe [Text]
$sel:grantTokens:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe [Text]
grantTokens} -> Maybe [Text]
grantTokens) (\s :: GenerateDataKeyPair
s@GenerateDataKeyPair' {} Maybe [Text]
a -> GenerateDataKeyPair
s {$sel:grantTokens:GenerateDataKeyPair' :: Maybe [Text]
grantTokens = Maybe [Text]
a} :: GenerateDataKeyPair) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Specifies the symmetric encryption KMS key that encrypts the private key
-- in the data key pair. You cannot specify an asymmetric KMS key or a KMS
-- key in a custom key store. To get the type and origin of your KMS key,
-- use the DescribeKey operation.
--
-- To specify a KMS key, use its key ID, key ARN, alias name, or alias ARN.
-- When using an alias name, prefix it with @\"alias\/\"@. To specify a KMS
-- key in a different Amazon Web Services account, you must use the key ARN
-- or alias ARN.
--
-- For example:
--
-- -   Key ID: @1234abcd-12ab-34cd-56ef-1234567890ab@
--
-- -   Key ARN:
--     @arn:aws:kms:us-east-2:111122223333:key\/1234abcd-12ab-34cd-56ef-1234567890ab@
--
-- -   Alias name: @alias\/ExampleAlias@
--
-- -   Alias ARN: @arn:aws:kms:us-east-2:111122223333:alias\/ExampleAlias@
--
-- To get the key ID and key ARN for a KMS key, use ListKeys or
-- DescribeKey. To get the alias name and alias ARN, use ListAliases.
generateDataKeyPair_keyId :: Lens.Lens' GenerateDataKeyPair Prelude.Text
generateDataKeyPair_keyId :: Lens' GenerateDataKeyPair Text
generateDataKeyPair_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPair' {Text
keyId :: Text
$sel:keyId:GenerateDataKeyPair' :: GenerateDataKeyPair -> Text
keyId} -> Text
keyId) (\s :: GenerateDataKeyPair
s@GenerateDataKeyPair' {} Text
a -> GenerateDataKeyPair
s {$sel:keyId:GenerateDataKeyPair' :: Text
keyId = Text
a} :: GenerateDataKeyPair)

-- | Determines the type of data key pair that is generated.
--
-- The KMS rule that restricts the use of asymmetric RSA and SM2 KMS keys
-- to encrypt and decrypt or to sign and verify (but not both), and the
-- rule that permits you to use ECC KMS keys only to sign and verify, are
-- not effective on data key pairs, which are used outside of KMS. The SM2
-- key spec is only available in China Regions.
generateDataKeyPair_keyPairSpec :: Lens.Lens' GenerateDataKeyPair DataKeyPairSpec
generateDataKeyPair_keyPairSpec :: Lens' GenerateDataKeyPair DataKeyPairSpec
generateDataKeyPair_keyPairSpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPair' {DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
$sel:keyPairSpec:GenerateDataKeyPair' :: GenerateDataKeyPair -> DataKeyPairSpec
keyPairSpec} -> DataKeyPairSpec
keyPairSpec) (\s :: GenerateDataKeyPair
s@GenerateDataKeyPair' {} DataKeyPairSpec
a -> GenerateDataKeyPair
s {$sel:keyPairSpec:GenerateDataKeyPair' :: DataKeyPairSpec
keyPairSpec = DataKeyPairSpec
a} :: GenerateDataKeyPair)

instance Core.AWSRequest GenerateDataKeyPair where
  type
    AWSResponse GenerateDataKeyPair =
      GenerateDataKeyPairResponse
  request :: (Service -> Service)
-> GenerateDataKeyPair -> Request GenerateDataKeyPair
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 GenerateDataKeyPair
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GenerateDataKeyPair)))
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 Text
-> Maybe DataKeyPairSpec
-> Maybe Base64
-> Maybe (Sensitive Base64)
-> Maybe Base64
-> Int
-> GenerateDataKeyPairResponse
GenerateDataKeyPairResponse'
            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
"KeyId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"KeyPairSpec")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PrivateKeyCiphertextBlob")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PrivateKeyPlaintext")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PublicKey")
            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 GenerateDataKeyPair where
  hashWithSalt :: Int -> GenerateDataKeyPair -> Int
hashWithSalt Int
_salt GenerateDataKeyPair' {Maybe [Text]
Maybe (HashMap Text Text)
Text
DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyPairSpec:GenerateDataKeyPair' :: GenerateDataKeyPair -> DataKeyPairSpec
$sel:keyId:GenerateDataKeyPair' :: GenerateDataKeyPair -> Text
$sel:grantTokens:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe (HashMap Text Text)
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
encryptionContext
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
grantTokens
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
keyId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` DataKeyPairSpec
keyPairSpec

instance Prelude.NFData GenerateDataKeyPair where
  rnf :: GenerateDataKeyPair -> ()
rnf GenerateDataKeyPair' {Maybe [Text]
Maybe (HashMap Text Text)
Text
DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyPairSpec:GenerateDataKeyPair' :: GenerateDataKeyPair -> DataKeyPairSpec
$sel:keyId:GenerateDataKeyPair' :: GenerateDataKeyPair -> Text
$sel:grantTokens:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe (HashMap Text Text)
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
encryptionContext
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
grantTokens
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
keyId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DataKeyPairSpec
keyPairSpec

instance Data.ToHeaders GenerateDataKeyPair where
  toHeaders :: GenerateDataKeyPair -> 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.GenerateDataKeyPair" ::
                          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 GenerateDataKeyPair where
  toJSON :: GenerateDataKeyPair -> Value
toJSON GenerateDataKeyPair' {Maybe [Text]
Maybe (HashMap Text Text)
Text
DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyPairSpec:GenerateDataKeyPair' :: GenerateDataKeyPair -> DataKeyPairSpec
$sel:keyId:GenerateDataKeyPair' :: GenerateDataKeyPair -> Text
$sel:grantTokens:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyPair' :: GenerateDataKeyPair -> Maybe (HashMap Text Text)
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"EncryptionContext" 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 (HashMap Text Text)
encryptionContext,
            (Key
"GrantTokens" 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]
grantTokens,
            forall a. a -> Maybe a
Prelude.Just (Key
"KeyId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
keyId),
            forall a. a -> Maybe a
Prelude.Just (Key
"KeyPairSpec" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= DataKeyPairSpec
keyPairSpec)
          ]
      )

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

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

-- | /See:/ 'newGenerateDataKeyPairResponse' smart constructor.
data GenerateDataKeyPairResponse = GenerateDataKeyPairResponse'
  { -- | The Amazon Resource Name
    -- (<https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#key-id-key-ARN key ARN>)
    -- of the KMS key that encrypted the private key.
    GenerateDataKeyPairResponse -> Maybe Text
keyId :: Prelude.Maybe Prelude.Text,
    -- | The type of data key pair that was generated.
    GenerateDataKeyPairResponse -> Maybe DataKeyPairSpec
keyPairSpec :: Prelude.Maybe DataKeyPairSpec,
    -- | The encrypted copy of the private key. When you use the HTTP API or the
    -- Amazon Web Services CLI, the value is Base64-encoded. Otherwise, it is
    -- not Base64-encoded.
    GenerateDataKeyPairResponse -> Maybe Base64
privateKeyCiphertextBlob :: Prelude.Maybe Data.Base64,
    -- | The plaintext copy of the private key. When you use the HTTP API or the
    -- Amazon Web Services CLI, the value is Base64-encoded. Otherwise, it is
    -- not Base64-encoded.
    GenerateDataKeyPairResponse -> Maybe (Sensitive Base64)
privateKeyPlaintext :: Prelude.Maybe (Data.Sensitive Data.Base64),
    -- | The public key (in plaintext). When you use the HTTP API or the Amazon
    -- Web Services CLI, the value is Base64-encoded. Otherwise, it is not
    -- Base64-encoded.
    GenerateDataKeyPairResponse -> Maybe Base64
publicKey :: Prelude.Maybe Data.Base64,
    -- | The response's http status code.
    GenerateDataKeyPairResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GenerateDataKeyPairResponse -> GenerateDataKeyPairResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateDataKeyPairResponse -> GenerateDataKeyPairResponse -> Bool
$c/= :: GenerateDataKeyPairResponse -> GenerateDataKeyPairResponse -> Bool
== :: GenerateDataKeyPairResponse -> GenerateDataKeyPairResponse -> Bool
$c== :: GenerateDataKeyPairResponse -> GenerateDataKeyPairResponse -> Bool
Prelude.Eq, Int -> GenerateDataKeyPairResponse -> ShowS
[GenerateDataKeyPairResponse] -> ShowS
GenerateDataKeyPairResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateDataKeyPairResponse] -> ShowS
$cshowList :: [GenerateDataKeyPairResponse] -> ShowS
show :: GenerateDataKeyPairResponse -> String
$cshow :: GenerateDataKeyPairResponse -> String
showsPrec :: Int -> GenerateDataKeyPairResponse -> ShowS
$cshowsPrec :: Int -> GenerateDataKeyPairResponse -> ShowS
Prelude.Show, forall x.
Rep GenerateDataKeyPairResponse x -> GenerateDataKeyPairResponse
forall x.
GenerateDataKeyPairResponse -> Rep GenerateDataKeyPairResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateDataKeyPairResponse x -> GenerateDataKeyPairResponse
$cfrom :: forall x.
GenerateDataKeyPairResponse -> Rep GenerateDataKeyPairResponse x
Prelude.Generic)

-- |
-- Create a value of 'GenerateDataKeyPairResponse' 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:
--
-- 'keyId', 'generateDataKeyPairResponse_keyId' - The Amazon Resource Name
-- (<https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#key-id-key-ARN key ARN>)
-- of the KMS key that encrypted the private key.
--
-- 'keyPairSpec', 'generateDataKeyPairResponse_keyPairSpec' - The type of data key pair that was generated.
--
-- 'privateKeyCiphertextBlob', 'generateDataKeyPairResponse_privateKeyCiphertextBlob' - The encrypted copy of the private key. When you use the HTTP API or the
-- Amazon Web Services CLI, the value is Base64-encoded. Otherwise, it is
-- not Base64-encoded.--
-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.
-- -- The underlying isomorphism will encode to Base64 representation during
-- -- serialisation, and decode from Base64 representation during deserialisation.
-- -- This 'Lens' accepts and returns only raw unencoded data.
--
-- 'privateKeyPlaintext', 'generateDataKeyPairResponse_privateKeyPlaintext' - The plaintext copy of the private key. When you use the HTTP API or the
-- Amazon Web Services CLI, the value is Base64-encoded. Otherwise, it is
-- not Base64-encoded.--
-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.
-- -- The underlying isomorphism will encode to Base64 representation during
-- -- serialisation, and decode from Base64 representation during deserialisation.
-- -- This 'Lens' accepts and returns only raw unencoded data.
--
-- 'publicKey', 'generateDataKeyPairResponse_publicKey' - The public key (in plaintext). When you use the HTTP API or the Amazon
-- Web Services CLI, the value is Base64-encoded. Otherwise, it is not
-- Base64-encoded.--
-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.
-- -- The underlying isomorphism will encode to Base64 representation during
-- -- serialisation, and decode from Base64 representation during deserialisation.
-- -- This 'Lens' accepts and returns only raw unencoded data.
--
-- 'httpStatus', 'generateDataKeyPairResponse_httpStatus' - The response's http status code.
newGenerateDataKeyPairResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GenerateDataKeyPairResponse
newGenerateDataKeyPairResponse :: Int -> GenerateDataKeyPairResponse
newGenerateDataKeyPairResponse Int
pHttpStatus_ =
  GenerateDataKeyPairResponse'
    { $sel:keyId:GenerateDataKeyPairResponse' :: Maybe Text
keyId =
        forall a. Maybe a
Prelude.Nothing,
      $sel:keyPairSpec:GenerateDataKeyPairResponse' :: Maybe DataKeyPairSpec
keyPairSpec = forall a. Maybe a
Prelude.Nothing,
      $sel:privateKeyCiphertextBlob:GenerateDataKeyPairResponse' :: Maybe Base64
privateKeyCiphertextBlob = forall a. Maybe a
Prelude.Nothing,
      $sel:privateKeyPlaintext:GenerateDataKeyPairResponse' :: Maybe (Sensitive Base64)
privateKeyPlaintext = forall a. Maybe a
Prelude.Nothing,
      $sel:publicKey:GenerateDataKeyPairResponse' :: Maybe Base64
publicKey = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GenerateDataKeyPairResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The Amazon Resource Name
-- (<https://docs.aws.amazon.com/kms/latest/developerguide/concepts.html#key-id-key-ARN key ARN>)
-- of the KMS key that encrypted the private key.
generateDataKeyPairResponse_keyId :: Lens.Lens' GenerateDataKeyPairResponse (Prelude.Maybe Prelude.Text)
generateDataKeyPairResponse_keyId :: Lens' GenerateDataKeyPairResponse (Maybe Text)
generateDataKeyPairResponse_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairResponse' {Maybe Text
keyId :: Maybe Text
$sel:keyId:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe Text
keyId} -> Maybe Text
keyId) (\s :: GenerateDataKeyPairResponse
s@GenerateDataKeyPairResponse' {} Maybe Text
a -> GenerateDataKeyPairResponse
s {$sel:keyId:GenerateDataKeyPairResponse' :: Maybe Text
keyId = Maybe Text
a} :: GenerateDataKeyPairResponse)

-- | The type of data key pair that was generated.
generateDataKeyPairResponse_keyPairSpec :: Lens.Lens' GenerateDataKeyPairResponse (Prelude.Maybe DataKeyPairSpec)
generateDataKeyPairResponse_keyPairSpec :: Lens' GenerateDataKeyPairResponse (Maybe DataKeyPairSpec)
generateDataKeyPairResponse_keyPairSpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairResponse' {Maybe DataKeyPairSpec
keyPairSpec :: Maybe DataKeyPairSpec
$sel:keyPairSpec:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe DataKeyPairSpec
keyPairSpec} -> Maybe DataKeyPairSpec
keyPairSpec) (\s :: GenerateDataKeyPairResponse
s@GenerateDataKeyPairResponse' {} Maybe DataKeyPairSpec
a -> GenerateDataKeyPairResponse
s {$sel:keyPairSpec:GenerateDataKeyPairResponse' :: Maybe DataKeyPairSpec
keyPairSpec = Maybe DataKeyPairSpec
a} :: GenerateDataKeyPairResponse)

-- | The encrypted copy of the private key. When you use the HTTP API or the
-- Amazon Web Services CLI, the value is Base64-encoded. Otherwise, it is
-- not Base64-encoded.--
-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.
-- -- The underlying isomorphism will encode to Base64 representation during
-- -- serialisation, and decode from Base64 representation during deserialisation.
-- -- This 'Lens' accepts and returns only raw unencoded data.
generateDataKeyPairResponse_privateKeyCiphertextBlob :: Lens.Lens' GenerateDataKeyPairResponse (Prelude.Maybe Prelude.ByteString)
generateDataKeyPairResponse_privateKeyCiphertextBlob :: Lens' GenerateDataKeyPairResponse (Maybe ByteString)
generateDataKeyPairResponse_privateKeyCiphertextBlob = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairResponse' {Maybe Base64
privateKeyCiphertextBlob :: Maybe Base64
$sel:privateKeyCiphertextBlob:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe Base64
privateKeyCiphertextBlob} -> Maybe Base64
privateKeyCiphertextBlob) (\s :: GenerateDataKeyPairResponse
s@GenerateDataKeyPairResponse' {} Maybe Base64
a -> GenerateDataKeyPairResponse
s {$sel:privateKeyCiphertextBlob:GenerateDataKeyPairResponse' :: Maybe Base64
privateKeyCiphertextBlob = Maybe Base64
a} :: GenerateDataKeyPairResponse) 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 Iso' Base64 ByteString
Data._Base64

-- | The plaintext copy of the private key. When you use the HTTP API or the
-- Amazon Web Services CLI, the value is Base64-encoded. Otherwise, it is
-- not Base64-encoded.--
-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.
-- -- The underlying isomorphism will encode to Base64 representation during
-- -- serialisation, and decode from Base64 representation during deserialisation.
-- -- This 'Lens' accepts and returns only raw unencoded data.
generateDataKeyPairResponse_privateKeyPlaintext :: Lens.Lens' GenerateDataKeyPairResponse (Prelude.Maybe Prelude.ByteString)
generateDataKeyPairResponse_privateKeyPlaintext :: Lens' GenerateDataKeyPairResponse (Maybe ByteString)
generateDataKeyPairResponse_privateKeyPlaintext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairResponse' {Maybe (Sensitive Base64)
privateKeyPlaintext :: Maybe (Sensitive Base64)
$sel:privateKeyPlaintext:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe (Sensitive Base64)
privateKeyPlaintext} -> Maybe (Sensitive Base64)
privateKeyPlaintext) (\s :: GenerateDataKeyPairResponse
s@GenerateDataKeyPairResponse' {} Maybe (Sensitive Base64)
a -> GenerateDataKeyPairResponse
s {$sel:privateKeyPlaintext:GenerateDataKeyPairResponse' :: Maybe (Sensitive Base64)
privateKeyPlaintext = Maybe (Sensitive Base64)
a} :: GenerateDataKeyPairResponse) 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 a. Iso' (Sensitive a) a
Data._Sensitive forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Iso' Base64 ByteString
Data._Base64)

-- | The public key (in plaintext). When you use the HTTP API or the Amazon
-- Web Services CLI, the value is Base64-encoded. Otherwise, it is not
-- Base64-encoded.--
-- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data.
-- -- The underlying isomorphism will encode to Base64 representation during
-- -- serialisation, and decode from Base64 representation during deserialisation.
-- -- This 'Lens' accepts and returns only raw unencoded data.
generateDataKeyPairResponse_publicKey :: Lens.Lens' GenerateDataKeyPairResponse (Prelude.Maybe Prelude.ByteString)
generateDataKeyPairResponse_publicKey :: Lens' GenerateDataKeyPairResponse (Maybe ByteString)
generateDataKeyPairResponse_publicKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairResponse' {Maybe Base64
publicKey :: Maybe Base64
$sel:publicKey:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe Base64
publicKey} -> Maybe Base64
publicKey) (\s :: GenerateDataKeyPairResponse
s@GenerateDataKeyPairResponse' {} Maybe Base64
a -> GenerateDataKeyPairResponse
s {$sel:publicKey:GenerateDataKeyPairResponse' :: Maybe Base64
publicKey = Maybe Base64
a} :: GenerateDataKeyPairResponse) 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 Iso' Base64 ByteString
Data._Base64

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

instance Prelude.NFData GenerateDataKeyPairResponse where
  rnf :: GenerateDataKeyPairResponse -> ()
rnf GenerateDataKeyPairResponse' {Int
Maybe Text
Maybe Base64
Maybe (Sensitive Base64)
Maybe DataKeyPairSpec
httpStatus :: Int
publicKey :: Maybe Base64
privateKeyPlaintext :: Maybe (Sensitive Base64)
privateKeyCiphertextBlob :: Maybe Base64
keyPairSpec :: Maybe DataKeyPairSpec
keyId :: Maybe Text
$sel:httpStatus:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Int
$sel:publicKey:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe Base64
$sel:privateKeyPlaintext:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe (Sensitive Base64)
$sel:privateKeyCiphertextBlob:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe Base64
$sel:keyPairSpec:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe DataKeyPairSpec
$sel:keyId:GenerateDataKeyPairResponse' :: GenerateDataKeyPairResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
keyId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DataKeyPairSpec
keyPairSpec
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Base64
privateKeyCiphertextBlob
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Base64)
privateKeyPlaintext
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Base64
publicKey
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus