{-# 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 #-}
module Amazonka.KMS.GenerateDataKeyPair
(
GenerateDataKeyPair (..),
newGenerateDataKeyPair,
generateDataKeyPair_encryptionContext,
generateDataKeyPair_grantTokens,
generateDataKeyPair_keyId,
generateDataKeyPair_keyPairSpec,
GenerateDataKeyPairResponse (..),
newGenerateDataKeyPairResponse,
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
data GenerateDataKeyPair = GenerateDataKeyPair'
{
GenerateDataKeyPair -> Maybe (HashMap Text Text)
encryptionContext :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
GenerateDataKeyPair -> Maybe [Text]
grantTokens :: Prelude.Maybe [Prelude.Text],
GenerateDataKeyPair -> Text
keyId :: Prelude.Text,
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)
newGenerateDataKeyPair ::
Prelude.Text ->
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_
}
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
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
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)
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
data GenerateDataKeyPairResponse = GenerateDataKeyPairResponse'
{
GenerateDataKeyPairResponse -> Maybe Text
keyId :: Prelude.Maybe Prelude.Text,
GenerateDataKeyPairResponse -> Maybe DataKeyPairSpec
keyPairSpec :: Prelude.Maybe DataKeyPairSpec,
GenerateDataKeyPairResponse -> Maybe Base64
privateKeyCiphertextBlob :: Prelude.Maybe Data.Base64,
GenerateDataKeyPairResponse -> Maybe (Sensitive Base64)
privateKeyPlaintext :: Prelude.Maybe (Data.Sensitive Data.Base64),
GenerateDataKeyPairResponse -> Maybe Base64
publicKey :: Prelude.Maybe Data.Base64,
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)
newGenerateDataKeyPairResponse ::
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_
}
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)
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)
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
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)
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
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