{-# 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.GenerateDataKeyPairWithoutPlaintext
(
GenerateDataKeyPairWithoutPlaintext (..),
newGenerateDataKeyPairWithoutPlaintext,
generateDataKeyPairWithoutPlaintext_encryptionContext,
generateDataKeyPairWithoutPlaintext_grantTokens,
generateDataKeyPairWithoutPlaintext_keyId,
generateDataKeyPairWithoutPlaintext_keyPairSpec,
GenerateDataKeyPairWithoutPlaintextResponse (..),
newGenerateDataKeyPairWithoutPlaintextResponse,
generateDataKeyPairWithoutPlaintextResponse_keyId,
generateDataKeyPairWithoutPlaintextResponse_keyPairSpec,
generateDataKeyPairWithoutPlaintextResponse_privateKeyCiphertextBlob,
generateDataKeyPairWithoutPlaintextResponse_publicKey,
generateDataKeyPairWithoutPlaintextResponse_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 GenerateDataKeyPairWithoutPlaintext = GenerateDataKeyPairWithoutPlaintext'
{
GenerateDataKeyPairWithoutPlaintext -> Maybe (HashMap Text Text)
encryptionContext :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
GenerateDataKeyPairWithoutPlaintext -> Maybe [Text]
grantTokens :: Prelude.Maybe [Prelude.Text],
GenerateDataKeyPairWithoutPlaintext -> Text
keyId :: Prelude.Text,
GenerateDataKeyPairWithoutPlaintext -> DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
}
deriving (GenerateDataKeyPairWithoutPlaintext
-> GenerateDataKeyPairWithoutPlaintext -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateDataKeyPairWithoutPlaintext
-> GenerateDataKeyPairWithoutPlaintext -> Bool
$c/= :: GenerateDataKeyPairWithoutPlaintext
-> GenerateDataKeyPairWithoutPlaintext -> Bool
== :: GenerateDataKeyPairWithoutPlaintext
-> GenerateDataKeyPairWithoutPlaintext -> Bool
$c== :: GenerateDataKeyPairWithoutPlaintext
-> GenerateDataKeyPairWithoutPlaintext -> Bool
Prelude.Eq, ReadPrec [GenerateDataKeyPairWithoutPlaintext]
ReadPrec GenerateDataKeyPairWithoutPlaintext
Int -> ReadS GenerateDataKeyPairWithoutPlaintext
ReadS [GenerateDataKeyPairWithoutPlaintext]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateDataKeyPairWithoutPlaintext]
$creadListPrec :: ReadPrec [GenerateDataKeyPairWithoutPlaintext]
readPrec :: ReadPrec GenerateDataKeyPairWithoutPlaintext
$creadPrec :: ReadPrec GenerateDataKeyPairWithoutPlaintext
readList :: ReadS [GenerateDataKeyPairWithoutPlaintext]
$creadList :: ReadS [GenerateDataKeyPairWithoutPlaintext]
readsPrec :: Int -> ReadS GenerateDataKeyPairWithoutPlaintext
$creadsPrec :: Int -> ReadS GenerateDataKeyPairWithoutPlaintext
Prelude.Read, Int -> GenerateDataKeyPairWithoutPlaintext -> ShowS
[GenerateDataKeyPairWithoutPlaintext] -> ShowS
GenerateDataKeyPairWithoutPlaintext -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateDataKeyPairWithoutPlaintext] -> ShowS
$cshowList :: [GenerateDataKeyPairWithoutPlaintext] -> ShowS
show :: GenerateDataKeyPairWithoutPlaintext -> String
$cshow :: GenerateDataKeyPairWithoutPlaintext -> String
showsPrec :: Int -> GenerateDataKeyPairWithoutPlaintext -> ShowS
$cshowsPrec :: Int -> GenerateDataKeyPairWithoutPlaintext -> ShowS
Prelude.Show, forall x.
Rep GenerateDataKeyPairWithoutPlaintext x
-> GenerateDataKeyPairWithoutPlaintext
forall x.
GenerateDataKeyPairWithoutPlaintext
-> Rep GenerateDataKeyPairWithoutPlaintext x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateDataKeyPairWithoutPlaintext x
-> GenerateDataKeyPairWithoutPlaintext
$cfrom :: forall x.
GenerateDataKeyPairWithoutPlaintext
-> Rep GenerateDataKeyPairWithoutPlaintext x
Prelude.Generic)
newGenerateDataKeyPairWithoutPlaintext ::
Prelude.Text ->
DataKeyPairSpec ->
GenerateDataKeyPairWithoutPlaintext
newGenerateDataKeyPairWithoutPlaintext :: Text -> DataKeyPairSpec -> GenerateDataKeyPairWithoutPlaintext
newGenerateDataKeyPairWithoutPlaintext
Text
pKeyId_
DataKeyPairSpec
pKeyPairSpec_ =
GenerateDataKeyPairWithoutPlaintext'
{ $sel:encryptionContext:GenerateDataKeyPairWithoutPlaintext' :: Maybe (HashMap Text Text)
encryptionContext =
forall a. Maybe a
Prelude.Nothing,
$sel:grantTokens:GenerateDataKeyPairWithoutPlaintext' :: Maybe [Text]
grantTokens = forall a. Maybe a
Prelude.Nothing,
$sel:keyId:GenerateDataKeyPairWithoutPlaintext' :: Text
keyId = Text
pKeyId_,
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintext' :: DataKeyPairSpec
keyPairSpec = DataKeyPairSpec
pKeyPairSpec_
}
generateDataKeyPairWithoutPlaintext_encryptionContext :: Lens.Lens' GenerateDataKeyPairWithoutPlaintext (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
generateDataKeyPairWithoutPlaintext_encryptionContext :: Lens'
GenerateDataKeyPairWithoutPlaintext (Maybe (HashMap Text Text))
generateDataKeyPairWithoutPlaintext_encryptionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintext' {Maybe (HashMap Text Text)
encryptionContext :: Maybe (HashMap Text Text)
$sel:encryptionContext:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Maybe (HashMap Text Text)
encryptionContext} -> Maybe (HashMap Text Text)
encryptionContext) (\s :: GenerateDataKeyPairWithoutPlaintext
s@GenerateDataKeyPairWithoutPlaintext' {} Maybe (HashMap Text Text)
a -> GenerateDataKeyPairWithoutPlaintext
s {$sel:encryptionContext:GenerateDataKeyPairWithoutPlaintext' :: Maybe (HashMap Text Text)
encryptionContext = Maybe (HashMap Text Text)
a} :: GenerateDataKeyPairWithoutPlaintext) 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
generateDataKeyPairWithoutPlaintext_grantTokens :: Lens.Lens' GenerateDataKeyPairWithoutPlaintext (Prelude.Maybe [Prelude.Text])
generateDataKeyPairWithoutPlaintext_grantTokens :: Lens' GenerateDataKeyPairWithoutPlaintext (Maybe [Text])
generateDataKeyPairWithoutPlaintext_grantTokens = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintext' {Maybe [Text]
grantTokens :: Maybe [Text]
$sel:grantTokens:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Maybe [Text]
grantTokens} -> Maybe [Text]
grantTokens) (\s :: GenerateDataKeyPairWithoutPlaintext
s@GenerateDataKeyPairWithoutPlaintext' {} Maybe [Text]
a -> GenerateDataKeyPairWithoutPlaintext
s {$sel:grantTokens:GenerateDataKeyPairWithoutPlaintext' :: Maybe [Text]
grantTokens = Maybe [Text]
a} :: GenerateDataKeyPairWithoutPlaintext) 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
generateDataKeyPairWithoutPlaintext_keyId :: Lens.Lens' GenerateDataKeyPairWithoutPlaintext Prelude.Text
generateDataKeyPairWithoutPlaintext_keyId :: Lens' GenerateDataKeyPairWithoutPlaintext Text
generateDataKeyPairWithoutPlaintext_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintext' {Text
keyId :: Text
$sel:keyId:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Text
keyId} -> Text
keyId) (\s :: GenerateDataKeyPairWithoutPlaintext
s@GenerateDataKeyPairWithoutPlaintext' {} Text
a -> GenerateDataKeyPairWithoutPlaintext
s {$sel:keyId:GenerateDataKeyPairWithoutPlaintext' :: Text
keyId = Text
a} :: GenerateDataKeyPairWithoutPlaintext)
generateDataKeyPairWithoutPlaintext_keyPairSpec :: Lens.Lens' GenerateDataKeyPairWithoutPlaintext DataKeyPairSpec
generateDataKeyPairWithoutPlaintext_keyPairSpec :: Lens' GenerateDataKeyPairWithoutPlaintext DataKeyPairSpec
generateDataKeyPairWithoutPlaintext_keyPairSpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintext' {DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> DataKeyPairSpec
keyPairSpec} -> DataKeyPairSpec
keyPairSpec) (\s :: GenerateDataKeyPairWithoutPlaintext
s@GenerateDataKeyPairWithoutPlaintext' {} DataKeyPairSpec
a -> GenerateDataKeyPairWithoutPlaintext
s {$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintext' :: DataKeyPairSpec
keyPairSpec = DataKeyPairSpec
a} :: GenerateDataKeyPairWithoutPlaintext)
instance
Core.AWSRequest
GenerateDataKeyPairWithoutPlaintext
where
type
AWSResponse GenerateDataKeyPairWithoutPlaintext =
GenerateDataKeyPairWithoutPlaintextResponse
request :: (Service -> Service)
-> GenerateDataKeyPairWithoutPlaintext
-> Request GenerateDataKeyPairWithoutPlaintext
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 GenerateDataKeyPairWithoutPlaintext
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GenerateDataKeyPairWithoutPlaintext)))
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 Base64
-> Int
-> GenerateDataKeyPairWithoutPlaintextResponse
GenerateDataKeyPairWithoutPlaintextResponse'
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
"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
GenerateDataKeyPairWithoutPlaintext
where
hashWithSalt :: Int -> GenerateDataKeyPairWithoutPlaintext -> Int
hashWithSalt
Int
_salt
GenerateDataKeyPairWithoutPlaintext' {Maybe [Text]
Maybe (HashMap Text Text)
Text
DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> DataKeyPairSpec
$sel:keyId:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Text
$sel:grantTokens:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> 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
GenerateDataKeyPairWithoutPlaintext
where
rnf :: GenerateDataKeyPairWithoutPlaintext -> ()
rnf GenerateDataKeyPairWithoutPlaintext' {Maybe [Text]
Maybe (HashMap Text Text)
Text
DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> DataKeyPairSpec
$sel:keyId:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Text
$sel:grantTokens:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> 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
GenerateDataKeyPairWithoutPlaintext
where
toHeaders :: GenerateDataKeyPairWithoutPlaintext -> 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.GenerateDataKeyPairWithoutPlaintext" ::
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
GenerateDataKeyPairWithoutPlaintext
where
toJSON :: GenerateDataKeyPairWithoutPlaintext -> Value
toJSON GenerateDataKeyPairWithoutPlaintext' {Maybe [Text]
Maybe (HashMap Text Text)
Text
DataKeyPairSpec
keyPairSpec :: DataKeyPairSpec
keyId :: Text
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> DataKeyPairSpec
$sel:keyId:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Text
$sel:grantTokens:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyPairWithoutPlaintext' :: GenerateDataKeyPairWithoutPlaintext -> 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
GenerateDataKeyPairWithoutPlaintext
where
toPath :: GenerateDataKeyPairWithoutPlaintext -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
GenerateDataKeyPairWithoutPlaintext
where
toQuery :: GenerateDataKeyPairWithoutPlaintext -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GenerateDataKeyPairWithoutPlaintextResponse = GenerateDataKeyPairWithoutPlaintextResponse'
{
GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Text
keyId :: Prelude.Maybe Prelude.Text,
GenerateDataKeyPairWithoutPlaintextResponse
-> Maybe DataKeyPairSpec
keyPairSpec :: Prelude.Maybe DataKeyPairSpec,
GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Base64
privateKeyCiphertextBlob :: Prelude.Maybe Data.Base64,
GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Base64
publicKey :: Prelude.Maybe Data.Base64,
GenerateDataKeyPairWithoutPlaintextResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GenerateDataKeyPairWithoutPlaintextResponse
-> GenerateDataKeyPairWithoutPlaintextResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateDataKeyPairWithoutPlaintextResponse
-> GenerateDataKeyPairWithoutPlaintextResponse -> Bool
$c/= :: GenerateDataKeyPairWithoutPlaintextResponse
-> GenerateDataKeyPairWithoutPlaintextResponse -> Bool
== :: GenerateDataKeyPairWithoutPlaintextResponse
-> GenerateDataKeyPairWithoutPlaintextResponse -> Bool
$c== :: GenerateDataKeyPairWithoutPlaintextResponse
-> GenerateDataKeyPairWithoutPlaintextResponse -> Bool
Prelude.Eq, ReadPrec [GenerateDataKeyPairWithoutPlaintextResponse]
ReadPrec GenerateDataKeyPairWithoutPlaintextResponse
Int -> ReadS GenerateDataKeyPairWithoutPlaintextResponse
ReadS [GenerateDataKeyPairWithoutPlaintextResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateDataKeyPairWithoutPlaintextResponse]
$creadListPrec :: ReadPrec [GenerateDataKeyPairWithoutPlaintextResponse]
readPrec :: ReadPrec GenerateDataKeyPairWithoutPlaintextResponse
$creadPrec :: ReadPrec GenerateDataKeyPairWithoutPlaintextResponse
readList :: ReadS [GenerateDataKeyPairWithoutPlaintextResponse]
$creadList :: ReadS [GenerateDataKeyPairWithoutPlaintextResponse]
readsPrec :: Int -> ReadS GenerateDataKeyPairWithoutPlaintextResponse
$creadsPrec :: Int -> ReadS GenerateDataKeyPairWithoutPlaintextResponse
Prelude.Read, Int -> GenerateDataKeyPairWithoutPlaintextResponse -> ShowS
[GenerateDataKeyPairWithoutPlaintextResponse] -> ShowS
GenerateDataKeyPairWithoutPlaintextResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateDataKeyPairWithoutPlaintextResponse] -> ShowS
$cshowList :: [GenerateDataKeyPairWithoutPlaintextResponse] -> ShowS
show :: GenerateDataKeyPairWithoutPlaintextResponse -> String
$cshow :: GenerateDataKeyPairWithoutPlaintextResponse -> String
showsPrec :: Int -> GenerateDataKeyPairWithoutPlaintextResponse -> ShowS
$cshowsPrec :: Int -> GenerateDataKeyPairWithoutPlaintextResponse -> ShowS
Prelude.Show, forall x.
Rep GenerateDataKeyPairWithoutPlaintextResponse x
-> GenerateDataKeyPairWithoutPlaintextResponse
forall x.
GenerateDataKeyPairWithoutPlaintextResponse
-> Rep GenerateDataKeyPairWithoutPlaintextResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateDataKeyPairWithoutPlaintextResponse x
-> GenerateDataKeyPairWithoutPlaintextResponse
$cfrom :: forall x.
GenerateDataKeyPairWithoutPlaintextResponse
-> Rep GenerateDataKeyPairWithoutPlaintextResponse x
Prelude.Generic)
newGenerateDataKeyPairWithoutPlaintextResponse ::
Prelude.Int ->
GenerateDataKeyPairWithoutPlaintextResponse
newGenerateDataKeyPairWithoutPlaintextResponse :: Int -> GenerateDataKeyPairWithoutPlaintextResponse
newGenerateDataKeyPairWithoutPlaintextResponse
Int
pHttpStatus_ =
GenerateDataKeyPairWithoutPlaintextResponse'
{ $sel:keyId:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe Text
keyId =
forall a. Maybe a
Prelude.Nothing,
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe DataKeyPairSpec
keyPairSpec = forall a. Maybe a
Prelude.Nothing,
$sel:privateKeyCiphertextBlob:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe Base64
privateKeyCiphertextBlob =
forall a. Maybe a
Prelude.Nothing,
$sel:publicKey:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe Base64
publicKey = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GenerateDataKeyPairWithoutPlaintextResponse' :: Int
httpStatus = Int
pHttpStatus_
}
generateDataKeyPairWithoutPlaintextResponse_keyId :: Lens.Lens' GenerateDataKeyPairWithoutPlaintextResponse (Prelude.Maybe Prelude.Text)
generateDataKeyPairWithoutPlaintextResponse_keyId :: Lens' GenerateDataKeyPairWithoutPlaintextResponse (Maybe Text)
generateDataKeyPairWithoutPlaintextResponse_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintextResponse' {Maybe Text
keyId :: Maybe Text
$sel:keyId:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Text
keyId} -> Maybe Text
keyId) (\s :: GenerateDataKeyPairWithoutPlaintextResponse
s@GenerateDataKeyPairWithoutPlaintextResponse' {} Maybe Text
a -> GenerateDataKeyPairWithoutPlaintextResponse
s {$sel:keyId:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe Text
keyId = Maybe Text
a} :: GenerateDataKeyPairWithoutPlaintextResponse)
generateDataKeyPairWithoutPlaintextResponse_keyPairSpec :: Lens.Lens' GenerateDataKeyPairWithoutPlaintextResponse (Prelude.Maybe DataKeyPairSpec)
generateDataKeyPairWithoutPlaintextResponse_keyPairSpec :: Lens'
GenerateDataKeyPairWithoutPlaintextResponse (Maybe DataKeyPairSpec)
generateDataKeyPairWithoutPlaintextResponse_keyPairSpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintextResponse' {Maybe DataKeyPairSpec
keyPairSpec :: Maybe DataKeyPairSpec
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse
-> Maybe DataKeyPairSpec
keyPairSpec} -> Maybe DataKeyPairSpec
keyPairSpec) (\s :: GenerateDataKeyPairWithoutPlaintextResponse
s@GenerateDataKeyPairWithoutPlaintextResponse' {} Maybe DataKeyPairSpec
a -> GenerateDataKeyPairWithoutPlaintextResponse
s {$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe DataKeyPairSpec
keyPairSpec = Maybe DataKeyPairSpec
a} :: GenerateDataKeyPairWithoutPlaintextResponse)
generateDataKeyPairWithoutPlaintextResponse_privateKeyCiphertextBlob :: Lens.Lens' GenerateDataKeyPairWithoutPlaintextResponse (Prelude.Maybe Prelude.ByteString)
generateDataKeyPairWithoutPlaintextResponse_privateKeyCiphertextBlob :: Lens'
GenerateDataKeyPairWithoutPlaintextResponse (Maybe ByteString)
generateDataKeyPairWithoutPlaintextResponse_privateKeyCiphertextBlob = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintextResponse' {Maybe Base64
privateKeyCiphertextBlob :: Maybe Base64
$sel:privateKeyCiphertextBlob:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Base64
privateKeyCiphertextBlob} -> Maybe Base64
privateKeyCiphertextBlob) (\s :: GenerateDataKeyPairWithoutPlaintextResponse
s@GenerateDataKeyPairWithoutPlaintextResponse' {} Maybe Base64
a -> GenerateDataKeyPairWithoutPlaintextResponse
s {$sel:privateKeyCiphertextBlob:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe Base64
privateKeyCiphertextBlob = Maybe Base64
a} :: GenerateDataKeyPairWithoutPlaintextResponse) 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
generateDataKeyPairWithoutPlaintextResponse_publicKey :: Lens.Lens' GenerateDataKeyPairWithoutPlaintextResponse (Prelude.Maybe Prelude.ByteString)
generateDataKeyPairWithoutPlaintextResponse_publicKey :: Lens'
GenerateDataKeyPairWithoutPlaintextResponse (Maybe ByteString)
generateDataKeyPairWithoutPlaintextResponse_publicKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintextResponse' {Maybe Base64
publicKey :: Maybe Base64
$sel:publicKey:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Base64
publicKey} -> Maybe Base64
publicKey) (\s :: GenerateDataKeyPairWithoutPlaintextResponse
s@GenerateDataKeyPairWithoutPlaintextResponse' {} Maybe Base64
a -> GenerateDataKeyPairWithoutPlaintextResponse
s {$sel:publicKey:GenerateDataKeyPairWithoutPlaintextResponse' :: Maybe Base64
publicKey = Maybe Base64
a} :: GenerateDataKeyPairWithoutPlaintextResponse) 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
generateDataKeyPairWithoutPlaintextResponse_httpStatus :: Lens.Lens' GenerateDataKeyPairWithoutPlaintextResponse Prelude.Int
generateDataKeyPairWithoutPlaintextResponse_httpStatus :: Lens' GenerateDataKeyPairWithoutPlaintextResponse Int
generateDataKeyPairWithoutPlaintextResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyPairWithoutPlaintextResponse' {Int
httpStatus :: Int
$sel:httpStatus:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GenerateDataKeyPairWithoutPlaintextResponse
s@GenerateDataKeyPairWithoutPlaintextResponse' {} Int
a -> GenerateDataKeyPairWithoutPlaintextResponse
s {$sel:httpStatus:GenerateDataKeyPairWithoutPlaintextResponse' :: Int
httpStatus = Int
a} :: GenerateDataKeyPairWithoutPlaintextResponse)
instance
Prelude.NFData
GenerateDataKeyPairWithoutPlaintextResponse
where
rnf :: GenerateDataKeyPairWithoutPlaintextResponse -> ()
rnf GenerateDataKeyPairWithoutPlaintextResponse' {Int
Maybe Text
Maybe Base64
Maybe DataKeyPairSpec
httpStatus :: Int
publicKey :: Maybe Base64
privateKeyCiphertextBlob :: Maybe Base64
keyPairSpec :: Maybe DataKeyPairSpec
keyId :: Maybe Text
$sel:httpStatus:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Int
$sel:publicKey:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Base64
$sel:privateKeyCiphertextBlob:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> Maybe Base64
$sel:keyPairSpec:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse
-> Maybe DataKeyPairSpec
$sel:keyId:GenerateDataKeyPairWithoutPlaintextResponse' :: GenerateDataKeyPairWithoutPlaintextResponse -> 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 Base64
publicKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus