{-# 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.GenerateDataKeyWithoutPlaintext
(
GenerateDataKeyWithoutPlaintext (..),
newGenerateDataKeyWithoutPlaintext,
generateDataKeyWithoutPlaintext_encryptionContext,
generateDataKeyWithoutPlaintext_grantTokens,
generateDataKeyWithoutPlaintext_keySpec,
generateDataKeyWithoutPlaintext_numberOfBytes,
generateDataKeyWithoutPlaintext_keyId,
GenerateDataKeyWithoutPlaintextResponse (..),
newGenerateDataKeyWithoutPlaintextResponse,
generateDataKeyWithoutPlaintextResponse_ciphertextBlob,
generateDataKeyWithoutPlaintextResponse_keyId,
generateDataKeyWithoutPlaintextResponse_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 GenerateDataKeyWithoutPlaintext = GenerateDataKeyWithoutPlaintext'
{
GenerateDataKeyWithoutPlaintext -> Maybe (HashMap Text Text)
encryptionContext :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
GenerateDataKeyWithoutPlaintext -> Maybe [Text]
grantTokens :: Prelude.Maybe [Prelude.Text],
GenerateDataKeyWithoutPlaintext -> Maybe DataKeySpec
keySpec :: Prelude.Maybe DataKeySpec,
GenerateDataKeyWithoutPlaintext -> Maybe Natural
numberOfBytes :: Prelude.Maybe Prelude.Natural,
GenerateDataKeyWithoutPlaintext -> Text
keyId :: Prelude.Text
}
deriving (GenerateDataKeyWithoutPlaintext
-> GenerateDataKeyWithoutPlaintext -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateDataKeyWithoutPlaintext
-> GenerateDataKeyWithoutPlaintext -> Bool
$c/= :: GenerateDataKeyWithoutPlaintext
-> GenerateDataKeyWithoutPlaintext -> Bool
== :: GenerateDataKeyWithoutPlaintext
-> GenerateDataKeyWithoutPlaintext -> Bool
$c== :: GenerateDataKeyWithoutPlaintext
-> GenerateDataKeyWithoutPlaintext -> Bool
Prelude.Eq, ReadPrec [GenerateDataKeyWithoutPlaintext]
ReadPrec GenerateDataKeyWithoutPlaintext
Int -> ReadS GenerateDataKeyWithoutPlaintext
ReadS [GenerateDataKeyWithoutPlaintext]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateDataKeyWithoutPlaintext]
$creadListPrec :: ReadPrec [GenerateDataKeyWithoutPlaintext]
readPrec :: ReadPrec GenerateDataKeyWithoutPlaintext
$creadPrec :: ReadPrec GenerateDataKeyWithoutPlaintext
readList :: ReadS [GenerateDataKeyWithoutPlaintext]
$creadList :: ReadS [GenerateDataKeyWithoutPlaintext]
readsPrec :: Int -> ReadS GenerateDataKeyWithoutPlaintext
$creadsPrec :: Int -> ReadS GenerateDataKeyWithoutPlaintext
Prelude.Read, Int -> GenerateDataKeyWithoutPlaintext -> ShowS
[GenerateDataKeyWithoutPlaintext] -> ShowS
GenerateDataKeyWithoutPlaintext -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateDataKeyWithoutPlaintext] -> ShowS
$cshowList :: [GenerateDataKeyWithoutPlaintext] -> ShowS
show :: GenerateDataKeyWithoutPlaintext -> String
$cshow :: GenerateDataKeyWithoutPlaintext -> String
showsPrec :: Int -> GenerateDataKeyWithoutPlaintext -> ShowS
$cshowsPrec :: Int -> GenerateDataKeyWithoutPlaintext -> ShowS
Prelude.Show, forall x.
Rep GenerateDataKeyWithoutPlaintext x
-> GenerateDataKeyWithoutPlaintext
forall x.
GenerateDataKeyWithoutPlaintext
-> Rep GenerateDataKeyWithoutPlaintext x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateDataKeyWithoutPlaintext x
-> GenerateDataKeyWithoutPlaintext
$cfrom :: forall x.
GenerateDataKeyWithoutPlaintext
-> Rep GenerateDataKeyWithoutPlaintext x
Prelude.Generic)
newGenerateDataKeyWithoutPlaintext ::
Prelude.Text ->
GenerateDataKeyWithoutPlaintext
newGenerateDataKeyWithoutPlaintext :: Text -> GenerateDataKeyWithoutPlaintext
newGenerateDataKeyWithoutPlaintext Text
pKeyId_ =
GenerateDataKeyWithoutPlaintext'
{ $sel:encryptionContext:GenerateDataKeyWithoutPlaintext' :: Maybe (HashMap Text Text)
encryptionContext =
forall a. Maybe a
Prelude.Nothing,
$sel:grantTokens:GenerateDataKeyWithoutPlaintext' :: Maybe [Text]
grantTokens = forall a. Maybe a
Prelude.Nothing,
$sel:keySpec:GenerateDataKeyWithoutPlaintext' :: Maybe DataKeySpec
keySpec = forall a. Maybe a
Prelude.Nothing,
$sel:numberOfBytes:GenerateDataKeyWithoutPlaintext' :: Maybe Natural
numberOfBytes = forall a. Maybe a
Prelude.Nothing,
$sel:keyId:GenerateDataKeyWithoutPlaintext' :: Text
keyId = Text
pKeyId_
}
generateDataKeyWithoutPlaintext_encryptionContext :: Lens.Lens' GenerateDataKeyWithoutPlaintext (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
generateDataKeyWithoutPlaintext_encryptionContext :: Lens' GenerateDataKeyWithoutPlaintext (Maybe (HashMap Text Text))
generateDataKeyWithoutPlaintext_encryptionContext = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintext' {Maybe (HashMap Text Text)
encryptionContext :: Maybe (HashMap Text Text)
$sel:encryptionContext:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe (HashMap Text Text)
encryptionContext} -> Maybe (HashMap Text Text)
encryptionContext) (\s :: GenerateDataKeyWithoutPlaintext
s@GenerateDataKeyWithoutPlaintext' {} Maybe (HashMap Text Text)
a -> GenerateDataKeyWithoutPlaintext
s {$sel:encryptionContext:GenerateDataKeyWithoutPlaintext' :: Maybe (HashMap Text Text)
encryptionContext = Maybe (HashMap Text Text)
a} :: GenerateDataKeyWithoutPlaintext) 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
generateDataKeyWithoutPlaintext_grantTokens :: Lens.Lens' GenerateDataKeyWithoutPlaintext (Prelude.Maybe [Prelude.Text])
generateDataKeyWithoutPlaintext_grantTokens :: Lens' GenerateDataKeyWithoutPlaintext (Maybe [Text])
generateDataKeyWithoutPlaintext_grantTokens = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintext' {Maybe [Text]
grantTokens :: Maybe [Text]
$sel:grantTokens:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe [Text]
grantTokens} -> Maybe [Text]
grantTokens) (\s :: GenerateDataKeyWithoutPlaintext
s@GenerateDataKeyWithoutPlaintext' {} Maybe [Text]
a -> GenerateDataKeyWithoutPlaintext
s {$sel:grantTokens:GenerateDataKeyWithoutPlaintext' :: Maybe [Text]
grantTokens = Maybe [Text]
a} :: GenerateDataKeyWithoutPlaintext) 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
generateDataKeyWithoutPlaintext_keySpec :: Lens.Lens' GenerateDataKeyWithoutPlaintext (Prelude.Maybe DataKeySpec)
generateDataKeyWithoutPlaintext_keySpec :: Lens' GenerateDataKeyWithoutPlaintext (Maybe DataKeySpec)
generateDataKeyWithoutPlaintext_keySpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintext' {Maybe DataKeySpec
keySpec :: Maybe DataKeySpec
$sel:keySpec:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe DataKeySpec
keySpec} -> Maybe DataKeySpec
keySpec) (\s :: GenerateDataKeyWithoutPlaintext
s@GenerateDataKeyWithoutPlaintext' {} Maybe DataKeySpec
a -> GenerateDataKeyWithoutPlaintext
s {$sel:keySpec:GenerateDataKeyWithoutPlaintext' :: Maybe DataKeySpec
keySpec = Maybe DataKeySpec
a} :: GenerateDataKeyWithoutPlaintext)
generateDataKeyWithoutPlaintext_numberOfBytes :: Lens.Lens' GenerateDataKeyWithoutPlaintext (Prelude.Maybe Prelude.Natural)
generateDataKeyWithoutPlaintext_numberOfBytes :: Lens' GenerateDataKeyWithoutPlaintext (Maybe Natural)
generateDataKeyWithoutPlaintext_numberOfBytes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintext' {Maybe Natural
numberOfBytes :: Maybe Natural
$sel:numberOfBytes:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe Natural
numberOfBytes} -> Maybe Natural
numberOfBytes) (\s :: GenerateDataKeyWithoutPlaintext
s@GenerateDataKeyWithoutPlaintext' {} Maybe Natural
a -> GenerateDataKeyWithoutPlaintext
s {$sel:numberOfBytes:GenerateDataKeyWithoutPlaintext' :: Maybe Natural
numberOfBytes = Maybe Natural
a} :: GenerateDataKeyWithoutPlaintext)
generateDataKeyWithoutPlaintext_keyId :: Lens.Lens' GenerateDataKeyWithoutPlaintext Prelude.Text
generateDataKeyWithoutPlaintext_keyId :: Lens' GenerateDataKeyWithoutPlaintext Text
generateDataKeyWithoutPlaintext_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintext' {Text
keyId :: Text
$sel:keyId:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Text
keyId} -> Text
keyId) (\s :: GenerateDataKeyWithoutPlaintext
s@GenerateDataKeyWithoutPlaintext' {} Text
a -> GenerateDataKeyWithoutPlaintext
s {$sel:keyId:GenerateDataKeyWithoutPlaintext' :: Text
keyId = Text
a} :: GenerateDataKeyWithoutPlaintext)
instance
Core.AWSRequest
GenerateDataKeyWithoutPlaintext
where
type
AWSResponse GenerateDataKeyWithoutPlaintext =
GenerateDataKeyWithoutPlaintextResponse
request :: (Service -> Service)
-> GenerateDataKeyWithoutPlaintext
-> Request GenerateDataKeyWithoutPlaintext
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 GenerateDataKeyWithoutPlaintext
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GenerateDataKeyWithoutPlaintext)))
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 Base64
-> Maybe Text -> Int -> GenerateDataKeyWithoutPlaintextResponse
GenerateDataKeyWithoutPlaintextResponse'
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
"CiphertextBlob")
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
"KeyId")
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
GenerateDataKeyWithoutPlaintext
where
hashWithSalt :: Int -> GenerateDataKeyWithoutPlaintext -> Int
hashWithSalt
Int
_salt
GenerateDataKeyWithoutPlaintext' {Maybe Natural
Maybe [Text]
Maybe (HashMap Text Text)
Maybe DataKeySpec
Text
keyId :: Text
numberOfBytes :: Maybe Natural
keySpec :: Maybe DataKeySpec
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyId:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Text
$sel:numberOfBytes:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe Natural
$sel:keySpec:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe DataKeySpec
$sel:grantTokens:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> 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` Maybe DataKeySpec
keySpec
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
numberOfBytes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
keyId
instance
Prelude.NFData
GenerateDataKeyWithoutPlaintext
where
rnf :: GenerateDataKeyWithoutPlaintext -> ()
rnf GenerateDataKeyWithoutPlaintext' {Maybe Natural
Maybe [Text]
Maybe (HashMap Text Text)
Maybe DataKeySpec
Text
keyId :: Text
numberOfBytes :: Maybe Natural
keySpec :: Maybe DataKeySpec
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyId:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Text
$sel:numberOfBytes:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe Natural
$sel:keySpec:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe DataKeySpec
$sel:grantTokens:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> 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 Maybe DataKeySpec
keySpec
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
numberOfBytes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
keyId
instance
Data.ToHeaders
GenerateDataKeyWithoutPlaintext
where
toHeaders :: GenerateDataKeyWithoutPlaintext -> 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.GenerateDataKeyWithoutPlaintext" ::
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 GenerateDataKeyWithoutPlaintext where
toJSON :: GenerateDataKeyWithoutPlaintext -> Value
toJSON GenerateDataKeyWithoutPlaintext' {Maybe Natural
Maybe [Text]
Maybe (HashMap Text Text)
Maybe DataKeySpec
Text
keyId :: Text
numberOfBytes :: Maybe Natural
keySpec :: Maybe DataKeySpec
grantTokens :: Maybe [Text]
encryptionContext :: Maybe (HashMap Text Text)
$sel:keyId:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Text
$sel:numberOfBytes:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe Natural
$sel:keySpec:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe DataKeySpec
$sel:grantTokens:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> Maybe [Text]
$sel:encryptionContext:GenerateDataKeyWithoutPlaintext' :: GenerateDataKeyWithoutPlaintext -> 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,
(Key
"KeySpec" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DataKeySpec
keySpec,
(Key
"NumberOfBytes" 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 Natural
numberOfBytes,
forall a. a -> Maybe a
Prelude.Just (Key
"KeyId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
keyId)
]
)
instance Data.ToPath GenerateDataKeyWithoutPlaintext where
toPath :: GenerateDataKeyWithoutPlaintext -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GenerateDataKeyWithoutPlaintext where
toQuery :: GenerateDataKeyWithoutPlaintext -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GenerateDataKeyWithoutPlaintextResponse = GenerateDataKeyWithoutPlaintextResponse'
{
GenerateDataKeyWithoutPlaintextResponse -> Maybe Base64
ciphertextBlob :: Prelude.Maybe Data.Base64,
GenerateDataKeyWithoutPlaintextResponse -> Maybe Text
keyId :: Prelude.Maybe Prelude.Text,
GenerateDataKeyWithoutPlaintextResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GenerateDataKeyWithoutPlaintextResponse
-> GenerateDataKeyWithoutPlaintextResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateDataKeyWithoutPlaintextResponse
-> GenerateDataKeyWithoutPlaintextResponse -> Bool
$c/= :: GenerateDataKeyWithoutPlaintextResponse
-> GenerateDataKeyWithoutPlaintextResponse -> Bool
== :: GenerateDataKeyWithoutPlaintextResponse
-> GenerateDataKeyWithoutPlaintextResponse -> Bool
$c== :: GenerateDataKeyWithoutPlaintextResponse
-> GenerateDataKeyWithoutPlaintextResponse -> Bool
Prelude.Eq, ReadPrec [GenerateDataKeyWithoutPlaintextResponse]
ReadPrec GenerateDataKeyWithoutPlaintextResponse
Int -> ReadS GenerateDataKeyWithoutPlaintextResponse
ReadS [GenerateDataKeyWithoutPlaintextResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateDataKeyWithoutPlaintextResponse]
$creadListPrec :: ReadPrec [GenerateDataKeyWithoutPlaintextResponse]
readPrec :: ReadPrec GenerateDataKeyWithoutPlaintextResponse
$creadPrec :: ReadPrec GenerateDataKeyWithoutPlaintextResponse
readList :: ReadS [GenerateDataKeyWithoutPlaintextResponse]
$creadList :: ReadS [GenerateDataKeyWithoutPlaintextResponse]
readsPrec :: Int -> ReadS GenerateDataKeyWithoutPlaintextResponse
$creadsPrec :: Int -> ReadS GenerateDataKeyWithoutPlaintextResponse
Prelude.Read, Int -> GenerateDataKeyWithoutPlaintextResponse -> ShowS
[GenerateDataKeyWithoutPlaintextResponse] -> ShowS
GenerateDataKeyWithoutPlaintextResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateDataKeyWithoutPlaintextResponse] -> ShowS
$cshowList :: [GenerateDataKeyWithoutPlaintextResponse] -> ShowS
show :: GenerateDataKeyWithoutPlaintextResponse -> String
$cshow :: GenerateDataKeyWithoutPlaintextResponse -> String
showsPrec :: Int -> GenerateDataKeyWithoutPlaintextResponse -> ShowS
$cshowsPrec :: Int -> GenerateDataKeyWithoutPlaintextResponse -> ShowS
Prelude.Show, forall x.
Rep GenerateDataKeyWithoutPlaintextResponse x
-> GenerateDataKeyWithoutPlaintextResponse
forall x.
GenerateDataKeyWithoutPlaintextResponse
-> Rep GenerateDataKeyWithoutPlaintextResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateDataKeyWithoutPlaintextResponse x
-> GenerateDataKeyWithoutPlaintextResponse
$cfrom :: forall x.
GenerateDataKeyWithoutPlaintextResponse
-> Rep GenerateDataKeyWithoutPlaintextResponse x
Prelude.Generic)
newGenerateDataKeyWithoutPlaintextResponse ::
Prelude.Int ->
GenerateDataKeyWithoutPlaintextResponse
newGenerateDataKeyWithoutPlaintextResponse :: Int -> GenerateDataKeyWithoutPlaintextResponse
newGenerateDataKeyWithoutPlaintextResponse
Int
pHttpStatus_ =
GenerateDataKeyWithoutPlaintextResponse'
{ $sel:ciphertextBlob:GenerateDataKeyWithoutPlaintextResponse' :: Maybe Base64
ciphertextBlob =
forall a. Maybe a
Prelude.Nothing,
$sel:keyId:GenerateDataKeyWithoutPlaintextResponse' :: Maybe Text
keyId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GenerateDataKeyWithoutPlaintextResponse' :: Int
httpStatus = Int
pHttpStatus_
}
generateDataKeyWithoutPlaintextResponse_ciphertextBlob :: Lens.Lens' GenerateDataKeyWithoutPlaintextResponse (Prelude.Maybe Prelude.ByteString)
generateDataKeyWithoutPlaintextResponse_ciphertextBlob :: Lens' GenerateDataKeyWithoutPlaintextResponse (Maybe ByteString)
generateDataKeyWithoutPlaintextResponse_ciphertextBlob = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintextResponse' {Maybe Base64
ciphertextBlob :: Maybe Base64
$sel:ciphertextBlob:GenerateDataKeyWithoutPlaintextResponse' :: GenerateDataKeyWithoutPlaintextResponse -> Maybe Base64
ciphertextBlob} -> Maybe Base64
ciphertextBlob) (\s :: GenerateDataKeyWithoutPlaintextResponse
s@GenerateDataKeyWithoutPlaintextResponse' {} Maybe Base64
a -> GenerateDataKeyWithoutPlaintextResponse
s {$sel:ciphertextBlob:GenerateDataKeyWithoutPlaintextResponse' :: Maybe Base64
ciphertextBlob = Maybe Base64
a} :: GenerateDataKeyWithoutPlaintextResponse) 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
generateDataKeyWithoutPlaintextResponse_keyId :: Lens.Lens' GenerateDataKeyWithoutPlaintextResponse (Prelude.Maybe Prelude.Text)
generateDataKeyWithoutPlaintextResponse_keyId :: Lens' GenerateDataKeyWithoutPlaintextResponse (Maybe Text)
generateDataKeyWithoutPlaintextResponse_keyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintextResponse' {Maybe Text
keyId :: Maybe Text
$sel:keyId:GenerateDataKeyWithoutPlaintextResponse' :: GenerateDataKeyWithoutPlaintextResponse -> Maybe Text
keyId} -> Maybe Text
keyId) (\s :: GenerateDataKeyWithoutPlaintextResponse
s@GenerateDataKeyWithoutPlaintextResponse' {} Maybe Text
a -> GenerateDataKeyWithoutPlaintextResponse
s {$sel:keyId:GenerateDataKeyWithoutPlaintextResponse' :: Maybe Text
keyId = Maybe Text
a} :: GenerateDataKeyWithoutPlaintextResponse)
generateDataKeyWithoutPlaintextResponse_httpStatus :: Lens.Lens' GenerateDataKeyWithoutPlaintextResponse Prelude.Int
generateDataKeyWithoutPlaintextResponse_httpStatus :: Lens' GenerateDataKeyWithoutPlaintextResponse Int
generateDataKeyWithoutPlaintextResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateDataKeyWithoutPlaintextResponse' {Int
httpStatus :: Int
$sel:httpStatus:GenerateDataKeyWithoutPlaintextResponse' :: GenerateDataKeyWithoutPlaintextResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GenerateDataKeyWithoutPlaintextResponse
s@GenerateDataKeyWithoutPlaintextResponse' {} Int
a -> GenerateDataKeyWithoutPlaintextResponse
s {$sel:httpStatus:GenerateDataKeyWithoutPlaintextResponse' :: Int
httpStatus = Int
a} :: GenerateDataKeyWithoutPlaintextResponse)
instance
Prelude.NFData
GenerateDataKeyWithoutPlaintextResponse
where
rnf :: GenerateDataKeyWithoutPlaintextResponse -> ()
rnf GenerateDataKeyWithoutPlaintextResponse' {Int
Maybe Text
Maybe Base64
httpStatus :: Int
keyId :: Maybe Text
ciphertextBlob :: Maybe Base64
$sel:httpStatus:GenerateDataKeyWithoutPlaintextResponse' :: GenerateDataKeyWithoutPlaintextResponse -> Int
$sel:keyId:GenerateDataKeyWithoutPlaintextResponse' :: GenerateDataKeyWithoutPlaintextResponse -> Maybe Text
$sel:ciphertextBlob:GenerateDataKeyWithoutPlaintextResponse' :: GenerateDataKeyWithoutPlaintextResponse -> Maybe Base64
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Base64
ciphertextBlob
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Int
httpStatus